: find-scroller* ( gadget -- scroller/f )
  dup find-scroller
    {
      [ nip ]
      [ viewport>> gadget-child swap child? ]
      [ nip ]
    }
  && ;