The Trunk: Tools-ar.228.mcz

Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.228.mcz

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

Name: Tools-ar.228
Author: ar
Time: 10 April 2010, 11:15:13.183 am
UUID: fb226ba9-cd46-1940-ac4e-bdd4e4461c43
Ancestors: Tools-edc.227

Try to display the name of a top-level server directory.

=============== Diff against Tools-edc.227 ===============

Item was changed:
  ----- Method: FileList>>directoryNameOf: (in category 'directory tree') -----
  directoryNameOf: aDirectory
+ "Attempt to find the name of ServerDirectories when used."
+
+ ^(aDirectory isRemoteDirectory and:[aDirectory isKindOf: ServerDirectory])
+ ifTrue:[ServerDirectory servers keyAtIdentityValue: aDirectory]
+ ifFalse:[aDirectory localName]!
- ^aDirectory localName!