--- a/PopUpMenu.st	Mon Apr 22 10:12:10 1996 +0200
+++ b/PopUpMenu.st	Mon Apr 22 11:44:32 1996 +0200
@@ -605,17 +605,19 @@
     "/
 
     menuView action:[:menuView :selected |
-        |actionIndex value sel retVal args selectors|
+        |actionIndex value sel retVal 
+         args selectors checkFlags|
 
         retVal := 0.
 
         args := menuView args.
         selectors := menuView selectors.
+        checkFlags := menuView checkFlags.
 
         args isNil ifTrue:[
             selectors notNil ifTrue:[
                 sel0 := selectors at:selected.
-            ]
+            ].
         ] ifFalse:[
             actionIndex := args at:selected.
             actionIndex notNil ifTrue:[
@@ -639,9 +641,18 @@
 
                 selectors notNil ifTrue:[
                     sel0 := selectors at:selected.
-                ]
+                ].
             ]
         ].
+
+        checkFlags notNil ifTrue:[
+            arg := checkFlags at:selected.
+            arg notNil ifTrue:[
+                sel1 := sel0.
+                sel0 := nil.
+            ]
+        ].
+
         return := retVal
     ].
 
@@ -670,7 +681,7 @@
     "
 
     "Created: 10.1.1996 / 20:11:42 / cg"
-    "Modified: 7.3.1996 / 18:23:26 / cg"
+    "Modified: 22.4.1996 / 11:13:05 / cg"
 !
 
 startUpWithHeading:aString
@@ -1129,5 +1140,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.45 1996-04-18 11:15:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.46 1996-04-22 09:44:32 cg Exp $'
 ! !