frp-action-fields

db4
Sam Anklesaria 2009-06-18 15:54:24 -05:00
parent 5f903930a3
commit 0f7c3956d1
1 changed files with 3 additions and 0 deletions

View File

@ -51,6 +51,9 @@ M: frp-field model-changed 2dup frp-model>> =
: <empty-editor*> ( -- field ) "" <model> <frp-editor> ;
: <empty-editor> ( model -- field ) "" <model> <switch> <frp-editor> ;
: <frp-action-field> ( -- field ) f <action-field> dup [ set-control-value ] curry >>quot
f <model> >>model ;
GENERIC: output-model ( gadget -- model )
M: gadget output-model model>> ;
M: table output-model dup multiple-selection?>>