--- 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: ''