use warnings;
use strict;
use Tk;

my $mw = MainWindow->new();
$mw->geometry('100x100');

my $dyna = $mw->DynaTabFrame()->pack();
#$dyna->add('test', -label => 'test');
dialog();

MainLoop();

sub dialog {
	my $text = 'Default';
	my $dialog = $mw->DialogBox(-buttons => ['OK']);
	my $entry = $dialog->Entry(-textvariable => \$text)->pack();
	$entry->selectionRange('0.0', 'end');
	$dialog->configure(-focus => $entry);
	$dialog->Show();
}