Thank you for that. But is there a way not to use Win32::GUI
I looked around and found the following from
http://www.cpan.org/authors/id/C/CL/CLAIRD/ptkFAQ.html#A10.20
10.20. How do I replace the default window icon?
The following works with .BMP and .GIF files. The author would
welcome an explanation of how to use Windows .ICO files.
use Tk;
my $mw = tkinit();
$mw->idletasks;
my $icon = $mw->Photo(-file => 'myicon.gif');
$mw->iconimage($icon);
MainLoop;
I modified my code as the following be to up with the new style
use Tk;
$main = new MainWindow (-title => 'Control Center' );
$icon = $main->Photo(-file => 'myicon.gif');
$main->iconimage($icon);
yet I still see the "tk" icon the top left hand corner. Anyone has any idea
what is missing?
Thank you in advance
've used Michaelangelo to create icons. To add the icon:
# create the icon handler.
$icon = new Win32::GUI::Icon($SETTINGS->{files}->{gui_win_icon});
# create a window class for our window.
$hwnd_class = new Win32::GUI::Class( -name => "SomeNameOf Class",
-icon => $icon
);
--
Morbus Iff ( softcore vulcan porn rulezzzzz )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
-----Original Message-----
From: Amin Aleali
Sent: Tuesday, October 30, 2001 1:08 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: [perl-win32-gui-users] Help - Placing an ICON on the top left
of the window
I am sure that this question has been asked before but sadly I cannot find
it in the archives.
I need to replace the "TK" icon on the top left corner with one of my own.
If anyone has any suggestions or code clip to point me to the right
direction I would utterly appreciated.
-A
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
