[squeak-dev] The Trunk: Morphic-nice.1375.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 2 21:04:38 UTC 2017


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!



More information about the Squeak-dev mailing list