--- a/HierarchicalListView.st	Mon Jul 03 12:31:11 2006 +0200
+++ b/HierarchicalListView.st	Mon Jul 03 12:32:48 2006 +0200
@@ -900,6 +900,8 @@
             icon displayOn:self x:xIndc y:(yCtr - offIndcY)
         ].
     ].
+
+    "Modified: / 23-06-2006 / 12:49:26 / fm"
 !
 
 drawLinesFrom:start to:stop x:xL y:yT toX:xR
@@ -1336,13 +1338,18 @@
     ].
 
     anItem hasChildren ifFalse:[
-        ^ icons at:#empty ifAbsentPut:[ self imageOnMyDevice:(self class emptyIcon) ]
+        anItem isDirectoryItem ifFalse:[
+            ^ icons at:#empty ifAbsentPut:[ self imageOnMyDevice:(self class emptyIcon) ]
+        ].
+        ^ icons at:#collapsed ifAbsentPut:[ self imageOnMyDevice:(self class collapsedIcon) ].
     ].
 
     anItem isExpanded ifTrue:[
         ^ icons at:#expanded ifAbsentPut:[ self imageOnMyDevice:(self class expandedIcon) ].
     ].
     ^ icons at:#collapsed ifAbsentPut:[ self imageOnMyDevice:(self class collapsedIcon) ].
+
+    "Modified: / 23-06-2006 / 12:47:33 / fm"
 !
 
 lineHeightFor:anItem
@@ -1644,5 +1651,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.103 2006-03-16 19:43:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.104 2006-07-03 10:32:48 fm Exp $'
 ! !