--- a/HierarchicalItem.st	Mon Feb 05 10:52:21 2007 +0100
+++ b/HierarchicalItem.st	Fri Feb 23 12:16:05 2007 +0100
@@ -1537,12 +1537,6 @@
     ^ self hasChildren
 !
 
-isDirectoryItem
-    ^ false
-
-    "Created: / 23-06-2006 / 12:47:05 / fm"
-!
-
 isSelectable
     "returns true if the item is selectable otherwise false
     "
@@ -1600,6 +1594,13 @@
     ^ isExpanded not
 !
 
+isDirectoryItem
+    ^ false
+
+    "Created: / 23-06-2006 / 12:47:05 / fm"
+    "Modified: / 23-02-2007 / 12:04:23 / User"
+!
+
 isExpanded
     "returns true if the item is expanded"
 
@@ -1908,5 +1909,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.80 2007-01-12 17:40:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.81 2007-02-23 11:16:05 fm Exp $'
 ! !