--- a/ImageEditor.st Mon Mar 17 17:31:22 2003 +0100
+++ b/ImageEditor.st Wed Mar 19 09:52:28 2003 +0100
@@ -2199,7 +2199,7 @@
#itemValue: #doNewImage
#translateLabel: true
#isButton: true
- #labelImage: #(#ResourceRetriever #Icon #newIcon)
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #newImage24x24Icon)
)
#(#MenuItem
#activeHelpKey: #fileLoadFromClass
@@ -2207,7 +2207,7 @@
#itemValue: #doLoadFromClass
#translateLabel: true
#isButton: true
- #labelImage: #(#ResourceRetriever #Icon #loadIcon)
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #load22x22Icon)
)
#(#MenuItem
#activeHelpKey: #fileSaveMethod
@@ -2216,7 +2216,7 @@
#itemValue: #doSaveMethod
#translateLabel: true
#isButton: true
- #labelImage: #(#ResourceRetriever #Icon #saveIcon)
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #save22x22Icon)
)
#(#MenuItem
#label: ''
--- a/MenuEditor.st Mon Mar 17 17:31:22 2003 +0100
+++ b/MenuEditor.st Wed Mar 19 09:52:28 2003 +0100
@@ -240,7 +240,159 @@
!
helpSpec
- ^super helpSpec addPairsFrom:(self localHelpSpecStrings)
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
+
+ "
+ UIHelpTool openOnClass:MenuEditor
+ "
+
+ <resource: #help>
+
+ ^ super helpSpec addPairsFrom:#(
+
+#addDelayedMenu
+'Add a new delayed menu to item.'
+
+#addDelayedSubMenuLink
+'Add a new linked delayed menu to item.'
+
+#addMenuItem
+'Add a new menu item.'
+
+#addMenuSeparator
+'Add a new menu separator.'
+
+#addSubMenu
+'Add a new sub menu.'
+
+#addSubMenuLink
+'Add a new linked sub menu.'
+
+#basicsAction
+'An action selector with 0, 1 (the argument field), or 2 (the selected item) arguments.'
+
+#basicsArgument
+'An optional arg passed with above selector, if it is a 1 or 2 arg selector (enter a Smalltalk literal).'
+
+#basicsChoice
+'Aspect for a boolean holder, block or method, specifying the choices state (RadioButton behavior).'
+
+#basicsChoiceValue
+'That choices value (typically number or symbol).'
+
+#basicsIndication
+'Aspect for boolean holder, block, or method, specifying the indication state (CheckToggle behavior).'
+
+#basicsIsButton
+'Button-like look and behavior.'
+
+#basicsKey
+'Internal key of the item (optional, for programmed accesses).'
+
+#basicsLabel
+'Label of the item.'
+
+#basicsMenu
+'Aspect providing the sub menu to be opened if item is selected (provide spec or valueHolder).'
+
+#basicsMenuArgument
+'An argument passed with the menu selector.'
+
+#basicsNameKey
+'Unique identifier of the item (optional).'
+
+#basicsSelector
+'Selector under which the generated menu spec is saved.'
+
+#basicsSeparatorType
+'List of valid separators.'
+
+#basicsTranslateLabel
+'Translate the label via the classes resource file (internationalization).'
+
+#browseResource
+'Search for methods with image resource.'
+
+#detailsAccelerator
+'Accelerator key to select the menu item from the keyboard (Cmdx or Ctrlx).'
+
+#detailsAccessCharaterPosition
+'Index of the access character position of the textual label (obsolete, VW compatibility).'
+
+#detailsAuxValue
+'Some additional value - for arbitrary use by the program.'
+
+#detailsEnabled
+'Aspect or binding providing a boolean value holder for the enable-state of the menu item.'
+
+#detailsStartGroup
+'Specify start of a right-aligned item group.'
+
+#detailsVisibility
+'Boolean, or aspect or binding for a boolean holder controlling the visibility of the menu item.'
+
+#fileLoad
+'Load a menu spec from a class.'
+
+#fileNew
+'Create a new menu spec.'
+
+#filePickAMenu
+'Select a menu from an open view and read its specification'
+
+#fileSave
+'Save the menu spec (and the help spec, if modified).'
+
+#fileSaveAs
+'Open a dialog to save the menu spec (and the help spec, if modified).'
+
+#fileShowMenuSpec
+'Opens a Workspace showing the current menu spec.'
+
+#generateAspectMethods
+'Generates aspect methods for defined aspect selectors of the menu.'
+
+#hideMenuOnActivated
+'If on, the menu hides itself after the item was activated.'
+
+#horizontalLayout
+'If on, the submenu organizes its items horizontal insteat of vertical (default).'
+
+#imageImageAndLabel
+'Toggle display of both image and textual label.'
+
+#imageImageEditor
+'Open an Image Editor on the resource method defined by retriever and selector.'
+
+#imageImageList
+'Currently existing image resources.'
+
+#imageRetriever
+'Class implementing the image resource method. If no class is given, the current application class will be taken.'
+
+#imageSelector
+'Selector returning an image (sent to above or the application).'
+
+#keepLinkedMenu
+'Keep the linked menu after activation (do not destroy).'
+
+#sendToOriginator
+'Send action-Message to widget (instead of application).'
+
+#settingsRedefineAspectMethods
+'Toggles the permission to overwrite existing aspect methods.'
+
+#showBusyCursorWhilePerforming
+'If on, a busy cursor is shown while the items action is performing.'
+
+#triggerOnDown
+'If on, the items action is performed on mouse-button press (default is on button-release).'
+
+)
!
localFlyHelpSpecStrings
@@ -1101,13 +1253,21 @@
#(#Menu
#(
#(#MenuItem
+ #activeHelpKey: #fileNew
+ #label: 'New'
+ #itemValue: #doNew
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #newMenu24x24Icon)
+ )
+ #(#MenuItem
#activeHelpKey: #fileLoad
#label: 'Load'
#itemValue: #doLoad
#translateLabel: true
#isButton: true
#submenuChannel: #menuHistory
- #labelImage: #(#ResourceRetriever #Icon #loadIcon)
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #load22x22Icon)
)
#(#MenuItem
#activeHelpKey: #fileSave
@@ -1115,7 +1275,7 @@
#itemValue: #doSave
#translateLabel: true
#isButton: true
- #labelImage: #(#ResourceRetriever #Icon #saveIcon)
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #save22x22Icon)
)
#(#MenuItem
#label: ''
@@ -1127,7 +1287,7 @@
#itemValue: #doCut
#translateLabel: true
#isButton: true
- #labelImage: #(#ResourceRetriever #Icon #cutIcon)
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #cut22x22Icon)
)
#(#MenuItem
#activeHelpKey: #editCopy
@@ -1136,7 +1296,7 @@
#itemValue: #doCopy
#translateLabel: true
#isButton: true
- #labelImage: #(#ResourceRetriever #Icon #copyIcon)
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #copy22x22Icon)
)
#(#MenuItem
#activeHelpKey: #editPaste
@@ -1145,7 +1305,7 @@
#itemValue: #doPaste
#translateLabel: true
#isButton: true
- #labelImage: #(#ResourceRetriever #Icon #pasteIcon)
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #paste22x22Icon)
)
#(#MenuItem
#label: ''
@@ -1177,7 +1337,6 @@
#isButton: true
#submenuChannel: #standardMenus
#labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconMenu)
- #keepLinkedMenu: true
)
#(#MenuItem
#activeHelpKey: #addSubMenuLink
--- a/UIPainter.st Mon Mar 17 17:31:22 2003 +0100
+++ b/UIPainter.st Wed Mar 19 09:52:28 2003 +0100
@@ -1706,127 +1706,140 @@
<resource: #menu>
- ^
-
- #(#Menu
-
- #(
- #(#MenuItem
- #label: 'Start'
- #isButton: true
- #value: #doStartApplication
- #activeHelpKey: #testStartApplication
- #labelImage: #(#ResourceRetriever #Icon #startIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'New'
- #isButton: true
- #value: #doNew
- #activeHelpKey: #fileNew
- #labelImage: #(#ResourceRetriever #Icon #newIcon)
- )
- #(#MenuItem
- #label: 'Load'
- #isButton: true
- #value: #doLoad
- #activeHelpKey: #fileLoad
- #labelImage: #(#ResourceRetriever #Icon #loadIcon)
- )
- #(#MenuItem
- #label: 'Save'
- #isButton: true
- #value: #doSave
- #activeHelpKey: #fileSave
- #labelImage: #(#ResourceRetriever #Icon #saveIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'Cut'
- #isButton: true
- #value: #deleteSelection
- #activeHelpKey: #editCut
- #enabled: #valueOfCanCut
- #labelImage: #(#ResourceRetriever #Icon #cutIcon)
- )
- #(#MenuItem
- #label: 'Copy'
- #isButton: true
- #value: #copySelection
- #activeHelpKey: #editCopy
- #enabled: #valueOfCanCopy
- #labelImage: #(#ResourceRetriever #Icon #copyIcon)
- )
- #(#MenuItem
- #label: 'Paste With Layout'
- #isButton: true
- #value: #pasteWithLayout
- #activeHelpKey: #editPaste
- #enabled: #valueOfCanPasteWithKeepingLayout
- #labelImage: #(#ResourceRetriever #Icon #pasteIcon)
- )
- #(#MenuItem
- #label: 'Delete'
- #isButton: true
- #value: #deleteTotalSelection
- #activeHelpKey: #editDelete
- #enabled: #valueOfCanCut
- #labelImage: #(#ResourceRetriever #Icon #deleteIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'Move Up'
- #isButton: true
- #value: #doStepUp
- #activeHelpKey: #moveWidgetUp
- #enabled: #canChangeOrderInContainer
- #labelImage: #(#ResourceRetriever #Icon #upIcon)
- )
- #(#MenuItem
- #label: 'Move Down'
- #isButton: true
- #value: #doStepDown
- #activeHelpKey: #moveWidgetDown
- #enabled: #canChangeOrderInContainer
- #labelImage: #(#ResourceRetriever #Icon #downIcon)
- )
- #(#MenuItem
- #label: 'Move Into'
- #isButton: true
- #value: #doStepIn
- #activeHelpKey: #moveWidgetInto
- #enabled: #canMoveSelectionIntoContainer
- #labelImage: #(#ResourceRetriever #Icon #downRightIcon)
- )
- #(#MenuItem
- #label: 'Move Out'
- #isButton: true
- #value: #doStepOut
- #activeHelpKey: #moveWidgetOut
- #enabled: #canMoveSelectionOutOfContainer
- #labelImage: #(#ResourceRetriever #Icon #leftDownIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'Canvas'
- #activeHelpKey: #settingsCanvas
- #indication: #painterShown
- )
- #(#MenuItem
- #label: 'Gallery'
- #activeHelpKey: #settingsGallery
- #indication: #galleryShown
- )
- ) nil
- nil
+ ^
+ #(#Menu
+ #(
+ #(#MenuItem
+ #activeHelpKey: #testStartApplication
+ #label: 'Start'
+ #itemValue: #doStartApplication
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #start22x22Icon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #activeHelpKey: #fileNew
+ #label: 'New'
+ #itemValue: #doNew
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #newWindowSpec24x24Icon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #fileLoad
+ #label: 'Load'
+ #itemValue: #doLoad
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #load22x22Icon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #fileSave
+ #label: 'Save'
+ #itemValue: #doSave
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #save22x22Icon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #activeHelpKey: #editCut
+ #enabled: #valueOfCanCut
+ #label: 'Cut'
+ #itemValue: #deleteSelection
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #cut22x22Icon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #editCopy
+ #enabled: #valueOfCanCopy
+ #label: 'Copy'
+ #itemValue: #copySelection
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #copy22x22Icon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #editPaste
+ #enabled: #valueOfCanPasteWithKeepingLayout
+ #label: 'Paste With Layout'
+ #itemValue: #pasteWithLayout
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #paste22x22Icon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #editDelete
+ #enabled: #valueOfCanCut
+ #label: 'Delete'
+ #itemValue: #deleteTotalSelection
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #delete22x22Icon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #activeHelpKey: #moveWidgetUp
+ #enabled: #canChangeOrderInContainer
+ #label: 'Move Up'
+ #itemValue: #doStepUp
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #up22x22Icon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #moveWidgetDown
+ #enabled: #canChangeOrderInContainer
+ #label: 'Move Down'
+ #itemValue: #doStepDown
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #down22x22Icon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #moveWidgetInto
+ #enabled: #canMoveSelectionIntoContainer
+ #label: 'Move Into'
+ #itemValue: #doStepIn
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #downRight22x22Icon)
+ )
+ #(#MenuItem
+ #activeHelpKey: #moveWidgetOut
+ #enabled: #canMoveSelectionOutOfContainer
+ #label: 'Move Out'
+ #itemValue: #doStepOut
+ #translateLabel: true
+ #isButton: true
+ #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #leftDown22x22Icon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #activeHelpKey: #settingsCanvas
+ #label: 'Canvas'
+ #translateLabel: true
+ #indication: #painterShown
+ )
+ #(#MenuItem
+ #activeHelpKey: #settingsGallery
+ #label: 'Gallery'
+ #translateLabel: true
+ #indication: #galleryShown
+ )
+ )
+ nil
+ nil
)
!