sub NewPicture
{
$mw->configure(-cursor => "watch");
$mw->idletasks;
zoom();
rotate();
                
$canvas->delete("picture");
$image_in = $canvas->Photo( -file       => $file_use, -format => $image_format );
if ($image_in->height() < 200 || $image_in->width() < 166)
        {
        $statuslbl->configure(-text=>"Das ausgewählte Foto ist zu klein!!");
        return;
        }
$picture = $canvas->createImage(0,0,-image => $image_in, -anchor => "nw", -tags => "picture");
$canvas->raise("rectangle", "all");
$mw->configure(-cursor => "arrow");
}