Hi All,
Does not work on WinXP SP2, Perl 5.8.4 and Win32::GUI v1.0.3
Just normal grey background, even tried dropping the ::class and and
$winBackBrush as -background to ::Window - still no joy.
Regards
Chris
-----Original Message-----
From: "Jeremy White" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED], Perl-Win32-GUI-Users@lists.sourceforge.net
Date: Mon, 11 Jul 2005 07:51:20 +0000
Subject: RE: [perl-win32-gui-users] Window Background Color
>
> >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();
>
>
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by the 'Do More With Dual!' webinar
> happening
> July 14 at 8am PDT/11am EDT. We invite you to explore the latest in
> dual
> core and dual graphics technology at this free one hour event hosted by
> HP,
> AMD, and NVIDIA. To register visit http://www.hp.com/go/dualwebinar
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
