sub updChatterbox {
    my ($mytopchar, $myposition) = $Chatfield->yview();  # retreive scroll pos
    &Status('Checking for new chat messages...');
    foreach (&getFromServer('chat')) { &printChat("$_"); }
    &Status($status_idle);
    if ($myposition == 1) {
        $Chatfield->yview(moveto=>$myposition);
    }
    else {
        $Chatfield->yview(moveto=>$mytopchar);  # restore scroll pos
    }
}

##</code><code>##

$Chatfield->see('end');

##</code><code>##

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