--- a/MenuView.st	Sat May 25 16:35:41 1996 +0200
+++ b/MenuView.st	Sat May 25 17:02:21 1996 +0200
@@ -322,6 +322,12 @@
 
 !MenuView methodsFor:'accessing-behavior'!
 
+action
+    ^ actionBlock
+
+    "Created: 25.5.1996 / 15:11:51 / cg"
+!
+
 disable:indexOrName
     "disable an entry"
 
@@ -1909,9 +1915,9 @@
                         ex return
                     ] do:[
                         actionBlock numArgs == 1 ifTrue:[
-                            actionBlock value:idx
+                            actionBlock value:val
                         ] ifFalse:[
-                            actionBlock value:self value:idx
+                            actionBlock value:self value:val
                         ]
                     ]
                 ] ifFalse:[
@@ -1920,7 +1926,7 @@
                     ].
 
                     actions notNil ifTrue:[
-                        theAction := actions at:idx.
+                        theAction := actions at:idx ifAbsent:nil.
                     ].
 
                     theAction isNil ifTrue: [
@@ -1953,6 +1959,9 @@
                                     theAction value:val 
                                 ]
                             ] ifFalse:[
+                                receiver isNil ifTrue:[
+                                    receiver := model
+                                ].
                                 theSelector numArgs == 0 ifTrue:[
                                     receiver perform:theSelector
                                 ] ifFalse:[
@@ -1979,7 +1988,7 @@
     ]
 
     "Created: 4.3.1996 / 11:19:22 / cg"
-    "Modified: 27.4.1996 / 13:53:01 / cg"
+    "Modified: 25.5.1996 / 16:57:44 / cg"
 !
 
 recomputeSize
@@ -2502,5 +2511,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.80 1996-05-25 11:34:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.81 1996-05-25 15:02:21 cg Exp $'
 ! !