Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1204.mcz
==================== Summary ====================
Name: Tools-mt.1204 Author: mt Time: 16 May 2023, 10:52:20.408174 am UUID: 2cd6d83a-7746-5942-b1e3-616b0ae9fc2d Ancestors: Tools-mt.1203
In TreeBrowser, fixes performance bug in #expandClassTree. Also expand all non-extension protocols automatically.
=============== Diff against Tools-mt.1203 ===============
Item was changed: ----- Method: TreeBrowser>>expandClassTree (in category 'class tree - support') ----- expandClassTree "Expand full class hierarchy for specific categories, top-level only for the '-- all --' category."
self isShowingAllClasses ifTrue: [self changed: #expandNodeRequested with: {#classChildren:. ProtoObject}] ifFalse: [(self classTreeExpanded not and: [lastClassList size <= self class classTreeAutoExpandLimit]) + ifTrue: [self changed: #expandAllNodesRequested with: #classChildren:]]! - ifTrue: [self classRoots do: [:ea | self changed: #expandAllNodesRequested with: #classChildren:]]]!
Item was added: + ----- Method: TreeBrowser>>expandMessageCategoryTree (in category 'message category tree - support') ----- + expandMessageCategoryTree + "Expand all non-extension groups. Typically, there are only a few groups so browsing should be possible without having to filter or manually expand non-extension groups." + + self messageCategoryRoots do: [:ea | + ea first ~= $- "not -- all --, -- core --, -- extensions --" + ifTrue: [self changed: #expandAllNodesRequested with: {#messageCategoryChildren:. ea}]]!
Item was changed: ----- Method: TreeBrowser>>updateMessageCategoryTree: (in category 'updating') ----- updateMessageCategoryTree: newList
lastMessageCategoryList := newList. + self changed: #messageCategoryRoots. + self expandMessageCategoryTree.! - self changed: #messageCategoryRoots.!
packages@lists.squeakfoundation.org