equal
deleted
inserted
replaced
998 !HierarchicalFileList::Directory methodsFor:'private'! |
998 !HierarchicalFileList::Directory methodsFor:'private'! |
999 |
999 |
1000 flushChildren |
1000 flushChildren |
1001 "flush the children because the node is going to be invisible." |
1001 "flush the children because the node is going to be invisible." |
1002 |
1002 |
1003 self knownToHaveChildren:(children size ~~ 0). |
1003 children notNil ifTrue:[ |
1004 children := nil. |
1004 self knownToHaveChildren:(children size ~~ 0). |
|
1005 children := nil. |
|
1006 ] ifFalse:[ |
|
1007 "/ state is unknown |
|
1008 self forgetAboutChildren. |
|
1009 ]. |
1005 ! ! |
1010 ! ! |
1006 |
1011 |
1007 !HierarchicalFileList::Directory methodsFor:'private-quick children info'! |
1012 !HierarchicalFileList::Directory methodsFor:'private-quick children info'! |
1008 |
1013 |
1009 forgetAboutChildren |
1014 forgetAboutChildren |
1248 ! ! |
1253 ! ! |
1249 |
1254 |
1250 !HierarchicalFileList class methodsFor:'documentation'! |
1255 !HierarchicalFileList class methodsFor:'documentation'! |
1251 |
1256 |
1252 version |
1257 version |
1253 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.57 2005-07-06 08:01:36 cg Exp $' |
1258 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.58 2005-10-24 09:25:21 ca Exp $' |
1254 ! ! |
1259 ! ! |
1255 |
1260 |
1256 HierarchicalFileList::Directory initialize! |
1261 HierarchicalFileList::Directory initialize! |