> -----Original Message----- > From: John Mason [mailto:[EMAIL PROTECTED]] > Sent: Monday, February 03, 2003 7:19 AM > To: [EMAIL PROTECTED] > Subject: Messagebox icons > > > Anyone know how to show different icons in a messageBox with > the -icon > parameter? > > I cant find anything in any of the Perl/Tk books. > > If try -icon => 'error' or > -icon => 'warning' still get the information icon. > > I am running Perl 5.8 wit Tk under Win98.
The following works for me: <snip> use strict; use warnings; use Tk; my $mw = new MainWindow; my $repsonse = $mw->messageBox(-icon => 'error', -message => 'Hello World!', -title => 'Hello World!', -type => 'AbortRetryIgnore'); MainLoop; </snip> _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs