The Trunk: Network-ul.49.mcz

Levente Uzonyi uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-ul.49.mcz

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

Name: Network-ul.49
Author: ul
Time: 11 January 2010, 8:27:37.48 am
UUID: 760d179c-6926-424c-9fbf-57dc80114faa
Ancestors: Network-nice.48

- code critics

=============== Diff against Network-nice.48 ===============

Item was changed:
  ----- Method: ServerDirectory>>exists (in category 'file directory') -----
  exists
  "It is difficult to tell if a directory exists.  This is ugly, but it works for writable directories.  http: will fall back on ftp for this"
 
  | probe success |
  success := false.
  self isTypeFile ifTrue: [
  self entries size > 0 ifTrue: [^ true].
  probe := self newFileNamed: 'withNoName23'.
  probe ifNotNil: [
  probe close.
  probe directory deleteFileNamed: probe localName].
+ ^probe notNil].
- ^success := probe notNil].
  [client := self openFTPClient.
  [client pwd]
  ensure: [self quit].
  success := true]
  on: Error
  do: [:ex | ].
  ^success!