Select Code to Download

sub AlignAll{
    foreach my $i (0 .. 3) {
...
        $sc[$i]->xviewMoveto( $abs );
    }
}

    $sc[$i] = $tile[$i]->Scrolled('Canvas',
        -confine => 0,
...
        -height => 125,
        -background => randColor()
    )->pack(qw/-fill both -side top -expand 1/);