diff options
Diffstat (limited to 'sandbox/012-editor-undo.mu')
-rw-r--r-- | sandbox/012-editor-undo.mu | 214 |
1 files changed, 107 insertions, 107 deletions
diff --git a/sandbox/012-editor-undo.mu b/sandbox/012-editor-undo.mu index 0b13de25..ce8c9e21 100644 --- a/sandbox/012-editor-undo.mu +++ b/sandbox/012-editor-undo.mu @@ -102,18 +102,18 @@ scenario editor-can-undo-typing [ local-scope # create an editor and type a character assume-screen 10/width, 5/height - e:&:editor <- new-editor [], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [], screen, 0/left, 10/right editor-render screen, e assume-console [ type [0] ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # character should be gone screen-should-contain [ @@ -127,7 +127,7 @@ scenario editor-can-undo-typing [ type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -232,18 +232,18 @@ scenario editor-can-undo-typing-multiple [ local-scope # create an editor and type multiple characters assume-screen 10/width, 5/height - e:&:editor <- new-editor [], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [], screen, 0/left, 10/right editor-render screen, e assume-console [ type [012] ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # all characters must be gone screen-should-contain [ @@ -258,13 +258,13 @@ scenario editor-can-undo-typing-multiple-2 [ local-scope # create an editor with some text assume-screen 10/width, 5/height - e:&:editor <- new-editor [a], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [a], screen, 0/left, 10/right editor-render screen, e # type some characters assume-console [ type [012] ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . .012a . @@ -276,7 +276,7 @@ scenario editor-can-undo-typing-multiple-2 [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # back to original text screen-should-contain [ @@ -290,7 +290,7 @@ scenario editor-can-undo-typing-multiple-2 [ type [3] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -304,14 +304,14 @@ scenario editor-can-undo-typing-enter [ local-scope # create an editor with some text assume-screen 10/width, 5/height - e:&:editor <- new-editor [ abc], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [ abc], screen, 0/left, 10/right editor-render screen, e # new line assume-console [ left-click 1, 8 press enter ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . . abc . @@ -331,7 +331,7 @@ scenario editor-can-undo-typing-enter [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset @@ -351,7 +351,7 @@ scenario editor-can-undo-typing-enter [ type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -367,13 +367,13 @@ scenario editor-redo-typing [ local-scope # create an editor, type something, undo assume-screen 10/width, 5/height - e:&:editor <- new-editor [a], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [a], screen, 0/left, 10/right editor-render screen, e assume-console [ type [012] press ctrl-z ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . .a . @@ -385,7 +385,7 @@ scenario editor-redo-typing [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # all characters must be back screen-should-contain [ @@ -399,7 +399,7 @@ scenario editor-redo-typing [ type [3] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -431,13 +431,13 @@ scenario editor-redo-typing-empty [ local-scope # create an editor, type something, undo assume-screen 10/width, 5/height - e:&:editor <- new-editor [], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [], screen, 0/left, 10/right editor-render screen, e assume-console [ type [012] press ctrl-z ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . . . @@ -449,7 +449,7 @@ scenario editor-redo-typing-empty [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # all characters must be back screen-should-contain [ @@ -463,7 +463,7 @@ scenario editor-redo-typing-empty [ type [3] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -480,18 +480,18 @@ scenario editor-work-clears-redo-stack [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e assume-console [ type [1] press ctrl-z ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # do some more work assume-console [ type [0] ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . .0abc . @@ -504,7 +504,7 @@ ghi] press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # nothing should happen screen-should-contain [ @@ -520,7 +520,7 @@ scenario editor-can-redo-typing-and-enter-and-tab [ local-scope # create an editor assume-screen 10/width, 5/height - e:&:editor <- new-editor [], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [], screen, 0/left, 10/right editor-render screen, e # insert some text and tabs, hit enter, some more text and tabs assume-console [ @@ -532,7 +532,7 @@ scenario editor-can-redo-typing-and-enter-and-tab [ press tab type [efg] ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . . ab cd . @@ -551,7 +551,7 @@ scenario editor-can-redo-typing-and-enter-and-tab [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # typing in second line deleted, but not indent 3:num/raw <- get *e, cursor-row:offset @@ -572,7 +572,7 @@ scenario editor-can-redo-typing-and-enter-and-tab [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # indent and newline deleted 3:num/raw <- get *e, cursor-row:offset @@ -592,7 +592,7 @@ scenario editor-can-redo-typing-and-enter-and-tab [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # empty screen 3:num/raw <- get *e, cursor-row:offset @@ -612,7 +612,7 @@ scenario editor-can-redo-typing-and-enter-and-tab [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # first line inserted 3:num/raw <- get *e, cursor-row:offset @@ -632,7 +632,7 @@ scenario editor-can-redo-typing-and-enter-and-tab [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # newline and indent inserted 3:num/raw <- get *e, cursor-row:offset @@ -653,7 +653,7 @@ scenario editor-can-redo-typing-and-enter-and-tab [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # indent and newline deleted 3:num/raw <- get *e, cursor-row:offset @@ -680,19 +680,19 @@ scenario editor-can-undo-touch [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor assume-console [ left-click 3, 1 ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # click undone 3:num/raw <- get *e, cursor-row:offset @@ -706,7 +706,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -771,20 +771,20 @@ scenario editor-can-undo-left-arrow [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor assume-console [ left-click 3, 1 press left-arrow ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # cursor moves back 3:num/raw <- get *e, cursor-row:offset @@ -798,7 +798,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -816,14 +816,14 @@ scenario editor-can-undo-up-arrow [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor assume-console [ left-click 3, 1 press up-arrow ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset memory-should-contain [ @@ -835,7 +835,7 @@ ghi] press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # cursor moves back 3:num/raw <- get *e, cursor-row:offset @@ -849,7 +849,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -867,20 +867,20 @@ scenario editor-can-undo-down-arrow [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor assume-console [ left-click 2, 1 press down-arrow ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # cursor moves back 3:num/raw <- get *e, cursor-row:offset @@ -894,7 +894,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -912,20 +912,20 @@ scenario editor-can-undo-ctrl-a [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor, then to start of line assume-console [ left-click 2, 1 press ctrl-a ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # cursor moves back 3:num/raw <- get *e, cursor-row:offset @@ -939,7 +939,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -957,20 +957,20 @@ scenario editor-can-undo-home [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor, then to start of line assume-console [ left-click 2, 1 press home ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # cursor moves back 3:num/raw <- get *e, cursor-row:offset @@ -984,7 +984,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -1002,20 +1002,20 @@ scenario editor-can-undo-ctrl-e [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor, then to start of line assume-console [ left-click 2, 1 press ctrl-e ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # cursor moves back 3:num/raw <- get *e, cursor-row:offset @@ -1029,7 +1029,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -1047,20 +1047,20 @@ scenario editor-can-undo-end [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor, then to start of line assume-console [ left-click 2, 1 press end ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # undo assume-console [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # cursor moves back 3:num/raw <- get *e, cursor-row:offset @@ -1074,7 +1074,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -1092,7 +1092,7 @@ scenario editor-can-undo-multiple-arrows-in-the-same-direction [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # move the cursor assume-console [ @@ -1101,7 +1101,7 @@ ghi] press right-arrow press up-arrow ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset memory-should-contain [ @@ -1113,7 +1113,7 @@ ghi] press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # up-arrow is undone 3:num/raw <- get *e, cursor-row:offset @@ -1127,7 +1127,7 @@ ghi] press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # both right-arrows are undone 3:num/raw <- get *e, cursor-row:offset @@ -1147,19 +1147,19 @@ scenario editor-redo-touch [ contents:text <- new [abc def ghi] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e assume-console [ left-click 3, 1 press ctrl-z ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e # redo assume-console [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # cursor moves to left-click 3:num/raw <- get *e, cursor-row:offset @@ -1173,7 +1173,7 @@ ghi] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -1202,14 +1202,14 @@ scenario editor-separates-undo-insert-from-undo-cursor-move [ local-scope # create an editor, type some text, move the cursor, type some more text assume-screen 10/width, 5/height - e:&:editor <- new-editor [], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [], screen, 0/left, 10/right editor-render screen, e assume-console [ type [abc] left-click 1, 1 type [d] ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset screen-should-contain [ @@ -1227,7 +1227,7 @@ scenario editor-separates-undo-insert-from-undo-cursor-move [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset ] @@ -1247,7 +1247,7 @@ scenario editor-separates-undo-insert-from-undo-cursor-move [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset ] @@ -1267,7 +1267,7 @@ scenario editor-separates-undo-insert-from-undo-cursor-move [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset ] @@ -1287,7 +1287,7 @@ scenario editor-separates-undo-insert-from-undo-cursor-move [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset ] @@ -1307,7 +1307,7 @@ scenario editor-separates-undo-insert-from-undo-cursor-move [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset ] @@ -1328,7 +1328,7 @@ scenario editor-separates-undo-insert-from-undo-cursor-move [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset ] @@ -1351,7 +1351,7 @@ scenario editor-can-undo-and-redo-backspace [ local-scope # create an editor assume-screen 10/width, 5/height - e:&:editor <- new-editor [], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [], screen, 0/left, 10/right editor-render screen, e # insert some text and hit backspace assume-console [ @@ -1359,7 +1359,7 @@ scenario editor-can-undo-and-redo-backspace [ press backspace press backspace ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . .a . @@ -1377,7 +1377,7 @@ scenario editor-can-undo-and-redo-backspace [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset @@ -1396,7 +1396,7 @@ scenario editor-can-undo-and-redo-backspace [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset @@ -1496,7 +1496,7 @@ scenario editor-can-undo-and-redo-delete [ local-scope # create an editor assume-screen 10/width, 5/height - e:&:editor <- new-editor [], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [], screen, 0/left, 10/right editor-render screen, e # insert some text and hit delete and backspace a few times assume-console [ @@ -1507,7 +1507,7 @@ scenario editor-can-undo-and-redo-delete [ press delete press delete ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . .af . @@ -1525,7 +1525,7 @@ scenario editor-can-undo-and-redo-delete [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset @@ -1544,7 +1544,7 @@ scenario editor-can-undo-and-redo-delete [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset @@ -1563,7 +1563,7 @@ scenario editor-can-undo-and-redo-delete [ press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset @@ -1582,7 +1582,7 @@ scenario editor-can-undo-and-redo-delete [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # first line inserted 3:num/raw <- get *e, cursor-row:offset @@ -1602,7 +1602,7 @@ scenario editor-can-undo-and-redo-delete [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # first line inserted 3:num/raw <- get *e, cursor-row:offset @@ -1622,7 +1622,7 @@ scenario editor-can-undo-and-redo-delete [ press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # first line inserted 3:num/raw <- get *e, cursor-row:offset @@ -1687,14 +1687,14 @@ scenario editor-can-undo-and-redo-ctrl-k [ assume-screen 10/width, 5/height contents:text <- new [abc def] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # insert some text and hit delete and backspace a few times assume-console [ left-click 1, 1 press ctrl-k ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . .a . @@ -1713,7 +1713,7 @@ def] press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -1733,7 +1733,7 @@ def] press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # first line inserted screen-should-contain [ @@ -1754,7 +1754,7 @@ def] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -1790,14 +1790,14 @@ scenario editor-can-undo-and-redo-ctrl-u [ assume-screen 10/width, 5/height contents:text <- new [abc def] - e:&:editor <- new-editor contents, screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor contents, screen, 0/left, 10/right editor-render screen, e # insert some text and hit delete and backspace a few times assume-console [ left-click 1, 2 press ctrl-u ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . .c . @@ -1816,7 +1816,7 @@ def] press ctrl-z ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -1836,7 +1836,7 @@ def] press ctrl-y ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] # first line inserted screen-should-contain [ @@ -1857,7 +1857,7 @@ def] type [1] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e ] screen-should-contain [ . . @@ -1890,7 +1890,7 @@ scenario editor-can-undo-and-redo-ctrl-u-2 [ local-scope # create an editor assume-screen 10/width, 5/height - e:&:editor <- new-editor [], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [], screen, 0/left, 10/right editor-render screen, e # insert some text and hit delete and backspace a few times assume-console [ @@ -1898,7 +1898,7 @@ scenario editor-can-undo-and-redo-ctrl-u-2 [ press ctrl-u press ctrl-z ] - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e screen-should-contain [ . . .abc . |