use isDirectoryItem to allow for drawing of empty directories
with a directory-icon.
--- 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 $'
! !