--- a/MenuEditor.st	Mon May 19 21:16:56 2008 +0200
+++ b/MenuEditor.st	Tue May 20 17:27:52 2008 +0200
@@ -3428,15 +3428,9 @@
 addBindingsTo:aspects for:aMenuEditor
     "add additional bindings to the aspects
     "
-    aspects at:#notDelayedMenu ifAbsentPut:[
-	true asValue
-    ].
-    aspects at:#hasSubmenu ifAbsentPut:[
-	false asValue
-    ].
-    aspects at:#hasNoSubmenu ifAbsentPut:[
-	true asValue
-    ].
+    aspects at:#notDelayedMenu ifAbsentPut:[true asValue].
+    aspects at:#hasSubmenu ifAbsentPut:[false asValue].
+    aspects at:#hasNoSubmenu ifAbsentPut:[true asValue].
 ! !
 
 !MenuEditor::Item class methodsFor:'testing'!
@@ -4039,20 +4033,21 @@
 addBindingsTo:aspects for:aMenuEditor
     "add additional bindings to the aspects
     "
-    aspects at:#indicationEnabled  ifAbsentPut:[
-	BlockValue with:[:a | a size == 0 ] argument:(aspects at:#choice)
-    ].
-
-    aspects at:#choiceEnabled ifAbsentPut:[
-	BlockValue with:[:a | a size == 0 ] argument:(aspects at:#indication)
-    ].
-
-    aspects at:#choiceValueEnabled ifAbsentPut:[
-	BlockValue with:[:a | a size ~~ 0 ] argument:(aspects at:#choice)
-    ].
-    aspects at:#hasNoDelayedMenuValue ifAbsentPut:[
-	true asValue
-    ].
+    aspects 
+        at:#indicationEnabled  
+        ifAbsentPut:[ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#choice)].
+
+    aspects 
+        at:#choiceEnabled 
+        ifAbsentPut:[ BlockValue with:[:a | a size == 0 ] argument:(aspects at:#indication)].
+
+    aspects 
+        at:#choiceValueEnabled 
+        ifAbsentPut:[ BlockValue with:[:a | a size ~~ 0 ] argument:(aspects at:#choice)].
+
+    aspects 
+        at:#hasNoDelayedMenuValue 
+        ifAbsentPut:[true asValue].
 ! !
 
 !MenuEditor::ActionItem methodsFor:'accessing'!