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]] !
squeak-dev@lists.squeakfoundation.org