diff options
author | lecoanet | 2003-03-31 15:56:01 +0000 |
---|---|---|
committer | lecoanet | 2003-03-31 15:56:01 +0000 |
commit | 5cc459c9d6af72783f9d9febee9d3a8129bcfd35 (patch) | |
tree | c0d659a94e6bc66da81b452bc809560ad1e003d0 /demos/contours.tcl | |
parent | 90834467e88065c377170df0ba7514489d1f15b6 (diff) | |
download | tkzinc-5cc459c9d6af72783f9d9febee9d3a8129bcfd35.zip tkzinc-5cc459c9d6af72783f9d9febee9d3a8129bcfd35.tar.gz tkzinc-5cc459c9d6af72783f9d9febee9d3a8129bcfd35.tar.bz2 tkzinc-5cc459c9d6af72783f9d9febee9d3a8129bcfd35.tar.xz |
Ajourt de script et petites corrections
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 |