diff options
Diffstat (limited to 'demos/tiger.tcl')
-rw-r--r-- | demos/tiger.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/demos/tiger.tcl b/demos/tiger.tcl index 46eee31..b0ac265 100644 --- a/demos/tiger.tcl +++ b/demos/tiger.tcl @@ -528,7 +528,7 @@ $w.zinc add curve __g__472 {{301.5 191.5} {284 179.5} {284 179.5 c} {303 196.5 c $w.zinc translate $topGroup 200 150 -### some binding useful for debugging +##### bindings for moving rotating scaling the items bind $w.zinc <ButtonPress-1> "press motion %x %y" bind $w.zinc <ButtonRelease-1> release @@ -536,7 +536,6 @@ bind $w.zinc <ButtonPress-2> "press zoom %x %y" bind $w.zinc <ButtonRelease-2> release -##### bindings for moving rotating scaling the items set curX 0 set curY 0 set curAngle 0 |