diff options
Diffstat (limited to 'library/demos/items.tcl')
| -rw-r--r-- | library/demos/items.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/items.tcl b/library/demos/items.tcl index a91ab61..91ea32a 100644 --- a/library/demos/items.tcl +++ b/library/demos/items.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a canvas that displays the # canvas item types. # -# RCS: @(#) $Id: items.tcl,v 1.2 1998/09/14 18:23:29 stanton Exp $ +# RCS: @(#) $Id: items.tcl,v 1.3 2001/06/14 10:56:58 dkf Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -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 } |