Status: Fixed
Owner: [email protected]
Labels: Milestone-1.3
New issue 3796 by [email protected]: Remove '.pr' references
http://code.google.com/p/pharo/issues/detail?id=3796
directoryNames
| dirNames projectNames entries |
"Return a collection of names for the subdirectories of this directory
but filter out project directories."
entries := self entries.
dirNames := (entries select: [:entry | entry isDirectory])
collect: [:entry | entry name].
projectNames := Set new.
entries do: [:entry |
((entry isDirectory) not
and: ['*.pr' match: entry name])
ifTrue: [projectNames add: (entry name copyFrom: 1 to: entry
name size-3)]].
^dirNames reject: [:each | projectNames includes: each]
=>
directoryNames
"Return a collection of names for the subdirectories of this
directory."
^ (self entries select: [:entry | entry isDirectory]) collect: [:entry
| entry name].
