--- tool.tcl.~1.13.~	Wed Dec  8 10:34:03 2004
+++ tool.tcl	Wed Dec  8 10:34:04 2004
@@ -40,6 +40,12 @@
         -command "Dm::zoom" \
         -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1 \
         -helptext [G_msg "Zoom"]
+    
+    # zoom_back
+    $bbox1 add -image [image create photo -file "$dmpath/zoom_back.gif"] \
+        -command "Dm::zoom_back" \
+        -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1 \
+        -helptext [G_msg "last Zoom"]
 
     # pan
     $bbox1 add -image [image create photo -file "$dmpath/pan.gif"] \