The Trunk: Morphic-dtl.703.mcz

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

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

Name: Morphic-dtl.703
Author: dtl
Time: 14 December 2013, 4:34:24.35 pm
UUID: a8dcbaf9-0e01-4776-80f7-e5f7411e7ccc
Ancestors: Morphic-fbs.702

Make the emergency evaluator work in Morphic if MVC is not present, and vice versa.
Add two MorphicProject methods to support Transcripter.

=============== Diff against Morphic-fbs.702 ===============

Item was added:
+ ----- Method: MorphicProject>>displayTranscripter: (in category 'transcripter') -----
+ displayTranscripter: transcripter
+ "A transcripter is a minimal user interface to support an emergency evaluator.
+ A Morphic project uses class NewParagraph."
+ transcripter morphicDisplayText!

Item was added:
+ ----- Method: MorphicProject>>initializeParagraphForTranscripter: (in category 'transcripter') -----
+ initializeParagraphForTranscripter: transcripter
+ "A transcripter is a minimal user interface to support an emergency evaluator.
+ A Morphic project uses class NewParagraph."
+ transcripter morphicInitializeParagraph: NewParagraph!

Item was added:
+ ----- Method: Transcripter>>morphicDisplayText (in category '*Morphic') -----
+ morphicDisplayText
+ para compose: self contents asText
+ style: TextStyle default
+ from: 1
+ in: frame.
+ Display
+ fill: (frame insetBy: -2) fillColor: self black;
+ fill: frame fillColor: self white.
+ Display getCanvas
+ paragraph: para
+ bounds: (4@4 + frame topLeft extent: Display extent)
+ color: Color black!

Item was added:
+ ----- Method: Transcripter>>morphicInitializeParagraph: (in category '*Morphic') -----
+ morphicInitializeParagraph: classParagraph
+ para := classParagraph new.
+ para compose: self contents asText
+ style: TextStyle default
+ from: 1
+ in: frame
+ !