--- a/MenuEditor.st Wed Jun 05 15:23:58 2013 +0200
+++ b/MenuEditor.st Wed Jun 05 15:24:03 2013 +0200
@@ -1596,19 +1596,19 @@
!MenuEditor methodsFor:'accessing'!
helpSpec
- |spec sel t g|
+ |spec t g|
spec := super helpSpec.
t := spec at:#detailsStartGroup.
g := (aspects at:#startGroup ifAbsent:nil) value.
g == #conditionalRight ifTrue:[
- t := t , ' #conditionalRight means: "right on non-win32 systems"'
+ t := t , ' #conditionalRight means: "right on non-win32 systems"'
].
g == #right ifTrue:[
- t := t , ' #right means: "right align from here"'
+ t := t , ' #right means: "right align from here"'
].
g == #left ifTrue:[
- t := t , ' #left means: "left align group"'
+ t := t , ' #left means: "left align group"'
].
spec at:#detailsStartGroup put:t.
@@ -2768,16 +2768,16 @@
doSave
"save current editing menu to
- class: specClass
- selector: specSelector
- "
- |cls specCode mthd category code excla s|
+ class: specClass
+ selector: specSelector
+ "
+ |cls specCode mthd category s|
self isEditingSpecOnly ifTrue:[
- savedSpec := self generateMenuSpec.
- hasSaved := true.
- self clearModified.
- ^ self
+ savedSpec := self generateMenuSpec.
+ hasSaved := true.
+ self clearModified.
+ ^ self
].
super doSave ifFalse: [^nil].
@@ -2790,7 +2790,7 @@
category := 'menu specs'.
(mthd := cls class compiledMethodAt:specSelector) notNil ifTrue:[
- category := mthd category.
+ category := mthd category.
].
s := '' writeStream.
@@ -2821,7 +2821,7 @@
(ReadStream on:s contents) fileIn.
self isStandAlone ifTrue:[
- self helpTool doSave
+ self helpTool doSave
].
self updateHistory.