--- a/HierarchicalItem.st	Fri May 19 19:09:20 2006 +0200
+++ b/HierarchicalItem.st	Mon Jul 03 12:31:11 2006 +0200
@@ -1538,6 +1538,12 @@
     ^ self hasChildren
 !
 
+isDirectoryItem
+    ^ false
+
+    "Created: / 23-06-2006 / 12:47:05 / fm"
+!
+
 isSelectable
     "returns true if the item is selectable otherwise false
     "
@@ -1899,5 +1905,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.76 2006-03-06 08:39:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.77 2006-07-03 10:31:11 fm Exp $'
 ! !