Previous message was mine...
For correct this problem I create this sub:
sub myPhoto
{
my $f=shift;
copy($f,fn($tmpdir.'myphototmp'));
$TOP->Photo(-file=>$tmpdir.'myphototmp');
}
and use it in code as:
createImage(x,y,-image=>myPhoto($filename));
This is some slowly but it work!
P.S.: I mean Perl/Tk and UTF-8 international support get for me many new surprises. |