diff -r 085cf69fcd6c -r f6ca67d537b6 MenuEditor.st
--- a/MenuEditor.st	Thu Jan 29 15:42:06 1998 +0100
+++ b/MenuEditor.st	Thu Jan 29 15:55:27 1998 +0100
@@ -242,6 +242,52 @@
       )
 !
 
+menuAdd
+    "this window spec was automatically generated by the ST/X MenuEditor"
+
+    "do not manually edit this - the builder may not be able to
+     handle the specification if its corrupted."
+
+    "
+     MenuEditor new openOnClass:MenuEditor andSelector:#menuAdd
+     (Menu new fromLiteralArrayEncoding:(MenuEditor menuAdd)) startUp
+    "
+
+    <resource: #menu>
+
+    ^
+     
+       #(#Menu
+          
+           #(
+             #(#MenuItem
+                #'label:' 'Item'
+                #'value:' #doCreateItem
+                #'labelImage:' #(#ResourceRetriever #MenuEditor #menuItemImage 'Item')
+            )
+             #(#MenuItem
+                #'label:' 'Separator'
+                #'value:' #doCreateSep
+                #'labelImage:' #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Separator')
+            )
+             #(#MenuItem
+                #'label:' '-'
+            )
+             #(#MenuItem
+                #'label:' 'Submenu'
+                #'value:' #doCreateMenu
+                #'labelImage:' #(#ResourceRetriever #MenuEditor #submenuImage 'Submenu')
+            )
+             #(#MenuItem
+                #'label:' 'Submenu Link'
+                #'value:' #doCreateLink
+                #'labelImage:' #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Submenu Link')
+            )
+          ) nil
+          nil
+      )
+!
+
 windowSpec
     "this window spec was automatically generated by the ST/X UIPainter"
 
@@ -424,6 +470,10 @@
                 #'submenuChannel:' #menuEdit
             )
              #(#MenuItem
+                #'label:' 'Add'
+                #'submenuChannel:' #menuAdd
+            )
+             #(#MenuItem
                 #'label:' 'Test'
                 #'submenuChannel:' #submenuTest
             )
@@ -506,27 +556,28 @@
                 #'label:' '-'
             )
              #(#MenuItem
-                #'label:' 'Create Item'
-                #'value:' #doCreateItem
-                #'labelImage:' #(#ResourceRetriever #MenuEditor #menuItemImage 'Create Item')
-            )
-             #(#MenuItem
-                #'label:' 'Create Separator'
-                #'value:' #doCreateSep
-                #'labelImage:' #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Create Separator')
+                #'label:' 'Move Up'
+                #'value:' #doStepUp
+                #'enabled:' #enabledStepOver
+                #'labelImage:' #(#ResourceRetriever #MenuEditor #upIcon 'Move Up')
             )
              #(#MenuItem
-                #'label:' '-'
+                #'label:' 'Move Down'
+                #'value:' #doStepDown
+                #'enabled:' #enabledStepOver
+                #'labelImage:' #(#ResourceRetriever #MenuEditor #downIcon 'Move Down')
             )
              #(#MenuItem
-                #'label:' 'Create Submenu'
-                #'value:' #doCreateMenu
-                #'labelImage:' #(#ResourceRetriever #MenuEditor #submenuImage 'Create Submenu')
+                #'label:' 'Move In'
+                #'value:' #doStepIn
+                #'enabled:' #enabledStepIn
+                #'labelImage:' #(#ResourceRetriever #MenuEditor #downRightIcon 'Move In')
             )
              #(#MenuItem
-                #'label:' 'Create Submenu Link'
-                #'value:' #doCreateLink
-                #'labelImage:' #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Create Submenu Link')
+                #'label:' 'Move Out'
+                #'value:' #doStepOut
+                #'enabled:' #enabledStepOut
+                #'labelImage:' #(#ResourceRetriever #MenuEditor #leftDownIcon 'Move Out')
             )
           ) nil
           nil
@@ -570,65 +621,65 @@
                 #'labelImage:' #(#ResourceRetriever nil #saveIcon)
             )
              #(#MenuItem
-                #'label:' '-'
+                #'label:' ''
             )
              #(#MenuItem
-                #'label:' 'createItem'
+                #'label:' 'Create Item'
                 #'isButton:' true
                 #'value:' #doCreateItem
                 #'enabled:' #hasAnySingleSelection
                 #'labelImage:' #(#ResourceRetriever nil #menuItemImage)
             )
              #(#MenuItem
-                #'label:' 'createSeparator'
+                #'label:' 'Create Separator'
                 #'isButton:' true
                 #'value:' #doCreateSep
                 #'enabled:' #hasAnySingleSelection
                 #'labelImage:' #(#ResourceRetriever nil #menuSeparatorImage)
             )
              #(#MenuItem
-                #'label:' '-'
+                #'label:' ''
             )
              #(#MenuItem
-                #'label:' 'createMenu'
+                #'label:' 'Create Menu'
                 #'isButton:' true
                 #'value:' #doCreateMenu
                 #'enabled:' #hasAnySingleSelection
                 #'labelImage:' #(#ResourceRetriever nil #submenuImage)
             )
              #(#MenuItem
-                #'label:' 'createLink'
+                #'label:' 'Create Link'
                 #'isButton:' true
                 #'value:' #doCreateLink
                 #'enabled:' #hasAnySingleSelection
                 #'labelImage:' #(#ResourceRetriever nil #linkSubmenuImage)
             )
              #(#MenuItem
-                #'label:' '-'
+                #'label:' ''
             )
              #(#MenuItem
-                #'label:' 'stepUp'
+                #'label:' 'Move Up'
                 #'isButton:' true
                 #'value:' #doStepUp
                 #'enabled:' #enabledStepOver
                 #'labelImage:' #(#ResourceRetriever nil #upIcon)
             )
              #(#MenuItem
-                #'label:' 'stepDown'
+                #'label:' 'Move Down'
                 #'isButton:' true
                 #'value:' #doStepDown
                 #'enabled:' #enabledStepOver
                 #'labelImage:' #(#ResourceRetriever nil #downIcon)
             )
              #(#MenuItem
-                #'label:' 'stepIn'
+                #'label:' 'Move In'
                 #'isButton:' true
                 #'value:' #doStepIn
                 #'enabled:' #enabledStepIn
                 #'labelImage:' #(#ResourceRetriever nil #downRightIcon)
             )
              #(#MenuItem
-                #'label:' 'stepOut'
+                #'label:' 'Move Out'
                 #'isButton:' true
                 #'value:' #doStepOut
                 #'enabled:' #enabledStepOut
@@ -2060,7 +2111,7 @@
             request: 'Load Menu From Class'
             onSuperclass: aSuperclassOrSymbol
             andClass: specClass
-            andSelector: nil
+            andSelector: self treeView selectorName
             withResourceTypes: #(menu))
 ! !