Me again, sorry for the flood of posts.
Yes, it's a bug in GUI.pm
Win32::GUI::ImageList just uses $self without defining it like:
my $self = {};
So to fix the bug, just find Win32::GUI::ImageList in GUI.pm,
(it's on line 2141 in 0.0.558), and add a definition of $self as
above.
Steve
- Ori
Additional:
print $ARCHIVE."\n".$ICONS."\n";
gives:
Win32::GUI::ImageList=HASH(0x265e044)
Win32::GUI::ImageList=HASH(0x265e044)
Oh dear. Serious bug. They're in the same memory. I'll look at the
Win32::GUI code and see if this is a simple bug that even i can fix.
Steve
- Original Message -
Hi,
I have some code that creates two ImageList objects:
our $ARCHIVE = new Win32::GUI::ImageList(64,64,ILC_COLOR32,0,100);
our $ICONS = new Win32::GUI::ImageList(16,16,ILC_COLOR32 | ILC_MASK,0,10);
don't worry about those constants, they're defined at the top of my script
as:
ILC_COLOR32 => 0x0
3 matches
Mail list logo