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();
-- mike higgins
^ ^
<-|->
(.)__ the world is a big box of paints.
__ __ and others, the canvas we're dealt.
| | - XTC
_/ \_
--
^ ^
<-|->
(.)__ the world is a big box of paints.
__ __ and others, the canvas we're dealt.
| | - XTC
_/ \_
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
