<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>