# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 985850101 -7200
# Node ID 5d4d3c5ca76c7185386a1ec54303cd9256783dda
# Parent  367b8342663ef42147953d84e217a9bf9b07b00b
Button select is identical to button 1.

diff -r 367b8342663e -r 5d4d3c5ca76c UIGalleryView.st
--- 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