6 use Tests_Helper 'test_frame';
11 use Test::More 'tests' => 2;
14 my $this = shift->SUPER::new( undef, -1, 'a' );
16 my $panel2 = Wx::Panel->new( $this, -1 );
17 like( "$panel2", qr/^Wx::Panel=HASH/ );
19 my $panel1 = Wx::Panel->new;
20 like( "$panel1", qr/^Wx::Panel=HASH/ );
22 $panel1->Create( $this, -1 );
23 Wx::Event::EVT_IDLE( $this,
24 sub { $this->Destroy } );
25 $this->Destroy if ( Wx::wxMSW || Wx::wxGTK || Wx::wxMOTIF )
26 && Wx::wxVERSION() < 2.005;
31 test_frame( 'MyFrame' );
32 Wx::wxTheApp()->MainLoop();