[GRASS-SVN] r31350 - grass/branches/develbranch_6/gui/tcltk/gis.m

[svn_grass at osgeo.org]

Author: cmbarton
Date: 2008-05-14 21:18:14 -0400 (Wed, 14 May 2008)
New Revision: 31350

Modified:
   grass/branches/develbranch_6/gui/tcltk/gis.m/runandoutput.tcl
Log:
Guarantee_xmon procedure should fail gracefully in windows with a message that functions that require X Windows are not available.

Modified: grass/branches/develbranch_6/gui/tcltk/gis.m/runandoutput.tcl
===================================================================
--- grass/branches/develbranch_6/gui/tcltk/gis.m/runandoutput.tcl	2008-05-14 21:10:51 UTC (rev 31349)
+++ grass/branches/develbranch_6/gui/tcltk/gis.m/runandoutput.tcl	2008-05-15 01:18:14 UTC (rev 31350)
@@ -244,6 +244,13 @@
 # Used in menus.
 
 proc guarantee_xmon {} {
+	global mingw
+	
+	if {$mingw == 1} {
+		tk_messageBox -type ok -icon error -title [G_msg "X Windows not available"] \
+			-message [G_msg "Functions that require X Windows are not available in Windows"]
+		return
+	}
 	if {![catch {open "|d.mon -L" r} input]} {
 		while {[gets $input line] >= 0 } {
 			if {[regexp -nocase {(x[0-9]+).*not running} $line dummy monitor]} {