<up-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

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