--- a/HierarchicalListView.st	Thu Dec 02 18:31:40 2010 +0100
+++ b/HierarchicalListView.st	Sat Dec 04 08:25:25 2010 +0100
@@ -977,6 +977,8 @@
 
     |item yNext|
 
+    UserPreferences current showDottedLinesInTree ifFalse:[^ self].
+
     item := list at:start ifAbsent:[^ nil ].
 
     self paint:lineColor on:bgColor.
@@ -1041,6 +1043,8 @@
 
     self lineStyle:#solid.
     self mask:nil.
+
+    "Modified: / 03-12-2010 / 19:28:23 / cg"
 !
 
 drawVericalLineForElement:item minX:xL maxX:xR
@@ -1691,9 +1695,9 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.123 2010-12-02 17:31:40 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.124 2010-12-04 07:25:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.123 2010-12-02 17:31:40 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.124 2010-12-04 07:25:25 cg Exp $'
 ! !