[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