[Pkg] The Trunk: Network-tpr.220.mcz

[commits at source.squeak.org]

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