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

[KuntalBhusan]

Dear Monks, I want to write a subroutine for Tk::Canvas so that when it is called it will enable the user to view all elements of a Tk ::Canvas which would be something like the ViewAll() function of Tk::AbstractCanvas or something better (I don't want to use Tk::AbstractCanvas for some reasons...). The code I have written is something like this :

sub fit_to_canvas
{
my ($xt0,$yt0,$xt1,$yt1) = $_canvas{0}->bbox('all'); 

if($xt0 != "")
{
my ($x0,$y0,$x1,$y1) = $_canvas{0}->bbox('all'); 

$_canvas{0}->xviewMoveto($x0);
$_canvas{0}->yviewMoveto($y1);

$_canvas{0}->configure(-scrollregion => [$x0,$y0,$x1,$y1]);

}## end of if not empty canvas

}

But it does not seen to work properly and do what I need.... Any help will be highly appreciated in this regard.. Thanks, Kuntal

[zentara]

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);

See example code in Tk photo pixel colors