diff options
| author | lecoanet | 2004-04-30 11:42:12 +0000 |
|---|---|---|
| committer | lecoanet | 2004-04-30 11:42:12 +0000 |
| commit | a7fc6fca1397fea8414a2e5f103c150f6577ba92 (patch) | |
| tree | 2c7ce3e55d9c5f2b798f8101de3c5d43e7afcc7a /demos/groupsInAtcStrips.tcl | |
| parent | adc3b48c49d89cc01692f22402c1653ef09e48f1 (diff) | |
| download | tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.zip tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.gz tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.bz2 tkzinc-a7fc6fca1397fea8414a2e5f103c150f6577ba92.tar.xz | |
Updated the demos following the change (hopefully last) in coords
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] |