[GRASS-SVN] r37875 - grass/branches/releasebranch_6_4/gui/tcltk/gis.m

[svn_grass at osgeo.org]

Author: hamish
Date: 2009-06-13 23:23:42 -0400 (Sat, 13 Jun 2009)
New Revision: 37875

Modified:
   grass/branches/releasebranch_6_4/gui/tcltk/gis.m/gmmenu.tcl
   grass/branches/releasebranch_6_4/gui/tcltk/gis.m/runandoutput.tcl
Log:
(partial) fix for when $GISBASE includes a space

Modified: grass/branches/releasebranch_6_4/gui/tcltk/gis.m/gmmenu.tcl
===================================================================
--- grass/branches/releasebranch_6_4/gui/tcltk/gis.m/gmmenu.tcl	2009-06-14 02:39:14 UTC (rev 37874)
+++ grass/branches/releasebranch_6_4/gui/tcltk/gis.m/gmmenu.tcl	2009-06-14 03:23:42 UTC (rev 37875)
@@ -435,7 +435,7 @@
 		{command {[G_msg "Clean vector"]} {} "v.clean: Clean vector objects" {} -command {execute v.clean }}
 		{command {[G_msg "Smooth or simplify"]} {} "v.generalize: Smooth or simplify lines and boundaries (reduce vertices)" {} -command {execute v.generalize }}
 		{separator}
-		{command {[G_msg "Convert object types"]} {} "v.type: Convert vector objects from one feature type to another" {} -command {execute $env(GISBASE)/etc/gui/scripts/v.type_wrapper.sh }}
+		{command {[G_msg "Convert object types"]} {} "v.type: Convert vector objects from one feature type to another" {} -command {execute "$env(GISBASE)/etc/gui/scripts/v.type_wrapper.sh" }}
 		{separator}
 		{command {[G_msg "Add centroids"]} {} "v.centroids: Add centroids to closed boundaries to create areas" {} -command {execute v.centroids }}
 		{separator}

Modified: grass/branches/releasebranch_6_4/gui/tcltk/gis.m/runandoutput.tcl
===================================================================
--- grass/branches/releasebranch_6_4/gui/tcltk/gis.m/runandoutput.tcl	2009-06-14 02:39:14 UTC (rev 37874)
+++ grass/branches/releasebranch_6_4/gui/tcltk/gis.m/runandoutput.tcl	2009-06-14 03:23:42 UTC (rev 37875)
@@ -72,7 +72,7 @@
     set program [lindex $cmd 0]
     set code ""
 
-	if {[catch {set code [exec -- $program --tcltk 2> $devnull]} error]} {
+	if {[catch {set code [exec -- "$program" --tcltk 2> $devnull]} error]} {
 		GmLib::errmsg $error
 	}
 
@@ -170,7 +170,7 @@
 
 proc execute {cmd} {
     # Use run and output
-    run_ui $cmd
+    run_ui [list $cmd]
 }
 
 ###############################################################################