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