no Wx::Event::EVT_AUINOTEBOOK_PAGE_CLOSE bug

[herbert breunung]

hai steve,

made simples possible prototype and all worked :)
just appended it for maybe future usufulness

bug was on my side simple but kinda vicious,
fixed now too, hope to contribute real stuff soon :)

bigup
herbert






#!/usr/bin/perl

use strict;
use Wx;
use Wx::AUI;

package MyApp;
use vars qw(@ISA); @ISA=qw(Wx::App);

sub OnInit {
  my( $this ) = @_;
  my( $frame ) = Wx::Frame->new(undef, -1, "Docbar Prototype", [-1,-1], [450,
350 ] );
  my $bar = Wx::AuiNotebook->new($frame, -1, [-1,-1], [-1,-1],
                &Wx::wxAUI_NB_TOP | &Wx::wxAUI_NB_TAB_MOVE | 
&Wx::wxAUI_NB_WINDOWLIST_BUTTON |
                &Wx::wxAUI_NB_SCROLL_BUTTONS | 
&Wx::wxAUI_NB_CLOSE_ON_ACTIVE_TAB);
  $bar->InsertPage( 0, Wx::Panel->new($bar), 'title', 1);
  Wx::Event::EVT_AUINOTEBOOK_PAGE_CLOSE( $bar, -1, sub {
      my ($bar, $event ) = @_;
      print "pgclose";
  });

  $frame->SetIcon( Wx::GetWxPerlIcon() );
  $frame->Centre( );

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

sub OnQuit {
  my( $this, $event ) = @_;
  $this->Close( 1 );
}


package main;
MyApp->new()->MainLoop();