Help for this page

Select Code to Download

Select or download this

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

Select or download this

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