# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1065561674 -7200
# Node ID f175cc37a17ac4c41c176852e905932c39a9edc1
# Parent  817e1191a4fc2b3818780963ab7cbdfd361e38e3
toolBar: button image

diff -r 817e1191a4fc -r f175cc37a17a UIPainter.st
--- a/UIPainter.st	Tue Oct 07 23:19:20 2003 +0200
+++ b/UIPainter.st	Tue Oct 07 23:21:14 2003 +0200
@@ -1720,135 +1720,135 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #activeHelpKey: #testStartApplication
-            #label: 'Start'
-            #itemValue: #doStartApplication
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #start22x22Icon)
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: testStartApplication
+            label: 'Start'
+            itemValue: doStartApplication
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: ''
           )
-         #(#MenuItem
-            #activeHelpKey: #fileNew
-            #label: 'New'
-            #itemValue: #doNew
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #newWindowSpec24x24Icon)
+         (MenuItem
+            activeHelpKey: fileNew
+            label: 'New'
+            itemValue: doNew
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary newWindowSpec24x24Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #fileLoad
-            #label: 'Load'
-            #itemValue: #doLoad
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #load22x22Icon)
+         (MenuItem
+            activeHelpKey: fileLoad
+            label: 'Load'
+            itemValue: doLoad
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary load22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #fileSave
-            #label: 'Save'
-            #itemValue: #doSave
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #save22x22Icon)
+         (MenuItem
+            activeHelpKey: fileSave
+            label: 'Save'
+            itemValue: doSave
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethod22x22Icon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: ''
           )
-         #(#MenuItem
-            #activeHelpKey: #editCut
-            #enabled: #valueOfCanCut
-            #label: 'Cut'
-            #itemValue: #deleteSelection
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #cut22x22Icon)
+         (MenuItem
+            activeHelpKey: editCut
+            enabled: valueOfCanCut
+            label: 'Cut'
+            itemValue: deleteSelection
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary cut22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #editCopy
-            #enabled: #valueOfCanCopy
-            #label: 'Copy'
-            #itemValue: #copySelection
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #copy22x22Icon)
+         (MenuItem
+            activeHelpKey: editCopy
+            enabled: valueOfCanCopy
+            label: 'Copy'
+            itemValue: copySelection
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary copy22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #editPaste
-            #enabled: #valueOfCanPasteWithKeepingLayout
-            #label: 'Paste With Layout'
-            #itemValue: #pasteWithLayout
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #paste22x22Icon)
+         (MenuItem
+            activeHelpKey: editPaste
+            enabled: valueOfCanPasteWithKeepingLayout
+            label: 'Paste With Layout'
+            itemValue: pasteWithLayout
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary paste22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #editDelete
-            #enabled: #valueOfCanCut
-            #label: 'Delete'
-            #itemValue: #deleteTotalSelection
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #delete22x22Icon)
+         (MenuItem
+            activeHelpKey: editDelete
+            enabled: valueOfCanCut
+            label: 'Delete'
+            itemValue: deleteTotalSelection
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary delete22x22Icon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: ''
           )
-         #(#MenuItem
-            #activeHelpKey: #moveWidgetUp
-            #enabled: #canChangeOrderInContainer
-            #label: 'Move Up'
-            #itemValue: #doStepUp
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #up22x22Icon)
+         (MenuItem
+            activeHelpKey: moveWidgetUp
+            enabled: canChangeOrderInContainer
+            label: 'Move Up'
+            itemValue: doStepUp
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary up22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #moveWidgetDown
-            #enabled: #canChangeOrderInContainer
-            #label: 'Move Down'
-            #itemValue: #doStepDown
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #down22x22Icon)
+         (MenuItem
+            activeHelpKey: moveWidgetDown
+            enabled: canChangeOrderInContainer
+            label: 'Move Down'
+            itemValue: doStepDown
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary down22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #moveWidgetInto
-            #enabled: #canMoveSelectionIntoContainer
-            #label: 'Move Into'
-            #itemValue: #doStepIn
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #downRight22x22Icon)
+         (MenuItem
+            activeHelpKey: moveWidgetInto
+            enabled: canMoveSelectionIntoContainer
+            label: 'Move Into'
+            itemValue: doStepIn
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary downRight22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #moveWidgetOut
-            #enabled: #canMoveSelectionOutOfContainer
-            #label: 'Move Out'
-            #itemValue: #doStepOut
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #leftDown22x22Icon)
+         (MenuItem
+            activeHelpKey: moveWidgetOut
+            enabled: canMoveSelectionOutOfContainer
+            label: 'Move Out'
+            itemValue: doStepOut
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary leftDown22x22Icon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: ''
           )
-         #(#MenuItem
-            #activeHelpKey: #settingsCanvas
-            #label: 'Canvas'
-            #translateLabel: true
-            #indication: #painterShown
+         (MenuItem
+            activeHelpKey: settingsCanvas
+            label: 'Canvas'
+            translateLabel: true
+            indication: painterShown
           )
-         #(#MenuItem
-            #activeHelpKey: #settingsGallery
-            #label: 'Gallery'
-            #translateLabel: true
-            #indication: #galleryShown
+         (MenuItem
+            activeHelpKey: settingsGallery
+            label: 'Gallery'
+            translateLabel: true
+            indication: galleryShown
           )
          )
         nil