*** empty log message ***

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)
 	}