#!/usr/local/bin/perl -w
# XXX Does not work anymore:
# "can't pack ".dialog": it's a top-level window"
use
Tk;
use
Tk::Dialog;
my
$mw
= MainWindow->new;
my
$b
=
$mw
->Button(
-text
=>
'A button'
,
-command
=>
sub
{
"A button\n"
});
my
$t
=
$mw
->Dialog(
-title
=>
'A Dialog'
,
-text
=>
'A dialog has text'
);
$t
->withdraw;
$t
->idletasks;
$t
->wmCapture;
$t
->
pack
;
$b
->wmRelease;
MainLoop;