diff options
| -rw-r--r-- | edit.mu | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/edit.mu b/edit.mu index 971b9bc8..b0e861ac 100644 --- a/edit.mu +++ b/edit.mu @@ -1812,14 +1812,14 @@ after +handle-special-key [ } ] -scenario editor-adjusts-column-at-next-line [ +scenario editor-adjusts-column-at-previous-line [ assume-screen 10/width, 5/height - 1:address:array:character <- new [abc -de] + 1:address:array:character <- new [ab +def] 2:address:editor-data <- new-editor 1:address:array:character, screen:address, 0/left, 10/right assume-console [ - left-click 1, 3 - press 65516 # down arrow + left-click 2, 3 + press 65517 # up arrow ] run [ editor-event-loop screen:address, console:address, 2:address:editor-data @@ -1827,7 +1827,7 @@ de] 4:number <- get *2:address:editor-data, cursor-column:offset ] memory-should-contain [ - 3 <- 2 + 3 <- 1 4 <- 2 ] ] @@ -1875,14 +1875,14 @@ after +handle-special-key [ } ] -scenario editor-adjusts-column-at-previous-line [ +scenario editor-adjusts-column-at-next-line [ assume-screen 10/width, 5/height - 1:address:array:character <- new [ab -def] + 1:address:array:character <- new [abc +de] 2:address:editor-data <- new-editor 1:address:array:character, screen:address, 0/left, 10/right assume-console [ - left-click 2, 3 - press 65517 # up arrow + left-click 1, 3 + press 65516 # down arrow ] run [ editor-event-loop screen:address, console:address, 2:address:editor-data @@ -1890,7 +1890,7 @@ def] 4:number <- get *2:address:editor-data, cursor-column:offset ] memory-should-contain [ - 3 <- 1 + 3 <- 2 4 <- 2 ] ] |