[GRASS-SVN] r38311 - grass/branches/develbranch_6/lib/gtcltk

[svn_grass at osgeo.org]

Author: marisn
Date: 2009-07-08 08:05:47 -0400 (Wed, 08 Jul 2009)
New Revision: 38311

Modified:
   grass/branches/develbranch_6/lib/gtcltk/gronsole.tcl
Log:
Allow TCL/Tk UI to work if GISBASE contains spaces

Modified: grass/branches/develbranch_6/lib/gtcltk/gronsole.tcl
===================================================================
--- grass/branches/develbranch_6/lib/gtcltk/gronsole.tcl	2009-07-08 10:42:51 UTC (rev 38310)
+++ grass/branches/develbranch_6/lib/gtcltk/gronsole.tcl	2009-07-08 12:05:47 UTC (rev 38311)
@@ -468,7 +468,8 @@
 	# Actually run the program
 	# |& grocat merges stdout and stderr because Tcl treats
 	# anything written to stderr as an error condition
-	set cmd [concat | $cmd |& [file join "$env(GISBASE)" "etc" "grocat"]]
+	set grocat [file join "$env(GISBASE)" "etc" "grocat"]
+	set cmd [concat | $cmd |& "\"$grocat\"" ]
 
 	set message_env [exec g.gisenv get=GRASS_MESSAGE_FORMAT]
         set env(GRASS_MESSAGE_FORMAT) gui