--- 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)
)