[squeak-dev] The Trunk: Network-dtl.57.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 10 16:21:47 UTC 2010


David T. Lewis uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-dtl.57.mcz

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

Name: Network-dtl.57
Author: dtl
Time: 10 February 2010, 11:20:58.457 am
UUID: b88ac355-76a2-43c9-86d7-a0a3e150cbcd
Ancestors: Network-nice.56

Move #fullScreenOn and #fullScreenOff implementation from ScreenController to Project
Change MailComposition to dispatch through Project current for open in MVC/Morphic.

=============== Diff against Network-nice.56 ===============

Item was changed:
+ ----- Method: MailComposition>>open (in category 'initialize-release') -----
- ----- Method: MailComposition>>open (in category 'interface') -----
  open
  	"open an interface"
+ 
+ 	^ Project current
+ 		dispatchTo: self
+ 		addPrefixAndSend: #Open
+ 		withArguments: {}
+ !
- 	Smalltalk isMorphic
- 		ifTrue: [ self openInMorphic ]
- 		ifFalse: [ self openInMVC ]!

Item was removed:
- ----- 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!




More information about the Squeak-dev mailing list