--- a/UIHelpTool.st	Mon Jun 16 11:39:41 1997 +0200
+++ b/UIHelpTool.st	Mon Jun 16 18:54:03 1997 +0200
@@ -14,6 +14,20 @@
 "
 ! !
 
+!UIHelpTool class methodsFor:'help specs'!
+
+helpSpec
+    "return a dictionary filled with helpKey -> helptext associations.
+     These are used by the activeHelp tool."
+
+    |dict|
+
+    dict := super helpSpec.
+    dict at:#activeHelpAccessKey put:'This ID is used to access an active
+help text for the selected component'.
+    ^ dict
+! !
+
 !UIHelpTool class methodsFor:'interface specs'!
 
 windowSpec
@@ -23,10 +37,10 @@
      handle the specification if its corrupted."
 
     "
-     UIPainter new openOnClass:ActiveHelpTool andSelector:#windowSpec
-     ActiveHelpTool new openInterface:#windowSpec
+     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec
+     UIHelpTool new openInterface:#windowSpec
     "
-    "ActiveHelpTool open"
+    "UIHelpTool open"
 
     <resource: #canvas>
 
@@ -63,6 +77,7 @@
                  #(#ComboBoxSpec
                     #'name:' 'comboBox'
                     #'layout:' #(#LayoutFrame 46 0 1 0 0 1.0 21 0)
+                    #'activeHelpKey:' #activeHelpAccessKey
                     #'tabable:' true
                     #'comboList:' #listChannel
                 )
@@ -80,6 +95,21 @@
 
 !UIHelpTool methodsFor:'accessing'!
 
+dictionary
+    "return the value of the instance variable 'dictionary' (automatically generated)"
+
+    ^ dictionary!
+
+dictionary:aDictionary
+    "set the value of the instance variable 'dictionary' (automatically generated)"
+
+    (dictionary := aDictionary) notNil ifTrue:[
+        list := dictionary keys asOrderedCollection
+    ] ifFalse:[
+        list := nil
+    ].
+!
+
 key
     "get the key from the edit field as symbol or nil
     "
@@ -106,6 +136,7 @@
         model addDependent:self
     ].
     (builder componentAt:#comboBox) model:model.
+    self update:nil with:#model from:model.
 ! !
 
 !UIHelpTool methodsFor:'actions'!
@@ -145,6 +176,7 @@
 
     (holder := builder bindingAt:#listChannel) isNil ifTrue:[
         builder aspectAt:#listChannel put:(holder :=  ValueHolder new).
+        holder value:list
     ].
     ^ holder
 !