# HG changeset patch
# User ca
# Date 892121735 -7200
# Node ID bb413a70f47969c2124d7ae4dee357c96d0c444a
# Parent  2ef5b8bed9140fb1b6a36371c135c9c8c2cd4a6c
get node to be selected from model

diff -r 2ef5b8bed914 -r bb413a70f479 ResourceSelectionBrowser.st
--- 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
     ].