--- a/DirectoryView.st Wed May 13 23:54:07 1998 +0200
+++ b/DirectoryView.st Mon May 18 13:53:53 1998 +0200
@@ -370,26 +370,30 @@
readDirectory
- |foundFiles list|
+ |foundFiles list dir|
+
foundFiles := OrderedCollection new.
list := self listOfFileFilters value.
Cursor wait showWhile:
[
- (DirectoryContents directoryNamed: directory) filesAndBasenamesDo:
- [:file :name|
- list do:
- [:filter|
- ((filter match: name) and: [(foundFiles includes: file) not])
- ifTrue:
- [
- foundFiles add: file
+ (dir := DirectoryContents directoryNamed: directory) notNil ifTrue:[
+ dir filesAndBasenamesDo:
+ [:file :name|
+ list do:
+ [:filter|
+ ((filter match: name) and: [(foundFiles includes: file) not])
+ ifTrue:
+ [
+ foundFiles add: file
+ ].
].
].
- ].
- self listOfFiles contents: (foundFiles collect: [:file| FileRow new fileName: file])
+ self listOfFiles contents: (foundFiles collect: [:file| FileRow new fileName: file])
+ ]
]
+ "Modified: / 18.5.1998 / 13:02:47 / cg"
!
readMonitoringDirectory