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