Hi,

The reason you are seeing strange behavior is that you have several controls with the same name, give each one a unique name and the problem will go away. 

For me (Vista, Perl 5.8.9, Win32::GUI 1.6) the below doesn't leak (handle or memory [i do see a 'leak' of 16K on the first run, but no more leaks on any other run after])

use strict; 
use Win32::GUI qw (WM_QUERYENDSESSION); 
my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200, -height => 200);
$main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);
$main->Show();
Win32::GUI::Dialog(); 

sub Label_Click {
  for (1..10000) {
    $main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);
  }
}




> From: warpod@mail.ru
> To: Ilya.Bandorin@socgen.com; perl-win32-gui-users@lists.sourceforge.net
> Date: Thu, 24 Dec 2009 19:10:51 +0300
> Subject: Re: [perl-win32-gui-users] label is not visible after recreating inevent
>
>
> Well, in my main application I need dynamically destroy/create controls. But I was told to not use DestroyWindow, because Win32::GUI "correctly" destroys control when it goes out of scope. I decided to check how Win32::GUI destroys controls when they are out of scope and wrote an example below. I do not need workaround (I already have one), I need a confirmation if it is a bug or not (if not, then why the behavior is so strange?). Try to comment one of $main->AddLabel in Label_Click and everything will be ok. This is very strange behavior, I think.
>
> It seems the program hangs in infinite loop invoking Win32::GUI::WindowProps::FETCH but I'm not yet digged deep enough to be 100% sure...
>
> -----Original Message-----
> From: "Ilya BANDORIN" <Ilya.Bandorin@socgen.com>
> To: "perl-win32-gui-users" <perl-win32-gui-users@lists.sourceforge.net>
> Date: Thu, 24 Dec 2009 18:53:36 +0300
> Subject: Re: [perl-win32-gui-users] label is not visible after recreating
> inevent
>
> > Probably because the control named "Label" is alredy defined in main code. Why do you try to create it once more?
> > You should just modify its properties (text), something like this:
> >
> > $main->Label->Text(rand());
> >
> >
> >
> > -----Original Message-----
> > From: Andrey [mailto:warpod@mail.ru]
> > Sent: Thursday, December 24, 2009 6:07 PM
> > To: perl-win32-gui-users
> > Subject: [perl-win32-gui-users] label is not visible after recreating inevent
> >
> >
> > While researching memory leak in Win32::GUI I found out strange behavior of control.
> >
> > Here is an example:
> >
> > =====================
> > use strict;
> > use Win32::GUI();
> >
> > my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200, -height => 200);
> >
> > $main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);
> >
> > sub Label_Click
> > {
> > { # "visibility" block
> > $main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1);
> > $main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1);
> > }
> > $main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1);
> > }
> >
> > $main->Show(); Win32::GUI::Dialog();
> >
> > sub Main_Terminate { -1; }
> > =======================
> >
> > When you click on "Hello, world" label it just disappears.
> > If you comment any of "$main->AddLabel" lines then everything will be OK.
> > Why label disappears?
> >
> > Perl version: 5.10.1 build 1006
> > Win32::GUI version: 1.06
> >
> >
> > ------------------------------------------------------------------------------
> > This SF.Net email is sponsored by the Verizon Developer Community
> > Take advantage of Verizon's best-in-class app development support
> > A streamlined, 14 day to market process makes app distribution fast and easy
> > Join now and get one step closer to millions of Verizon customers
> > http://p.sf.net/sfu/verizon-dev2dev
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > http://perl-win32-gui.sourceforge.net/
> > ------------------------------------------------------------------------------
> > This SF.Net email is sponsored by the Verizon Developer Community
> > Take advantage of Verizon's best-in-class app development support
> > A streamlined, 14 day to market process makes app distribution fast and easy
> > Join now and get one step closer to millions of Verizon customers
> > http://p.sf.net/sfu/verizon-dev2dev
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > http://perl-win32-gui.sourceforge.net/
> >
>
> ------------------------------------------------------------------------------
> This SF.Net email is sponsored by the Verizon Developer Community
> Take advantage of Verizon's best-in-class app development support
> A streamlined, 14 day to market process makes app distribution fast and easy
> Join now and get one step closer to millions of Verizon customers
> http://p.sf.net/sfu/verizon-dev2dev
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/


Add other email accounts to Hotmail in 3 easy steps. Find out how.