# HG changeset patch
# User tz
# Date 888598469 -3600
# Node ID bb247cc428c3e2d9b5da3e21b5ee1210ee628392
# Parent  0530a994f2c8d57dc12f0297d7621b78cd05c1a5
also return resource selectors from private classes

diff -r 0530a994f2c8 -r bb247cc428c3 ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Fri Feb 27 17:17:22 1998 +0100
+++ b/ResourceSelectionBrowser.st	Fri Feb 27 17:54:29 1998 +0100
@@ -497,11 +497,14 @@
     cls isNil ifTrue: [^self warn: 'May not create class with superclass ', 'nil' asBoldText, '!!'].
 
     what = 'private' 
-        ifFalse: [cls subclass: clsCandidat
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        category: cls category.]
+    ifFalse: 
+    [
+        cls subclass: clsCandidat
+            instanceVariableNames:''
+            classVariableNames:''
+            poolDictionaries:''
+            category: cls category
+    ]
     ifTrue:
     [
         |superClsCandidate|
@@ -525,7 +528,7 @@
         ifTrue:  [self selectionOfClass value parent changed: #children]
         ifFalse: [self selectionOfClass value changed: #children].
 
-    classSelectionBlock value: self valueOfClassName value
+    classSelectionBlock value: self valueOfClassName value 
 !
 
 resourceDoubleClicked
@@ -546,7 +549,7 @@
 
 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes
 
-    |cls sel|
+    |cls clsName|
     resourceMethod := aSelector.
     resourceTypes := aResourceTypes.
     resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
@@ -559,12 +562,14 @@
 
     self open.
 
+    clsName := (self selectionOfClass value name upTo: $ ) asSymbol.
+
     (self selectionOfClass value notNil and:
-    [(cls := Smalltalk at: self selectionOfClass value name) isClass and:
+    [(cls := Smalltalk at: clsName) isClass and:
     [accept value]]) 
     ifTrue:
-    [
-        ^self valueOfClassName value, ' ', self valueOfSelector value
+    [            
+        ^clsName, ' ', self valueOfSelector value
     ].
     ^nil
 ! !