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