The Trunk: Morphic-nice.1375.mcz

Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.1375.mcz

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

Name: Morphic-nice.1375
Author: nice
Time: 2 December 2017, 10:03:56.795281 pm
UUID: 1df9a37f-a311-46a9-b4c9-c6879f03eea2
Ancestors: Morphic-dtl.1374

MailComposition has been tool-builder-ized, remove obsolete morphicOpen extension.

=============== Diff against Morphic-dtl.1374 ===============

Item was removed:
- ----- Method: MailComposition>>morphicOpen (in category '*Morphic-Support') -----
- morphicOpen
- "open an interface for sending a mail message with the given initial
- text "
- | textMorph buttonsList sendButton attachmentButton |
- morphicWindow := SystemWindow labelled: 'Mister Postman'.
- morphicWindow model: self.
- textEditor := textMorph := PluggableTextMorph
- on: self
- text: #messageText
- accept: #messageText:
- readSelection: nil
- menu: #menuGet:shifted:.
- morphicWindow addMorph: textMorph frame: (0 @ 0.1 corner: 1 @ 1).
- buttonsList := AlignmentMorph newRow.
- sendButton := PluggableButtonMorph
- on: self
- getState: nil
- action: #submit.
- sendButton
- hResizing: #spaceFill;
- vResizing: #spaceFill;
- label: 'send message';
- setBalloonText: 'Accept any unaccepted edits and add this to the queue of messages to be sent';
- onColor: Color white offColor: Color white.
- buttonsList addMorphBack: sendButton.
-
- attachmentButton := PluggableButtonMorph
- on: self
- getState: nil
- action: #addAttachment.
- attachmentButton
- hResizing: #spaceFill;
- vResizing: #spaceFill;
- label: 'add attachment';
- setBalloonText: 'Send a file with the message';
- onColor: Color white offColor: Color white.
- buttonsList addMorphBack: attachmentButton.
-
- morphicWindow addMorph: buttonsList frame: (0 @ 0 extent: 1 @ 0.1).
- morphicWindow openInWorld!