#!/usr/bin/perl -w
use strict;

use Tk;
use Tk::Frame;   #optional - may be needed for an .exe 
use Tk::ROText;  #optional - may be needed for an .exe

my $mw = MainWindow->new;
my $f_menu_dialog = $mw->Frame()->pack(-side=>'top',-fill=>'x');
$f_menu_dialog->Button( -text     =>"Clear All text",
                        -command  => \&Clear_all_text,
                      )->pack(-side=>'left');
                       
                       
my $f_text = $mw->Frame( -relief      => 'groove', 
                         -borderwidth => '4',
                       )->pack
                             (   -expand => 1, 
                                 -side   => 'top',
                                 -fill   => 'both', 
                             );

my $detail_log = $f_text->Scrolled('ROText', 
                                    -scrollbars => 'e')->pack;


foreach ("blah\n", "more blah\n", "yet more blah\n")
{
   $detail_log -> insert('end', $_);
}

MainLoop();

sub Clear_all_text
{
    $detail_log->delete("1.0", 'end'); 
}