--- a/ResourceSelectionBrowser.st Thu Feb 04 16:48:47 2010 +0100
+++ b/ResourceSelectionBrowser.st Thu Feb 04 16:50:22 2010 +0100
@@ -650,14 +650,14 @@
"/ Speed up things by caching facts while enumerating
"/ classes once only.
- |allClasses topClass childrenPerCategory privateClasses|
+ |topClass childrenPerCategory privateClasses|
topClass := self treeViewClassHierarchyContents.
- allClasses := topClass withAllSubclasses.
privateClasses := IdentitySet new.
childrenPerCategory := Dictionary new.
- allClasses do:[:cls |
+
+ topClass withAllSubclassesDo:[:cls |
|cat set|
cls isPrivate ifFalse:[
@@ -1020,4 +1020,8 @@
version
^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
! !