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

[svn_grass at osgeo.org]

Author: mlennert
Date: 2008-01-16 17:43:13 -0500 (Wed, 16 Jan 2008)
New Revision: 29729

Modified:
   grass/trunk/gui/tcltk/gis.m/gm.tcl
Log:
allow for different PATH separator in windows


Modified: grass/trunk/gui/tcltk/gis.m/gm.tcl
===================================================================
--- grass/trunk/gui/tcltk/gis.m/gm.tcl	2008-01-16 20:10:07 UTC (rev 29728)
+++ grass/trunk/gui/tcltk/gis.m/gm.tcl	2008-01-16 22:43:13 UTC (rev 29729)
@@ -140,10 +140,14 @@
 
 set max_prgindic 20
 
-append regexp .* $env(GISBASE) {[^:]*}
-regsub -- $regexp $env(PATH) "&:$env(GISBASE)/etc/gui/scripts" env(PATH)
+if { $tcl_platform(platform) == "windows" } {
+	append regexp .* $env(GISBASE) {[^;]*}
+	regsub -- $regexp $env(PATH) "&;$env(GISBASE)/etc/gui/scripts" env(PATH)
+} else {
+	append regexp .* $env(GISBASE) {[^:]*}
+	regsub -- $regexp $env(PATH) "&:$env(GISBASE)/etc/gui/scripts" env(PATH)
+}
 
-
 ###############################################################################
 # Deprecated
 # Use guarantee_xmon and any run command instead.