Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1901.mcz
==================== Summary ====================
Name: Morphic-ct.1901 Author: ct Time: 19 February 2022, 2:31:39.2209 am UUID: ef808e6c-aebf-0a40-91be-2333a8c7bc3b Ancestors: Morphic-mt.1900
Fixes regression with custom text attributes in tree widgets. Complements Morphic-mt.1594. Yes, we should really deduplicate #addMorphsTo:from:allowSorting:withExpandedItems:atLevel: and #addSubmorphsAfter:fromCollection:allowSorting:. :-)
=============== Diff against Morphic-mt.1900 ===============
Item was changed: ----- Method: SimpleHierarchicalListMorph>>addSubmorphsAfter:fromCollection:allowSorting: (in category 'private') ----- addSubmorphsAfter: parentMorph fromCollection: aCollection allowSorting: sortBoolean
| priorMorph morphList newCollection | priorMorph := nil. newCollection := (sortBoolean and: [sortingSelector notNil]) ifTrue: [ aCollection sorted: [ :a :b | (a perform: sortingSelector) <= (b perform: sortingSelector)] ] ifFalse: [ aCollection ]. morphList := OrderedCollection new. newCollection do: [:item | priorMorph := self indentingItemClass basicNew initWithContents: item prior: priorMorph forList: self indentLevel: parentMorph indentLevel + 1. priorMorph + initWithColor: self textColor + andFont: self font. + priorMorph - color: self textColor; - font: self font; selectionColor: self selectionColor; selectionTextColor: self selectionTextColor; hoverColor: self hoverColor; highlightTextColor: self highlightTextColor; filterColor: self filterColor; filterTextColor: self filterTextColor; wantsYellowButtonMenu: false. morphList add: priorMorph. ]. scroller addAllMorphs: morphList after: parentMorph. + ^morphList! - ^morphList - - !
packages@lists.squeakfoundation.org