<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 horizontal = ] 2dip ? swap
    [ swap find-slider slide-by-line ] curry <repeat-button>
    { 1 1 } >>min-dim { 1 1 } >>size
    <slide-button-pen> >>interior ;