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

[svn_grass at osgeo.org]

Author: marisn
Date: 2009-11-29 20:31:46 -0500 (Sun, 29 Nov 2009)
New Revision: 39856

Modified:
   grass/branches/develbranch_6/gui/tcltk/gis.m/mapcanvas.tcl
Log:
Do not fail to start gis.m in XY location due to missing proj info

Modified: grass/branches/develbranch_6/gui/tcltk/gis.m/mapcanvas.tcl
===================================================================
--- grass/branches/develbranch_6/gui/tcltk/gis.m/mapcanvas.tcl	2009-11-30 00:27:08 UTC (rev 39855)
+++ grass/branches/develbranch_6/gui/tcltk/gis.m/mapcanvas.tcl	2009-11-30 01:31:46 UTC (rev 39856)
@@ -487,7 +487,7 @@
 	    }
 
         # Set for latlon locations
-        if { $prj(proj) == "ll"} {set proj_is_ll 1}
+        if { [ info exist prj ] && $prj(proj) == "ll"} {set proj_is_ll 1}
         
         if {[catch {close $input} error]} {
 		GmLib::errmsg $error [G_msg "g.proj or projection error"]