my $pnl1 = Wx::Panel->new($self, -1);
	my $pnl2 = Wx::Panel->new($self, -1);
	my $pnl3 = Wx::Panel->new($self, -1);
	my $pnl4 = Wx::Panel->new($self, -1);