sub PRINT
    {
        my $window = shift;
        my $text   = $$window->Subwidget('text');

        $text->delete('0.0', 'end');        # <= Add this line
        $text->insert('end', $_) foreach (@_);
        $text->see('end');
        $$window->deiconify;
        $$window->raise;
        $$window->focus;
        $$window->update;                   # ** hacked this line ** - honyok
    }