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]
  !