<down-button> ( orientation -- button )

Vocabulary

ui.gadgets.sliders.private

Inputs

orientation

an object

Outputs

button

an object

Definition

USING: kernel ui.pens.polygon ui.theme ;

IN: ui.gadgets.sliders.private

: <down-button> ( orientation -- button )
    1 right-triangle-points down-triangle-points
    [ line-color swap <polygon-gadget> ] bi@ <slide-button> ;