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

frp changes

db4
Sam Anklesaria 2009-05-01 11:06:48 -05:00
parent d9a9e16fd7
commit ac2557b4a7
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,11 +14,12 @@ 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-value val-quot>> [ call( a -- b ) ] [ drop f ] if* ;
M: frp-table row-color color-quot>> [ call( a -- b ) ] [ drop f ] if* ; M: frp-table row-color color-quot>> [ call( a -- b ) ] [ drop f ] if* ;
: <frp-table> ( model quot -- table ) : <frp-table> ( model -- table )
frp-table new-line-gadget dup >>renderer swap >>quot swap >>model frp-table new-line-gadget dup >>renderer [ ] >>quot swap >>model
f <model> >>selected-value sans-serif-font >>font f <model> >>selected-value sans-serif-font >>font
focus-border-color >>focus-border-color focus-border-color >>focus-border-color
transparent >>column-line-color ; transparent >>column-line-color ;
: <frp-list> ( model -- table ) <frp-table> [ 1array ] >>quot ;
: <frp-field> ( -- field ) f <model> <model-field> ; : <frp-field> ( -- field ) f <model> <model-field> ;
! Layout utilities ! Layout utilities
@ -27,11 +28,11 @@ GENERIC: output-model ( gadget -- model )
M: gadget output-model model>> ; M: gadget output-model model>> ;
M: frp-table output-model selected-value>> ; M: frp-table output-model selected-value>> ;
GENERIC: , ( object -- ) GENERIC: , ( uiitem -- )
M: gadget , make:, ; M: gadget , make:, ;
M: model , activate-model ; M: model , activate-model ;
GENERIC: -> ( object -- model ) GENERIC: -> ( uiitem -- model )
M: gadget -> dup make:, output-model ; M: gadget -> dup make:, output-model ;
M: model -> dup , ; M: model -> dup , ;
M: table -> dup , selected-value>> ; M: table -> dup , selected-value>> ;