note
clintp
Little bit to get you started:<code>
use Tk;
use Tk::Photo;
my $mw=new MainWindow;
my $foto=$mw->Photo(-file => 'picture.gif');
$mw->Button(-image => $foto)->pack();
$mw->MainLoop;
</code>
I could have attached the <code>$foto</code> object to any widget that will take a <code>-image</code> option (i.e. Label) or a canvas (with <code>createImage()</code>).
185786
185786