diff options
| -rw-r--r-- | sandbox/testicon.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sandbox/testicon.tcl b/sandbox/testicon.tcl index d9789ec..07a976e 100644 --- a/sandbox/testicon.tcl +++ b/sandbox/testicon.tcl @@ -68,8 +68,8 @@ set clip [.r add rectangle $view "50 -300 600 -10" -filled t \ .r itemconfigure $view -clip $clip .r addtag test withtype icon -.r bind test "<ButtonPress-1>" "testpress %x %y" -.r bind test "<ButtonRelease-1>" testrelease +.r bind test "<Shift-ButtonPress-1>" "testpress %x %y" +.r bind test "<Shift-ButtonRelease-1>" testrelease proc testpress {lx ly} { global testx testy |