--- a/MenuEditor.st Wed May 08 06:37:02 2002 +0200
+++ b/MenuEditor.st Tue May 14 11:20:31 2002 +0200
@@ -297,10 +297,10 @@
'Search for methods with image resource.'
#detailsAccelerator
-'Key to be pressed to select the menu item from the keyboard (accelerator key).'
+'Accelerator key to select the menu item from the keyboard (Cmdx or Ctrlx).'
#detailsAccessCharaterPosition
-'Index of the access character position of the textual label (optional).'
+'Index of the access character position of the textual label (obsolete, VW compatibility).'
#detailsAuxValue
'Some additional value - for arbitrary use by the program'
@@ -1175,14 +1175,14 @@
#adjust: #right
)
#(#PopUpListSpec
- #label: 'PopUpList'
+ #label: 'left'
#name: 'StartGroupPopUp'
#layout: #(#LayoutFrame 110 0 128 0 -5 1.0 150 0)
#activeHelpKey: #detailsStartGroup
#tabable: true
#model: #startGroup
#menu:
- #(nil
+ #(#left
#right
)
#useIndex: false
@@ -1474,172 +1474,153 @@
<resource: #menu>
- ^
-
- #(#Menu
-
- #(
- #(#MenuItem
- #label: '&File'
- #activeHelpKey: #file
- #translateLabel: true
- #submenu:
- #(#Menu
-
- #(
- #(#MenuItem
- #label: 'New'
- #value: #doNew
- #translateLabel: true
- #activeHelpKey: #fileNew
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Load...'
- #translateLabel: true
- #value: #doLoad
- #activeHelpKey: #fileLoad
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Save'
- #translateLabel: true
- #value: #doSave
- #activeHelpKey: #fileSave
- )
- #(#MenuItem
- #label: 'Save As...'
- #translateLabel: true
- #value: #doSaveAs
- #activeHelpKey: #fileSaveAs
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Pick A Menu...'
- #translateLabel: true
- #value: #doPickAMenu
- #activeHelpKey: #filePickAMenu
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Browse Class'
- #translateLabel: true
- #value: #doBrowseClass
- #activeHelpKey: #fileBrowseClass
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Exit'
- #translateLabel: true
- #value: #closeRequest
- #activeHelpKey: #fileExit
- )
- ) nil
- nil
+ ^
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: '&File'
+ #translateLabel: true
+ #activeHelpKey: #file
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'New'
+ #translateLabel: true
+ #value: #doNew
+ #activeHelpKey: #fileNew
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Load...'
+ #translateLabel: true
+ #value: #doLoad
+ #activeHelpKey: #fileLoad
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Save'
+ #translateLabel: true
+ #value: #doSave
+ #activeHelpKey: #fileSave
)
- )
- #(#MenuItem
- #label: 'Edit'
- #activeHelpKey: #edit
- #translateLabel: true
- #submenuChannel: #menuEdit
+ #(#MenuItem
+ #label: 'Save As...'
+ #translateLabel: true
+ #value: #doSaveAs
+ #activeHelpKey: #fileSaveAs
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Pick A Menu...'
+ #translateLabel: true
+ #value: #doPickAMenu
+ #activeHelpKey: #filePickAMenu
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Browse Class'
+ #translateLabel: true
+ #value: #doBrowseClass
+ #activeHelpKey: #fileBrowseClass
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Exit'
+ #translateLabel: true
+ #value: #closeRequest
+ #activeHelpKey: #fileExit
+ )
+ )
+ nil
+ nil
)
- #(#MenuItem
- #label: 'Add'
- #activeHelpKey: #add
- #translateLabel: true
- #submenuChannel: #menuAdd
- )
- #(#MenuItem
- #label: 'Test'
- #activeHelpKey: #test
- #translateLabel: true
- #submenuChannel: #submenuTest
- )
-"/ #(#MenuItem
-"/ #label: 'Settings'
-"/ #submenu:
-"/ #(#Menu
-"/
-"/ #(
-"/ #(#MenuItem
-"/ #label: 'Fonts'
-"/ #translateLabel: true
-"/ #submenuChannel: #menuFont
-"/ )
-"/ ) nil
-"/ nil
-"/ )
-"/ )
- #(#MenuItem
- #label: 'History'
- #activeHelpKey: #history
- #translateLabel: true
- #submenuChannel: #menuHistory
+ )
+ #(#MenuItem
+ #label: 'Edit'
+ #translateLabel: true
+ #activeHelpKey: #edit
+ #submenuChannel: #menuEdit
+ )
+ #(#MenuItem
+ #label: 'Add'
+ #translateLabel: true
+ #activeHelpKey: #add
+ #submenuChannel: #menuAdd
+ )
+ #(#MenuItem
+ #label: 'Test'
+ #translateLabel: true
+ #activeHelpKey: #test
+ #submenuChannel: #submenuTest
+ )
+ #(#MenuItem
+ #label: 'History'
+ #translateLabel: true
+ #activeHelpKey: #history
+ #submenuChannel: #menuHistory
+ )
+ #(#MenuItem
+ #label: 'Help'
+ #translateLabel: true
+ #startGroup: #right
+ #submenu:
+ #(#Menu
+ #(
+ #(#MenuItem
+ #label: 'Documentation'
+ #translateLabel: true
+ #value: #openHTMLDocument:
+ #activeHelpKey: #helpTutorial
+ #argument: 'tools/uipainter/MenuEditor.html'
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Help Tool'
+ #translateLabel: true
+ #value: #openHTMLDocument:
+ #activeHelpKey: #helpHelpTool
+ #argument: 'tools/uipainter/HelpTool.html'
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'Show Help Texts'
+ #translateLabel: true
+ #activeHelpKey: #helpShowHelp
+ #indication: #showingHelp:
+ )
+ #(#MenuItem
+ #label: '-'
+ )
+ #(#MenuItem
+ #label: 'About MenuEditor...'
+ #translateLabel: true
+ #value: #openAboutThisApplication
+ #activeHelpKey: #aboutThisAppliaction
+ )
+ )
+ nil
+ nil
)
- #(#MenuItem
- #label: 'Help'
- #translateLabel: true
- #startGroup: #right
- #submenu:
- #(#Menu
-
- #(
- #(#MenuItem
- #label: 'Documentation'
- #value: #openHTMLDocument:
- #translateLabel: true
- #activeHelpKey: #helpTutorial
- #argument: 'tools/uipainter/MenuEditor.html'
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Help Tool'
- #value: #openHTMLDocument:
- #translateLabel: true
- #activeHelpKey: #helpHelpTool
- #argument: 'tools/uipainter/HelpTool.html'
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Show Help Texts'
- #translateLabel: true
- #activeHelpKey: #helpShowHelp
- #indication: #showingHelp:
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'About MenuEditor...'
- #translateLabel: true
- #value: #openAboutThisApplication
- #activeHelpKey: #aboutThisAppliaction
- )
-
- ) nil
- nil
- )
- )
- ) nil
- nil
+ )
+ )
+ nil
+ nil
)
-
- "Modified: / 31.7.1998 / 18:19:47 / cg"
!
menuAdd