25 lines
654 B
Factor
25 lines
654 B
Factor
|
! 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
|