Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
toolbar: new-dataSet icon & load history
authorClaus Gittinger <cg@exept.de>
Fri, 24 Oct 2003 13:14:32 +0200
changeset 1757 c1b5a55649c9
parent 1756 3b033fe4ad5c
child 1758 d0daf311d335
toolbar: new-dataSet icon & load history
DataSetBuilder.st file | annotate | diff | comparison | revisions 
--- 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
       )
 ! !
hg/stx-libtool2