Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1215.mcz
==================== Summary ====================
Name: Tools-ct.1215 Author: ct Time: 3 June 2023, 7:04:29.849136 pm UUID: ab8c72a8-6e42-3d40-9fa1-9c5c3e02d775 Ancestors: Tools-ct.1213
Proposal: Double-click a class or trait in hierarchy tree browser to switch the central class.
=============== Diff against Tools-ct.1213 ===============
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:; + doubleClick: #doubleClickClassChild:; 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>>doubleClickClassChild: (in category 'class tree') ----- + doubleClickClassChild: aClassNotMeta + + self isHierarchy ifFalse: [^ false]. + self hasClassSelected ifFalse: [^ false]. + self initHierarchyFor: self selectedClassOrMetaClass. + ^ true!
packages@lists.squeakfoundation.org