--- a/HierarchicalListEditor.st Mon Feb 02 18:55:16 1998 +0100
+++ b/HierarchicalListEditor.st Mon Feb 02 19:00:53 1998 +0100
@@ -79,6 +79,12 @@
#fileNew
'Creates a new hierarchical list.'
+#fileReload
+'Reload hierarchical list from current class and selector.'
+
+#fileSave
+'Saves current hierarchical list.'
+
)
! !
@@ -311,6 +317,7 @@
#(#MenuItem
#'label:' 'Reload'
#'value:' #doReload
+ #'activeHelpKey:' #fileReload
)
#(#MenuItem
#'label:' '-'
@@ -318,6 +325,7 @@
#(#MenuItem
#'label:' 'Save'
#'value:' #doInstall
+ #'activeHelpKey:' #fileSave
#'enabled:' #hasValidClass
)
#(#MenuItem
@@ -326,7 +334,7 @@
#(#MenuItem
#'label:' 'Define Class And Selector...'
#'value:' #doDefineClass
- #'activeHelpKey:' #defineClassAndSelector
+ #'activeHelpKey:' #fileDefineClassAndSelector
)
#(#MenuItem
#'label:' '-'