--- a/MenuEditor.st Wed May 20 01:16:44 1998 +0200
+++ b/MenuEditor.st Wed May 20 01:20:21 1998 +0200
@@ -212,7 +212,7 @@
'Creates a new menu spec.'
#filePickAMenu
-'Changes the cursor for moving it over another menu view to load its menu spec.'
+'Select a menu from an open view and read its specification'
#fileSave
'Saves current menu spec and if modified the help spec.'
@@ -233,6 +233,8 @@
'Selector returning an image.'
)
+
+ "Modified: / 20.5.1998 / 00:42:49 / cg"
! !
!MenuEditor class methodsFor:'image specs'!
@@ -977,11 +979,11 @@
#window:
#(#WindowSpec
#name: 'Menu Editor'
- #layout: #(#LayoutFrame 88 0 294 0 627 0 673 0)
+ #layout: #(#LayoutFrame 189 0 552 0 872 0 931 0)
#label: 'Menu Editor'
#min: #(#Point 510 390)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 88 294 628 674)
+ #bounds: #(#Rectangle 189 552 873 932)
#menu: #menu
#usePreferredExtent: false
)
@@ -1037,7 +1039,7 @@
)
)
)
- #handles: #(#Any 0.384483 1.0)
+ #handles: #(#Any 0.30117 1.0)
)
#(#UISubSpecification
#name: 'InfoBarSubSpec'
@@ -1048,6 +1050,8 @@
)
)
)
+
+ "Modified: / 20.5.1998 / 01:18:39 / cg"
! !
!MenuEditor class methodsFor:'menu specs'!
@@ -1073,6 +1077,7 @@
#(
#(#MenuItem
#label: 'About'
+ #translateLabel: true
#accessCharacterPosition: 1
#labelImage: #(#ResourceRetriever nil #menuIcon)
#submenuChannel: #menuAbout
@@ -1080,6 +1085,7 @@
#(#MenuItem
#label: 'File'
#activeHelpKey: #file
+ #translateLabel: true
#submenu:
#(#Menu
@@ -1087,6 +1093,7 @@
#(#MenuItem
#label: 'New'
#value: #doNew
+ #translateLabel: true
#activeHelpKey: #fileNew
)
#(#MenuItem
@@ -1103,11 +1110,13 @@
)
#(#MenuItem
#label: 'Save'
+ #translateLabel: true
#value: #doSave
#activeHelpKey: #fileSave
)
#(#MenuItem
#label: 'Save As...'
+ #translateLabel: true
#value: #doSaveAs
#activeHelpKey: #fileSaveAs
)
@@ -1116,6 +1125,7 @@
)
#(#MenuItem
#label: 'Pick A Menu...'
+ #translateLabel: true
#value: #doPickAMenu
#activeHelpKey: #filePickAMenu
)
@@ -1124,6 +1134,7 @@
)
#(#MenuItem
#label: 'Browse Class'
+ #translateLabel: true
#value: #doBrowseClass
#activeHelpKey: #fileBrowseClass
)
@@ -1143,16 +1154,19 @@
#(#MenuItem
#label: 'Edit'
#activeHelpKey: #edit
+ #translateLabel: true
#submenuChannel: #menuEdit
)
#(#MenuItem
#label: 'Add'
#activeHelpKey: #add
+ #translateLabel: true
#submenuChannel: #menuAdd
)
#(#MenuItem
#label: 'Test'
#activeHelpKey: #test
+ #translateLabel: true
#submenuChannel: #submenuTest
)
#(#MenuItem
@@ -1163,6 +1177,7 @@
#(
#(#MenuItem
#label: 'Fonts'
+ #translateLabel: true
#submenuChannel: #menuFont
)
) nil
@@ -1172,10 +1187,12 @@
#(#MenuItem
#label: 'History'
#activeHelpKey: #history
+ #translateLabel: true
#submenuChannel: #menuHistory
)
#(#MenuItem
#label: 'Help'
+ #translateLabel: true
#startGroup: #right
#submenu:
#(#Menu
@@ -1184,6 +1201,7 @@
#(#MenuItem
#label: 'Documentation'
#value: #openHTMLDocument:
+ #translateLabel: true
#activeHelpKey: #helpTutorial
#argument: 'tools/uipainter/MenuEditor.html'
)
@@ -1193,6 +1211,7 @@
#(#MenuItem
#label: 'Help Tool'
#value: #openHTMLDocument:
+ #translateLabel: true
#activeHelpKey: #helpHelpTool
#argument: 'tools/uipainter/HelpTool.html'
)
@@ -1201,6 +1220,7 @@
)
#(#MenuItem
#label: 'Show Help Texts'
+ #translateLabel: true
#activeHelpKey: #helpShowHelp
#indication: #showHelp:
)
@@ -1211,6 +1231,8 @@
) nil
nil
)
+
+ "Modified: / 20.5.1998 / 00:36:34 / cg"
!
menuAdd
@@ -1234,12 +1256,14 @@
#(
#(#MenuItem
#label: 'Menu Item'
+ #translateLabel: true
#value: #doCreateItem
#activeHelpKey: #addMenuItem
#labelImage: #(#ResourceRetriever #MenuEditor #menuItemImage 'Menu Item')
)
#(#MenuItem
#label: 'Menu Separator'
+ #translateLabel: true
#value: #doCreateSep
#activeHelpKey: #addMenuSeparator
#labelImage: #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Menu Separator')
@@ -1249,12 +1273,14 @@
)
#(#MenuItem
#label: 'Submenu'
+ #translateLabel: true
#value: #doCreateMenu
#activeHelpKey: #addSubMenu
#labelImage: #(#ResourceRetriever #MenuEditor #submenuImage 'Submenu')
)
#(#MenuItem
#label: 'Submenu Link'
+ #translateLabel: true
#value: #doCreateLink
#activeHelpKey: #addSubMenuLink
#labelImage: #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Submenu Link')
@@ -1262,6 +1288,8 @@
) nil
nil
)
+
+ "Modified: / 20.5.1998 / 00:40:39 / cg"
!
menuDefaultLink
@@ -1313,6 +1341,7 @@
#(#MenuItem
#label: 'Cut'
#value: #doCut
+ #translateLabel: true
#activeHelpKey: #editCut
#enabled: #hasValidSelection
#shortcutKeyCharacter: #Cut
@@ -1320,6 +1349,7 @@
#(#MenuItem
#label: 'Copy'
#value: #doCopy
+ #translateLabel: true
#activeHelpKey: #editCopy
#enabled: #hasValidSelection
#shortcutKeyCharacter: #Copy
@@ -1327,6 +1357,7 @@
#(#MenuItem
#label: 'Paste'
#value: #doPaste
+ #translateLabel: true
#activeHelpKey: #editPaste
#enabled: #valueOfCanPaste
#shortcutKeyCharacter: #Paste
@@ -1334,6 +1365,7 @@
#(#MenuItem
#label: 'Delete'
#value: #doDelete
+ #translateLabel: true
#activeHelpKey: #editDelete
#enabled: #hasValidSelection
#shortcutKeyCharacter: #Delete
@@ -1344,30 +1376,36 @@
#(#MenuItem
#label: 'Move Up'
#value: #doStepUp
+ #translateLabel: true
#activeHelpKey: #editMoveUp
#enabled: #valueOfEnableMovingUpOrDown
)
#(#MenuItem
#label: 'Move Down'
#value: #doStepDown
+ #translateLabel: true
#activeHelpKey: #editMoveDown
#enabled: #valueOfEnableMovingUpOrDown
)
#(#MenuItem
#label: 'Move In'
#value: #doStepIn
+ #translateLabel: true
#activeHelpKey: #editMoveIn
#enabled: #valueOfEnableMovingIn
)
#(#MenuItem
#label: 'Move Out'
#value: #doStepOut
+ #translateLabel: true
#activeHelpKey: #editMoveOut
#enabled: #valueOfEnableMovingOut
)
) nil
nil
)
+
+ "Modified: / 20.5.1998 / 00:37:16 / cg"
!
menuToolbar