The Trunk: Files-eem.158.mcz

Eliot Miranda uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-eem.158.mcz

==================== Summary ====================

Name: Files-eem.158
Author: eem
Time: 8 July 2016, 11:34:56.899258 am
UUID: bd16d152-2f96-4857-8363-c7364470391b
Ancestors: Files-dtl.157

Add directoryNamesMatching: & streamline fileNamesMatching:

=============== Diff against Files-dtl.157 ===============

Item was added:
+ ----- Method: FileDirectory>>directoryNamesMatching: (in category 'file name utilities') -----
+ directoryNamesMatching: pat
+ "
+ FileDirectory default directoryNamesMatching: '*'
+ FileDirectory default directoryNamesMatching: '*_segs'
+ "
+
+ | directories directoryNames |
+ directories := OrderedCollection new.
+ directoryNames := self directoryNames.
+ (pat findTokens: ';', String crlf) do:
+ [:tok |
+ directories addAll: (directoryNames select: [:name | tok match: name])].
+ ^directories!

Item was changed:
  ----- Method: FileDirectory>>fileNamesMatching: (in category 'file name utilities') -----
  fileNamesMatching: pat
  "
  FileDirectory default fileNamesMatching: '*'
  FileDirectory default fileNamesMatching: '*.image;*.changes'
  "
 
+ | files fileNames |
- | files |
  files := OrderedCollection new.
+ fileNames := self fileNames.
+ (pat findTokens: ';', String crlf) do:
+ [:tok |
+ files addAll: (fileNames select: [:name | tok match: name])].
+ ^files!
-
- (pat findTokens: ';', String crlf) do: [ :tok |
- files addAll: (self fileNames select: [:name | tok match: name]) ].
-
- ^files
- !