[GRASS-SVN] r32340 - grass/trunk/gui/tcltk/gis.m

[svn_grass at osgeo.org]

Author: glynn
Date: 2008-07-27 13:12:06 -0400 (Sun, 27 Jul 2008)
New Revision: 32340

Modified:
   grass/trunk/gui/tcltk/gis.m/gm.tcl
Log:
Use "tk windowingsystem" instead of $env(osxaqua)


Modified: grass/trunk/gui/tcltk/gis.m/gm.tcl
===================================================================
--- grass/trunk/gui/tcltk/gis.m/gm.tcl	2008-07-27 17:12:01 UTC (rev 32339)
+++ grass/trunk/gui/tcltk/gis.m/gm.tcl	2008-07-27 17:12:06 UTC (rev 32340)
@@ -77,8 +77,8 @@
 }
 
 # add for OSX aqua
-if {![catch {set env(osxaqua)}]} {
-    set osxaqua $env(osxaqua)
+if {[tk windowingsystem] == "aqua"} {
+    set osxaqua "1"
 } else {
     set osxaqua "0"
 }