my ($x, $y, $w, $h) = $Konfig{canvas}->bbox("all");
    print "x=$x y=$y w=$w h=$h\n";