equal
deleted
inserted
replaced
1200 ] ifFalse:[ |
1200 ] ifFalse:[ |
1201 addedItems add:anItem. |
1201 addedItems add:anItem. |
1202 anItem parent:self. |
1202 anItem parent:self. |
1203 ]. |
1203 ]. |
1204 ]. |
1204 ]. |
1205 "/ 12 is hardcoded !!!!!!!! |
1205 |
1206 |
1206 unusedDict do:[:el| self remove:el ]. |
1207 (unusedDict size + addedItems size) > 12 ifTrue:[ |
1207 |
1208 "/ generate two nofifications: collapse and expand |
1208 addedItems notEmpty ifTrue:[ |
1209 self collapse. |
1209 self addAll:addedItems |
1210 children := mergedList. |
|
1211 self expand. |
|
1212 ] ifFalse:[ |
|
1213 unusedDict do:[:el| self remove:el ]. |
|
1214 |
|
1215 addedItems notEmpty ifTrue:[ |
|
1216 self addAll:addedItems |
|
1217 ]. |
|
1218 "/ children order changed test |
|
1219 children := mergedList. |
|
1220 self childrenOrderChanged. |
|
1221 ]. |
1210 ]. |
|
1211 "/ children order changed test |
|
1212 children := mergedList. |
|
1213 self childrenOrderChanged. |
1222 ]. |
1214 ]. |
1223 ! |
1215 ! |
1224 |
1216 |
1225 updateList |
1217 updateList |
1226 |
1218 |
1250 ! ! |
1242 ! ! |
1251 |
1243 |
1252 !HierarchicalFileList class methodsFor:'documentation'! |
1244 !HierarchicalFileList class methodsFor:'documentation'! |
1253 |
1245 |
1254 version |
1246 version |
1255 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.60 2006-03-13 15:55:08 cg Exp $' |
1247 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.61 2006-03-21 19:59:55 cg Exp $' |
1256 ! ! |
1248 ! ! |
1257 |
1249 |
1258 HierarchicalFileList::Directory initialize! |
1250 HierarchicalFileList::Directory initialize! |