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