Menu
▾
▴
Re: [perl-win32-gui-users] label is not visible after recreating inevent
|
From: Jeremy W. <jez...@ho...> - 2009-12-24 23:01:48
|
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: wa...@ma...
> To: Ily...@so...; per...@li...
> 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" <Ily...@so...>
> To: "perl-win32-gui-users" <per...@li...>
> 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:wa...@ma...]
> > 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
> > Per...@li...
> > 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
> > Per...@li...
> > 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
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
_________________________________________________________________
Have more than one Hotmail account? Link them together to easily access both
http://clk.atdmt.com/UKM/go/186394591/direct/01/ |
