sub myPhoto
{
 my $f=shift;
 copy($f,fn($tmpdir.'myphototmp'));
 $TOP->Photo(-file=>$tmpdir.'myphototmp');
}