PopUpMenu.st
changeset 2067 99763d5655ce
parent 2041 8107fe7c8cff
child 2068 302847f5d01d
--- a/PopUpMenu.st	Sat Dec 04 16:06:17 1999 +0100
+++ b/PopUpMenu.st	Tue Dec 07 14:03:50 1999 +0100
@@ -851,6 +851,7 @@
             |actionIndex value sel retVal selIdx
              args selectors checkFlags check|
 
+            menuView action:nil.  "/ must clear it ...  
             retVal := 0.
             actionValues notNil ifTrue:[
                 retVal := nil
@@ -1523,5 +1524,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.81 1999-11-13 12:27:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.82 1999-12-07 13:03:50 cg Exp $'
 ! !