my $frame = $main->Scrolled('Canvas',
                                -scrollbars => 'e', 
   )->pack;
   my $canvas = $frame->Subwidget('canvas');
   $canvas->configure(-height => 200, -width => 200);
   $canvas->packPropagate(0);