<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><meta content="text/html;charset=UTF-8" http-equiv="Content-Type"></head><body ><div style='font-size:10pt;font-family:Verdana,Arial,Helvetica,sans-serif;'><br><blockquote style="border: 1px solid rgb(204, 204, 204); padding: 7px; background-color: rgb(245, 245, 245);"><div>Hi Timothy, <br> <br>which time stamp does SimpleHierarchicalListMorph >> drawLinesOn: have in <br>your image? It seems rather old to me. The current version is mt 4/22/2016 <br>10:52 : </div></blockquote> <br>Bingo.<br><br>I installed the BabyIDE and that set it back to TRee 3/25/2008<br><br>I will revert now.<br><br>thanks! <br><div class="zmail_extra"><div id="1"><br>---- On Fri, 27 May 2016 10:12:12 -0400 <b>marcel.taeumel <Marcel.Taeumel@hpi.de></b> wrote ---- <br></div><blockquote style="border-left: 1px solid #0000FF;padding-left: 6px; margin: 0 0 0 5px"><div><br> <br>SimpleHierarchicalListMorph >> drawLinesOn: aCanvas <br> <br> | lColor | <br> lColor := self lineColor. <br> aCanvas <br> transformBy: scroller transform <br> clippingTo: scroller innerBounds <br> during:[:clippedCanvas | <br> scroller submorphsDo: [ :submorph | <br> (submorph visible and: [(submorph isExpanded <br> or: [clippedCanvas isVisible: submorph fullBounds] ) <br> or: [ submorph nextSibling notNil and: [clippedCanvas isVisible: <br>submorph nextSibling fullBounds]]]) <br> ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor <br>indentThreshold: 0] ] ] <br> smoothing: scroller smoothing. <br> <br> <br>Best, Marcel <br> <br> <br> <br></div></blockquote><br></div><br></div></body></html>