--- a/Tools_MethodList.st	Thu Aug 17 09:48:38 2006 +0200
+++ b/Tools_MethodList.st	Thu Aug 17 09:48:50 2006 +0200
@@ -1164,47 +1164,9 @@
 !
 
 resourceIconForMethod:aMethod
-    |resources|
+    ^ SystemBrowser resourceIconForMethod:aMethod
 
-    (resources := aMethod resources) notNil ifTrue:[
-        (resources includesKey:#obsolete) ifTrue:[
-            ^ self deprecatedMethodIcon
-        ].
-        (resources includesKey:#canvas) ifTrue:[
-            ^ self canvasIcon
-        ].
-        (resources includesKey:#menu) ifTrue:[
-            ^ self menuIcon
-        ].
-        (resources includesKey:#image) ifTrue:[
-            ^ self imageIcon
-        ].
-        (resources includesKey:#fileImage) ifTrue:[
-            ^ self fileImageIcon
-        ].
-        (resources includesKey:#programImage) ifTrue:[
-            ^ self programImageIcon
-        ].
-        (resources includesKey:#help) ifTrue:[
-            ^ self helpIcon
-        ].
-        (resources includesKey:#programMenu) ifTrue:[
-            ^ self programMenuIcon
-        ].
-        (resources includesKey:#tableColumns) ifTrue:[
-            ^ self tableColumnsIcon 
-        ].
-        (resources includesKey:#tabList) ifTrue:[
-            ^ self tabListIcon 
-        ].
-        (resources includesKey:#hierarchicalList) ifTrue:[
-            ^ self hierarchicalListIcon 
-        ].
-        (resources includesKey:#programImage) ifTrue:[
-            ^ self programImageIcon 
-        ]
-    ].
-    ^ nil
+    "Modified: / 17-08-2006 / 09:09:01 / cg"
 !
 
 setOfAllSelectorsImplementedBelow:aClass
@@ -1529,5 +1491,5 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.21 2006-08-07 10:16:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.22 2006-08-17 07:48:50 cg Exp $'
 ! !