#!/usr/local/bin/perl -w
# XXX Does not work anymore:
# "can't pack ".dialog": it's a top-level window"
use Tk;
my $mw = MainWindow->new;
my $b = $mw->Button(-text => 'A button', -command => sub { print "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;