preps for right-menu on buttonRelease
button naming - no symbols any longer.
--- 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 $'
! !