Hi!
I am not sure to understand. Consider the following example (to execute in a workspace): -=-=-=--=-=-=--=-=-=--=-=-=- | morphClass | morphClass := Morph subclass: #TMPMorph. morphClass compile: 'fillStyle ^ Color white'. morphClass compile: 'drawOn: aCanvas super drawOn: aCanvas. aCanvas drawString: ''1 2 3'' in: self bounds font: TextStyle defaultFont color: Color red.'. morphClass new openInHand -=-=-=--=-=-=--=-=-=--=-=-=- It gives:
An example that uses the default text font in Mondrian.
-=-=-=--=-=-=--=-=-=--=-=-=- | morphClass | morphClass := Morph subclass: #TMPMorph. morphClass compile: 'fillStyle ^ Color white'. morphClass compile: 'drawOn: aCanvas super drawOn: aCanvas. aCanvas drawString: ''1 2 3'' in: self bounds font: (MOBoundedShape new fontFor: MONode new) color: Color red.'. morphClass new openInHand -=-=-=--=-=-=--=-=-=--=-=-=- Which produces:
Your easel script produces:
I do not see any strange behavior. Can you provide a screenshot
Cheers, Alexandre
On 20 Jul 2010, at 11:28, Veronica Isabel Uquillas Gomez wrote:
Hi Alex,
Previously I reported that the color of text does not appear as it should be, but light... You created the withoutBackground method that works but sometimes. As I display small fonts, having blurred texts does not help
try this code...
(1 to: 10) do: [:n | view shape rectangle borderColor:[ :each| Color blue ]. view node: n forIt: [ view node: (n * 2) using: (view shape rectangle withoutBorder withoutBackground; fontColor:[ :each| Color red ]; text:[ :e| e asString ]). ] ].
cheers, Veronica _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
