#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow;
$mw->DynaMouseWheelBind('Tk::Canvas'); ## add more as needed like Tk::Text etc.
my $main = $mw -> Scrolled("Canvas",
                           -scrollbars=>'e',
                       )-> pack(-side => 'left',
                                -fill => 'both',
                                -expand => 1);

my $see = "\nHaaa, See that and die!";
my $info = $main->createText(180, 15,
                             -text => "$see",
                             -font => 'Arial 11 bold' ,
                             -fill => 'red');
$main->configure(-scrollregion => [0,0,2000 , 2000]);

my $canvas_cube = $main->Scrolled('Canvas',-width => 30, -height => 30, -background => 'green');
$canvas_cube->createText(15, 30, -text => "foo", -font => 'Arial 11 bold');
$canvas_cube->configure(-scrollregion => [0,0,100 , 100]);
$main ->createWindow(75,75, -window => $canvas_cube);

$main->focus;

MainLoop;