track-layout ( track -- sizes )

Vocabulary

ui.gadgets.tracks.private

Inputs

track

an object

Outputs

sizes

an object

Definition

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

IN: ui.gadgets.tracks.private

: track-layout ( track -- sizes )
    {
        [ children>> pref-dims ]
        [ normalized-sizes ]
        [ [ available-dim ] [ gap-dim ] bi v- ]
        [ orientation>> ]
    } cleave [ [ n*v ] curry ] dip [ set-axis ] curry compose
    [ when* ] curry 2map ;