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


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

Brrr...you're right! I was way too quick with my answer! It should be this:
my $mw = MainWindow->new; my $photo = $mw->Photo( "photo" -format => 'jpeg', -file => 'test.jpg' ); my $button = $mw->Button(-image => "photo")->pack(); MainLoop;


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