steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

frp tables

db4
Sam Anklesaria 2009-04-26 19:01:05 -05:00
parent a5e7b34f63
commit e6e32f052d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/ui/frp/frp.factor
View File

@ -6,12 +6,16 @@ IN: ui.frp
! Layout utilities
GENERIC: output-model ( gadget -- model )
M: gadget output-model model>> ;
M: frp-table output-model selected-value>> ;
GENERIC: , ( object -- )
M: gadget , make:, ;
M: model , activate-model ;
GENERIC: -> ( object -- model )
M: gadget -> dup make:, model>> ;
M: gadget -> dup make:, output-model ;
M: model -> dup , ;
: <box> ( models type -- track )
@ -22,7 +26,9 @@ M: model -> dup , ;
! Gadgets
: <frp-button> ( text -- button ) [ t swap set-control-value ] <bevel-button> f <model> >>model ;
TUPLE: frp-table < table quot ;
TUPLE: frp-table < table quot column-titles column-alignment ;
M: frp-table column-titles column-titles>> ;
M: frp-table column-alignment column-alignment>> ;
M: frp-table row-columns quot>> call( a -- b ) ;
: <frp-table> ( model quot -- table )
frp-table new-line-gadget dup >>renderer swap >>quot swap >>model