factor/library/ui/text/field.factor

25 lines
654 B
Factor
Raw Normal View History

! Copyright (C) 2006 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
IN: gadgets-text
USING: gadgets generic kernel models ;
TUPLE: field model ;
C: field ( model -- field )
<editor> over set-delegate
[ set-field-model ] keep ;
: field-prev editor-document go-back ;
: field-next editor-document go-forward ;
: field-commit ( field -- )
dup field-model [ >r editor-text r> set-model ] when*
editor-document dup add-history clear-doc ;
field H{
{ T{ key-down f { C+ } "p" } [ field-prev ] }
{ T{ key-down f { C+ } "n" } [ field-next ] }
{ T{ key-down f f "ENTER" } [ field-commit ] }
} set-gestures