track-pref-dims-2 ( track -- dim )

Vocabulary

ui.gadgets.tracks.private

Inputs

track

an object

Outputs

dim

an object

Definition

USING: accessors kernel math.vectors sequences ui.gadgets
ui.gadgets.packs.private ;

IN: ui.gadgets.tracks.private

: track-pref-dims-2 ( track -- dim )
    [
        [ children>> pref-dims ] [ normalized-sizes ] bi
        [ dup { 0 f } member? [ 2drop { 0 0 } ] [ v/n ] if ]
        2map max-dims
    ] [ gap-dim ] bi v+ ;