Lynn, Many thanks for that - it worked a treat. FYI, the iconimage line has to be (re)applied to each new subwindow, or the "Tk" icon prevails.
Cheers Geoff -----Original Message----- From: Lyndon Rickards [mailto:l...@debscave.com] Sent: Saturday, September 12, 2009 1:54 AM To: Geoff Horsnell; perl-win32-users@listserv.activestate.com Subject: Re: Perl Tk system button > -------Original Message------- > From: Geoff Horsnell <ge...@horsnell.freeserve.co.uk> > Subject: Perl Tk system button > Sent: Sep 11 '09 17:02 > > Is it possible to change the image in the system menu button (The red Tk > button in the top left hand corner of all GUI windows)? I would like to add > my own icon in place of this symbol. > > #!perl -w use strict; use Tk; use Tk::Photo; my $mw = tkinit; my $ico = $mw->Photo(-file=>"c:/myapp/icon.bmp"); $mw->iconimage($ico); MainLoop; HTH - Lynn. _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
