The Trunk: Network-tpr.220.mcz

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

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

Name: Network-tpr.220
Author: tpr
Time: 7 March 2018, 11:16:27.453971 am
UUID: 90d9b634-e1e3-4713-bb09-82ed2cc362e6
Ancestors: Network-pre.219

Convert usage of nasty old StandardFileMenu to gleaming new file dialogues

=============== Diff against Network-pre.219 ===============

Item was changed:
  ----- Method: MailComposition>>addAttachment (in category 'actions') -----
  addAttachment
+ | file  fileName |
- | file fileResult fileName |
 
  self saveFields.
+ fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'.
+ fileName ifNil: [^self].
 
+ file := FileStream readOnlyFileNamed: fileName.
+ file ifNotNil: [file binary.
+ mailMessage addAttachmentFrom: file withName:  (FileDirectory localNameFor: fileName) .
+ file close.
+ self changed: #messageText] !
- (fileResult := StandardFileMenu oldFile)
- ifNotNil:
- [fileName := fileResult directory fullNameFor: fileResult name.
- file := FileStream readOnlyFileNamed: fileName.
- file ifNotNil:
- [file binary.
- mailMessage addAttachmentFrom: file withName: fileResult name.
- file close.
- self changed: #messageText]] !