--- a/ResourceSelectionBrowser.st	Fri Jul 15 11:35:08 2005 +0200
+++ b/ResourceSelectionBrowser.st	Fri Jul 15 12:32:35 2005 +0200
@@ -730,13 +730,13 @@
 
     |sel|
 
-"/    ClassPresentation = #'Class Hierarchy'
+    ClassPresentation = #'Class Hierarchy'
 "/        ifTrue:  [sel := self selectionOfClassHierarchy value]
-"/        ifFalse: [sel := self selectionOfClassCategories value].
-"/
-"/    sel notNil ifTrue:[
-"/        resourceClass := sel name.
-"/    ].
+        ifFalse: [sel := self selectionOfClassCategories value].
+
+    sel notNil ifTrue:[
+        resourceClass := sel name.
+    ].
     self updateResourceMethodList.
 !
 
@@ -757,6 +757,7 @@
 
     foundClass notNil ifTrue: [           
         foundClass := foundClass autoload.
+        resourceClass := foundClass name.
 
         ClassPresentation = #'Class Hierarchy' ifTrue: [
             |searchArgs nonSuperclasses hierItem|
@@ -785,7 +786,8 @@
             ].
         ].
     ].
-    self valueOfClassName value: clsPattern
+    self valueOfClassName value: clsPattern.
+    self updateResourceMethodList.
 !
 
 resourceDoubleClicked