hg/stx-libtool: comparison Tools_HierarchicalClassCategoryList.st

equal deleted inserted replaced

-:2759bbb8d06b
+:f29ee6d1349e
 addCategory:category
 |item path parentPath parentCategory parentItem|
 item:= categoryToItemDictionary at:category ifAbsent:nil.
 item isNil ifTrue:[
-	path := category asCollectionOfSubstringsSeparatedBy:$-.
+path := category asCollectionOfSubstringsSeparatedBy:$-.
-	item := ClassCategoryItem new.
+item := ClassCategoryItem new.
-	item category:category.
+item category:category.
-	item label:(path last).
+item label:(path last).
-	categoryToItemDictionary at:category put:item.
+categoryToItemDictionary at:category put:item.
-	category size > 0 ifTrue:[
+category size > 0 ifTrue:[
-	    "/ find the parent ...
+"/ find the parent ...
-	    parentPath := path copyWithoutLast:1.
+parentPath := path copyButLast:1.
-	    parentCategory := parentPath asStringWith:$-.
+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
 !
 generateHierarchicalCategoryTree
 ! !
 !HierarchicalClassCategoryList class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.9 2011-07-20 12:54:09 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.10 2013-04-25 13:10:14 stefan Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.9 2011-07-20 12:54:09 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassCategoryList.st,v 1.10 2013-04-25 13:10:14 stefan Exp $'
 ! !

changeset 12703	f29ee6d1349e
parent 10350	2e6715c12e41
child 14019	bf03aea592f9