PopUpMenu.st
changeset 131 208fa92f434d
parent 127 462396b08e30
child 133 e58c7c979f33
--- a/PopUpMenu.st	Tue Jun 06 06:16:07 1995 +0200
+++ b/PopUpMenu.st	Tue Jun 27 04:24:41 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.21 1995-05-12 18:24:55 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.22 1995-06-27 02:23:43 claus Exp $
 '!
 
 !PopUpMenu class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.21 1995-05-12 18:24:55 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.22 1995-06-27 02:23:43 claus Exp $
 "
 !
 
@@ -783,9 +783,11 @@
     (sel0 notNil or:[sel1 notNil]) ifTrue:[
 	rec := menuView receiver.
 	sel0 notNil ifTrue:[
-	    rec perform:sel0
+^ sel0
+"/            rec perform:sel0
 	] ifFalse:[
-	    rec perform:sel1 with:arg.
+^ Array with:sel1 with:arg.
+"/            rec perform:sel1 with:arg.
 	]
     ].
     ^ return