--- 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.