<slide-button> ( orientation amount left right -- button )

Vocabulary

ui.gadgets.sliders.private

Inputs

orientation	an object
amount	an object
left	an object
right	an object

Outputs

button

an object

Definition

USING: accessors kernel ui.gadgets ui.gadgets.buttons
ui.gadgets.sliders ;

IN: ui.gadgets.sliders.private

: <slide-button> ( orientation amount left right -- button )
    [ swap ] 2dip [
        [ <gadget> ] dip
        [ swap find-slider slide-by-line ] curry
        slide-button new-button
    ] 3dip <slide-button-pen> >>interior ;