tim Rowledge uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-tpr.215.mcz

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

Name: Network-tpr.215
Author: tpr
Time: 27 December 2017, 3:12:54.459587 pm
UUID: a1a4294c-1dbd-48a0-a122-2379f0311784
Ancestors: Network-eem.214

ServerDirectory shouldn't report '.' & '..' as dirctory names.
Add some methods for easier compaibility wth FileDirectory & FileChooserDialog

=============== Diff against Network-eem.214 ===============

Item was added:
+ ----- Method: FTPClient>>getWorkingDirectory (in category 'protocol') -----
+ getWorkingDirectory
+ 	| dirList |
+ 	self openPassiveDataConnection.
+ 	self sendCommand: 'PWD'.
+ 	dirList := self getData.
+ 	self checkResponse.
+ 	self checkResponse.
+ 	^dirList
+ !

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 and: [entry name ~= '.' and:[entry name ~= '..']]])
- 	^ (self entries select: [:entry | entry isDirectory])
  		collect: [:entry | entry name]
  !

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

Item was added:
+ ----- Method: ServerDirectory>>hasFiles (in category 'testing') -----
+ hasFiles
+ 	"Return true if we find an entry that is a file, false otherwise"
+ 	"(ServerDirectory serverNamed: 'UIUCArchive') hasFiles"
+ 
+ 	^ self entries anySatisfy: [:entry | entry isDirectory not]!

Item was added:
+ ----- Method: ServerDirectory>>hasSubDirectories (in category 'testing') -----
+ hasSubDirectories
+ 	"Return true if we find an entry that is a directory, false otherwise"
+ 	"(ServerDirectory serverNamed: 'UIUCArchive') hasSubDirectories"
+ 
+ 	^ self entries anySatisfy: [:entry | entry isDirectory]!

Item was changed:
  ----- Method: ServerDirectory>>localName (in category 'file directory') -----
  localName
  
+ 	^ServerDirectory servers keyAtIdentityValue: self ifAbsent:[
+ 		directory isEmpty ifTrue: [self error: 'no directory'].
+ 		self localNameFor: directory]!
- 	directory isEmpty ifTrue: [self error: 'no directory'].
- 	^self localNameFor: directory!