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');