--- a/HierarchicalList.st	Sat Apr 01 16:28:46 2000 +0200
+++ b/HierarchicalList.st	Mon Apr 03 17:05:57 2000 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libwidg2' }"
+
 List subclass:#HierarchicalList
 	instanceVariableNames:'recursionLock root showRoot application monitoringTask
 		monitoringTaskDelay'
@@ -201,13 +203,6 @@
     ^ super initContents:aSize.
 !
 
-isHierarchicalItem
-    "used to decide if the parent is a hierarchical item
-     or the model
-    "
-    ^ false
-!
-
 itemAddAll:aListOfItems beforeIndex:anIndex
     "insert all items before an index
     "
@@ -339,5 +334,5 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.7 2000-03-11 12:20:43 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.8 2000-04-03 15:05:57 ca Exp $'
 ! !