http://qs321.pair.com?node_id=310614


in reply to Re: Re: Re: Tk::Image problem
in thread Tk::Image problem

That works, but a Canvas is overkill: 
#!/usr/bin/perl
use strict;

use Tk;
use Tk::Photo;

my $main = new MainWindow;

my $photo = $main->Photo(-format => 'gif', -file => 't.gif');

$main->Label(-image => $photo)->pack;

MainLoop;

[download]
Are you sure it was a book? Are you sure it wasn't.....nothing?

In Section Seekers of Perl Wisdom