adjust-listener-font-size ( listener delta -- )

Vocabulary

ui.tools.listener.private

Inputs

listener	an object
delta	an object

Outputs

None

Definition

USING: accessors assocs io.styles kernel math ;

IN: ui.tools.listener.private

:: adjust-listener-font-size ( listener delta -- )
    listener input>> :> interactor interactor output>> :> output
    interactor [ clone [ delta + ] change-size ] change-font
    f >>line-height
    font>> size>> font-size output style>> set-at ;