I cannot manage to get a main windows background to properly change color when using the following code:

my $winBackBrush = new Win32::GUI::Brush(-color => [0,255,0]) or die("Could not create Brush\n");
my $clsWepEd = new Win32::GUI::Class(
            -name => "classWindowBack",
            -brush => $winBackBrush,
            #-color => 2,
            ) or die("Could not create Class\n");

my $win = new Win32::GUI::Window(
   -name        => "WinMain",
   -pos         => [100, 100],
   -size        => [100, 100],
   -pushexstyle => WS_EX_CLIENTEDGE,
   -class       => $clsWepEd,
);

This is essentially a rework of the following "working" code from http://sourceforge.net/mailarchive/message.php?msg_id=10081682
Which, btw, doesn't work for me anyways.

Any ideas?

WinXP SP2
ActiveState 5.8.4
Win32::GUI 1.0



Reply via email to