oops - menu was wrong
authorClaus Gittinger <cg@exept.de>
Wed, 07 Nov 2001 11:12:27 +0100
changeset 1528 4136505d3cbe
parent 1527 fbb412fb7600
child 1529 8c1607c0fbe8
oops - menu was wrong
UIPainter.st
--- a/UIPainter.st	Wed Nov 07 10:20:09 2001 +0100
+++ b/UIPainter.st	Wed Nov 07 11:12:27 2001 +0100
@@ -2359,19 +2359,19 @@
 !UIPainter methodsFor:'menus - dynamic'!
 
 menuEdit
-    |m i|
-
-    m := self class menuEdit.
-    m := m decodeAsLiteralArray.
-    i := m detectItem:[:item | item nameKey == #undo] ifNone:nil.
-    i notNil ifTrue:[
-        i label:(i label , ' (' , self painter undoHistory labelOfLastUndo , ')')   
-    ].
-    m findGuiResourcesIn:self.
-    ^ m
-
-    "Created: / 30.10.2001 / 13:29:04 / cg"
-    "Modified: / 30.10.2001 / 13:47:19 / cg"
+    ^ [
+        |m i|
+
+        m := self class menuEdit.
+        m := m decodeAsLiteralArray.
+        i := m detectItem:[:item | item nameKey == #undo] ifNone:nil.
+        i notNil ifTrue:[
+            i label:(i label , ' (' , self painter undoHistory labelOfLastUndo , ')')   
+        ].
+        m receiver:self.
+        m findGuiResourcesIn:self.
+        m
+      ].
 ! !
 
 !UIPainter methodsFor:'private'!