http://www.perlmonks.org?node_id=280266


in reply to Re: Tk::Photo and copy method
in thread Tk::Photo and copy method

I have found the problem.

An empty photo object must be set without explicit
descriptor, nor image tags.
So in the main window, the line:
my $image = $label ->Photo('image', -height => 10, -width => 10, -format=>'XPM');
become:
my $image = $label ->Photo( -height => 10, -width => 10);
Nice day for you all!