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:
An empty photo object must be set without explicit
descriptor, nor image tags.
So in the main window, the line:
become:my $image = $label ->Photo('image', -height => 10, -width => 10, -format=>'XPM');
Nice day for you all!my $image = $label ->Photo( -height => 10, -width => 10);
In Section
Seekers of Perl Wisdom