I believe the color is set to the default desktop background color
around the check boxes. I suspect there is somewhere that one can set
the default for that value or specify the color to use for each check
box or check boxes in general. I happen to have a default background
color that is different from the background color that the window opens
up with and hence could see what is happening.
You might want to add something like the following to your action
routine for the hello button:
sub Hello_Click {
print STDOUT "Hello, world\n";
print STDOUT "rad1 is checked\n" if ($rad1->Checked);
print STDOUT "rad2 is checked\n" if ($rad2->Checked);
$MW->PostQuitMessage(0);
}
I am not sure that the values of the variables are still available in
the MainWindow_Terminate subroutine because the PostQuitMessage has been
used. That remains one for the Great Aldo (Pepper) Calpini (Aldo, the
reference is a pun on the Great Waldo Pepper ... fictional(?) American
barnstorming pilot).
Aldo, thanks for all the great work. Anyone ever thought of rewriting
the TCL widgets using the win32-gui (or maybe it is and I should go look
at the code instead of bothering you).
Frank
Dr. Frank J. Mabry, Jr.
Dept. of EE&CS, USMA
West Point, NY, 10996
Email ([EMAIL PROTECTED]) Phone (914-938-2960)
----------
From: Aldo Calpini [SMTP:[EMAIL PROTECTED]]
Sent: Tuesday, September 29, 1998 7:27 AM
To: Tim Simpson; [EMAIL PROTECTED]
Subject: Re: Re(2): [perl-win32-gui] Beginner using gui coding
Tim Simpson wrote:
>Why does the area behind the text label next to my checkbox
>appear in white rather than in the standard sort of grey colour
?
dunno, it doesn't happen to me...
anyone else can comment on this?
Bye,
Aldo Calpini
<[EMAIL PROTECTED]>
LIBERA ME DOMINE DE MORTE AETERNA
IN DIE ILLA TREMENDA
QUANDO COELI MOVENDI SUNT
ET TERRA
