steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

^n and ^p in fields now moves caret to end

slava 2006-08-04 04:32:31 +00:00
parent f12f324923
commit 26816e583a
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.FACTOR.txt
View File

@ -8,7 +8,6 @@
- editor: - editor:
- better listener multi-line expression handling - better listener multi-line expression handling
- history doesn't work in a good way if you ^K the input - history doesn't work in a good way if you ^K the input
- history: move caret to end
- graphical module manager tool - graphical module manager tool
- services do not launch if factor not running - services do not launch if factor not running
- roundoff is still not quite right with tracks - roundoff is still not quite right with tracks

8
library/ui/text/commands.factor
View File

@ -60,6 +60,10 @@ sequences ;
: select-all ( editor -- ) T{ doc-elt } select-elt ; : select-all ( editor -- ) T{ doc-elt } select-elt ;
: editor-doc-start ( editor -- ) T{ doc-elt } editor-prev ;
: editor-doc-end ( editor -- ) T{ doc-elt } editor-next ;
editor H{ editor H{
{ T{ key-down f f "RETURN" } [ "\n" swap user-input ] } { T{ key-down f f "RETURN" } [ "\n" swap user-input ] }
{ T{ key-down f { S+ } "RETURN" } [ "\n" swap user-input ] } { T{ key-down f { S+ } "RETURN" } [ "\n" swap user-input ] }
@ -92,8 +96,8 @@ editor H{
{ T{ key-down f f "END" } [ T{ one-line-elt } editor-next ] } { T{ key-down f f "END" } [ T{ one-line-elt } editor-next ] }
{ T{ key-down f { S+ } "HOME" } [ T{ one-line-elt } editor-select-prev ] } { T{ key-down f { S+ } "HOME" } [ T{ one-line-elt } editor-select-prev ] }
{ T{ key-down f { S+ } "END" } [ T{ one-line-elt } editor-select-next ] } { T{ key-down f { S+ } "END" } [ T{ one-line-elt } editor-select-next ] }
{ T{ key-down f { C+ } "HOME" } [ T{ doc-elt } editor-prev ] } { T{ key-down f { C+ } "HOME" } [ editor-doc-start ] }
{ T{ key-down f { C+ } "END" } [ T{ doc-elt } editor-next ] } { T{ key-down f { C+ } "END" } [ editor-doc-end ] }
{ T{ key-down f { C+ S+ } "HOME" } [ T{ doc-elt } editor-select-prev ] } { T{ key-down f { C+ S+ } "HOME" } [ T{ doc-elt } editor-select-prev ] }
{ T{ key-down f { C+ S+ } "END" } [ T{ doc-elt } editor-select-next ] } { T{ key-down f { C+ S+ } "END" } [ T{ doc-elt } editor-select-next ] }
{ T{ key-down f f "DELETE" } [ T{ char-elt } editor-delete ] } { T{ key-down f f "DELETE" } [ T{ char-elt } editor-delete ] }

4
library/ui/text/field.factor
View File

@ -10,9 +10,9 @@ C: field ( model -- field )
[ set-field-model ] keep [ set-field-model ] keep
dup dup set-control-self ; dup dup set-control-self ;
: field-prev control-model go-back ; : field-prev dup control-model go-back editor-doc-end ;
: field-next control-model go-forward ; : field-next dup control-model go-forward editor-doc-end ;
: field-commit ( field -- string ) : field-commit ( field -- string )
[ editor-text ] keep [ editor-text ] keep