find-slider ( gadget -- slider/f )


Vocabulary
ui.gadgets.sliders.private

Inputs
gadgeta gadget


Outputs
slider/fa slider or f


Word description
Finds the first parent of gadget which is a slider. Outputs f if the gadget is not contained in a slider.

Definition
USING: ui.gadgets ui.gadgets.sliders ;

IN: ui.gadgets.sliders.private

: find-slider ( gadget -- slider/f ) [ slider? ] find-parent ;