--- a/ResourceSelectionBrowser.st Tue Feb 03 00:33:23 1998 +0100
+++ b/ResourceSelectionBrowser.st Tue Feb 03 12:13:51 1998 +0100
@@ -51,10 +51,6 @@
[author:]
Thomas Zwick
"
-!
-
-history
- "Created: / 10.1.1998 / 10:59:18 / tz"
! !
!ResourceSelectionBrowser class methodsFor:'instance creation'!
@@ -320,7 +316,7 @@
postBuildWith:aBuilder
|classSelection classSelectionBlock|
- allClasses := Smalltalk allClasses asArray.
+ allClasses := Object withAllSubclasses.
classSelection := resourceClass ? self class lastSelection ? #Object.
classSelectionBlock :=
[:clsPattern|