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