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

ui: add some $quotation help.

db4
John Benediktsson 2015-07-18 10:57:37 -07:00
parent a66cf55e8e
commit 66f6416d34
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/editors/editors-docs.factor
View File

@ -62,7 +62,7 @@ HELP: <model-field>
{ $description "Creates an editor gadget which targets the specified model. The model must contain a string, or another item with a defined " { $link length } ", as this will be checked during layout." } ; { $description "Creates an editor gadget which targets the specified model. The model must contain a string, or another item with a defined " { $link length } ", as this will be checked during layout." } ;
HELP: <action-field> HELP: <action-field>
{ $values { "quot" "a quotation ( string -- )" } { "gadget" editor } } { $values { "quot" { $quotation ( string -- ) } } { "gadget" editor } }
{ $description "Creates an editor gadget with a blank model. Whenever a value is entered into the editor and Return pressed, the value is pushed on the stack as a string and the specified quotation is called. Note that the quotation cannot update the value in the field. " } ; { $description "Creates an editor gadget with a blank model. Whenever a value is entered into the editor and Return pressed, the value is pushed on the stack as a string and the specified quotation is called. Note that the quotation cannot update the value in the field. " } ;

2
basis/ui/gadgets/editors/editors.factor
View File

@ -648,7 +648,7 @@ M: model-field model-changed
TUPLE: action-field < field quot ; TUPLE: action-field < field quot ;
: <action-field> ( quot -- gadget ) : <action-field> ( quot: ( string -- ) -- gadget )
action-field new-field action-field new-field
swap >>quot ; swap >>quot ;