# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1117536111 -7200
# Node ID 1ccae043317545671d6d58e7512aaf8d7944f2f2
# Parent  f782762ea789d313626e77e5c6f0e4f78c7d08da
*** empty log message ***

diff -r f782762ea789 -r 1ccae0433175 TabListEditor.st
--- a/TabListEditor.st	Tue May 31 12:28:39 2005 +0200
+++ b/TabListEditor.st	Tue May 31 12:41:51 2005 +0200
@@ -1037,94 +1037,107 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'New'
-            #isButton: true
-            #value: #doNew
-            #activeHelpKey: #fileNew
-            #labelImage: #(#ResourceRetriever #Icon #newIcon)
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: fileNew
+            label: 'New'
+            itemValue: doNew
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary new22x22Icon)
           )
-         #(#MenuItem
-            #label: 'Load'
-            #isButton: true
-            #value: #doLoad
-            #activeHelpKey: #fileLoad
-            #labelImage: #(#ResourceRetriever #Icon #loadIcon)
+         (MenuItem
+            activeHelpKey: fileLoad
+            label: 'Load'
+            itemValue: doLoad
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon)
           )
-         #(#MenuItem
-            #label: 'Save'
-            #isButton: true
-            #value: #doSave
-            #activeHelpKey: #fileSave
-            #labelImage: #(#ResourceRetriever #Icon #saveIcon)
+         (MenuItem
+            activeHelpKey: fileSave
+            label: 'Save'
+            itemValue: doSave
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Cut'
-            #isButton: true
-            #value: #doCut
-            #activeHelpKey: #editCut
-            #enabled: #hasSelectionHolder
-            #labelImage: #(#ResourceRetriever #Icon #cutIcon)
+         (MenuItem
+            activeHelpKey: editCut
+            enabled: hasSelectionHolder
+            label: 'Cut'
+            itemValue: doCut
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon)
           )
-         #(#MenuItem
-            #label: 'Copy'
-            #isButton: true
-            #value: #doCopy
-            #activeHelpKey: #editCopy
-            #enabled: #hasSelectionHolder
-            #labelImage: #(#ResourceRetriever #Icon #copyIcon)
+         (MenuItem
+            activeHelpKey: editCopy
+            enabled: hasSelectionHolder
+            label: 'Copy'
+            itemValue: doCopy
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon)
           )
-         #(#MenuItem
-            #label: 'Paste'
-            #isButton: true
-            #value: #doPaste
-            #activeHelpKey: #editPaste
-            #enabled: #valueOfCanPaste
-            #labelImage: #(#ResourceRetriever #Icon #pasteIcon)
+         (MenuItem
+            activeHelpKey: editPaste
+            enabled: valueOfCanPaste
+            label: 'Paste'
+            itemValue: doPaste
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon)
           )
-         #(#MenuItem
-            #label: 'Delete'
-            #isButton: true
-            #value: #doDelete
-            #activeHelpKey: #editDelete
-            #enabled: #hasSelectionHolder
-            #labelImage: #(#ResourceRetriever #Icon #deleteIcon)
+         (MenuItem
+            activeHelpKey: editDelete
+            enabled: hasSelectionHolder
+            label: 'Delete'
+            itemValue: doDelete
+            translateLabel: true
+            isButton: true
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary delete22x22Icon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Add Tab Item'
-            #isButton: true
-            #value: #doCreate
-            #activeHelpKey: #addTabItem
-            #labelImage: #(#ResourceRetriever nil #newTabItemIcon)
+         (MenuItem
+            activeHelpKey: addTabItem
+            label: 'Add Tab Item'
+            itemValue: doCreate
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever nil newTabItemIcon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: ''
           )
-         #(#MenuItem
-            #label: 'Move Tab Up'
-            #isButton: true
-            #value: #doMoveTabUpOrDown:
-            #activeHelpKey: #editMoveUp
-            #enabled: #canMoveTabItemUpOrDown
-            #argument: #up
-            #labelImage: #(#ResourceRetriever #Icon #upIcon)
+         (MenuItem
+            activeHelpKey: editMoveUp
+            enabled: canMoveTabItemUpOrDown
+            label: 'Move Tab Up'
+            itemValue: doMoveTabUpOrDown:
+            translateLabel: true
+            isButton: true
+            startGroup: right
+            labelImage: (ResourceRetriever XPToolbarIconLibrary up22x22Icon)
+            argument: up
           )
-         #(#MenuItem
-            #label: 'Move Tab Down'
-            #isButton: true
-            #value: #doMoveTabUpOrDown:
-            #activeHelpKey: #editMoveDown
-            #enabled: #canMoveTabItemUpOrDown
-            #argument: #down
-            #labelImage: #(#ResourceRetriever #Icon #downIcon)
+         (MenuItem
+            activeHelpKey: editMoveDown
+            enabled: canMoveTabItemUpOrDown
+            label: 'Move Tab Down'
+            itemValue: doMoveTabUpOrDown:
+            translateLabel: true
+            isButton: true
+            startGroup: right
+            labelImage: (ResourceRetriever XPToolbarIconLibrary down22x22Icon)
+            argument: down
           )
          )
         nil