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

Revert "ui.gadgets.editors: adding Ctrl-u support." 

This reverts commit 046d128c97.
master
John Benediktsson 2020-06-06 16:19:51 -07:00
parent 5c04baf757
commit e446f34280
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ui/gadgets/editors/editors.factor
View File

@ -543,10 +543,6 @@ editor "selection" f {
{ T{ key-down f { S+ } "END" } select-end-of-line }
{ T{ key-down f { S+ C+ } "HOME" } select-start-of-document }
{ T{ key-down f { S+ C+ } "END" } select-end-of-document }
{ T{ key-down f { C+ } "u" } delete-to-start-of-line }
{ T{ key-down f { C+ } "k" } delete-to-end-of-line }
{ T{ key-down f { C+ } "a" } start-of-line }
{ T{ key-down f { C+ } "e" } end-of-line }
} define-command-map
: editor-menu ( editor -- )
@ -658,6 +654,9 @@ multiline-editor "multiline" f {
{ T{ key-down f { S+ } "RET" } insert-newline }
{ T{ key-down f f "ENTER" } insert-newline }
{ T{ key-down f { C+ } "j" } com-join-lines }
{ T{ key-down f { C+ } "k" } delete-to-end-of-line }
{ T{ key-down f { C+ } "a" } start-of-line }
{ T{ key-down f { C+ } "e" } end-of-line }
} define-command-map
TUPLE: source-editor < multiline-editor ;