# $main is MainWindow
   my $canvas = $main->Scrolled('Canvas',
                                -scrollbars => 'e', 
                                -height => 200, 
                                -width => 200,
   )->pack;
   $canvas->packPropagate(0);