Why allChildrenMatching: does not match extension?
allChildrenMatching: aPattern
"Return all the files and folders recursively nested in the
receiver and matching the pattern, aPattern"
^ self allChildren select: [ :each | aPattern match: each basename ]
I would rename
allChildrenMatching: aPattern
into
allChildrenNameMatching: aPattern
