use strict;
use warnings;
use Tk;
my $mw = MainWindow->new();
my $entry1 = $mw->Entry()->pack();
my $entry2 = $mw->Entry()->pack();
my $entry3 = $mw->Entry()->pack();
my $text = $mw->Scrolled('Text')->pack();

my @order = ($entry1 , $entry3, $entry2, $text);
for (my $i = 1; $i < @order; $i++) { $order[$i]->raise($order[$i-1]) }

$mw->bind('<Control-q>', sub {exit 0});

$text->Subwidget('xscrollbar')->configure(-takefocus => 0);
$text->Subwidget('yscrollbar')->configure(-takefocus => 0);
$text->Subwidget('scrolled')->bind('Tk::Text','<Tab>', 'NoOp');

$text->insert('1.0', join('',$text->Subwidget('scrolled')->bindDump));

$mw->MainLoop();
exit(0);