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

[grass at intevation.de]

Author: michael

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

Modified Files:
	mapcanvas.tcl 
Log Message:
Improve maximum zoom-in message box.

Index: mapcanvas.tcl
===================================================================
RCS file: /grassrepository/grass6/gui/tcltk/gis.m/mapcanvas.tcl,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- mapcanvas.tcl	29 Nov 2007 20:54:59 -0000	1.78
+++ mapcanvas.tcl	1 Dec 2007 16:34:07 -0000	1.79
@@ -519,7 +519,7 @@
 		set mapht [expr {abs(1.0 * ($map_n - $map_s))}]
 		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"]
+				-message [G_msg "Maximum zoom-in reached"]
 			MapCanvas::zoom_back $mon
 			return 1
 		}