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