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


Vocabulary
ui.gadgets.frames.private

Inputs
framean object
grid-layoutan object
quot1an object
quot2an object


Outputs
pref-diman object
gapan object
filled-cellan object
dimsan object


Definition


: (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