<slider-pen> ( orientation -- pen )


Vocabulary
ui.gadgets.sliders.private

Inputs and outputs
orientationan object
penan object


Definition


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