equal
deleted
inserted
replaced
648 "/ leading to a square runtime behavior |
648 "/ leading to a square runtime behavior |
649 "/ - i.e. very slow scrolling ) |
649 "/ - i.e. very slow scrolling ) |
650 "/ Speed up things by caching facts while enumerating |
650 "/ Speed up things by caching facts while enumerating |
651 "/ classes once only. |
651 "/ classes once only. |
652 |
652 |
653 |allClasses topClass childrenPerCategory privateClasses| |
653 |topClass childrenPerCategory privateClasses| |
654 |
654 |
655 topClass := self treeViewClassHierarchyContents. |
655 topClass := self treeViewClassHierarchyContents. |
656 allClasses := topClass withAllSubclasses. |
|
657 privateClasses := IdentitySet new. |
656 privateClasses := IdentitySet new. |
658 |
657 |
659 childrenPerCategory := Dictionary new. |
658 childrenPerCategory := Dictionary new. |
660 allClasses do:[:cls | |
659 |
|
660 topClass withAllSubclassesDo:[:cls | |
661 |cat set| |
661 |cat set| |
662 |
662 |
663 cls isPrivate ifFalse:[ |
663 cls isPrivate ifFalse:[ |
664 cat := cls category. |
664 cat := cls category. |
665 set := childrenPerCategory at:cat ifAbsent:nil. |
665 set := childrenPerCategory at:cat ifAbsent:nil. |
1018 |
1018 |
1019 !ResourceSelectionBrowser class methodsFor:'documentation'! |
1019 !ResourceSelectionBrowser class methodsFor:'documentation'! |
1020 |
1020 |
1021 version |
1021 version |
1022 ^ '$Header$' |
1022 ^ '$Header$' |
1023 ! ! |
1023 ! |
|
1024 |
|
1025 version_CVS |
|
1026 ^ '$Header$' |
|
1027 ! ! |