[squeak-dev] The Trunk: Morphic-dtl.333.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 10 04:27:09 UTC 2010


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 at 0 corner: 1 at 0.15).
  
  	window addMorph: (PluggableTextMorph on: aSyntaxError text: #contents
  			accept: #contents:notifying: readSelection: #contentsSelection
  			menu: #codePaneMenu:shifted:)
  		frame: (0 at 0.15 corner: 1 at 1).
  
  	^ window openInWorldExtent: 380 at 220!




More information about the Squeak-dev mailing list