--- a/MenuEditor.st Sat Feb 21 15:28:04 1998 +0100
+++ b/MenuEditor.st Sat Feb 21 15:40:27 1998 +0100
@@ -1849,7 +1849,7 @@
!
doSave
- |cls treeView menu spec mthd category code|
+ |cls treeView menu spec mthd category code BANG|
super doSave ifFalse: [^nil].
@@ -1868,17 +1868,19 @@
category := mthd category.
].
- code := Character excla asString
- , cls name , ' class methodsFor:' , category storeString
- , Character excla asString , '\\'
+ BANG := Character excla asString.
+
+ code := BANG
+ , (cls name , ' class methodsFor:' , category storeString)
+ , BANG , '\\'
, specSelector , '\'
, ' "this window spec was automatically generated by the ST/X MenuEditor"\\'
, ' "do not manually edit this - the builder may not be able to\'
, ' handle the specification if its corrupted."\\'
, ' "\'
- , ' MenuEditor new openOnClass:' , cls name , ' andSelector:#' , specSelector , '\'
- , ' (Menu new fromLiteralArrayEncoding:(' , cls name , ' ' , specSelector , ')) startUp\'
+ , (' MenuEditor new openOnClass:' , cls name , ' andSelector:#' , specSelector , '\')
+ , (' (Menu new fromLiteralArrayEncoding:(' , cls name , ' ' , specSelector , ')) startUp\')
, ' "\'.
code := code
@@ -1887,9 +1889,7 @@
, ' ^\'
, ' ', spec
, '\'
- , Character excla asString
- , ' '
- , Character excla asString
+ , (BANG , ' ' , BANG)
, '\\'.
code := code withCRs.