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()).
| [reply] [d/l] [select] |
I would suggest:
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'
| [reply] [d/l] [select] |
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 | [reply] |
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 | [reply] [d/l] [select] |