[squeak-dev] The Trunk: Network-Igor.Stasenko.36.mcz

Andreas Raab uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-Igor.Stasenko.36.mcz

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

Name: Network-Igor.Stasenko.36
Author: Igor.Stasenko
Time: 4 September 2009, 10:17:51 am
UUID: 3016fcfb-90f0-1e4a-b6c3-e97337b67994
Ancestors: Network-jcg.35

MailComposition>>openInMorphic
after building the UI window were sent #openInMVC to it.
Changed to #openInWorld

=============== Diff against Network-jcg.35 ===============

Item was changed:
  ----- Method: MailComposition>>openInMorphic (in category 'interface') -----
  openInMorphic
  "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!
- morphicWindow openInMVC!