max-pack-dim ( pack sizes -- dim )

Vocabulary

ui.gadgets.packs.private

Inputs

pack	an object
sizes	an object

Outputs

dim

an object

Definition

USING: accessors arrays kernel ui.baseline-alignment ui.gadgets
;

IN: ui.gadgets.packs.private

: max-pack-dim ( pack sizes -- dim )
    over align>> +baseline+ eq?
    [ [ children>> ] dip measure-height 0 swap 2array ]
    [ nip max-dims ] if ;