Select Code to Download

sub updChatterbox {
    my ($mytopchar, $myposition) = $Chatfield->yview();  # retreive sc
+roll pos
...
        $Chatfield->yview(moveto=>$mytopchar);  # restore scroll pos
    }
}

    if ($myposition == 1) {
    $Chatfield->yview(moveto=>$myposition);
...
    else {
        $Chatfield->yview(moveto=>$mytopchar);  # restore scroll pos
    }