--- a/HierarchicalListView.st	Tue Oct 05 16:01:35 1999 +0200
+++ b/HierarchicalListView.st	Tue Oct 05 16:02:05 1999 +0200
@@ -665,27 +665,10 @@
 buttonPress:button x:x y:y
     "handle a button press event
     "
-    |lnNr menu item appl|
+    |lnNr|
 
     enabled ifTrue:[
-        ((button == 2) or:[button == #menu]) ifTrue:[
-            (     (item := self selectedElement)  notNil
-             and:[(menu := item middleButtonMenu) notNil]
-            ) ifTrue:[
-                menu isCollection ifTrue:[
-                    menu := Menu new fromLiteralArrayEncoding:menu.
-                    appl := self application.
-
-                    appl notNil ifTrue:[
-                        menu findGuiResourcesIn:appl.
-                        menu receiver:appl
-                    ] ifFalse:[
-                        menu receiver:item
-                    ]
-                ].
-                ^ menu startUp
-            ].
-        ] ifFalse:[
+        (button == 1 or:[button == #select]) ifTrue:[
             (lnNr := self indicatorLineAtX:x y:y) notNil ifTrue:[
                 (indicatorAction numArgs == 1) ifTrue:[
                     indicatorAction value:lnNr
@@ -1009,5 +992,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.15 1999-09-29 16:11:26 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.16 1999-10-05 14:02:05 ca Exp $'
 ! !