if the first argument to the selector or block is nil
authorca
Sat, 07 Feb 1998 12:33:17 +0100
changeset 738 8249ba64daf7
parent 737 b703128f2f60
child 739 61916e42d6e3
if the first argument to the selector or block is nil the selected item is returned
MenuPanel.st
--- a/MenuPanel.st	Fri Feb 06 18:05:12 1998 +0100
+++ b/MenuPanel.st	Sat Feb 07 12:33:17 1998 +0100
@@ -481,7 +481,7 @@
     ].
 
     (argument := anItem argument) isNil ifTrue:[
-        argument := aState
+        argument := aState ? anItem
     ].
 
     value isSymbol ifFalse:[
@@ -4369,6 +4369,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.69 1998-02-06 02:19:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.70 1998-02-07 11:33:17 ca Exp $'
 ! !
 MenuPanel initialize!