#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow::->new();

my $scrl_can = $mw->Scrolled('Canvas',
    -scrollregion => [0, 0, 300, 300],
)->pack(qw{-fill both -expand 1});
my $c = $scrl_can->Subwidget('canvas');

for my $x (0, 100, 200) {
    my $grassy_creek = $c->createGroup(
        [0,0], -members => [grass($c), creek($c)]
    );
    $mw->update();
    $c->move($grassy_creek, $x, 100);
}

MainLoop;

sub grass {
    return $_[0]->createRectangle(
        0, 0, 100, 100,
        -fill => '#009900', -outline => undef
    );
}

sub creek {
    return $_[0]->createRectangle(
        0, 30, 100, 70,
        -fill => '#0000cc', -outline => undef
    );
}