[Q][morphic] TextMorph with raised border - no way

Martin Drautzburg martin.drautzburg at web.de
Thu Mar 28 22:44:23 UTC 2002


Ned Konz <ned at bike-nomad.com> writes:

> t _ TextMorph new contentsAsIs: 'Murph!'.
> t borderStyle: (BorderStyle complexAltRaised width: 6; baseColor: Color 
> magenta lighter).
> t margins: 5 at 5; backgroundColor: Color blue lighter; textColor: Color green 
> lighter.
> t openInWorld.

This gives me "cannot install color" on 3.2gamma

seems to happen in 
FormCanvas>>setFillColor

fillColor isColor
		ifFalse: [(fillColor isKindOf: InfiniteForm)
				ifFalse: [^ self error: 'Cannot install color'].
			^ port fillPattern: fillColor

where fillColor is #complexAltRaised



More information about the Squeak-dev mailing list