--- 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