<slider-pen> ( orientation -- pen )

Vocabulary

ui.gadgets.sliders.private

Inputs

orientation

an object

Outputs

pen

an object

Definition

USING: combinators kernel ui.gadgets ui.pens.tile
ui.theme.images ;

IN: ui.gadgets.sliders.private

: <slider-pen> ( orientation -- pen )
    {
        {
            horizontal
            [
                "horizontal-scroller-left" theme-image
                "horizontal-scroller-middle" theme-image
                "horizontal-scroller-right" theme-image
                "horizontal-scroller-right-disabled" theme-image
            ]
        }
        {
            vertical
            [
                "vertical-scroller-top" theme-image
                "vertical-scroller-middle" theme-image
                "vertical-scroller-bottom" theme-image
                "vertical-scroller-bottom-disabled" theme-image
            ]
        }
    } case [ f f <tile-pen> ] bi-curry@ 2bi slider-pen boa ;