Wx::Event::EVT_AUINOTEBOOK_BEGIN_DRAG stopped workind

[herbert breunung]

oh no not again,
but this time i have sample code, running on newest mint with Wx 0.9922
(sorry cant intall latest - just crashes:


make[1]: Entering directory
`/home/lichtkind/.cpanm/work/1410448739.5240/Wx-0.9923/ext'
make[2]: Entering directory
`/home/lichtkind/.cpanm/work/1410448739.5240/Wx-0.9923/ext/grid'
cp lib/Wx/Grid.pm ../../blib/lib/Wx/Grid.pm
/usr/bin/perl /usr/share/perl/5.18.2/ExtUtils/xsubpp  -noprototypes
-nolinenumbers  -typemap /usr/share/perl/5.18/ExtUtils/typemap -typemap
../../typemap -typemap typemap  Grid.xs > Grid.xsc && mv Grid.xsc Grid.c
g++ -pthread   -c  -I. -I../..
-I/usr/lib/x86_64-linux-gnu/wx/include/gtk2-unicode-release-2.8
-I/usr/include/wx-2.8  -D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fstack-protector
-fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -O2 -g   -DVERSION=\"0.01\" -DXS_VERSION=\"0.01\" -fPIC
"-I/usr/lib/perl/5.18/CORE"  -DWXPL_EXT -D_FILE_OFFSET_BITS=64 -D_LARGE_FILES
-D__WXGTK__   Grid.c
/bin/sh: 1: g++: not found
make[2]: *** [Grid.o] Error 127
make[2]: Leaving directory
`/home/lichtkind/.cpanm/work/1410448739.5240/Wx-0.9923/ext/grid'
make[1]: *** [subdirs] Error 2
make[1]: Leaving directory
`/home/lichtkind/.cpanm/work/1410448739.5240/Wx-0.9923/ext'
make: *** [subdirs] Error 2


)
just noticed because a kephra feature stopped working. this is the example

best
herbert




#!/usr/bin/perl
use v5.12;
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', 1);
        $bar->InsertPage( 1, Wx::Panel->new($bar), 'title 3', 1);
        $bar->InsertPage( 1, Wx::Panel->new($bar), 'title 2', 1);
        
        ( $bar, $bar, sub {
                my ($bar, $event ) = @_;
say "start drag ", $event->GetSelection;
        });
        Wx::Event::EVT_AUINOTEBOOK_END_DRAG($bar, $bar, sub {
                my ($bar, $event ) = @_;
say "end drag ", $event->GetSelection;
        });
        Wx::Event::EVT_AUINOTEBOOK_PAGE_CHANGED( $bar, $bar, sub{
                my ($bar, $event ) = @_;
                print "$bar change ",$event->GetSelection," \n";
        });

        Wx::Event::EVT_AUINOTEBOOK_PAGE_CLOSE( $bar, $bar,  sub {
                my ($bar, $event ) = @_;
                print "$bar pgclose\n";
                $event->Skip();
        });

        $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;