# HG changeset patch
# User tz
# Date 891544366 -7200
# Node ID 5722b94330efca1e73e36bf8e2fe653653942f3a
# Parent  19b3e479e0b8ff718a4aa0043ec7776e795fbd0a
docu call

diff -r 19b3e479e0b8 -r 5722b94330ef MenuEditor.st
--- 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.