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

Improved left/right arrow keys in editor gadget

db4
Slava Pestov 2008-02-10 01:40:02 -06:00
parent 4514971c7b
commit ab63c7254c
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/ui/gadgets/editors/editors.factor
View File

@ -363,9 +363,21 @@ editor "clipboard" f {
{ T{ cut-action } cut } { T{ cut-action } cut }
} define-command-map } define-command-map
: previous-character T{ char-elt } editor-prev ; : previous-character ( editor -- )
dup gadget-selection? [
dup selection-start/end drop
over set-caret mark>caret
] [
T{ char-elt } editor-prev
] if ;
: next-character T{ char-elt } editor-next ; : next-character ( editor -- )
dup gadget-selection? [
dup selection-start/end nip
over set-caret mark>caret
] [
T{ char-elt } editor-next
] if ;
: previous-line T{ line-elt } editor-prev ; : previous-line T{ line-elt } editor-prev ;