sub _usr_next {
    $window_hash->{main}{children}{label}->configure(-textvariable, $window_hash->{main}{children}{text});

}