summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjoye <joye>2014-03-17 22:19:42 (GMT)
committerjoye <joye>2014-03-17 22:19:42 (GMT)
commitab93911357f921ec15187f510cda811f276d6192 (patch)
tree7671bab5cda57dc9e99c73f5fe100b3c2f8fda8c /library
parent616e63f07f6fb11f568c68cb84df210dac876753 (diff)
downloadblt-ab93911357f921ec15187f510cda811f276d6192.zip
blt-ab93911357f921ec15187f510cda811f276d6192.tar.gz
blt-ab93911357f921ec15187f510cda811f276d6192.tar.bz2
*** empty log message ***
Diffstat (limited to 'library')
-rw-r--r--library/graph.tcl14
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"
}
}