diff --git a/basis/ui/gadgets/editors/editors-docs.factor b/basis/ui/gadgets/editors/editors-docs.factor index 3ebd1cc831..ca6940c580 100644 --- a/basis/ui/gadgets/editors/editors-docs.factor +++ b/basis/ui/gadgets/editors/editors-docs.factor @@ -62,7 +62,7 @@ HELP: { $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: -{ $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 df81156981..5c18d226ac 100644 --- 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 ; -: ( quot -- gadget ) +: ( quot: ( string -- ) -- gadget ) action-field new-field swap >>quot ;