#####
#
# Main Text Box
#
#####

my $text = $mw->Scrolled('Text',
                          -relief => 'sunken',
                          -width => 100,
                          -height => 30,
                          -background => 'white');
$text->pack(-side => 'left', -fill => 'both', -expand => 'yes');

$text->tagConfigure('CRITICAL', -foreground => 'red');
$text->tagConfigure('MAJOR', -foreground => 'pink');


# loop and subroutine to enter text from logfile into listbox

#$mw->fileevent(LOG, 'readable', [\&insert_lines]);
insert_lines();

MainLoop();

#####
#
# Subroutines
#
#####

sub insert_lines
{
    while(<LOG>){
        if(/(CRITICAL|MAJOR)/){
            $text->insert('end',$_,$1);
        }else{
            $text->insert('end',$_);
        }
    }
}