diff options
| author | joye <joye> | 2014-03-17 22:19:42 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-03-17 22:19:42 (GMT) |
| commit | ab93911357f921ec15187f510cda811f276d6192 (patch) | |
| tree | 7671bab5cda57dc9e99c73f5fe100b3c2f8fda8c /library/graph.tcl | |
| parent | 616e63f07f6fb11f568c68cb84df210dac876753 (diff) | |
| download | blt-ab93911357f921ec15187f510cda811f276d6192.zip blt-ab93911357f921ec15187f510cda811f276d6192.tar.gz blt-ab93911357f921ec15187f510cda811f276d6192.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'library/graph.tcl')
| -rw-r--r-- | library/graph.tcl | 14 |
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" } } |