--- 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:#(
'.