<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Hi all! :-)<div><br></div><div>I double-checked this. I don't think it is necessary.</div><div><br></div><div>In IndentingListItemMorph >> #colorToUse, the last line falls back to ListItemWrapper >> #preferredColor, which is the extension point for models via PluggableTreeViewSpec >> #nodeClass:.</div><div><br></div><div>You can try by changing ListItemWrapper >> #preferredColor from "nil" to "Color red". It just works as intended.</div><div><br></div><div>For the UI themes, I chose to use #color in instances of <span style="font-size: 13.3333px;line-height: 1.5">IndentingListItemMorph to hold the current theme's text color for items.</span></div><div><span style="font-size: 13.3333px;line-height: 1.5"><br></span></div><div><span style="font-size: 13.3333px;line-height: 1.5">Best,</span></div><div><span style="font-size: 13.3333px;line-height: 1.5">Marcel</span></div><div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 27.06.2019 14:16:17 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of Morphic was added to project The Inbox:<br>http://source.squeak.org/inbox/Morphic-pre.1491.mcz<br><br>==================== Summary ====================<br><br>Name: Morphic-pre.1491<br>Author: pre<br>Time: 27 June 2019, 2:15:55.295956 pm<br>UUID: 4b4c32a0-1907-0046-8d95-0b8adf1dcf6b<br>Ancestors: Morphic-pre.1489<br><br>Fixes a defect preventing colored line items in pluggable tree morphs. The infrastructure was already in place (see StringMorph>>#contents:), however, the ListMorph overrides the determined color later. This changes this overriding to be more conservative to preserve any pre-determined color.<br><br>=============== Diff against Morphic-pre.1489 ===============<br><br>Item was changed:<br> ----- Method: SimpleHierarchicalListMorph>>addMorphsTo:from:allowSorting:withExpandedItems:atLevel: (in category 'private') -----<br> addMorphsTo: morphList from: aCollection allowSorting: sortBoolean withExpandedItems: expandedItems atLevel: newIndent<br> <br> | priorMorph newCollection firstAddition |<br> priorMorph := nil.<br> newCollection := (sortBoolean and: [sortingSelector notNil]) ifTrue: [<br> aCollection sorted: [ :a :b | <br> (a perform: sortingSelector) <= (b="" perform:=""><!--=--><br> ] ifFalse: [<br> aCollection<br> ].<br> firstAddition := nil.<br> newCollection do: [:item | <br> priorMorph := self indentingItemClass basicNew <br> initWithContents: item <br> prior: priorMorph <br> forList: self<br> indentLevel: newIndent.<br> priorMorph<br>+ color: (priorMorph color ifNil: [self textColor]);<br>- color: self textColor;<br> font: self font;<br> selectionColor: self selectionColor;<br> selectionTextColor: self selectionTextColor;<br> hoverColor: self hoverColor;<br> highlightTextColor: self highlightTextColor;<br> filterColor: self filterColor;<br> filterTextColor: self filterTextColor.<br> firstAddition ifNil: [firstAddition := priorMorph].<br> morphList add: priorMorph.<br> ((item hasEquivalentIn: expandedItems) or: [priorMorph isExpanded]) ifTrue: [<br> priorMorph isExpanded: true.<br> priorMorph <br> addChildrenForList: self <br> addingTo: morphList<br> withExpandedItems: expandedItems.<br> ].<br> ].<br> ^firstAddition<br> <br> !<br><br>Item was changed:<br> ----- Method: SimpleHierarchicalListMorph>>addSubmorphsAfter:fromCollection:allowSorting: (in category 'private') -----<br> addSubmorphsAfter: parentMorph fromCollection: aCollection allowSorting: sortBoolean<br> <br> | priorMorph morphList newCollection |<br> priorMorph := nil.<br> newCollection := (sortBoolean and: [sortingSelector notNil]) ifTrue: [<br> aCollection sorted: [ :a :b | <br> (a perform: sortingSelector) <= (b="" perform:=""><!--=--><br> ] ifFalse: [<br> aCollection<br> ].<br> morphList := OrderedCollection new.<br> newCollection do: [:item | <br> priorMorph := self indentingItemClass basicNew <br> initWithContents: item <br> prior: priorMorph <br> forList: self<br> indentLevel: parentMorph indentLevel + 1.<br> priorMorph<br>+ color: (priorMorph color ifNil: [self textColor]);<br>- color: self textColor;<br> font: self font;<br> selectionColor: self selectionColor;<br> selectionTextColor: self selectionTextColor;<br> hoverColor: self hoverColor;<br> highlightTextColor: self highlightTextColor;<br> filterColor: self filterColor;<br> filterTextColor: self filterTextColor.<br> morphList add: priorMorph.<br> ].<br> scroller addAllMorphs: morphList after: parentMorph.<br> ^morphList<br> <br> !<br><br><br></div></blockquote></div>