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


Vocabulary
ui.gadgets.sliders.private

Inputs
orientationan object
leftan object
rightan object


Outputs
penan object


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

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