--- a/UIHelpTool.st Sat Jun 21 17:04:35 1997 +0200
+++ b/UIHelpTool.st Sat Jun 21 17:06:18 1997 +0200
@@ -51,14 +51,16 @@
helpSpec
"return a dictionary filled with helpKey -> helptext associations.
- These are used by the activeHelp tool."
-
- |dict|
+ These are used by the activeHelp tool.
+ "
+ ^ super helpSpec addPairsFrom:#(
- dict := super helpSpec.
- dict at:#activeHelpAccessKey put:'This ID is used to access an active
-help text for the selected component'.
- ^ dict
+#activeHelpAccessKey
+'This ID is used to access an active
+help text for the selected component'
+
+)
+
! !
!UIHelpTool class methodsFor:'interface specs'!