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