# add these lines to force scroll to the ends
my @bbox = $can->bbox( 'img'  );
$can->configure(-scrollregion => [@bbox] );
$can->xviewMoveto(1);
$can->yviewMoveto(1);