sub insert_line {
    my ($widget, $pos, $text) = @_;

    $widget->insert('end', "\n") unless $text->index("end") eq "1.0";
    $widget->insert('end', $text);
}