[wxperl-users] Problems with Wx::Wizard (EVT_WIZARD_FINISHED EVT_CLOSE)

[Manuel R. <m....@te...>]

Hey,
Currently I'm trying to get Wx::Wizard working and I'm having some =
problems.

First:
I get an "EVT_WIZARD_FINISHED is not exported" error and =
EVT_WIZARD_CANCEL clames that it has not enough paramters, but the doc =
says
	EVT_WIZARD_CANCEL(id, func)


Second:=20
I need to click twice on the [X] to get the EVT_CLOSE working and =
succesfully running my OnClose sub...
Why that?

Attached the test script. It's mainly based on the demo code.

I'm on WinXP running the latest Activeperl 5.8.7 (815)=20
Wxperl 0.26

Hope you can help me.

Greetz & blessings=20
Manuel

########################################################
#!/usr/bin/perl -w --=20

use strict;

package MyApp;                                       # Package-Name

###################################################### Wx-Module
use Wx;
use Wx qw[:allclasses];
use Wx qw[:everything];

use base qw(Wx::App);

sub OnInit {
    my( $this ) =3D @_;
   =20
    my( $dialog ) =3D MyWizard->new( "Wizard",
                                 wxDefaultPosition,
                               );
    $this->SetTopWindow( $dialog );
   =20
    $dialog->Show( 1 );
   =20
    1;
}
# end of class MyApp


package MyWizard;
#use Wx::Wizard;
use Wx::Event qw(
    EVT_WIZARD_PAGE_CHANGED=20
    EVT_BUTTON=20
    EVT_CLOSE=20
    EVT_WIZARD_CANCEL=20
    EVT_WIZARD_FINISHED

);
sub new {
    # Panel erzeugen
    my $class =3D shift;
    Wx::InitAllImageHandlers();
      =20
    my $wizard =3D Wx::Wizard->new( undef, -1, "Wizard test" );
   =20
    # 1. Seite Excel Datei ausw=E4hlen
    my $page1 =3D Wx::WizardPageSimple->new( $wizard );
    Wx::TextCtrl->new( $page1, -1, "First page" );
   =20
    # 2. Seite Feld zuordnung / Preisdatum / Herstellerk=FCrzel
    my $page2 =3D Wx::WizardPageSimple->new( $wizard );
    Wx::TextCtrl->new( $page2, -1, "Second page" );
   =20
    Wx::WizardPageSimple::Chain( $page1, $page2 );
       =20
    $wizard->RunWizard( $page1 );
   =20
    EVT_WIZARD_CANCEL   ($wizard, \&OnClose );
    EVT_WIZARD_FINISHED ($wizard, \&OnClose);
    EVT_CLOSE           ($wizard, \&OnClose );
    return $wizard;
}

sub OnClose {
    my $this =3D shift;
    print "Foo";
    $this->Destroy;
}

package main;

unless(caller){
	my $kasse1 =3D MyApp->new();
	$kasse1->MainLoop();
}