--- a/Tools_HierarchicalClassCategoryList.st	Fri Mar 05 21:01:03 2004 +0100
+++ b/Tools_HierarchicalClassCategoryList.st	Fri Mar 05 23:19:09 2004 +0100
@@ -10,6 +10,13 @@
 	category:'Interface-Browsers-New'
 !
 
+HierarchicalItem subclass:#ClassCategoryItem
+	instanceVariableNames:'label category'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:HierarchicalClassCategoryList
+!
+
 !HierarchicalClassCategoryList class methodsFor:'documentation'!
 
 documentation
@@ -352,8 +359,34 @@
     ].
 ! !
 
+!HierarchicalClassCategoryList::ClassCategoryItem methodsFor:'''accessing'''!
+
+category
+    "return the value of the instance variable 'category' (automatically generated)"
+
+    ^ category
+!
+
+category:something
+    "set the value of the instance variable 'category' (automatically generated)"
+
+    category := something.
+!
+
+icon
+    ^ nil "/ SystemBrowser packageIcon
+!
+
+label
+    ^ label
+!
+
+label:something
+    label := something.
+! !
+
 !HierarchicalClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.2 2004-02-26 19:03:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.3 2004-03-05 22:19:05 cg Exp $'
 ! !