Re: Wx::Perl seems to be leaking memory

On 14/05/15 15:24, Steve Cookson wrote:
> That has been a very painful lesson.  We've now run over 60 video 
> tests with no crashes, so I hope it is resolved. 

I spoke too soon: the crashes have just moved to a different part of the 
system.

I've cut down a piece of code to try to isolate the problem and it 
follows this email.

If I create a few controls in a dialog, delete the dialog, use 
$app->Yield for the background processing to take place, I still end up 
with more Perl objects after the deletion than before.

Any ideas welcome.

Regards

Steve

#! /usr/bin/perl

package main;
use strict;
use warnings;

$main::app = App->new();
$main::app->MainLoop;

package App;
use strict;
use warnings;
use base 'Wx::App';


sub OnInit {

     Wx::InitAllImageHandlers();
     my $frame = Launch->new();
     $frame->Show(1);

}

package Launch;
use strict;
use warnings;
use Wx qw(:everything);
use base qw(Wx::Frame);
use Devel::Leak;
sub new {
     my ($class, $parent) = @_;


     my $i_frame = $class->SUPER::new($parent, -1, "Test", 
wxDefaultPosition, wxDefaultSize);
     $i_frame->{panel} = Wx::Panel->new($i_frame, -1, wxDefaultPosition, 
wxDefaultSize);
     $i_frame->{sizer} = Wx::BoxSizer->new(wxVERTICAL);
     $i_frame->{button} = Wx::Button->new($i_frame->{panel}, -1, 
"Launch", wxDefaultPosition, wxDefaultSize);
     $i_frame->{sizer}->Add($i_frame->{button});
     $i_frame->{panel}->SetSizer($i_frame->{sizer});
     $i_frame->{panel}->Layout();
     Wx::Event::EVT_BUTTON( $i_frame, $i_frame->{button}, sub {
     my ($self1, $event1) = @_;
     my $count1 =  Devel::Leak::NoteSV(my $handle);
     my $frame = Dialog->new();
     $frame->ShowModal();
     $frame->Destroy();
     $main::app->Yield();
     my $count2 =  Devel::Leak::CheckSV($handle );
     print $count1, "\n";
     print $count2, "\n";
     print $count2-$count1, "\n";
     });
     return $i_frame;

}
package Dialog;
use strict;
use warnings;
use Wx qw(:everything);
use base qw(Wx::Dialog);

sub new {
     my ($class, $parent) = @_;

     my $frame2 = $class->SUPER::new($parent, -1, "Test i_Layout" , 
wxDefaultPosition, wxDefaultSize);
     $frame2->{panel2} = Wx::Panel->new($frame2, -1 , wxDefaultPosition, 
wxDefaultSize, );
     $frame2->{sizer2} = Wx::BoxSizer->new(wxHORIZONTAL);
     $frame2->{panel2}->SetSizer($frame2->{sizer2});
     $frame2->{panel2}->Layout();

     return $frame2;

}
1;