my ($lcanvas) = $self->{LEFTCANVAS} = MyCanvas->new($splitter, -1,[0,0], [400,400],'Test1'); my ($rcanvas) = $self->{RIGHTCANVAS} = MyCanvas->new($splitter, -1,[0,0], [400,400],'Test2'); #### my ($lcanvas) = $self->{LEFTCANVAS} = Wx::Panel->new($splitter, -1,[0,0], [400,400]); my ($rcanvas) = $self->{RIGHTCANVAS} = Wx::Panel->new($splitter, -1,[0,0], [400,400]);