diff options
author | joye <joye> | 2014-03-27 16:01:57 (GMT) |
---|---|---|
committer | joye <joye> | 2014-03-27 16:01:57 (GMT) |
commit | 6773f7812a1888844f15ed1140f0525cad0c0022 (patch) | |
tree | b40758ba65ad3573977eb3b78e3e8a27b29c0901 /library | |
parent | b70211792b2f7a0a9ddb441438188ca1e31f845c (diff) | |
download | blt-6773f7812a1888844f15ed1140f0525cad0c0022.zip blt-6773f7812a1888844f15ed1140f0525cad0c0022.tar.gz blt-6773f7812a1888844f15ed1140f0525cad0c0022.tar.bz2 |
*** empty log message ***
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) } |