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

[svn_grass at osgeo.org]

Author: hamish
Date: 2009-12-06 02:27:23 -0500 (Sun, 06 Dec 2009)
New Revision: 39900

Modified:
   grass/branches/releasebranch_6_4/gui/tcltk/gis.m/mapcanvas.tcl
Log:
bugfix (Maris): XY location work again (merge from devbr6 r39899)

Modified: grass/branches/releasebranch_6_4/gui/tcltk/gis.m/mapcanvas.tcl
===================================================================
--- grass/branches/releasebranch_6_4/gui/tcltk/gis.m/mapcanvas.tcl	2009-12-06 02:09:46 UTC (rev 39899)
+++ grass/branches/releasebranch_6_4/gui/tcltk/gis.m/mapcanvas.tcl	2009-12-06 07:27:23 UTC (rev 39900)
@@ -488,7 +488,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"]