use Wx qw(:everything );
use Wx::Grid;
*Wx::App::OnInit = sub {1};
my $a = Wx::App->new;
my $f = Wx::Frame->new( undef, -1,'');
my $p= Wx::Panel->new($f,-1);
my $s= Wx::ScrolledWindow->new($p,-1); #Grid derives from this
my $g = Wx::Grid->new($p,-1);
print "$p\n$s\n$g\n";