*** empty log message ***

1 files changed, 11 insertions, 3 deletions

diff --git a/library/graph.tcl b/library/graph.tcl
index 4a8410c..4a49a88 100644
--- a/library/graph.tcl
+++ b/library/graph.tcl
@@ -637,16 +637,24 @@ proc blt::ZoomStack::TitleNext { g } {
     } else {
 	set coords "-Inf Inf"
     }
-    $g marker create text "zoomTitle" -text "Zoom #$level" \
-	-coords $coords -bindtags "" -anchor nw
+    set marker "zoomTitle"
+    if {![$g marker exists $marker]} {
+	$g marker create text $marker -bindtags "" -anchor nw
+    }
+    $g marker configure $marker -text "Zoom #$level" \
+	-coords $coords
 }
 
 proc blt::ZoomStack::TitleLast { g } {
     variable _private
 
+    set marker "zoomTitle"
     set level [llength $_private($g,stack)]
     if { $level > 0 } {
-     	$g marker create text "zoomTitle" -anchor nw -text "Zoom #$level" 
+	if {![$g marker exists $marker]} {
+	    $g marker create text "zoomTitle" -anchor nw
+	}
+     	$g marker configure $marker -text "Zoom #$level" 
     }
 }