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

Vocabulary
ui.gadgets.sliders.private

Definition

USING: kernel ui.gadgets ui.gadgets.buttons ui.gadgets.theme
ui.pens.image ;

IN: ui.gadgets.sliders.private

: <slide-button-pen> ( orientation left right -- pen )
    [ horizontal = ] 2dip ?
    [ f f ] [ theme-image <image-pen> f f ] bi* <button-pen> ;