michael higgins writes:
> Oeschey, Lars (I/EK-142, extern) wrote:
> > Hi,
> >
> > is it possible to have a Tk::Dialog without a $top defined? I have some
> > non-graphical Installation, and on error I just want to pop some message up
> > that installation failed (or succeeded). If I create a (empty) $top first,
> > it looks ugly ;)
> >
> > Lars
>
>
> Dunno -- but, maybe you can create $top as an icon (-iconify), and no
> one will notice it?
>
> use Tk;
> my $top = tkinit;
> $top->iconify;
> if (my $reply = (my $d_box = $top->messageBox(-message=>'Installation
> Success', -title=>'Result', -type=>'OK'))){$top->destroy()};
> MainLoop();
I tried that on Solaris and it iconified both windows, but since your
message I tried it on win32 as well and it seems to work.
I have just tried 'withdraw' instead of 'iconify', and it works on both
platforms, and without an icon for the top window.
HTH
--
Brian Raven
A "goto" in Perl falls into the category of hard things that should be
possible, not easy things that should be easy.
-- Larry Wall in <[EMAIL PROTECTED]>
-----------------------------------------------------------------------
The information contained in this e-mail is confidential and solely
for the intended addressee(s). Unauthorised reproduction, disclosure,
modification, and/or distribution of this email may be unlawful. If you
have received this email in error, please notify the sender immediately
and delete it from your system. The views expressed in this message
do not necessarily reflect those of
LIFFE Holdings Plc or any of its subsidiary companies.
-----------------------------------------------------------------------
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
