--- a/MenuPanel.st Mon Feb 22 20:13:45 1999 +0100
+++ b/MenuPanel.st Mon Feb 22 20:15:01 1999 +0100
@@ -512,7 +512,7 @@
accept:anItem
"this is the topMenu: accept item
"
- |value item tgState itemIdx recv|
+ |value item tgState itemIdx recv panel|
self superMenu notNil ifTrue:[
^ self topMenu accept:anItem
@@ -523,9 +523,10 @@
(anItem notNil and:[anItem canAccept]) ifTrue:[
tgState := anItem toggleIndication.
- itemIdx := anItem menuPanel findFirst:[:el| el == anItem ].
+ panel := anItem menuPanel.
+ itemIdx := panel findFirst:[:el| el == anItem ].
item := anItem.
- recv := anItem menuPanel receiver.
+ recv := panel receiver.
].
self isPopUpView ifFalse:[
@@ -548,7 +549,7 @@
^ item.
- "Modified: / 18.2.1999 / 22:15:25 / cg"
+ "Modified: / 22.2.1999 / 20:14:48 / cg"
!
accept:anItem index:anIndex toggle:aState receiver:aReceiver
@@ -5305,6 +5306,6 @@
!MenuPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.135 1999-02-22 19:13:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.136 1999-02-22 19:15:01 cg Exp $'
! !
MenuPanel initialize!