sub process_scroll {
...
if ( $bar == SB_VERT ) {
    $self->BM->Top( -$new_pos );
}
else {    # SB_HORZ
    $self->BM->Left( -$new_pos );
}