$abstractcanvas1  = $SomeFrame->Scrolled(qw/
       AbstractCanvas -bg white
       -confine 1
       -scrollbars se/,
       )->pack(-fill   => 'both',-expand => 1);


$can = $abstractcanvas2->Subwidget('scrolled');



$abstractcanvas2  = $SomeFrame->Scrolled(qw/
       AbstractCanvas -bg white
       -confine 1
       -scrollbars se/,
       )->pack(-fill   => 'both',-expand => 1);


$can = $abstractcanvas2->Subwidget('scrolled');


## code to display the network in $Canvas1