Tk, images, where do I begin.

[PyroX]

I searched on google, and here, no ansewers yet.

I want to build a simple gui with perl backend, the best example to describe why, I want to make a perl+Tk app to run through directories and list movies, and match the titles to pictures of them.

I need to be able to display the images, can I do this with perl and Tk? I have been using perl for awhile, but have never used Tk.

Anyone know of any tutorials or sample code to display an image with perl / Tk , or will I need some other things in addition?

I have multiple uses for this, ie: mp3's, MAME Games, movies, ect ect. And would like to get it done. ( I have built the untimate set-top box and neet to make the interface for browsing titles on the screen. )

Please help if you can ;)

[clintp]

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;

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

[Chmrr]

I would suggest:

• The widget program, which should be in the same directory as your perl binary (probably /usr/bin/widget on Unix, or c:\Perl\bin\widget.bat on Windows)
• Either of the two Perl/Tk books, learning or mastering
• http://www.perltk.org/
• The fine documentation, including the overview
• And, of course, the monastery, if you have any specific questions.

Myself, I found the widget examples to be the most useful.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

[jdavidboyd]

I would start (and, in fact, did), by going to Amazon.com or Barnes & Noble and getting a copy of Mastering Perl/TK.
It was around $50, and is money well spent.
It will answer all your questions.

There is also a Perl/TK web page, but I don't recall the adress of it.
Dave

[hiseldl]

I wrote some code for another monk last week, click here to check it out. It is a script with a left frame for directories, and a few widgets on the right that contain images. Look for the $im{ONE} and $im{GROUP} references for the image specific code (%im is the image hash).

--
hiseldl