Re: no Wx::Event::EVT_AUINOTEBOOK_PAGE_CLOSE bug

[Steve Cookson - gmail]

Hi Herbert,

It's a nice little test utility, thanks for posting it.

Works fine for me.

Glad you sorted it out.

Regards

Steve.
On 04/09/14 12:11, herbert breunung wrote:

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();