my $filename = 'bild.gif';
my $image = $self->Photo(-file => $filename);
print $image->cget(-height), ",", $image->cget(-width);
$canvas->createImage($x, $y, -image => $image);