menu rearranged
authortz
Thu, 29 Jan 1998 16:04:57 +0100
changeset 522 06bef91cb861
parent 521 61569efc19f4
child 523 eec155f1b037
menu rearranged
HierarchicalListEditor.st
--- 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