Hello, Win32::GUI users!
I have an application which extensively creates and destroys window controls,
such as labels, buttons etc..
To get rid from window control I use Win32::GUI::DestroyWindow, but seems this
method is not working properly, see 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
{
for (1..1000)
{
Win32::GUI::DestroyWindow($main->{"Label"}{-handle});
delete $main->{"Label"};
$main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top =>
20, -notify => 1);
}
}
$main->Show(); Win32::GUI::Dialog();
sub Main_Terminate { -1; }
=============
When I click on label the program creates/destroys control many times. But
seems there is huge memory leak, when using this method. Is there any "proper"
way do destroy window control?
------------------------------------------------------------------------------
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
