use warnings;
use strict;


use Tk;
use Tk::TextUndo;
my $main = MainWindow->new;

my $middle = $main->Frame(-borderwidth=>2,-relief=>'groove')->grid(-row=>0,-column=>1,-sticky=>'nsew');
my $middlebox = $middle->TextUndo (
						   -font => 'arial 10',
                           -wrap => 'word',
                           -spacing2 => 10,
                           -spacing3 => 30,
                           -takefocus => 1,
                           -background => 'white',

                           -width => 70,
                           -height => 10,

                           )->grid(-row=>0, -column=>0, -sticky=>'nsew');

$middlebox->insert('end',"This is a test of the œ character");

MainLoop;