'From Cuis 2.6 of 10 August 2010 [latest update: #540] on 11 August 2010 at 2:23:33 pm'!

!FileList2 methodsFor: 'initialize-release' stamp: 'jmv 8/11/2010 14:21'!
initialize

	showDirsInFileList _ false.
	fileSelectionBlock _ [ :entry :myPattern |
		entry isDirectory ifTrue: [
			showDirsInFileList
		] ifFalse: [
			(myPattern = '*' or: [ myPattern match: entry name ]) and: [
				"Hide Mac resurce forks and folder service stores"
				(entry name = '.DS_Store') not and: [
					('._*' match: entry name) not ]]
		]
	].
	dirSelectionBlock _ [ :dirName | true].! !

