DataSetBuilder.st
changeset 1981 d28960fc1576
parent 1974 f3e9c2ded641
child 1990 f0b8934bc792
--- 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