aligned-gadget

Vocabulary

ui.baseline-alignment

Class description

A gadget that adds the following slots:

baseline	a cached value for baseline; do not read or write this slot directly.
cap-height	a cached value for cap-height; do not read or write this slot directly.

Definition

USING: ui.gadgets ;

IN: ui.baseline-alignment

TUPLE: aligned-gadget < gadget baseline cap-height ;

Methods

USING: accessors kernel ui.baseline-alignment ;

M: aligned-gadget baseline
    [ baseline>> ] [
        [ baseline* ] [ ] [ layout-state>> ] tri
        [ drop ] [ dupd baseline<< ] if
    ] ?unless ;


USING: accessors kernel ui.baseline-alignment ;

M: aligned-gadget cap-height
    [ cap-height>> ] [
        [ cap-height* ] [ ] [ layout-state>> ] tri
        [ drop ] [ dupd cap-height<< ] if
    ] ?unless ;