--- a/MenuEditor.st Thu Apr 02 21:09:13 1998 +0200
+++ b/MenuEditor.st Thu Apr 02 21:12:46 1998 +0200
@@ -1182,7 +1182,7 @@
#label: 'Documentation'
#value: #openHTMLDocument:
#activeHelpKey: #helpTutorial
- #argument: 'tools/MenuEditor/TOP.html'
+ #argument: 'tools/uipainter/MenuEditor.html'
)
#(#MenuItem
#label: '-'
@@ -1726,14 +1726,6 @@
! !
-!MenuEditor methodsFor:'help'!
-
-openDocumentation
-
- self openHTMLDocument: 'tools/MenuEditor/TOP.html'.
-
-! !
-
!MenuEditor methodsFor:'private'!
helpKey
@@ -1953,7 +1945,7 @@
!
doSave
- |cls treeView menu spec mthd category code BANG|
+ |cls treeView menu spec mthd category code excla|
super doSave ifFalse: [^nil].
@@ -1972,11 +1964,11 @@
category := mthd category.
].
- BANG := Character excla asString.
-
- code := BANG
+ excla := Character excla asString.
+
+ code := excla
, (cls name , ' class methodsFor:' , category storeString)
- , BANG , '\\'
+ , excla , '\\'
, specSelector , '\'
, (self class codeGenerationComment replChar:$!! withString:'!!!!')
@@ -1991,13 +1983,13 @@
, ' ^\'
, ' ', spec
, '\'
- , (BANG , ' ' , BANG)
+ , (excla , ' ' , excla)
, '\\'.
code := code withCRs.
(ReadStream on:code) fileIn.
- self helpTool installHelpSpecsOnClass:self specClass.
+ self isStandAlone ifTrue: [self helpTool installHelpSpecsOnClass:self specClass].
self updateHistory.
self updateInfoLabel.