[perl-win32-gui-users] Fixed: Multiple ImageList bug

2003-10-26 Thread Steve Pick
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

[perl-win32-gui-users] Additional: Multiple ImageList bug

2003-10-26 Thread Steve Pick
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 -

[perl-win32-gui-users] Multiple ImageList bug

2003-10-26 Thread Steve Pick
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