diff options
Diffstat (limited to 'demos/groupsInAtcStrips.tcl')
-rw-r--r-- | demos/groupsInAtcStrips.tcl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/demos/groupsInAtcStrips.tcl b/demos/groupsInAtcStrips.tcl index b373b26..f00accb 100644 --- a/demos/groupsInAtcStrips.tcl +++ b/demos/groupsInAtcStrips.tcl @@ -677,10 +677,7 @@ proc catchStrip {x y} { global w dx dy set index [string range [lindex [$w.zinc itemcget current -tags] 0] 5 end] - set p [$w.zinc coords "base$index"] - set lx [lindex [lindex $p 0] 0] - set ly [lindex [lindex $p 0] 1] -# foreach {lx ly} $p {} + foreach {lx ly} [$w.zinc coords "base$index"] break set dx [expr $lx - $x] set dy [expr $ly - $y] |