find-slider ( gadget -- slider/f )

Vocabulary

ui.gadgets.sliders.private

Inputs

gadget

a gadget

Outputs

slider/f

a 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 ;