Button select is identical to button 1.
--- a/UIGalleryView.st Tue Feb 27 15:15:20 2001 +0100
+++ b/UIGalleryView.st Thu Mar 29 09:15:01 2001 +0200
@@ -310,12 +310,14 @@
menuSelector
"return the value of the instance variable 'menuSelector' (automatically generated)"
- ^ menuSelector!
+ ^ menuSelector
+!
menuSelector:something
"set the value of the instance variable 'menuSelector' (automatically generated)"
- menuSelector := something.!
+ menuSelector := something.
+!
specification
"get current specification
@@ -485,20 +487,19 @@
"
|application|
- button == 1 ifTrue:[
- lastClickPoint := Point x:x y:y.
- self selection:(self findObjectAtX:x y:y).
- ] ifFalse:[
- lastClickPoint := nil.
+ (button == 1 or:[button == #select]) ifTrue:[
+ lastClickPoint := Point x:x y:y.
+ self selection:(self findObjectAtX:x y:y).
+ ] ifFalse:[
+ lastClickPoint := nil.
- (menuSelector notNil and:[(application := self application) notNil]) ifTrue:[
- Object messageNotUnderstoodSignal handle:[:ex|
- ] do:[
- application aspectFor:menuSelector
- ]
- ]
+ (menuSelector notNil and:[(application := self application) notNil]) ifTrue:[
+ Object messageNotUnderstoodSignal handle:[:ex|
+ ] do:[
+ application aspectFor:menuSelector
+ ]
+ ]
]
-
!
exposeX:x y:y width:w height:h