--- a/DataSetBuilder.st Thu Oct 23 22:12:30 2003 +0200
+++ b/DataSetBuilder.st Fri Oct 24 13:14:32 2003 +0200
@@ -1863,101 +1863,112 @@
<resource: #menu>
- ^
-
- #(#Menu
-
- #(
- #(#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: #doCut
- #activeHelpKey: #editCut
- #enabled: #isColumnSelected
- #labelImage: #(#ResourceRetriever #Icon #cutIcon)
- )
- #(#MenuItem
- #label: 'Copy'
- #isButton: true
- #value: #doCopy
- #activeHelpKey: #editCopy
- #enabled: #isColumnSelected
- #labelImage: #(#ResourceRetriever #Icon #copyIcon)
- )
- #(#MenuItem
- #label: 'Paste'
- #isButton: true
- #value: #doPaste
- #activeHelpKey: #editPaste
- #enabled: #valueOfCanPaste
- #labelImage: #(#ResourceRetriever #Icon #pasteIcon)
- )
- #(#MenuItem
- #label: 'Delete'
- #isButton: true
- #value: #doDelete
- #activeHelpKey: #editDelete
- #enabled: #isColumnSelected
- #labelImage: #(#ResourceRetriever #Icon #deleteIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'Add Column'
- #isButton: true
- #value: #doCreateColumn
- #activeHelpKey: #addColumn
- #enabled: #columnIsNotEditing
- #labelImage: #(#ResourceRetriever nil #newColumnIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'Move Up'
- #isButton: true
- #value: #doMoveColumn:
- #activeHelpKey: #editMoveUp
- #enabled: #isColumnSelected
- #argument: #up
- #labelImage: #(#ResourceRetriever #Icon #upIcon)
- )
- #(#MenuItem
- #label: 'Move Down'
- #isButton: true
- #value: #doMoveColumn:
- #activeHelpKey: #editMoveDown
- #enabled: #isColumnSelected
- #argument: #down
- #labelImage: #(#ResourceRetriever #Icon #downIcon)
- )
- ) nil
- nil
+ ^
+ #(Menu
+ (
+ (MenuItem
+ activeHelpKey: fileNew
+ label: 'New'
+ itemValue: doNew
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary newDataSet24x24Icon)
+ )
+ (MenuItem
+ activeHelpKey: fileLoad
+ label: 'Load'
+ itemValue: doLoad
+ translateLabel: true
+ isButton: true
+ submenuChannel: menuHistory
+ labelImage: (ResourceRetriever ToolbarIconLibrary load22x22Icon)
+ )
+
+ (MenuItem
+ activeHelpKey: fileSave
+ label: 'Save'
+ itemValue: doSave
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethod22x22Icon)
+ )
+ (MenuItem
+ label: ''
+ )
+ (MenuItem
+ activeHelpKey: editCut
+ enabled: isColumnSelected
+ label: 'Cut'
+ itemValue: doCut
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon cutIcon)
+ )
+ (MenuItem
+ activeHelpKey: editCopy
+ enabled: isColumnSelected
+ label: 'Copy'
+ itemValue: doCopy
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon copyIcon)
+ )
+ (MenuItem
+ activeHelpKey: editPaste
+ enabled: valueOfCanPaste
+ label: 'Paste'
+ itemValue: doPaste
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon pasteIcon)
+ )
+ (MenuItem
+ activeHelpKey: editDelete
+ enabled: isColumnSelected
+ label: 'Delete'
+ itemValue: doDelete
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon deleteIcon)
+ )
+ (MenuItem
+ label: ''
+ )
+ (MenuItem
+ activeHelpKey: addColumn
+ enabled: columnIsNotEditing
+ label: 'Add Column'
+ itemValue: doCreateColumn
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever nil newColumnIcon)
+ )
+ (MenuItem
+ label: ''
+ )
+ (MenuItem
+ activeHelpKey: editMoveUp
+ enabled: isColumnSelected
+ label: 'Move Up'
+ itemValue: doMoveColumn:
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon upIcon)
+ argument: up
+ )
+ (MenuItem
+ activeHelpKey: editMoveDown
+ enabled: isColumnSelected
+ label: 'Move Down'
+ itemValue: doMoveColumn:
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever Icon downIcon)
+ argument: down
+ )
+ )
+ nil
+ nil
)
! !