--- a/UIPainter.st Tue Oct 07 23:19:20 2003 +0200
+++ b/UIPainter.st Tue Oct 07 23:21:14 2003 +0200
@@ -1720,135 +1720,135 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #testStartApplication
- #label: 'Start'
- #itemValue: #doStartApplication
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #start22x22Icon)
+ #(Menu
+ (
+ (MenuItem
+ activeHelpKey: testStartApplication
+ label: 'Start'
+ itemValue: doStartApplication
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon)
)
- #(#MenuItem
- #label: ''
+ (MenuItem
+ label: ''
)
- #(#MenuItem
- #activeHelpKey: #fileNew
- #label: 'New'
- #itemValue: #doNew
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #newWindowSpec24x24Icon)
+ (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: 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
+ activeHelpKey: fileSave
+ label: 'Save'
+ itemValue: doSave
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethod22x22Icon)
)
- #(#MenuItem
- #label: ''
+ (MenuItem
+ label: ''
)
- #(#MenuItem
- #activeHelpKey: #editCut
- #enabled: #valueOfCanCut
- #label: 'Cut'
- #itemValue: #deleteSelection
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #cut22x22Icon)
+ (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: 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: 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
+ activeHelpKey: editDelete
+ enabled: valueOfCanCut
+ label: 'Delete'
+ itemValue: deleteTotalSelection
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary delete22x22Icon)
)
- #(#MenuItem
- #label: ''
+ (MenuItem
+ label: ''
)
- #(#MenuItem
- #activeHelpKey: #moveWidgetUp
- #enabled: #canChangeOrderInContainer
- #label: 'Move Up'
- #itemValue: #doStepUp
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #up22x22Icon)
+ (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: 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: 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
+ activeHelpKey: moveWidgetOut
+ enabled: canMoveSelectionOutOfContainer
+ label: 'Move Out'
+ itemValue: doStepOut
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary leftDown22x22Icon)
)
- #(#MenuItem
- #label: ''
+ (MenuItem
+ label: ''
)
- #(#MenuItem
- #activeHelpKey: #settingsCanvas
- #label: 'Canvas'
- #translateLabel: true
- #indication: #painterShown
+ (MenuItem
+ activeHelpKey: settingsCanvas
+ label: 'Canvas'
+ translateLabel: true
+ indication: painterShown
)
- #(#MenuItem
- #activeHelpKey: #settingsGallery
- #label: 'Gallery'
- #translateLabel: true
- #indication: #galleryShown
+ (MenuItem
+ activeHelpKey: settingsGallery
+ label: 'Gallery'
+ translateLabel: true
+ indication: galleryShown
)
)
nil