tcl::pTk GUI icons

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Dear monks,

This may be a quite stupid question, but how can I use icons in a tcl GUI created with the tcl::pTk module (used to have a Tk syntax which I am familiar with). My tcl (8.5) is not the lates, and this version does not support png, as the following script demonstrates:

use strict;
use warnings;

use Tcl::pTk;

my $mw = MainWindow->new();

foreach (1..10){
my $btn = $mw->Button(
-text => "My command",
-compound => 'top',
-image => $mw->Photo(-file => 'start.png'),
);
$btn->pack(-padx => 10, -pady => 10,);
}
MainLoop;
exit(0);
[download]

I could use gif images, but I do not think it is common practice (and I can not make them look nice). What would be standard practice here? Unfortunately I couldn't find any practical advice around that fits my case. Any suggestion is welcome. I am on macOS.

Comment on tcl::pTk GUI icons Download Code

Replies are listed 'Best First'.
Re: tcl::pTk GUI icons by Anonymous Monk on Apr 19, 2018 at 23:11 UTC
My tcl (8.5) is not the lates, and this version does not support png, as the following script demonstrates: I could use gif images, but I do not think it is common practice (and I can not make them look nice). What would be standard practice here? Unfortunately I couldn't find any practical advice around that fits my case. Any suggestion is welcome. I am on macOS. Use bitmaps (bmp)? Use jpegs? Upgrade to Tcl that supports png?	[reply]
Re^2: tcl::pTk GUI icons by chrstphrchvz (Scribe) on Jul 20, 2018 at 03:02 UTC
It sounds like PNG support is added/improved in Tk 8.6.x (cf. https://wiki.tcl.tk/6150), so if it's possible to upgrade, I'd give that a try. The other approach out there for older Tcl/Tk might be to have either the Img, Pixane^{(no longer available?)}, or tkPng extension installed.	[reply]
Re: tcl::pTk GUI icons by Anonymous Monk on Apr 19, 2018 at 23:02 UTC
I forgot the error message: `couldn't recognize data in image file "start.png" at /Users/aa/perl5/p +erlbrew/perls/perl-5.18.3/lib/site_perl/5.16.3/Tcl/pTk/Widget.pm line + 332.` [download]	[reply] [d/l]