Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1199.mcz
==================== Summary ====================
Name: Tools-mt.1199 Author: mt Time: 17 April 2023, 11:26:34.910908 am UUID: 5af9f4ac-26cf-6f49-9204-50e1326226cf Ancestors: Tools-mt.1198
Complement Morphic-mt.2105
=============== Diff against Tools-mt.1198 ===============
Item was changed: ----- Method: TreeBrowser>>buildClassListWith: (in category 'toolbuilder') ----- buildClassListWith: builder
| tree | tree := builder pluggableTreeSpec new. tree model: self; roots: #classRoots; label: #classLabel:; getChildren: #classChildren:; hasChildren: #classHasChildren:; + autoExpand: #classTreeExpanded; help: #classHelpAt:; getSelectedPath: #classPath; getSelected: #classChild; setSelected: #classChild:; icon: #classIcon:; menu: #classListMenu:shifted:; keyPress: #classListKey:from:; filterMode: #visible; "not #all bc. class-tree is too deep, which makes filtering slow" searchMode: #depthFirst. SystemBrowser browseWithDragNDrop ifTrue: [ tree dragItem: #dragFromClassTree:; dragType: #dragTypeForClassTreeAt:]. ^ tree!
Item was added: + ----- Method: TreeBrowser>>classTreeExpanded (in category 'class tree') ----- + classTreeExpanded + + ^ self selectedSystemCategory ~= SystemOrganizer allCategory !
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 selectedSystemCategory = SystemOrganizer allCategory + " ifFalse: [self classRoots do: [:ea | self changed: #expandAllNodesRequested with: #classChildren:]]" - ifFalse: [self classRoots do: [:ea | self changed: #expandAllNodesRequested with: #classChildren:]] ifTrue: [self changed: #expandNodeRequested with: {#classChildren:. ProtoObject}].!
Item was changed: ----- Method: TreeBrowser>>updateClassTree: (in category 'updating') ----- updateClassTree: newList
lastClassList := newList. + self changed: #classTreeExpanded. self changed: #classRoots. self expandClassTree. self changed: #classChild.!
squeak-dev@lists.squeakfoundation.org