use strict;
use warnings;

use Tk;
use Tk::DialogBox;
use Tk::ROText;

my $mw = MainWindow->new();
my $d = $mw->DialogBox();
my $df = $d->Subwidget(q{top});
my $rt = $df->ScrlROText()->pack;
my $content = join qq{\n} => (0 .. 100);
$rt->insert(end => $content);

$mw->Button(-text => q{Show}, -command => sub { $d->Show })->pack;
$mw->Button(-text => q{Exit}, -command => sub { exit })->pack;

MainLoop;