[Pkg] The Trunk: Morphic-fbs.655.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Jun 1 22:21:13 UTC 2013
Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.655.mcz
==================== Summary ====================
Name: Morphic-fbs.655
Author: fbs
Time: 1 June 2013, 11:19:58.083 pm
UUID: b2ebeb75-74c9-4909-b81c-8eb82350599a
Ancestors: Morphic-fbs.654
Move MailComposition >> #addAttachment to Morphic-Support because the sole sender of #addAttachment (MailComposition >> #morphicOpen) is in Morphic-Support.
=============== Diff against Morphic-fbs.653 ===============
Item was added:
+ ----- Method: MailComposition>>addAttachment (in category '*Morphic-Support') -----
+ addAttachment
+ | file fileResult fileName |
+ textEditor
+ ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]].
+
+ (fileResult := StandardFileMenu oldFile)
+ ifNotNil:
+ [fileName := fileResult directory fullNameFor: fileResult name.
+ file := FileStream readOnlyFileNamed: fileName.
+ file ifNotNil:
+ [file binary.
+ self messageText:
+ ((MailMessage from: self messageText asString)
+ addAttachmentFrom: file withName: fileResult name; text).
+ file close]] !
More information about the Packages
mailing list