diff -r 389b916506ac -r 989494227ffc MenuEditor.st
--- a/MenuEditor.st	Mon Jul 28 12:48:17 1997 +0200
+++ b/MenuEditor.st	Mon Jul 28 12:49:46 1997 +0200
@@ -1269,18 +1269,21 @@
 accept
     "automatically generated by UIPainter ..."
 
-    |node cont|
-
-    node := self painter selectedNode.
+    |painter node cont|
+
+    painter := self painter.
+    node := painter selectedNode.
 
     node notNil ifTrue:[
         self isHelpToolSelected ifTrue:[
             self activeHelpTool accept
         ].
         cont := node contents buildFromAspects:aspects.
-        self painter selectedNodeChanged
+        painter selectedNodeChanged
     ].
     self modifiedChannel value:false.
+
+    "Modified: 28.7.1997 / 12:37:17 / cg"
 !
 
 cancel
@@ -1332,62 +1335,39 @@
 !
 
 enabledStepIn
-    |holder|
-
-    (holder := builder bindingAt:#enabledStepIn) isNil ifTrue:[
-        builder aspectAt:#enabledStepIn put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ builder booleanAspectFor:#enabledStepIn
+
+    "Modified: 28.7.1997 / 12:47:35 / cg"
 !
 
 enabledStepOut
-    |holder|
-
-    (holder := builder bindingAt:#enabledStepOut) isNil ifTrue:[
-        builder aspectAt:#enabledStepOut put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ builder booleanAspectFor:#enabledStepOut
+
+    "Modified: 28.7.1997 / 12:47:38 / cg"
 !
 
 enabledStepOver
-    |holder|
-
-    (holder := builder bindingAt:#enabledStepOver) isNil ifTrue:[
-        builder aspectAt:#enabledStepOver put:(holder :=  false asValue).
-    ].
-    ^ holder
+    ^ builder booleanAspectFor:#enabledStepOver
+
+    "Modified: 28.7.1997 / 12:47:40 / cg"
 !
 
 hasAnySingleSelection
-    |holder|
-
-    (holder := builder bindingAt:#hasAnySingleSelection) isNil ifTrue:[
-        builder aspectAt:#hasAnySingleSelection put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ builder booleanAspectFor:#hasAnySingleSelection
+
+    "Modified: 28.7.1997 / 12:47:17 / cg"
 !
 
 hasValidSelection
-    |holder|
-
-    (holder := builder bindingAt:#hasValidSelection) isNil ifTrue:[
-        builder aspectAt:#hasValidSelection put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ builder booleanAspectFor:#hasValidSelection
+
+    "Modified: 28.7.1997 / 12:47:20 / cg"
 !
 
 hasValidSingleSelection
-    |holder|
-
-    (holder := builder bindingAt:#hasValidSingleSelection) isNil ifTrue:[
-        builder aspectAt:#hasValidSingleSelection put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ builder booleanAspectFor:#hasValidSingleSelection
+
+    "Modified: 28.7.1997 / 12:47:22 / cg"
 !
 
 menuPullDown
@@ -1404,12 +1384,9 @@
 modifiedChannel
     "automatically generated by UIPainter ..."
 
-    |holder|
-
-    (holder := builder bindingAt:#modifiedChannel) isNil ifTrue:[
-        builder aspectAt:#modifiedChannel put:(holder :=  false asValue).
-    ].
-    ^ holder
+    ^ builder booleanAspectFor:#modifiedChannel
+
+    "Modified: 28.7.1997 / 12:47:26 / cg"
 !
 
 tabCanvas