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 }