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 ui ;

IN: ui.tools.listener.private

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