diff options
Diffstat (limited to 'demos/contours.tcl')
-rw-r--r-- | demos/contours.tcl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/demos/contours.tcl b/demos/contours.tcl index ea3aab3..efa13de 100644 --- a/demos/contours.tcl +++ b/demos/contours.tcl @@ -141,7 +141,6 @@ set yOrig 0 proc press {item action x y} { global w xOrig yOrig - puts "item $item" set xOrig $x set yOrig $y bind $w.zinc <Motion> "$action $item %x %y" @@ -172,7 +171,6 @@ proc motionWithHandle {item x y} { proc moveHandle {handle x y} { global w xOrig yOrig curve4 index - puts "$handle $x $y" $w.zinc translate $handle [expr $x - $xOrig] [expr $y - $yOrig]; foreach {vertxX vertxY} [$w.zinc coords $curve4 0 $index] break |