view release on metacpan or  search on metacpan

t/03_threads.t  view on Meta::CPAN

use Wx::TreeListCtrl;
use Wx qw(:everything);
use if !Wx::wxTHREADS(), 'Test::More' => skip_all => 'No thread support';
use Test::More tests => 8;
use Wx::Event qw(EVT_BUTTON);


Wx::InitAllImageHandlers;

my @tocheck;
sub check_init(&) {
    my( $code ) = @_;
    push @tocheck, [ $code->(), $code->() ];
}

sub check_undef {
    $_->[1] = undef foreach @tocheck;
}

my $app = Wx::App->new( sub { 1 } );
my $frame = Wx::Frame->new( undef, -1, 'Test frame' );