--- a/Tools__HierarchicalClassCategoryList.st	Sun Jan 12 23:30:25 2014 +0000
+++ b/Tools__HierarchicalClassCategoryList.st	Wed Apr 01 10:38:01 2015 +0100
@@ -132,6 +132,7 @@
      (if this app is embedded in a subCanvas)."
 
     ^ #(
+        environmentHolder
         #(#doubleClickChannel #action )
         #forceGeneratorTrigger
         #hideUnloadedClasses
@@ -150,6 +151,7 @@
       ).
 
     "Modified: / 20-07-2011 / 14:29:15 / cg"
+    "Modified: / 24-02-2014 / 10:38:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HierarchicalClassCategoryList methodsFor:'aspects'!
@@ -159,22 +161,22 @@
 
     item:= categoryToItemDictionary at:category ifAbsent:nil.
     item isNil ifTrue:[
-	path := category asCollectionOfSubstringsSeparatedBy:$-.
+        path := category asCollectionOfSubstringsSeparatedBy:$-.
 
-	item := ClassCategoryItem new.
-	item category:category.
-	item label:(path last).
-	categoryToItemDictionary at:category put:item.
+        item := ClassCategoryItem new.
+        item category:category.
+        item label:(path last).
+        categoryToItemDictionary at:category put:item.
 
-	category size > 0 ifTrue:[
-	    "/ find the parent ...
-	    parentPath := path copyButLast:1.
-	    parentCategory := parentPath asStringWith:$-.
+        category size > 0 ifTrue:[
+            "/ find the parent ...
+            parentPath := path copyButLast.
+            parentCategory := parentPath asStringWith:$-.
 
-	    parentItem := self addCategory:parentCategory .
+            parentItem := self addCategory:parentCategory .
 
-	    parentItem add:item sortBlock:[:i1 :i2 | i1 category asLowercase < i2 category asLowercase].
-	]
+            parentItem add:item sortBlock:[:i1 :i2 | i1 category asLowercase < i2 category asLowercase].
+        ]
     ].
     ^ item
 !
@@ -212,16 +214,16 @@
     |anchor |
 
     hierarchicalCategoryList isNil ifTrue:[
-	hierarchicalCategoryList := HierarchicalList new.
-	hierarchicalCategoryList showRoot:false.
+        hierarchicalCategoryList := HierarchicalList new.
+        hierarchicalCategoryList showRoot:false.
 
-	(self slaveMode value ~~ true) ifTrue:[
-	    anchor := self generateHierarchicalCategoryTree.
-	    hierarchicalCategoryList root:anchor.
-	    listValid := true
-	] ifFalse:[
-	    listValid := false
-	]
+        (self slaveMode value ~~ true) ifTrue:[
+            anchor := self generateHierarchicalCategoryTree.
+            hierarchicalCategoryList root:anchor.
+            self setListValid:true.
+        ] ifFalse:[
+            self setListValid:false
+        ]
     ].
     ^ hierarchicalCategoryList
 !
@@ -402,19 +404,10 @@
 !HierarchicalClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.10 2013-04-25 13:10:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalClassCategoryList.st,v 1.13 2014-11-19 21:41:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.10 2013-04-25 13:10:14 stefan Exp $'
-!
-
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
-!
-
-version_SVN
-    ^ '$Id: Tools__HierarchicalClassCategoryList.st 8083 2013-01-14 11:48:37Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalClassCategoryList.st,v 1.13 2014-11-19 21:41:19 cg Exp $'
 ! !