--- a/UIHelpTool.st	Tue Aug 26 17:36:51 1997 +0200
+++ b/UIHelpTool.st	Tue Aug 26 17:40:16 1997 +0200
@@ -57,7 +57,7 @@
 
     helpTool := UIHelpTool new.
     helpTool openInterface:#standAloneSpec.
-    helpTool helpSpecFrom:UIPainter
+    helpTool helpSpecFrom:aClass
 
 
 ! !
@@ -72,15 +72,18 @@
 
 helpSpec
     "return a dictionary filled with helpKey -> helptext associations.
-     These are used by the activeHelp tool.
+     These are used by the activeHelp tool."
+
     "
+    UIHelpTool openOnClass:UIHelpTool    
+    "
+
   ^ super helpSpec addPairsFrom:#(
 
 #activeHelpAccessKey
 'This ID is used to access an active help text for the selected component'
 
 )
-
 ! !
 
 !UIHelpTool class methodsFor:'interface specs'!
@@ -117,7 +120,7 @@
                           #'label:' '-'
                       )
                        #(#MenuItem
-                          #'label:' 'close'
+                          #'label:' 'quit'
                           #'value:' #closeRequest
                       )
                     ) nil
@@ -397,8 +400,12 @@
 
 'helpSpec
     "return a dictionary filled with helpKey -> helptext associations.
-     These are used by the activeHelp tool.
+     These are used by the activeHelp tool."
+
     "
+    UIHelpTool openOnClass:', cls name asString ,'    
+    "
+
   ^ super helpSpec addPairsFrom:#(
 
 '.