[GRASS-CVS] michael: grass6/gui/tcltk/gis.m mapcanvas.tcl, 1.77, 1.78

grass at intevation.de grass at intevation.de
Thu Nov 29 15:55:02 EST 2007


Author: michael

Update of /grassrepository/grass6/gui/tcltk/gis.m
In directory doto:/tmp/cvs-serv1940

Modified Files:
	mapcanvas.tcl 
Log Message:
Fix error due to overzooming

Index: mapcanvas.tcl
===================================================================
RCS file: /grassrepository/grass6/gui/tcltk/gis.m/mapcanvas.tcl,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -d -r1.77 -r1.78
--- mapcanvas.tcl	8 Sep 2007 03:55:06 -0000	1.77
+++ mapcanvas.tcl	29 Nov 2007 20:54:59 -0000	1.78
@@ -520,6 +520,7 @@
 		if {$mapwd == 0.0 || $mapht == 0.0} {
 			tk_messageBox -type ok -icon info -parent .mapcan($mon) \
 				-title [G_msg "Max zoom in reached"] -message [G_msg "Max zoom in reached"]
+			MapCanvas::zoom_back $mon
 			return 1
 		}
 		set mapar [expr {$mapwd / $mapht}]




More information about the grass-commit mailing list