equal
deleted
inserted
replaced
310 update ifTrue:[ |
310 update ifTrue:[ |
311 item modificationTime:nil. |
311 item modificationTime:nil. |
312 ]. |
312 ]. |
313 item monitoringCycle |
313 item monitoringCycle |
314 ]. |
314 ]. |
315 Processor yield. |
315 "/ Processor yield. |
316 item := self at:index ifAbsent:nil. |
316 item := self at:index ifAbsent:nil. |
317 index := index + 1. |
317 index := index + 1. |
318 ]. |
318 ]. |
319 ! ! |
319 ! ! |
320 |
320 |
957 ^ self. |
957 ^ self. |
958 ]. |
958 ]. |
959 |
959 |
960 hasChildren := DirectoryContents directoryNamed:fileName detect:(self model matchBlock). |
960 hasChildren := DirectoryContents directoryNamed:fileName detect:(self model matchBlock). |
961 self knownToHaveChildren:hasChildren. |
961 self knownToHaveChildren:hasChildren. |
962 self assert:children isNil. |
962 "/ self assert:children isNil. |
963 |
963 |
964 (children isNil and:[info notNil]) ifTrue:[ |
964 (children isNil and:[info notNil]) ifTrue:[ |
965 "setup modification time to suppress monitorCycle" |
965 "setup modification time to suppress monitorCycle" |
966 modificationTime := info modificationTime. |
966 modificationTime := info modificationTime. |
967 ]. |
967 ]. |
1265 ! ! |
1265 ! ! |
1266 |
1266 |
1267 !HierarchicalFileList class methodsFor:'documentation'! |
1267 !HierarchicalFileList class methodsFor:'documentation'! |
1268 |
1268 |
1269 version |
1269 version |
1270 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.55 2005-04-05 13:49:55 cg Exp $' |
1270 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.56 2005-04-05 14:33:12 cg Exp $' |
1271 ! ! |
1271 ! ! |
1272 |
1272 |
1273 HierarchicalFileList::Directory initialize! |
1273 HierarchicalFileList::Directory initialize! |