diff -r c068f57da5ff -r 10e34346944b HierarchicalFileList.st --- a/HierarchicalFileList.st Tue Mar 21 19:15:35 2006 +0100 +++ b/HierarchicalFileList.st Tue Mar 21 20:59:55 2006 +0100 @@ -1202,23 +1202,15 @@ anItem parent:self. ]. ]. - "/ 12 is hardcoded !!!!!!!! + + unusedDict do:[:el| self remove:el ]. - (unusedDict size + addedItems size) > 12 ifTrue:[ - "/ generate two nofifications: collapse and expand - self collapse. - children := mergedList. - self expand. - ] ifFalse:[ - unusedDict do:[:el| self remove:el ]. - - addedItems notEmpty ifTrue:[ - self addAll:addedItems - ]. - "/ children order changed test - children := mergedList. - self childrenOrderChanged. + addedItems notEmpty ifTrue:[ + self addAll:addedItems ]. + "/ children order changed test + children := mergedList. + self childrenOrderChanged. ]. ! @@ -1252,7 +1244,7 @@ !HierarchicalFileList class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.60 2006-03-13 15:55:08 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.61 2006-03-21 19:59:55 cg Exp $' ! ! HierarchicalFileList::Directory initialize!