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


in reply to (ichimunki) Re: Tk::JPEG
in thread Tk::JPEG

And of course you can define all of this at once: 
  my $mw = MainWindow->new;
  my $photo = $button->Photo( -format => 'jpeg', 
                              -file   => 'test.jpg' );
  my $button = $mw->Button(-image => $photo)->pack();
  MainLoop;

[download]


Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory

In Section Seekers of Perl Wisdom