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

ui.frp uses table constructor

db4
Sam Anklesaria 2009-05-16 22:58:38 -05:00
parent 4952fc6f9f
commit 9ffa0c32c8
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/tables/tables.factor
View File

@ -57,8 +57,8 @@ M: table selected-value>> selected-values>> [ in>out ] <illusion> ;
M: table (>>selected-value) [ [ out>in ] <illusion> ] dip (>>selected-values) ;
M: table selected-index>> selected-indices>> in>out ;
M: table (>>selected-index) [ out>in ] dip (>>selected-indices) ;
M: table selected-index*>> selected-indices*>> in>out ;
M: table (>>selected-index*) [ out>in ] dip (>>selected-indices*) ;
M: table selected-index*>> selected-indices*>> [ in>out ] <illusion> ;
M: table (>>selected-index*) [ [ out>in ] <illusion> ] dip (>>selected-indices*) ;
IN: ui.gadgets.tables
: push-selected-index ( table n -- table ) 2dup swap selected-indices>> index [ drop ] [ over selected-indices>> push ] if ;

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

@ -65,11 +65,7 @@ M: frp-table row-columns quot>> [ call( a -- b ) ] [ drop f ] if* ;
M: frp-table row-value val-quot>> [ call( a -- b ) ] [ drop f ] if* ;
M: frp-table row-color color-quot>> [ call( a -- b ) ] [ drop f ] if* ;
: <frp-table> ( model -- table )
frp-table new-line-gadget dup >>renderer swap >>model
f basic-model new-model >>selected-values sans-serif-font >>font
focus-border-color >>focus-border-color
transparent >>column-line-color ;
: <frp-table> ( model -- table ) f frp-table new-table dup >>renderer ;
: <frp-table*> ( -- table ) f <model> <frp-table> ;
: <frp-list> ( model -- table ) <frp-table> [ 1array ] >>quot ;
: <frp-list*> ( -- table ) f <model> <frp-list> ;