1 ! Copyright (C) 2005, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors fry kernel math math.order sequences ui.gadgets
4 ui.gadgets.grids ui.gadgets.grids.private ;
7 TUPLE: frame < grid { filled-cell initial: { 0 0 } } ;
11 TUPLE: glue < gadget ;
13 M: glue pref-dim* drop { 0 0 } ;
15 : <glue> ( -- glue ) glue new ;
17 : <frame-grid> ( cols rows -- grid )
18 swap '[ _ [ <glue> ] replicate ] replicate ;
20 : (fill- ( frame grid-layout quot1 quot2 -- pref-dim gap filled-cell dims )
21 [ '[ [ dim>> ] [ gap>> ] [ filled-cell>> ] tri _ tri@ ] dip ] dip call ; inline
23 : available-space ( pref-dim gap dims -- avail )
24 length 1 + * [-] ; inline
26 : -center) ( pref-dim gap filled-cell dims -- )
27 [ nip available-space ]
28 [ [ remove-nth sum [-] ] [ set-nth ] 2bi ] 2bi ; inline
30 : (fill-center) ( frame grid-layout quot1 quot2 -- ) (fill- -center) ; inline
32 : fill-center ( frame grid-layout -- )
33 [ [ first ] [ column-widths>> ] (fill-center) ]
34 [ [ second ] [ row-heights>> ] (fill-center) ] 2bi ;
36 : <frame-layout> ( frame -- grid-layout )
37 dup <grid-layout> [ fill-center ] [ ] bi ;
42 [ grid>> ] [ <frame-layout> ] bi layout-grid ;
44 : new-frame ( cols rows class -- frame )
45 [ <frame-grid> ] dip new-grid ; inline
47 : <frame> ( cols rows -- frame )