--- a/PopUpMenu.st	Tue Jul 28 16:10:07 1998 +0200
+++ b/PopUpMenu.st	Tue Jul 28 16:11:07 1998 +0200
@@ -1230,7 +1230,10 @@
     |p superMenu sensor|
 
     state == 0 ifTrue:[^ self].
+
     (sensor := self sensor) isNil ifTrue:[^ self].
+    "any-button ?"
+    sensor anyButtonPressed ifFalse:[^ self].
     (sensor hasButtonMotionEventFor:self) ifTrue:[^ self].
 
     ((x >= 0) and:[x < width]) ifTrue:[
@@ -1258,7 +1261,7 @@
         self hide
     ].
 
-    "Modified: 25.2.1997 / 22:36:42 / cg"
+    "Modified: / 28.7.1998 / 16:00:15 / cg"
 !
 
 buttonPress:button x:x y:y
@@ -1478,5 +1481,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.76 1998-07-25 09:45:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.77 1998-07-28 14:11:07 cg Exp $'
 ! !