diff options
Diffstat (limited to 'edit.mu')
| -rw-r--r-- | edit.mu | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/edit.mu b/edit.mu index f5a06345..40576e3c 100644 --- a/edit.mu +++ b/edit.mu @@ -520,6 +520,11 @@ recipe handle-event [ at-wrap?:boolean <- equal cursor-column:address:number/deref, wrap-column:number break-unless at-wrap?:boolean # and if character after next isn't newline +#? $print [aaa] #? 1 + next-next:address:duplex-list <- next-duplex next:address:duplex-list + break-unless next-next:address:duplex-list + next-next-next:address:duplex-list <- next-duplex next-next:address:duplex-list + break-unless next-next-next:address:duplex-list # TODO cursor-row:address:number/deref <- add cursor-row:address:number/deref, 1:literal cursor-column:address:number/deref <- copy 0:literal @@ -1117,6 +1122,25 @@ scenario editor-moves-cursor-to-next-wrapped-line-with-right-arrow [ ] ] +scenario editor-does-not-wrap-cursor-when-line-does-not-wrap [ + assume-screen 10:literal/width, 5:literal/height + 1:address:array:character <- new [abcde] + 2:address:editor-data <- new-editor 1:address:array:character, screen:address, 0:literal/top, 0:literal/left, 5:literal/right + assume-console [ + left-click 0, 3 + press 65514 # right arrow + ] + run [ + event-loop screen:address, console:address, 2:address:editor-data + 3:number <- get 2:address:editor-data/deref, cursor-row:offset + 4:number <- get 2:address:editor-data/deref, cursor-column:offset + ] + memory-should-contain [ + 3 <- 0 + 4 <- 4 + ] +] + scenario editor-moves-cursor-to-next-line-with-right-arrow-at-end-of-line [ assume-screen 10:literal/width, 5:literal/height 1:address:array:character <- new [abc |