set-listener-font ( family size -- )


Vocabulary
ui.tools.listener

Inputs
familyan object
sizean object


Outputs
None

Definition
USING: accessors assocs io.styles kernel ;

IN: ui.tools.listener

:: set-listener-font ( family size -- )
get-listener input>> :> interactor interactor output>>
:> output interactor
[ clone family >>name size >>size ] change-font
f >>line-height drop family font-name output style>> set-at
size font-size output style>> set-at ;