Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Tk, images, where do I begin.

by clintp (Curate)
on Jul 28, 2002 at 00:33 UTC ( [id://185789]=note: print w/replies, xml ) Need Help??


in reply to Tk, images, where do I begin.

Little bit to get you started:
use Tk;
use Tk::Photo;

my $mw=new MainWindow;
my $foto=$mw->Photo(-file => 'picture.gif');
$mw->Button(-image => $foto)->pack();

$mw->MainLoop;

[download]
I could have attached the $foto object to any widget that will take a -image option (i.e. Label) or a canvas (with createImage()).

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://185789]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others studying the Monastery: (9)
As of 2024-04-18 16:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found