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
- !