From bbf614a77f5f7ce89001361b07f75ee8f55c86c1 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 28 Aug 2015 17:12:08 -0700 Subject: 2091 --- edit.mu | 60 ++++++++++++++++++++++++++++++------------------------------ 1 file changed, 30 insertions(+), 30 deletions(-) diff --git a/edit.mu b/edit.mu index 69d7e418..5af22a1f 100644 --- a/edit.mu +++ b/edit.mu @@ -1557,8 +1557,8 @@ scenario editor-handles-backspace-key [ after +handle-special-character [ { - backspace?:boolean <- equal *c, 8/backspace - break-unless backspace? + delete-previous-character?:boolean <- equal *c, 8/backspace + break-unless delete-previous-character? editor, screen, go-render?:boolean <- delete-before-cursor editor, screen reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, go-render? } @@ -1746,8 +1746,8 @@ scenario editor-handles-delete-key [ after +handle-special-key [ { - delete?:boolean <- equal *k, 65522/delete - break-unless delete? + delete-next-character?:boolean <- equal *k, 65522/delete + break-unless delete-next-character? curr:address:duplex-list <- next-duplex *before-cursor reply-unless curr, editor/same-as-ingredient:0, screen/same-as-ingredient:1, 0/no-more-render currc:character <- get *curr, value:offset @@ -2601,8 +2601,8 @@ scenario editor-moves-to-start-of-line-with-ctrl-a [ after +handle-special-character [ { - ctrl-a?:boolean <- equal *c, 1/ctrl-a - break-unless ctrl-a? + move-to-start-of-line?:boolean <- equal *c, 1/ctrl-a + break-unless move-to-start-of-line? move-to-start-of-line editor reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, 0/no-more-render } @@ -2610,8 +2610,8 @@ after +handle-special-character [ after +handle-special-key [ { - home?:boolean <- equal *k, 65521/home - break-unless home? + move-to-start-of-line?:boolean <- equal *k, 65521/home + break-unless move-to-start-of-line? move-to-start-of-line editor reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, 0/no-more-render } @@ -2768,8 +2768,8 @@ scenario editor-moves-to-end-of-line-with-ctrl-e [ after +handle-special-character [ { - ctrl-e?:boolean <- equal *c, 5/ctrl-e - break-unless ctrl-e? + move-to-end-of-line?:boolean <- equal *c, 5/ctrl-e + break-unless move-to-end-of-line? move-to-end-of-line editor reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, 0/no-more-render } @@ -2777,8 +2777,8 @@ after +handle-special-character [ after +handle-special-key [ { - end?:boolean <- equal *k, 65520/end - break-unless end? + move-to-end-of-line?:boolean <- equal *k, 65520/end + break-unless move-to-end-of-line? move-to-end-of-line editor reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, 0/no-more-render } @@ -2908,8 +2908,8 @@ scenario editor-deletes-to-start-of-line-with-ctrl-u [ after +handle-special-character [ { - ctrl-u?:boolean <- equal *c, 21/ctrl-u - break-unless ctrl-u? + delete-to-start-of-line?:boolean <- equal *c, 21/ctrl-u + break-unless delete-to-start-of-line? delete-to-start-of-line editor reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, 1/go-render } @@ -3052,8 +3052,8 @@ scenario editor-deletes-to-end-of-line-with-ctrl-k [ after +handle-special-character [ { - ctrl-k?:boolean <- equal *c, 11/ctrl-k - break-unless ctrl-k? + delete-to-end-of-line?:boolean <- equal *c, 11/ctrl-k + break-unless delete-to-end-of-line? delete-to-end-of-line editor reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, 1/go-render } @@ -3936,8 +3936,8 @@ d] after +handle-special-character [ { - ctrl-f?:boolean <- equal *c, 6/ctrl-f - break-unless ctrl-f? + page-down?:boolean <- equal *c, 6/ctrl-f + break-unless page-down? page-down editor reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, 1/go-render } @@ -4115,8 +4115,8 @@ d] after +handle-special-character [ { - ctrl-b?:boolean <- equal *c, 2/ctrl-f - break-unless ctrl-b? + page-up?:boolean <- equal *c, 2/ctrl-b + break-unless page-up? editor <- page-up editor, screen-height reply screen/same-as-ingredient:0, editor/same-as-ingredient:1, 1/go-render } @@ -4875,8 +4875,8 @@ recipe update-cursor [ after +global-type [ { - ctrl-l?:boolean <- equal *c, 12/ctrl-l - break-unless ctrl-l? + redraw-screen??:boolean <- equal *c, 12/ctrl-l + break-unless redraw-screen?? screen <- render-all screen, env:address:programming-environment-data loop +next-event:label } @@ -4887,8 +4887,8 @@ after +global-type [ after +global-type [ { - ctrl-n?:boolean <- equal *c, 14/ctrl-n - break-unless ctrl-n? + switch-side?:boolean <- equal *c, 14/ctrl-n + break-unless switch-side? *sandbox-in-focus? <- not *sandbox-in-focus? screen <- update-cursor screen, recipes, current-sandbox, *sandbox-in-focus? loop +next-event:label @@ -4948,8 +4948,8 @@ container programming-environment-data [ after +global-type [ { - ctrl-x?:boolean <- equal *c, 24/ctrl-x - break-unless ctrl-x? + maximize?:boolean <- equal *c, 24/ctrl-x + break-unless maximize? screen, console <- maximize screen, console, env:address:programming-environment-data loop +next-event:label } @@ -6536,8 +6536,8 @@ container editor-data [ # ctrl-z - undo operation after +handle-special-character [ { - ctrl-z?:boolean <- equal *c, 26/ctrl-z - break-unless ctrl-z? + undo?:boolean <- equal *c, 26/ctrl-z + break-unless undo? undo:address:address:list <- get-address *editor, undo:offset break-unless *undo op:address:operation <- first *undo @@ -6552,8 +6552,8 @@ after +handle-special-character [ # ctrl-y - redo operation after +handle-special-character [ { - ctrl-y?:boolean <- equal *c, 25/ctrl-y - break-unless ctrl-y? + redo?:boolean <- equal *c, 25/ctrl-y + break-unless redo? redo:address:address:list <- get-address *editor, redo:offset break-unless *redo op:address:operation <- first *redo -- cgit 1.4.1-2-gfad0