checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 22 Feb 1999 20:15:01 +0100
changeset 1212 9bd3220c9964
parent 1211 e675ff419dc1
child 1213 5b22dd452a58
checkin from browser
MenuPanel.st
--- 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!