equal
deleted
inserted
replaced
374 |
374 |
375 |allFiles foundFiles filterList dir| |
375 |allFiles foundFiles filterList dir| |
376 |
376 |
377 allFiles := Set new. |
377 allFiles := Set new. |
378 foundFiles := Set new. |
378 foundFiles := Set new. |
379 filterList := self listOfFileFilters value. |
379 "/ filterList := self listOfFileFilters value. |
|
380 filterList := self selectedFileFilter asCollectionOfSubstringsSeparatedBy:$;. |
|
381 filterList := filterList collect:[:pattern | pattern withoutSeparators]. |
380 |
382 |
381 Cursor wait showWhile: |
383 Cursor wait showWhile: |
382 [ |
384 [ |
383 (dir := DirectoryContents directoryNamed: directory) notNil ifTrue:[ |
385 (dir := DirectoryContents directoryNamed: directory) notNil ifTrue:[ |
384 "/ dir filesAndBasenamesDo:[:file :name| |
386 "/ dir filesAndBasenamesDo:[:file :name| |
390 "/ ]. |
392 "/ ]. |
391 "/ ]. |
393 "/ ]. |
392 dir filesAndBasenamesDo:[:file :name| |
394 dir filesAndBasenamesDo:[:file :name| |
393 allFiles add: name |
395 allFiles add: name |
394 ]. |
396 ]. |
|
397 |
395 filterList do:[:filter| |
398 filterList do:[:filter| |
396 foundFiles addAll:(allFiles select:[:name | filter match:name]). |
399 foundFiles addAll:(allFiles select:[:name | filter match:name]). |
397 ]. |
400 ]. |
398 |
401 |
399 foundFiles := foundFiles asOrderedCollection sort. |
402 foundFiles := foundFiles asOrderedCollection sort. |
400 dir := directory asFilename. |
403 dir := directory asFilename. |
401 self listOfFiles contents: (foundFiles collect:[:name| FileRow new fileName:(dir construct:name)]) |
404 self listOfFiles contents: (foundFiles collect:[:name| FileRow new fileName:(dir construct:name)]) |
402 ] |
405 ] |
403 ] |
406 ] |
404 |
407 |
405 "Modified: / 18.5.1998 / 13:02:47 / cg" |
408 "Modified: / 12.9.1998 / 17:25:25 / cg" |
406 ! |
409 ! |
407 |
410 |
408 readMonitoringDirectory |
411 readMonitoringDirectory |
409 |
412 |
410 |readBlock| |
413 |readBlock| |