Issue 3796 in pharo: Remove '.pr' references

Status: Fixed
Owner: [hidden email]
Labels: Milestone-1.3

New issue 3796 by [hidden email]: 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].

Updates:
        Status: Closed

Comment #1 on issue 3796 by [hidden email]: Remove '.pr' references
http://code.google.com/p/pharo/issues/detail?id=3796

in 13078