--- a/HierarchicalListEditor.st Thu Jan 29 16:01:37 1998 +0100
+++ b/HierarchicalListEditor.st Thu Jan 29 16:04:57 1998 +0100
@@ -282,6 +282,9 @@
#'value:' #doNew
)
#(#MenuItem
+ #'label:' '-'
+ )
+ #(#MenuItem
#'label:' 'Reload'
#'value:' #doReload
)
@@ -316,6 +319,28 @@
#'submenuChannel:' #menuEdit
)
#(#MenuItem
+ #'label:' 'Add'
+ #'submenu:'
+ #(#Menu
+
+ #(
+ #(#MenuItem
+ #'label:' 'Child'
+ #'value:' #doCreateChild
+ #'enabled:' #canCreateChildChannel
+ #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Child')
+ )
+ #(#MenuItem
+ #'label:' 'Sister'
+ #'value:' #doCreateSister
+ #'enabled:' #canCreateSisterChannel
+ #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Sister')
+ )
+ ) nil
+ nil
+ )
+ )
+ #(#MenuItem
#'label:' 'Browse'
#'enabled:' #hasValidClass
#'submenu:'
@@ -385,21 +410,6 @@
#'label:' '-'
)
#(#MenuItem
- #'label:' 'Create Child'
- #'value:' #doCreateChild
- #'enabled:' #canCreateChildChannel
- #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Create Child')
- )
- #(#MenuItem
- #'label:' 'Create Sister'
- #'value:' #doCreateSister
- #'enabled:' #canCreateSisterChannel
- #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Create Sister')
- )
- #(#MenuItem
- #'label:' '-'
- )
- #(#MenuItem
#'label:' 'Move Up'
#'value:' #doStepUp
#'activeHelpKey:' #moveSelectionUp