--- a/ResourceSelectionBrowser.st Wed Apr 07 21:41:52 2004 +0200
+++ b/ResourceSelectionBrowser.st Thu Apr 15 10:39:51 2004 +0200
@@ -752,14 +752,11 @@
1 to: clsPattern size do: [:i|
classes := classes select: [:cls| (cls name at: i) == (clsPattern at: i)].
].
- foundClass := classes at: 1 ifAbsent: [nil]
+ foundClass := classes at: 1 ifAbsent:[].
].
foundClass notNil ifTrue: [
- foundClass isLoaded ifFalse:[
- foundClass autoload.
- foundClass := Smalltalk at:foundClass name.
- ].
+ foundClass := foundClass autoload.
ClassPresentation = #'Class Hierarchy' ifTrue: [
|searchArgs nonSuperclasses hierItem|
@@ -775,8 +772,7 @@
hierItem notNil ifTrue:[
self selectionOfClassHierarchy value:hierItem.
].
- ]
- ifFalse: [
+ ] ifFalse: [
|searchArgs hierItem|
false "foundClass isPrivate"