Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2074.mcz
==================== Summary ====================
Name: Morphic-mt.2074 Author: mt Time: 26 January 2023, 10:17:17.173707 am UUID: 86716017-7fb9-0a4f-8636-4cad85f37d89 Ancestors: Morphic-mt.2073
Complement ToolBuilder-Morphic-mt.325
=============== Diff against Morphic-mt.2073 ===============
Item was added: + ----- Method: SimpleHierarchicalListMorph>>doubleClickEnabled (in category 'accessing') ----- + doubleClickEnabled + + ^ false!
Item was changed: ----- Method: SimpleHierarchicalListMorph>>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: 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