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

frp-table fixes

db4
Sam Anklesaria 2009-04-28 22:00:21 -05:00
parent 96474ab059
commit 4c8c1f9626
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,9 +10,9 @@ IN: ui.frp
TUPLE: frp-table < table quot val-quot color-quot column-titles column-alignment ; TUPLE: frp-table < table quot val-quot color-quot column-titles column-alignment ;
M: frp-table column-titles column-titles>> ; M: frp-table column-titles column-titles>> ;
M: frp-table column-alignment column-alignment>> ; M: frp-table column-alignment column-alignment>> ;
M: frp-table row-columns quot>> call( a -- b ) ; M: frp-table row-columns quot>> [ call( a -- b ) ] [ drop f ] if* ;
M: frp-table row-value val-quot>> call( a -- b ) ; M: frp-table row-value val-quot>> [ call( a -- b ) ] [ drop f ] if* ;
M: frp-table row-color color-quot>> call( a -- b ) ; M: frp-table row-color color-quot>> [ call( a -- b ) ] [ drop f ] if* ;
: <frp-table> ( model quot -- table ) : <frp-table> ( model quot -- table )
frp-table new-line-gadget dup >>renderer swap >>quot swap >>model frp-table new-line-gadget dup >>renderer swap >>quot swap >>model