Updated to tk 8.4.1

[pf3gnuchains/sourceware.git] / tk / library / demos / items.tcl

diff --git a/tk/library/demos/items.tcl b/tk/library/demos/items.tcl
index 0f3ffde..fea5e8b 100644 (file)
--- a/tk/library/demos/items.tcl
+++ b/tk/library/demos/items.tcl
@@ -271,7 +271,7 @@ proc itemDrag {c x y} {
     global lastX lastY
     set x [$c canvasx $x]
     set y [$c canvasy $y]
-    $c move current [expr $x-$lastX] [expr $y-$lastY]
+    $c move current [expr {$x-$lastX}] [expr {$y-$lastY}]
     set lastX $x
     set lastY $y
 }
@@ -283,4 +283,3 @@ proc butPress {w color} {
     set i [$w create text 25c 18.1c -text "Ouch!!" -fill $color -anchor n]
     after 500 "$w delete $i"
 }
-