From efaa873a875bc9990abd2b2bfe4cee7c13a87dca Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 10 Mar 2000 12:31:55 +0000
Subject: *** empty log message ***

---
 sandbox/testicon.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'sandbox')

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
-- 
cgit v1.1