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

commits at source.squeak.org commits at source.squeak.org
Fri Sep 4 14:55:36 UTC 2009


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!




More information about the Squeak-dev mailing list