# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1121423555 -7200
# Node ID 7471cdbd32056d77c9f28a1441c637397ba9eb14
# Parent  f5e8dfe308387d117576ea30a65b5fcf9db12d4a
update fix

diff -r f5e8dfe30838 -r 7471cdbd3205 ResourceSelectionBrowser.st
--- 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