specified-font ( name style size foreground background -- font )


Vocabulary
ui.gadgets.panes.private

Inputs
namean object
stylean object
sizean object
foregroundan object
backgroundan object


Outputs
fontan object


Definition
USING: accessors combinators fonts io.styles kernel ;

IN: ui.gadgets.panes.private

MEMO:: specified-font
( name style size foreground background -- font )
monospace-font name [ >>name ] when* style {
{ f [ ] }
{ plain [ ] }
{ bold [ t >>bold? ] }
{ italic [ t >>italic? ] }
{ bold-italic [ t >>bold? t >>italic? ] }
} case size [ >>size ] when* foreground
[ >>foreground ] when* background [ >>background ] when* ;