my $t = $mw->Scrolled("Text", -scrollbars => 'e', -font => ['Courier New', '10'])->pack(-side => 'top', 
                     -fill => 'both', -expand => 1);
my $ts = $mw->Frame->pack(-side => 'top', -fill => 'x');
my $status = $mw->Scrolled("Text", -scrollbars => 'e', -height => '8', -font => '12')->
                           pack(-side => 'top',-fill => 'x', -expand => 0);

my $undo = $t->TextUndo();

my $edit_menu = $menubar->cascade(-label => "~Edit", -tearoff => 0);
$edit_menu->command(-label => '~Undo',    
	        -command => sub {$undo->undo()});