Hi Timothy,
which time stamp does SimpleHierarchicalListMorph >> drawLinesOn: have in
your image? It seems rather old to me. The current version is mt 4/22/2016
10:52 :
SimpleHierarchicalListMorph >> drawLinesOn: aCanvas
| lColor |
lColor := self lineColor.
aCanvas
transformBy: scroller transform
clippingTo: scroller innerBounds
during:[:clippedCanvas |
scroller submorphsDo: [ :submorph |
(submorph visible and: [(submorph isExpanded
or: [clippedCanvas isVisible: submorph fullBounds] )
or: [ submorph nextSibling notNil and: [clippedCanvas isVisible:
submorph nextSibling fullBounds]]])
ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor
indentThreshold: 0] ] ]
smoothing: scroller smoothing.
Best, Marcel