equal
deleted
inserted
replaced
351 |
351 |
352 !DirectoryView methodsFor:'private'! |
352 !DirectoryView methodsFor:'private'! |
353 |
353 |
354 readDirectory |
354 readDirectory |
355 |
355 |
356 |foundFiles| |
356 |foundFiles list| |
357 foundFiles := OrderedCollection new. |
357 foundFiles := OrderedCollection new. |
|
358 list := self listOfFileFilters value. |
|
359 |
358 Cursor wait showWhile: |
360 Cursor wait showWhile: |
359 [ |
361 [ |
360 (DirectoryContents directoryNamed: directory) filesDo: |
362 (DirectoryContents directoryNamed: directory) filesAndBasenamesDo: |
361 [:file| |
363 [:file :name| |
362 self listOfFileFilters value do: |
364 list do: |
363 [:filter| |
365 [:filter| |
364 (file name includesMatchString: filter) |
366 (filter match: name) |
365 ifTrue: |
367 ifTrue: |
366 [ |
368 [ |
367 foundFiles add: (FileRow new fileName: file) |
369 foundFiles add: (FileRow new fileName: file) |
368 ]. |
370 ]. |
369 ]. |
371 ]. |
370 ]. |
372 ]. |
371 self listOfFiles contents: foundFiles |
373 self listOfFiles contents: foundFiles |
372 ] |
374 ] |
|
375 |
373 ! |
376 ! |
374 |
377 |
375 readMonitoringDirectory |
378 readMonitoringDirectory |
376 |
379 |
377 |readBlock| |
380 |readBlock| |
650 ^fileName |
653 ^fileName |
651 ! |
654 ! |
652 |
655 |
653 fileName: aFileName |
656 fileName: aFileName |
654 |
657 |
655 fileName := aFileName. |
658 fileName := aFileName |
656 self validateAttributes |
|
657 ! |
659 ! |
658 |
660 |
659 group |
661 group |
660 |
662 |
661 ^group |
663 ^group |
664 iconOn:aGC |
666 iconOn:aGC |
665 |
667 |
666 (aGC registeredImageAt:iconKey) isNil |
668 (aGC registeredImageAt:iconKey) isNil |
667 ifTrue: |
669 ifTrue: |
668 [ |
670 [ |
|
671 self validateAttributes. |
669 ((iconKey == #imageFileIcon) and: [size < 5000]) |
672 ((iconKey == #imageFileIcon) and: [size < 5000]) |
670 ifTrue: |
673 ifTrue: |
671 [ |
674 [ |
672 Object errorSignal handle: [:ex|] |
675 Object errorSignal handle: [:ex|] |
673 do: |
676 do: |