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

View File

@ -363,9 +363,21 @@ editor "clipboard" f {
{ T{ cut-action } cut }
} 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 ;