! Current version
! From ui.gadgets.scrollers

: find-scroller* ( gadget -- scroller )
    dup find-scroller dup [
        2dup viewport>> gadget-child
        swap child? [ nip ] [ 2drop f ] if
    ] [
        2drop f
    ] if ;