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