#!/usr/bin/perl -w

use Tk;

my $mw = MainWindow->new();
my $tr = $mw->ROText(-borderwidth => 1, -height=>1);
$tr->pack();
$tr->insert('end', "\t\tReadonly:\n");
my $t = $mw->Text(-borderwidth => 1, -height=>1);
$t->pack();
MainLoop;