Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.325.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.325 Author: mt Time: 26 January 2023, 10:16:05.732707 am UUID: 5a111852-b783-a84a-a916-baffdb42a7b3 Ancestors: ToolBuilder-Morphic-mt.324
Remove some code duplication in SimpleHierarchicalListMorph and PluggableTreeMorph.
=============== Diff against ToolBuilder-Morphic-mt.324 ===============
Item was removed: - ----- Method: PluggableTreeMorph>>mouseDown: (in category 'event handling') ----- - mouseDown: evt - | aMorph selectors | - - aMorph := self itemFromPoint: evt position. - evt yellowButtonPressed "First check for option (menu) click" - ifTrue: [ - (PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [ - aMorph == selectedMorph - ifFalse: [self setSelectedMorph: aMorph]]. - ^ self yellowButtonActivity: evt shiftPressed]. - (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) - ifTrue:[^self toggleExpandedState: aMorph event: evt]. - aMorph ifNil:[^super mouseDown: evt]. - - aMorph highlightForMouseDown. - self setProperty: #highlightedMorph toValue: aMorph. - - selectors := Array - with: #click: - with: (self doubleClickEnabled ifTrue: [#doubleClick:] ifFalse: [nil]) - with: nil - with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). - evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".!
squeak-dev@lists.squeakfoundation.org