ui: add some $quotation help.

diff --git a/basis/ui/gadgets/editors/editors-docs.factor b/basis/ui/gadgets/editors/editors-docs.factor
index 3ebd1cc83149d579ba6c68f7a6d8d9461641380f..ca6940c580559305177e9e3a35845a8be926e0de 100644 (file)
--- a/basis/ui/gadgets/editors/editors-docs.factor
+++ b/basis/ui/gadgets/editors/editors-docs.factor
@@ -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." } ;
 
 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. " } ;
 
 

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index df811569818bb8a21290827bf638227660b1b9e3..5c18d226ac3e2be83ac097c6aabbe95f0d78357a 100644 (file)
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -648,7 +648,7 @@ M: model-field model-changed
 
 TUPLE: action-field < field quot ;
 
-: <action-field> ( quot -- gadget )
+: <action-field> ( quot: ( string -- ) -- gadget )
     action-field new-field
         swap >>quot ;