Re: Crash with Wx and POE and a Wx::Wizard

I have

A .pl containing

my $app = Foo::Bar->new();

POE::Kernel->loop_run();
POE::Kernel->run();

Then in Foo::Bar

#
use base qw(Wx::App);
use POE;
use POE::Loop::Wx;
use lib "../";
use Foo::Bar::Interface;


sub new {
   my $self = shift;
   Wx::InitAllImageHandlers();

   my $frame = Foo::Bar::Interface->new();
   $self->SetTopWindow($frame);

   $frame->Show(1);
       1;
}

And when instanciating Foo::Bar::Interface perl craches when reaching 
the line
my $this  = $class->SUPER::new(  undef, -1, "Foo- Assistant" , $bitmap );

And when I try a

my $this  = Wx::Wizard->new(  undef, -1, "Foo- Assistant" , $bitmap );

It doesn't work either.

Any idea ?

Thanks

Eriam

Mike Schroeder a écrit :

> Are you sure it is connected to POE?  Will the same Wizard code run 
> outside of POE?
> Mike Schroeder
> MikeSchroeder@xxxxxxxxxxxxx
>
>
>
> Eriam Schaffter wrote:
>
> > Hello all
> >
> > I've been building a wizard with a single perl script (with several 
> > packages inside it) and then I tried to move those packages to modules.
> > Then when I try to create the Wx::Wizard perl crashes very badly 
> > (system error message).
> > The code goes like this
> >
> > --
> > package Foo::Bar::Interface;
> >
> > use 5.008006;
> > use warnings;
> >
> > use vars qw(@ISA);
> > @ISA = qw(Wx::Wizard);
> >
> > use POE;
> > use POE::Session;
> > use POE::Kernel;
> >
> > sub new {
> >    my $class = shift;
> >          print Dumper($class);
> >    my $bitmap = Wx::Bitmap->new( "Wizard.bmp", wxBITMAP_TYPE_BMP );
> >  my $this  = $class->SUPER::new(  undef, -1, "HuGo - Assistant" , 
> > $bitmap );
> > --
> >
> > And it crashes just at this line:  my $this  = $class->SUPER::new(  
> > undef, -1, "HuGo - Assistant" , $bitmap );
> > this class is instanciated by another class which is Foo::Bar and 
> > Foo::Bar is instanciated in the main program.
> > Do you have any idea why it crashes so badly ?
> >
> > I'm on windows xp pro / perl 5.8.6
> >
> > Thanks
> >
> > Eriam
> >
> >
> > -------------------------------------------------------
> > SF.Net email is sponsored by: GoToMeeting - the easiest way to 
> > collaborate
> > online with coworkers and clients while avoiding the high cost of 
> > travel and
> > communications. There is no equipment to buy and you can meet as 
> > often as
> > you want. Try it 
> > free.http://ads.osdn.com/?ad_id=7402&alloc_id=16135&op=click
> > _______________________________________________
> > wxperl-users mailing list
> > wxperl-users@xxxxxxxxxxxxxxxxxxxxx
> > https://lists.sourceforge.net/lists/listinfo/wxperl-users
-------------------------------------------------------
SF.Net email is sponsored by: GoToMeeting - the easiest way to collaborate
online with coworkers and clients while avoiding the high cost of travel and
communications. There is no equipment to buy and you can meet as often as
you want. Try it free.http://ads.osdn.com/?ad_id=7402&alloc_id=16135&op=click