preps for right-menu on buttonRelease
authorClaus Gittinger <cg@exept.de>
Tue, 15 Sep 2009 21:01:47 +0200
changeset 3918 b00bc734f3d8
parent 3917 4267c0a42fa9
child 3919 9a5d0db0c12e
preps for right-menu on buttonRelease button naming - no symbols any longer.
ButtonController.st
--- a/ButtonController.st	Tue Sep 15 21:01:14 2009 +0200
+++ b/ButtonController.st	Tue Sep 15 21:01:47 2009 +0200
@@ -439,7 +439,7 @@
 buttonPress:button x:x y:y
     |wg|
 
-    (button == 1 or:[button == #select]) ifFalse:[
+    (button == 1) ifFalse:[
         ^ super buttonPress:button x:x y:y
     ].
 
@@ -493,7 +493,7 @@
 buttonRelease:button x:x y:y
     "button was released - if enabled, perform releaseaction"
 
-    (button == 1 or:[button == #select]) ifFalse:[
+    (button == 1) ifFalse:[
         ^ super buttonRelease:button x:x y:y
     ].
 
@@ -788,5 +788,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.73 2009-03-04 18:27:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.74 2009-09-15 19:01:47 cg Exp $'
 ! !