RE: [perl-win32-gui-users] Window Background Color

[Jeremy White]

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

Humm - it works for me - see code below. I get green window showing - what 
do you get?

WinXP SP2
ActiveState 5.8.4
Win32::GUI 1.0

I'm on perl 5.6 - everything else the same.

Cheers,

jez.


-------------------------
use Win32::GUI;
use strict;

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,
);
$win->Show();

Win32::GUI::Dialog();