Path: news.cs.au.dk!not-for-mail
From: "Sascha Kimmel \(tricos Mediaservice\)" <kimmel@tricos.com>
Newsgroups: comp.lang.beta
Subject: StaticText color??
Date: 1 Jan 2000 22:41:22 -0000
Organization: University of Aarhus, Department of Computer Science (DAIMI)
Lines: 37
Approved: mailtonews@cs.au.dk
Distribution: world
Message-ID: <20000101224122.12269.qmail@noatun.mjolner.dk>
Reply-To: "Sascha Kimmel \(tricos Mediaservice\)" <kimmel@tricos.com>
NNTP-Posting-Host: daimi.cs.au.dk
X-Trace: xinwen.cs.au.dk 946766499 10473189 255.255.255.255 (1 Jan 2000 22:41:39 GMT)
X-Complaints-To: news@cs.au.dk
NNTP-Posting-Date: 1 Jan 2000 22:41:39 GMT
Xref: news.cs.au.dk comp.lang.beta:12199

Hello everyone,

I wish you a happy new year 2000!
I'm proud to be the first one in the new year to ask a question about BETA
;-)

My question is: how can I change the COLOR of a statictext?
I use the following (slightly adapted) code from ~demo/statictext.bet:

helloWorld: @staticText
          (# open::
               (# aTextStyle: ^textStyle;
               do
			(0xffff,0xffff,0xffff)->backgroundColor;
		      (0x0000,0x0000,0xffff)->Color;
			&textStyle[] -> aTextStyle[];
                  'Arial Black' -> aTextStyle.name;
                  24 -> aTextStyle.size;
                  textFaces.bold -> aTextStyle.face;
                  aTextStyle[] -> style;

                  'Hello, World!' -> label;

                  fitToContents;
               #);
          #);

Well, the compiler does not complain about assigning a value to COLOR, but
of course it does not work.
Because I want to display the staticText on a black background it is not
quite acceptable the the text itself is black also!

Does anyone know how to set the color of a staticText?

Regards,
Sascha Kimmel