#!/usr/bin/perl

use strict;

use Tk;

my $mw = MainWindow->new;

my $c = $mw->Scrolled(
        qw/Canvas -width 400 -height 400 -relief sunken
        -bg white -borderwidth 1 -scrollbars se -scrollregion/ => 
                [qw/0 0 1000 1000/])->pack;
                


MainLoop;

$c->MouseWheelBind

$c->Subwidget("scrolled")->MouseWheelBind

#!/Perl/bin/perl

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;

my $c = $mw->Scrolled(
        'Canvas',
        -width          => 400,
        -height         => 400,
        -relief         => 'sunken',
        -bg             => 'white',
        -borderwidth    => 1,
        -scrollbars     => 'se',
        -scrollregion   => [qw/0 0 1000 1000/]
)->pack();


$mw->MainLoop();

#!/Perl/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

my $scrtxt = $mw->Scrolled(
    'Text',
    -scrollbars => 'se',
)->pack(-fill => 'both');

$mw->MainLoop();

#sowohl
$c->MouseWheelBindoder 
#als auch...
$c->Subwidget("scrolled")->MouseWheelBind

$mw->MouseWheelBind("Tk::Canvas")