Handbook
Glossary
interactor-font ( -- font )
Vocabulary
ui
.
tools
.
listener
Inputs
None
Outputs
font
an
object
Definition
USING:
accessors
assocs
combinators
fonts
io.styles
kernel
namespaces
sequences
;
IN:
ui.tools.listener
:
interactor-font
( -- font )
monospace-font
interactor-style
get
{
[
font-style
of
[
{
bold
bold-italic
}
member?
[
t
>>bold?
]
when
]
when*
]
[
font-style
of
[
{
italic
bold-italic
}
member?
[
t
>>italic?
]
when
]
when*
]
[
font-name
of
[
>>name
]
when*
]
[
font-size
of
[
>>size
]
when*
]
[
foreground
of
[
>>foreground
]
when*
]
[
background
of
[
>>background
]
when*
]
}
cleave
;