http://www.perlmonks.org?node_id=1001854


in reply to Help needed regarding creating a subroutine to fit and view all items in a Tk::Canvas

Try something like in this example code. After getting your bbox('all'), do your configure, then adjust the scrollbars. 
# add these lines to force scroll to the ends
my @bbox = $can->bbox( 'img'  );
$can->configure(-scrollregion => [@bbox] );
$can->xviewMoveto(1);
$can->yviewMoveto(1);

[download]
See example code in Tk photo pixel colors
I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh
  • Comment on Re: Help needed regarding creating a subroutine to fit and view all items in a Tk::Canvas
  • Download Code

In Section Seekers of Perl Wisdom