The Trunk: Network-nice.65.mcz

Nicolas Cellier uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-nice.65.mcz

==================== Summary ====================

Name: Network-nice.65
Author: nice
Time: 21 March 2010, 9:47:14.77 pm
UUID: 40b92eea-5650-fc4a-9488-74bed0249af8
Ancestors: Network-nice.64

Avoid sending at: to a DirectoryEntry, it is deprecated

=============== Diff against Network-nice.64 ===============

Item was changed:
  ----- Method: ServerDirectory>>directoryNames (in category 'file directory') -----
  directoryNames
  "Return a collection of names for the subdirectories of this directory."
  "(ServerDirectory serverNamed: 'UIUCArchive') directoryNames"
 
+ ^ (self entries select: [:entry | entry isDirectory])
+ collect: [:entry | entry name]
- ^ (self entries select: [:entry | entry at: 4])
- collect: [:entry | entry first]
  !

Item was changed:
  ----- Method: ServerDirectory>>fileNames (in category 'file directory') -----
  fileNames
  "Return a collection of names for the files (but not directories) in this directory."
  "(ServerDirectory serverNamed: 'UIUCArchive') fileNames"
 
+ ^ self entries select: [:entry | entry isDirectory not]
+ thenCollect: [:entry | entry name]
- ^ self entries select: [:entry | (entry at: 4) not]
- thenCollect: [:entry | entry first]
  !

Item was changed:
  ----- Method: HTTPServerDirectory>>fileNames (in category 'file directory') -----
  fileNames
  "Return a collection of names for the files (but not directories) in this directory."
  "(ServerDirectory serverNamed: 'UIUCArchive') fileNames"
 
  self dirListUrl
  ifNil: [^self error: 'No URL set for fetching the directory listing.' ].
+ ^(self entries select: [:entry | entry isDirectory not])
+ collect: [:entry | entry name]
- ^(self entries select: [:entry | (entry at: 4) not])
- collect: [:entry | entry first]
  !

Item was changed:
  ----- Method: ServerDirectory>>fileAndDirectoryNames (in category 'file directory') -----
  fileAndDirectoryNames
  "FileDirectory default fileAndDirectoryNames"
 
+ ^ self entries collect: [:entry | entry name]
- ^ self entries collect: [:entry | entry first]
  !

Item was changed:
  ----- Method: HTTPServerDirectory>>directoryNames (in category 'file directory') -----
  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].
- dirNames := (entries select: [:entry | entry at: 4])
- collect: [:entry | entry first].
  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)]].
- ((entry at: 4) not
- and: ['*.pr' match: entry first])
- ifTrue: [projectNames add: (entry first copyFrom: 1 to: entry first size-3)]].
  ^dirNames reject: [:each | projectNames includes: each]
  !