(fill- ( frame grid-layout quot1 quot2 -- pref-dim gap filled-cell dims )

Vocabulary

ui.gadgets.frames.private

Inputs

frame	an object
grid-layout	an object
quot1	an object
quot2	an object

Outputs

pref-dim	an object
gap	an object
filled-cell	an object
dims	an object

Definition

USING: accessors kernel ;

IN: ui.gadgets.frames.private

: (fill-
    ( frame grid-layout quot1 quot2 -- pref-dim gap filled-cell dims )
    [
        [ [ [ dim>> ] [ gap>> ] [ filled-cell>> ] tri ] ] dip
        [ tri@ ] curry compose dip
    ] dip call ; inline