diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/graph.tcl | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/library/graph.tcl b/library/graph.tcl index 205aa85..d439484 100644 --- a/library/graph.tcl +++ b/library/graph.tcl @@ -196,9 +196,7 @@ proc blt::FlashPoint { g name index count } { after 200 blt::FlashPoint $g $name $index $count update } else { - foreach mm [$g marker names "bltClosest_*"] { - catch {eval $g marker delete $mm} - } + catch {eval $g marker delete [$g marker names "bltClosest_*"]} } } @@ -313,9 +311,7 @@ proc blt::ZoomStack::Pop { g } { proc blt::ZoomStack::Push { g } { variable _private - foreach mm [$g marker names "zoom*"] { - catch {eval $g marker delete $mm} - } + catch {eval $g marker delete [$g marker names "zoom*"]} if { [info exists _private($g,afterId)] } { after cancel $_private($g,afterId) } @@ -393,9 +389,7 @@ proc blt::ZoomStack::Reset { g } { if { ![info exists _private($g,corner)] } { Init $g } - foreach mm [$g marker names "zoom*"] { - catch {eval $g marker delete $mm} - } + catch {eval $g marker delete [$g marker names "zoom*"]} if { $_private($g,corner) == "A" } { # Reset the whole axis @@ -505,9 +499,7 @@ proc blt::ZoomStack::DragFinish { g x y } { if { [DragMotion $g $x $y] } { Push $g } else { - foreach mm [$g marker names "zoom*"] { - catch {eval $g marker delete [$g marker names "zoom*"]} - } + catch {eval $g marker delete [$g marker names "zoom*"]} if { [info exists _private($g,afterId)] } { after cancel $_private($g,afterId) } |