--- a/ResourceSelectionBrowser.st	Thu Jan 29 14:06:26 1998 +0100
+++ b/ResourceSelectionBrowser.st	Thu Jan 29 15:29:00 1998 +0100
@@ -59,7 +59,7 @@
         onSuperclass: #ApplicationModel 
         andClass: #ToolApplicationModel 
         andSelector: #saveIcon 
-        withResourceTypes: #(canvas menu image) 
+        withResourceTypes: #(image) 
     "
 
     ^self new
@@ -280,7 +280,7 @@
     self withWaitCursorDo:
     [
         |clsName|
-        resourceTypes isNil ifTrue: [resourceTypes := #(canvas menu image fileImage)].
+        resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes].
         clsName := self listOfClassesView list at: anIndex.
         self valueOfClassName value: clsName.
         self class lastSelection: clsName.
@@ -288,7 +288,7 @@
             ((Smalltalk at: clsName) 
                 class methodDictionary
                 asOrderedCollection select: 
-                    [:m| m resources notNil and: [resourceTypes includes: m resourceType]]).
+                    [:m|m resources notNil and: [resourceTypes includes: m resourceType]]).
     ]
 !
 
@@ -311,7 +311,7 @@
 
     |classSelection classSelectionBlock|
     allClasses := Smalltalk allClasses asArray.
-    classSelection := self class lastSelection ? resourceClass ? #Object.
+    classSelection :=  resourceClass ? self class lastSelection ? #Object.
     classSelectionBlock := 
     [:clsPattern|                                  
         |foundClass classes|         
@@ -336,6 +336,7 @@
     ].
     classSelectionBlock value: classSelection.
     self valueOfClassName value: classSelection.
+    self selectionOfResource value: (self listOfResources detect: [:m| m who methodSelector == resourceMethod] ifNone: nil).
     self classNameInputField entryCompletionBlock:
     [:value|
         |what|
@@ -353,6 +354,7 @@
 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes
 
     |cls sel|
+    resourceMethod := aSelector.
     resourceTypes := aResourceTypes.
     resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
     resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol].
@@ -367,8 +369,6 @@
         ^cls name, ' ', self valueOfSelector value
     ].
     ^nil
-
-    "Modified: / 26.1.1998 / 22:26:50 / stefan"
 ! !
 
 !ResourceSelectionBrowser methodsFor:'startup / release'!