use Tk;
my $mw = MainWindow->new;
my $image = $mw->Photo('-file' => Tk->findINC("icon.gif"));
$mw->iconimage($image);
$mw->iconify;
MainLoop;
[download]

If this doesn't work for you report to rt://Tk

Hi beech-

Thanks for the reply, and the pointer to Slaven's examples.

This particular example you cite, works fine on a PC, but does not work on the Mac. The iconimage line should change the title-bar icon to look like what is in icon.gif, and have that image used by the window manager when the application is iconified.

In either case, the Mac still shows the (seemingly hardcoded) X-windows icon as the title-bar icon, and the dock shows a miniaturized screenshot of what the application looks like, when iconized.

Looking through other examples there, I also find the following:

https://metacpan.org/source/SREZIC/Tk-804.033/examples/iconimg

In this example, each time you hit any of the buttons, the title-bar icon should change to look like the image in that button. This also fails on the Mac.

Has anyone ever been able to make either of these work on a Mac, since the dawn of time? If so, please reply here.

If not, I'll go ahead and create a bug report.

Thanks

-Craig