Display script output in a TextMorph

[hilaire]

Right now script output is in a StringMorph.

Do it in a text morph so it is possible to have script output spread in several lines of text.

Edit as

DrGScriptCostume>>instantiateMorph
 morph := DrGTextMorph new autoFit: true.
 morph contents: '';
  font: DrGDefault canvasFont;
  backgroundColor: Color white.
 mathItem value isText
  ifTrue: [ morph contents: mathItem value]
  ifFalse: [morph contents: self roundedValueString]

Style need to be extend as for TextCostume

[hilaire (hilaire-fernandes)]

For style editL

DrGScriptCostume>>styleClass
 ^DrGTextCostumeStyle

**BUT** better to make DrGScriptCostume a subclass of DrGTextCostume

[hilaire (hilaire-fernandes)]

But it is enough for (no need to change herarchy):

DrSCriptCostume>>backgroundColor: aColor
 morph backgroundColor: aColor

check for XML load, missing attribute will brake sketch load:

DrGTextCostumeStyle>>writeAttributesTo: aNode
 super writeAttributesTo: aNode.
 aNode attributeAt: #background put: self baseBackgroundColor name asString capitalized.