[GRASS-SVN] r50717 - in grass/branches/develbranch_6/gui/tcltk: d.m gis.m

[svn_grass at osgeo.org]

Author: hamish
Date: 2012-02-07 20:29:56 -0800 (Tue, 07 Feb 2012)
New Revision: 50717

Modified:
   grass/branches/develbranch_6/gui/tcltk/d.m/menu.tcl
   grass/branches/develbranch_6/gui/tcltk/gis.m/gmmenu.tcl
Log:
r.le.trace needs a display monitor and an interactive terminal

Modified: grass/branches/develbranch_6/gui/tcltk/d.m/menu.tcl
===================================================================
--- grass/branches/develbranch_6/gui/tcltk/d.m/menu.tcl	2012-02-08 04:22:09 UTC (rev 50716)
+++ grass/branches/develbranch_6/gui/tcltk/d.m/menu.tcl	2012-02-08 04:29:56 UTC (rev 50717)
@@ -308,7 +308,7 @@
 		{separator}
 		{command {[G_msg "Analyze landscape characteristics"]} {} "r.le.pixel" {} -command {execute r.le.pixel }}
 		{command {[G_msg "Analyze landscape patch characteristics"]} {} " r.le.patch" {} -command {execute r.le.patch }}
-		{command {[G_msg "Output landscape patch information"]} {} "r.le.trace" {} -command {execute r.le.trace }}
+		{command {[G_msg "Output landscape patch information"]} {} "r.le.trace" {} -command {guarantee_xmon; term r.le.trace}}
 	}}
 	{cascad {[G_msg "Wildfire modeling"]} {} "" $tmenu {			
 		{command {[G_msg "Generate rate of spread (ROS) maps"]} {} "r.ros" {} -command {execute r.ros }}

Modified: grass/branches/develbranch_6/gui/tcltk/gis.m/gmmenu.tcl
===================================================================
--- grass/branches/develbranch_6/gui/tcltk/gis.m/gmmenu.tcl	2012-02-08 04:22:09 UTC (rev 50716)
+++ grass/branches/develbranch_6/gui/tcltk/gis.m/gmmenu.tcl	2012-02-08 04:29:56 UTC (rev 50717)
@@ -337,7 +337,11 @@
 		{separator}
 		{command {[G_msg "Analyze landscape"]} {} "r.le.pixel: Analyze landscape characteristics" {} -command {execute r.le.pixel }}
 		{command {[G_msg "Analyze patches"]} {} " r.le.patch: Analyze landscape patch characteristics" {} -command {execute r.le.patch }}
-		{command {[G_msg "Output"]} {} "r.le.trace: Output landscape patch information" {} -command {execute r.le.trace }}
+		{command {[G_msg "Summary and display"]} {} "r.le.trace: Output landscape patch information" {} -command {
+			unset env(GRASS_RENDER_IMMEDIATE)
+			guarantee_xmon
+			term r.le.trace
+			set env(GRASS_RENDER_IMMEDIATE) "TRUE"}}
 	}}
 	{cascad {[G_msg "Landscape patch analysis"]} {} "" $tmenu {			
 		{command {[G_msg "Set up sampling and analysis framework"]} {} "r.li.setup: Configure and create patch map for analysis" {} -command {execute r.li.setup }}