--- a/TabListEditor.st	Mon Jun 29 16:59:23 1998 +0200
+++ b/TabListEditor.st	Mon Jun 29 17:01:33 1998 +0200
@@ -585,7 +585,7 @@
                 #activeHelpKey: #editMoveUp
                 #enabled: #canMoveTabItemUpOrDown
                 #argument: #up
-                #labelImage: #(#ResourceRetriever #ToolApplicationModel #upIcon 'Move Up')
+                #labelImage: #(#ResourceRetriever #Icon #upIcon 'Move Up')
             )
              #(#MenuItem
                 #label: 'Move Down'
@@ -593,7 +593,7 @@
                 #activeHelpKey: #editMoveDown
                 #enabled: #canMoveTabItemUpOrDown
                 #argument: #down
-                #labelImage: #(#ResourceRetriever #ToolApplicationModel #downIcon 'Move Down')
+                #labelImage: #(#ResourceRetriever #Icon #downIcon 'Move Down')
             )
           ) nil
           nil
@@ -624,21 +624,21 @@
                 #isButton: true
                 #value: #doNew
                 #activeHelpKey: #fileNew
-                #labelImage: #(#ResourceRetriever nil #newIcon)
+                #labelImage: #(#ResourceRetriever #Icon #newIcon)
             )
              #(#MenuItem
                 #label: 'Load'
                 #isButton: true
                 #value: #doLoad
                 #activeHelpKey: #fileLoad
-                #labelImage: #(#ResourceRetriever nil #loadIcon)
+                #labelImage: #(#ResourceRetriever #Icon #loadIcon)
             )
              #(#MenuItem
                 #label: 'Save'
                 #isButton: true
                 #value: #doSave
                 #activeHelpKey: #fileSave
-                #labelImage: #(#ResourceRetriever nil #saveIcon)
+                #labelImage: #(#ResourceRetriever #Icon #saveIcon)
             )
              #(#MenuItem
                 #label: ''
@@ -649,7 +649,7 @@
                 #value: #doCut
                 #activeHelpKey: #editCut
                 #enabled: #valueOfCanCut
-                #labelImage: #(#ResourceRetriever nil #cutIcon)
+                #labelImage: #(#ResourceRetriever #Icon #cutIcon)
             )
              #(#MenuItem
                 #label: 'Copy'
@@ -657,7 +657,7 @@
                 #value: #doCopy
                 #activeHelpKey: #editCopy
                 #enabled: #valueOfCanCopy
-                #labelImage: #(#ResourceRetriever nil #copyIcon)
+                #labelImage: #(#ResourceRetriever #Icon #copyIcon)
             )
              #(#MenuItem
                 #label: 'Paste'
@@ -665,7 +665,7 @@
                 #value: #doPaste
                 #activeHelpKey: #editPaste
                 #enabled: #valueOfCanPaste
-                #labelImage: #(#ResourceRetriever nil #pasteIcon)
+                #labelImage: #(#ResourceRetriever #Icon #pasteIcon)
             )
              #(#MenuItem
                 #label: 'Delete'
@@ -673,7 +673,7 @@
                 #value: #doDelete
                 #activeHelpKey: #editDelete
                 #enabled: #valueOfCanCut
-                #labelImage: #(#ResourceRetriever nil #deleteIcon)
+                #labelImage: #(#ResourceRetriever #Icon #deleteIcon)
             )
              #(#MenuItem
                 #label: ''
@@ -695,7 +695,7 @@
                 #activeHelpKey: #editMoveUp
                 #enabled: #canMoveTabItemUpOrDown
                 #argument: #up
-                #labelImage: #(#ResourceRetriever nil #upIcon)
+                #labelImage: #(#ResourceRetriever #Icon #upIcon)
             )
              #(#MenuItem
                 #label: 'Move Tab Down'
@@ -704,7 +704,7 @@
                 #activeHelpKey: #editMoveDown
                 #enabled: #canMoveTabItemUpOrDown
                 #argument: #down
-                #labelImage: #(#ResourceRetriever nil #downIcon)
+                #labelImage: #(#ResourceRetriever #Icon #downIcon)
             )
              #(#MenuItem
                 #label: ''