Is this how OnUnix works ? by checking wsystem == x11 ? I don't get it.. didn't we use if $::tcl_platform(platform) == "unix" ? it would be much better, more secure, no ?
KKRT On Thu, 15 Jun 2006 07:55:33 -0400, <[EMAIL PROTECTED]> wrote: > Revision: 6875 > Author: tjikkun > Date: 2006-06-15 04:55:29 -0700 (Thu, 15 Jun 2006) > ViewCVS: http://svn.sourceforge.net/amsn/?rev=6875&view=rev > > Log Message: > ----------- > fixed OnUnix not existing error on startup > > Modified Paths: > -------------- > branches/0_96/amsn/gui.tcl > Modified: branches/0_96/amsn/gui.tcl > =================================================================== > --- branches/0_96/amsn/gui.tcl 2006-06-15 11:50:27 UTC (rev 6874) > +++ branches/0_96/amsn/gui.tcl 2006-06-15 11:55:29 UTC (rev 6875) > @@ -212,7 +212,8 @@ > #Set the default option for canvas -highlightthickness > option add *Canvas.highlightThickness 0 > - if { [OnUnix] } { > + #OnUnix is defined later on so for 0.96 just use this, trunk has > OnUnix here > + if { ![catch {tk windowingsystem} wsystem] && $wsystem == "x11" } { > #Mappings for Shift-BackSpace > bind Entry <Terminate_Server> [bind Entry <BackSpace>] > bind Text <Terminate_Server> [bind Text <BackSpace>] > > > This was sent by the SourceForge.net collaborative development platform, > the world's largest Open Source development site. > > > > _______________________________________________ > Amsn-commits mailing list > [EMAIL PROTECTED] > https://lists.sourceforge.net/lists/listinfo/amsn-commits -- KaKaRoTo _______________________________________________ Amsn-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/amsn-devel
