--- a/DataSetBuilder.st Tue Feb 14 11:06:02 2006 +0100
+++ b/DataSetBuilder.st Wed Feb 15 17:32:40 2006 +0100
@@ -1917,172 +1917,153 @@
<resource: #menu>
- ^
-
- #(#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: 'Save As...'
- #translateLabel: true
- #value: #doSaveAs
- #activeHelpKey: #fileSaveAs
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Pick Columns...'
- #translateLabel: true
- #value: #doPickColumns
- #activeHelpKey: #pickColumns
- )
- #(#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
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: fileNew
+ label: 'New'
+ itemValue: doNew
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: fileLoad
+ label: 'Load...'
+ itemValue: doLoad
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: fileSave
+ label: 'Save'
+ itemValue: doSave
+ translateLabel: true
)
- )
- #(#MenuItem
- #label: 'Edit'
- #translateLabel: true
- #activeHelpKey: #edit
- #submenuChannel: #menuEdit
+ (MenuItem
+ activeHelpKey: fileSaveAs
+ label: 'Save As...'
+ itemValue: doSaveAs
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: pickColumns
+ label: 'Pick Columns...'
+ itemValue: doPickColumns
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ isVisible: isStandAlone
+ )
+ (MenuItem
+ activeHelpKey: fileBrowseClass
+ label: 'Browse Class'
+ itemValue: doBrowseClass
+ translateLabel: true
+ isVisible: isStandAlone
+ )
+ (MenuItem
+ label: '-'
+ isVisible: isStandAlone
+ )
+ (MenuItem
+ activeHelpKey: fileExit
+ label: 'Exit'
+ itemValue: closeRequest
+ translateLabel: true
+ isVisible: isStandAlone
+ )
+ )
+ nil
+ nil
)
- #(#MenuItem
- #label: 'Add'
- #translateLabel: true
- #submenu:
- #(#Menu
-
- #(
- #(#MenuItem
- #label: 'Column'
- #translateLabel: true
- #value: #doCreateColumn
- #activeHelpKey: #addColumn
- #enabled: #columnIsNotEditing
- #labelImage: #(#ResourceRetriever nil #newColumnIcon 'Column')
- )
- ) nil
- nil
+ )
+ (MenuItem
+ label: 'Edit'
+ translateLabel: true
+ submenuChannel: menuEdit
+ )
+ (MenuItem
+ label: 'Add'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: addColumn
+ enabled: columnIsNotEditing
+ label: 'Column'
+ itemValue: doCreateColumn
+ translateLabel: true
+ labelImage: (ResourceRetriever nil newColumnIcon 'Column')
)
+ )
+ nil
+ nil
)
- #(#MenuItem
- #label: 'Generate'
- #translateLabel: true
- #activeHelpKey: #generate
- #submenu:
- #(#Menu
-
- #(
- #(#MenuItem
- #label: 'Define Row Class...'
- #translateLabel: true
- #value: #doDefineRowClass
- #activeHelpKey: #fileDefineClass
- )
- #(#MenuItem
- #label: 'Browse Row Class'
- #translateLabel: true
- #value: #doBrowseRowClass
- #activeHelpKey: #browseRowClass
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Generate Code'
- #translateLabel: true
- #value: #doGenerateCode
- #activeHelpKey: #generateCode
- )
- ) nil
- nil
+ )
+ (MenuItem
+ label: 'Generate'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: fileDefineClass
+ label: 'Define Row Class...'
+ itemValue: doDefineRowClass
+ translateLabel: true
)
+ (MenuItem
+ activeHelpKey: browseRowClass
+ label: 'Browse Row Class'
+ itemValue: doBrowseRowClass
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: generateCode
+ label: 'Generate Code'
+ itemValue: doGenerateCode
+ translateLabel: true
+ )
+ )
+ nil
+ nil
)
-"/ #(#MenuItem
-"/ #label: 'Settings'
-"/ #translateLabel: true
-"/ #activeHelpKey: #settings
-"/ #submenu:
-"/ #(#Menu
-"/
-"/ #(
-"/ #(#MenuItem
-"/ #label: 'Fonts'
-"/ #translateLabel: true
-"/ #submenuChannel: #menuFont
-"/ )
-"/ ) nil
-"/ nil
-"/ )
-"/ )
- #(#MenuItem
- #label: 'History'
- #translateLabel: true
- #activeHelpKey: #history
- #submenuChannel: #menuHistory
- )
- #(#MenuItem
- #label: 'Help'
- #translateLabel: true
- #startGroup: #right
- #submenuChannel: #menuHelp
- )
- ) nil
- nil
+ )
+ (MenuItem
+ label: 'History'
+ translateLabel: true
+ isVisible: isStandAlone
+ submenuChannel: menuHistory
+ )
+ (MenuItem
+ label: 'Help'
+ translateLabel: true
+ startGroup: right
+ submenuChannel: menuHelp
+ )
+ )
+ nil
+ nil
)
-
- "Modified: / 19.5.1998 / 23:10:01 / cg"
!
menuEdit