diff options
| author | lecoanet | 2000-03-10 12:31:55 +0000 |
|---|---|---|
| committer | lecoanet | 2000-03-10 12:31:55 +0000 |
| commit | efaa873a875bc9990abd2b2bfe4cee7c13a87dca (patch) | |
| tree | 25c58392f42f57b50f57bcc7ece786f28cac32cb /sandbox | |
| parent | c275ed1274edc86ac2b082e0641096e90298fd1a (diff) | |
| download | tkzinc-efaa873a875bc9990abd2b2bfe4cee7c13a87dca.zip tkzinc-efaa873a875bc9990abd2b2bfe4cee7c13a87dca.tar.gz tkzinc-efaa873a875bc9990abd2b2bfe4cee7c13a87dca.tar.bz2 tkzinc-efaa873a875bc9990abd2b2bfe4cee7c13a87dca.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox')
| -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 |