in reply to Help needed regarding creating a subroutine to fit and view all items in a Tk::Canvas
See example code in Tk photo pixel colors# add these lines to force scroll to the ends my @bbox = $can->bbox( 'img' ); $can->configure(-scrollregion => [@bbox] ); $can->xviewMoveto(1); $can->yviewMoveto(1);
|
|---|