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

##</code><code>##

   -scrollregion => [0,0,200,200],

##</code><code>##

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

##</code><code>##

   foreach (1..20) {
      $canvas(or $frame)->Label(-text => 'test')->pack;
   }

##</code><code>##

   my $canvas = $main->Canvas(-height => 200,
                              -width => 200,
   )->pack(-side => 'left');
   $canvas->packPropagate(0);
   my $scrollbar = $main->Scrollbar(
                           -orient => 'vertical',
                           -command => ['yview' => $canvas],
   )->pack(-fill => 'y', -side => 'right');

##</code><code>##

   ['yview', $canvas, 'scroll', 1, 'units']