--- a/ResourceSelectionBrowser.st Wed Apr 08 13:16:21 1998 +0200
+++ b/ResourceSelectionBrowser.st Thu Apr 09 13:35:35 1998 +0200
@@ -452,7 +452,7 @@
[
|clsName|
resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes].
- clsName := ((self listOfClassesView list at: anIndex) upTo: $ ) asSymbol.
+ clsName := ((self listOfClassesView list at: anIndex) printString upTo: $ ) asSymbol.
self valueOfClassName value: clsName.
self class lastSelection: clsName.
self listOfResources contents:
@@ -592,11 +592,13 @@
].
foundClass notNil
ifTrue:
- [
- self listOfClassesView
- selectFromListOfNames: (foundClass
- withAllSuperclasses reverse collect: [:cls| cls name asString]);
- selectedNodeExpand: true
+ [|item|
+ item := self listOfClasses
+ detectChild:[:child :arg| child contents == arg ]
+ arguments:(foundClass withAllSuperclasses reverse).
+ item notNil ifTrue:[
+ self selectionOfClass value:item
+ ]
].
self valueOfClassName value: clsPattern
].