USING: accessors io io.styles kernel locals namespaces
ui.tools.listener.private ;

IN: ui.tools.listener

:: set-listener-font ( family size -- )
get-listener input>> :> inter family size make-font-style
inter output>> make-span-stream
:> ostream ostream inter output<<
inter font>> clone family >>name size >>size inter font<<
ostream output-stream set ;