David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.333.mcz==================== Summary ====================
Name: Morphic-dtl.333
Author: dtl
Time: 9 February 2010, 11:23:11.186 pm
UUID: e4b83c15-4abc-48ba-8410-628453f3f459
Ancestors: Morphic-dtl.332
Remove explicit MVC and Morphic dependencies from MailComposition.
Change method categories for SyntaxError from *Morphic-Models to *Morphic-Support.
=============== Diff against Morphic-dtl.332 ===============
Item was added:
+ ----- 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!
Item was changed:
+ ----- Method: SyntaxError class>>morphicOpen: (in category '*Morphic-Support') -----
- ----- Method: SyntaxError class>>morphicOpen: (in category '*Morphic-Models') -----
morphicOpen: aSyntaxError
"Answer a view whose model is an instance of me."
self buildMorphicViewOn: aSyntaxError.
Project spawnNewProcessIfThisIsUI: Processor activeProcess.
^ Processor activeProcess suspend!
Item was changed:
+ ----- Method: SyntaxError class>>buildMorphicViewOn: (in category '*Morphic-Support') -----
- ----- Method: SyntaxError class>>buildMorphicViewOn: (in category '*Morphic-Models') -----
buildMorphicViewOn: aSyntaxError
"Answer an Morphic view on the given SyntaxError."
| window |
window := (SystemWindow labelled: 'Syntax Error') model: aSyntaxError.
window addMorph: (PluggableListMorph on: aSyntaxError list: #list
selected: #listIndex changeSelected: nil menu: #listMenu:)
frame: (0@0 corner: 1@0.15).
window addMorph: (PluggableTextMorph on: aSyntaxError text: #contents
accept: #contents:notifying: readSelection: #contentsSelection
menu: #codePaneMenu:shifted:)
frame: (0@0.15 corner: 1@1).
^ window openInWorldExtent: 380@220!
Locked
