From 5cc459c9d6af72783f9d9febee9d3a8129bcfd35 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 31 Mar 2003 15:56:01 +0000
Subject: Ajourt de script et petites corrections

---
 demos/contours.tcl | 2 --
 1 file changed, 2 deletions(-)

(limited to 'demos/contours.tcl')

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
-- 
cgit v1.1