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