--- a/PopUpMenu.st	Fri Nov 08 15:31:38 1996 +0100
+++ b/PopUpMenu.st	Sat Nov 09 18:37:10 1996 +0100
@@ -718,6 +718,11 @@
             |actionIndex value sel retVal selIdx
              args selectors checkFlags check|
 
+            selected isNil ifTrue:[
+                "/ the menu has already sent a message or performed an item-action; do nothing here
+                ^ nil
+            ].
+
             retVal := 0.
 
             selIdx := menuView selection.
@@ -1275,5 +1280,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.56 1996-06-05 15:09:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.57 1996-11-09 17:36:48 ca Exp $'
 ! !