Select Code to Download

use Wx qw(:everything );
use Wx::Grid;
...
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";

Wx::Panel=HASH(0xdeadbeef)
Wx::ScrolledWindow=HASH(0xbaddeed)
Wx::Grid=SCALAR(0xfeeddad)