--- a/HierarchicalListEditor.st	Mon Feb 02 18:47:58 1998 +0100
+++ b/HierarchicalListEditor.st	Mon Feb 02 18:55:16 1998 +0100
@@ -58,6 +58,30 @@
 
 ! !
 
+!HierarchicalListEditor class methodsFor:'help specs'!
+
+helpSpec
+    "return a dictionary filled with helpKey -> helptext associations.
+     These are used by the activeHelp tool."
+
+    "
+    UIHelpTool openOnClass:HierarchicalListEditor    
+    "
+
+  ^ super helpSpec addPairsFrom:#(
+
+#addChild
+'Adds a new child item.'
+
+#addSister
+'Adds a new sister item.'
+
+#fileNew
+'Creates a new hierarchical list.'
+
+)
+! !
+
 !HierarchicalListEditor class methodsFor:'interface specs'!
 
 classAndMethodSpec
@@ -279,6 +303,7 @@
                        #(#MenuItem
                           #'label:' 'New'
                           #'value:' #doNew
+                          #'activeHelpKey:' #fileNew
                       )
                        #(#MenuItem
                           #'label:' '-'
@@ -301,6 +326,7 @@
                        #(#MenuItem
                           #'label:' 'Define Class And Selector...'
                           #'value:' #doDefineClass
+                          #'activeHelpKey:' #defineClassAndSelector
                       )
                        #(#MenuItem
                           #'label:' '-'
@@ -308,6 +334,7 @@
                        #(#MenuItem
                           #'label:' 'Exit'
                           #'value:' #closeRequest
+                          #'activeHelpKey:' #fileExit
                       )
                     ) nil
                     nil
@@ -326,12 +353,14 @@
                        #(#MenuItem
                           #'label:' 'Child'
                           #'value:' #doCreateChild
+                          #'activeHelpKey:' #addChild
                           #'enabled:' #canCreateChildChannel
                           #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Child')
                       )
                        #(#MenuItem
                           #'label:' 'Sister'
                           #'value:' #doCreateSister
+                          #'activeHelpKey:' #addSister
                           #'enabled:' #canCreateSisterChannel
                           #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Sister')
                       )
@@ -398,16 +427,19 @@
              #(#MenuItem
                 #'label:' 'Cut'
                 #'value:' #doCut
+                #'activeHelpKey:' #editCut
                 #'enabled:' #canCut
             )
              #(#MenuItem
                 #'label:' 'Copy'
                 #'value:' #doCopy
+                #'activeHelpKey:' #editCopy
                 #'enabled:' #canCopy
             )
              #(#MenuItem
                 #'label:' 'Paste'
                 #'value:' #doPaste
+                #'activeHelpKey:' #editPaste
                 #'enabled:' #canPaste
             )
              #(#MenuItem
@@ -416,28 +448,28 @@
              #(#MenuItem
                 #'label:' 'Move Up'
                 #'value:' #doStepUp
-                #'activeHelpKey:' #moveSelectionUp
+                #'activeHelpKey:' #editMoveUp
                 #'enabled:' #canStepOverChannel
                 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #upIcon 'Move Up')
             )
              #(#MenuItem
                 #'label:' 'Move Down'
                 #'value:' #doStepDown
-                #'activeHelpKey:' #moveSelectionDown
+                #'activeHelpKey:' #editMoveDown
                 #'enabled:' #canStepOverChannel
                 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downIcon 'Move Down')
             )
              #(#MenuItem
                 #'label:' 'Move In'
                 #'value:' #doStepIn
-                #'activeHelpKey:' #moveSelectionRight
+                #'activeHelpKey:' #editMoveIn
                 #'enabled:' #canStepInChannel
                 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downRightIcon 'Move In')
             )
              #(#MenuItem
                 #'label:' 'Move Out'
                 #'value:' #doStepOut
-                #'activeHelpKey:' #moveSelectionLeft
+                #'activeHelpKey:' #editMoveOut
                 #'enabled:' #canStepOutChannel
                 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #leftDownIcon 'Move Out')
             )
@@ -468,6 +500,7 @@
                 #'label:' 'New'
                 #'isButton:' true
                 #'value:' #doNew
+                #'activeHelpKey:' #fileNew
                 #'labelImage:' #(#ResourceRetriever nil #newIcon)
             )
              #(#MenuItem
@@ -481,16 +514,18 @@
                 #'label:' ''
             )
              #(#MenuItem
-                #'label:' 'Create Child'
+                #'label:' 'Add Child'
                 #'isButton:' true
                 #'value:' #doCreateChild
+                #'activeHelpKey:' #addChild
                 #'enabled:' #canCreateChildChannel
                 #'labelImage:' #(#ResourceRetriever nil #createChildIcon)
             )
              #(#MenuItem
-                #'label:' 'Create Sister'
+                #'label:' 'Add Sister'
                 #'isButton:' true
                 #'value:' #doCreateSister
+                #'activeHelpKey:' #addSister
                 #'enabled:' #canCreateSisterChannel
                 #'labelImage:' #(#ResourceRetriever nil #createSisterIcon)
             )
@@ -501,6 +536,7 @@
                 #'label:' 'Move Up'
                 #'isButton:' true
                 #'value:' #doStepUp
+                #'activeHelpKey:' #editMoveUp
                 #'enabled:' #canStepOverChannel
                 #'labelImage:' #(#ResourceRetriever nil #upIcon)
             )
@@ -508,6 +544,7 @@
                 #'label:' 'Move Down'
                 #'isButton:' true
                 #'value:' #doStepDown
+                #'activeHelpKey:' #editMoveDown
                 #'enabled:' #canStepOverChannel
                 #'labelImage:' #(#ResourceRetriever nil #downIcon)
             )
@@ -515,6 +552,7 @@
                 #'label:' 'Move In'
                 #'isButton:' true
                 #'value:' #doStepIn
+                #'activeHelpKey:' #editMoveIn
                 #'enabled:' #canStepInChannel
                 #'labelImage:' #(#ResourceRetriever nil #downRightIcon)
             )
@@ -522,6 +560,7 @@
                 #'label:' 'Move Out'
                 #'isButton:' true
                 #'value:' #doStepOut
+                #'activeHelpKey:' #editMoveOut
                 #'enabled:' #canStepOutChannel
                 #'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
             )