! Copyright (C) 2006 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
IN: gadgets-text
USING: gadgets gadgets-controls generic kernel models sequences ;

TUPLE: field model quot ;

C: field ( model quot -- field )
    <editor> over set-delegate
    [ set-field-quot ] keep
    [ set-field-model ] keep
    dup dup set-control-self ;

: field-prev control-model go-back ;

: field-next control-model go-forward ;

: field-commit ( field -- string )
    [ editor-text ] keep
    dup field-model [ dupd set-model ] when*
    dup field-quot [ dupd call ] when*
    dup control-model add-history
    select-all ;

field H{
    { T{ key-down f { C+ } "p" } [ field-prev ] }
    { T{ key-down f { C+ } "n" } [ field-next ] }
    { T{ key-down f { C+ } "k" } [ control-model clear-doc ] }
    { T{ key-down f f "RETURN" } [ field-commit drop ] }
} set-gestures