(adjust-font-size) ( seen gadget delta -- )

Vocabulary

ui.private

Inputs

seen	an object
gadget	an object
delta	an object

Outputs

None

Definition

USING: accessors classes.tuple kernel math math.order sets
slots.private ui.gadgets ;

IN: ui.private

:: (adjust-font-size) ( seen gadget delta -- )
    gadget seen ?adjoin [
        "font" gadget ?offset-of-slot [
            gadget swap
            [ slot clone [ delta + 1 max ] change-size ]
            [ set-slot ] 2bi gadget relayout
        ] when* seen gadget [ delta (adjust-font-size) ] with
        each-child
    ] when ;