Why would you ask how NOT TO USE Win32::GUI on a Win32::GUI list? The purpose of the list, and the knowledge base of the participants is how TO USE Win32::GUI.
Anything you can do using Win32::GUI can be done without using Win32::GUI. Just create your own equivalent to the functionality, using Win32::API, or your own C language DLL. Perhaps you are under the impression that this list was for users of ANY perl on Windows GUI facility? Really, it is specific to Win32::GUI. If you are a TK user, you might get better help from a TK specific group, or a TK on Windows specific group (if there is one). Amin Aleali wrote: > 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 > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Perl-Win32-GUI-Users@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users -- Glenn ===== Due to the current economic situation, the light at the end of the tunnel will be turned off until further notice.
