MenuEditor.st
changeset 1083 46a1cb1c595d
parent 1078 84683b5a6979
child 1104 cd4a620e6f94
--- a/MenuEditor.st	Wed Mar 24 14:56:31 1999 +0100
+++ b/MenuEditor.st	Wed Mar 24 16:26:34 1999 +0100
@@ -2492,8 +2492,7 @@
     code := code 
             , '\'
             , '    <resource: #menu>\\'
-            , '    ^\' 
-            , '     ', spec
+            , '    ^ ' , spec 
             , '\'
             , (excla , ' ' , excla)
             , '\\'.
@@ -2808,14 +2807,10 @@
     "put my values into the values of aspects"
 
     |type|
-    (type := self separatorType) notNil
-    ifTrue:
-    [
+    (type := self separatorType) notNil ifTrue: [
         type := self class separatorSlices findFirst:[:el| el first == type ].
         (aspects at:#seperatorSelection) selectionIndex:type.
-    ] 
-    ifFalse:
-    [
+    ] ifFalse: [
         (aspects at:#label)                value:label.
         (aspects at:#enabled)              value:enabled.
         (aspects at:#value)                value:value.
@@ -2833,9 +2828,10 @@
         (aspects at:#iconAndLabel)         value:iconAndLabel.
         (aspects at:#isButton)             value:isButton.
 
-        argument isSymbol
-            ifTrue: [(aspects at:#argument)value:'#', argument] 
-            ifFalse:[(aspects at:#argument)value:argument].
+        (aspects at:#argument)
+            value:(argument isSymbol
+                        ifTrue: ['#', argument] 
+                        ifFalse:[argument]).
     ].
     (aspects at:#isVisible) value:isVisible.