[squeak-dev] [BUG] Filelist2 select files

Edgar J. De Cleene edgardec2001 at yahoo.com.ar
Thu Feb 18 22:31:38 UTC 2010


Skipped content of type multipart/alternative-------------- next part --------------
MessageNotUnderstood: DirectoryEntryFile>>first
18 February 2010 5:47:12.639 pm

VM: Mac OS - a SmalltalkImage
Image: Squeak3.11alpha [latest update: #9400]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /Users/edgar/SqueakDevelop/imagesZip/Squeak3.11-9371-alpha
Trusted Dir /foobar/tooBar/forSqueak/bogus
Untrusted Dir /Users/edgar/Library/Preferences/Squeak/Internet/My Squeak

DirectoryEntryFile(Object)>>doesNotUnderstand: #first
	Receiver: a DirectoryEntryFile .DS_Store
	Arguments and temporary variables: 
		aMessage: 	first
		exception: 	MessageNotUnderstood: DirectoryEntryFile>>first
		resumeValue: 	nil
	Receiver's instance variables: 
		directory: 	UnixFileDirectory on '/Users/edgar/SqueakDevelop/imagesZip/Squeak3.1...etc...
		name: 	'.DS_Store'
		creationTime: 	3443966133
		modificationTime: 	3443966133
		fileSize: 	6148

[] in [] in FileList>>entriesMatching:
	Receiver: a FileList
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a PluggableSystemWindow(532) a PluggableTextMorph...etc...
		contents: 	'NO FILE SELECTED
'
		fileName: 	nil
		directory: 	UnixFileDirectory on '/Users/edgar/SqueakDevelop/imagesZip/Squeak3.1...etc...
		volList: 	#('[]' ' Users' '  edgar' '   SqueakDevelop' '    imagesZip' '     Squ...etc...
		volListIndex: 	6
		list: 	#('(2010.02.18 17:46:16 794) FileList-entriesMatching.st' '(2010.02.18 17...etc...
		listIndex: 	0
		pattern: 	'*.cs'
		sortMode: 	#date
		brevityState: 	#FileList
		directoryCache: 	a WeakIdentityKeyDictionary(UnixFileDirectory on '/Users'->true...etc...

[] in OrderedCollection(Collection)>>anySatisfy:
	Receiver: an OrderedCollection('*.cs')
	Arguments and temporary variables: 
		aBlock: 	'*.cs'
		each: 	[closure] in [] in FileList>>entriesMatching:
	Receiver's instance variables: 
		array: 	#(nil nil '*.cs' nil nil nil nil nil nil nil)
		firstIndex: 	3
		lastIndex: 	3

OrderedCollection>>do:
	Receiver: an OrderedCollection('*.cs')
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	#(nil nil '*.cs' nil nil nil nil nil nil nil)
		firstIndex: 	3
		lastIndex: 	3


--- The full stack ---
DirectoryEntryFile(Object)>>doesNotUnderstand: #first
[] in [] in FileList>>entriesMatching:
[] in OrderedCollection(Collection)>>anySatisfy:
OrderedCollection>>do:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
OrderedCollection(Collection)>>anySatisfy:
[] in FileList>>entriesMatching:
Array(SequenceableCollection)>>select:
FileList>>entriesMatching:
[] in FileList>>listForPatterns:
OrderedCollection>>do:
FileList>>listForPatterns:
[] in FileList>>updateFileList
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
FileList>>updateFileList
FileList>>pattern:
FileList>>directory:
FileList>>pathAndPattern:
PluggableTextMorphPlus(PluggableTextMorph)>>acceptTextInModel
PluggableTextMorphPlus>>acceptTextInModel
PluggableTextMorphPlus(PluggableTextMorph)>>accept
PluggableTextMorphPlus>>accept
TextMorphForEditView>>acceptContents
SmalltalkEditor(TextEditor)>>accept
SmalltalkEditor(TextEditor)>>dispatchOnEnterWith:
SmalltalkEditor(TextEditor)>>dispatchOnCharacter:with:
SmalltalkEditor(TextEditor)>>readKeyboard
[] in TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView(TextMorph)>>handleInteraction:fromEvent:
TextMorphForEditView>>handleInteraction:fromEvent:
TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView>>keyStroke:
TextMorphForEditView(TextMorph)>>handleKeystroke:
KeyboardEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
TextMorphForEditView(Morph)>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear:
[] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendKeyboardEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess
[] in BlockClosure>>newProcess
-------------- next part --------------
'From Squeak3.11alpha of 18 February 2010 [latest update: #9400] on 18 February 2010 at 5:46:12 pm'!

!FileList methodsFor: 'private' stamp: 'edc 2/18/2010 17:42'!
entriesMatching: patternString
	"Answer a list of directory entries which match the patternString.
	The patternString may consist of multiple patterns separated by ';'.
	Each pattern can include a '*' or '#' as wildcards - see String>>match:"

	| entries patterns |
	entries := directory entries reject:[:e| e isDirectory].
	(SmalltalkImage current platformName = 'Mac OS') ifTrue:[ entries := entries copyWithout: entries first].
	patterns := patternString findTokens: ';'.
	(patterns anySatisfy: [:each | each = '*'])
		ifTrue: [^ entries].
	^ entries select: [:entry | patterns anySatisfy: [:each | each match: entry name]]! !


More information about the Squeak-dev mailing list