Status: Fixed Owner: stephane...@gmail.com Labels: Milestone-1.3 New issue 3796 by stephane...@gmail.com: 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].