aligned-locs ( sizes pack -- seq )

Vocabulary

ui.gadgets.packs.private

Inputs

sizes	an object
pack	an object

Outputs

seq

an object

Definition

USING: accessors kernel ui.baseline-alignment ;

IN: ui.gadgets.packs.private

: aligned-locs ( sizes pack -- seq )
    dup align>> +baseline+ eq?
    [ nip baseline-aligned-locs ] [ numerically-aligned-locs ]
    if ;