diff options
Diffstat (limited to 'sandbox/012-editor-undo.mu')
-rw-r--r-- | sandbox/012-editor-undo.mu | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/sandbox/012-editor-undo.mu b/sandbox/012-editor-undo.mu index a64b40d4..20d53f5c 100644 --- a/sandbox/012-editor-undo.mu +++ b/sandbox/012-editor-undo.mu @@ -138,11 +138,11 @@ scenario editor-can-undo-typing [ ] # save operation to undo -after <insert-character-begin> [ +after <begin-insert-character> [ top-before:&:duplex-list:char <- get *editor, top-of-screen:offset cursor-before:&:duplex-list:char <- get *editor, before-cursor:offset ] -before <insert-character-end> [ +before <end-insert-character> [ top-after:&:duplex-list:char <- get *editor, top-of-screen:offset cursor-row:num <- get *editor, cursor-row:offset cursor-column:num <- get *editor, cursor-column:offset @@ -174,13 +174,13 @@ before <insert-character-end> [ ] # enter operations never coalesce with typing before or after -after <insert-enter-begin> [ +after <begin-insert-enter> [ cursor-row-before:num <- copy cursor-row cursor-column-before:num <- copy cursor-column top-before:&:duplex-list:char <- get *editor, top-of-screen:offset cursor-before:&:duplex-list:char <- get *editor, before-cursor:offset ] -before <insert-enter-end> [ +before <end-insert-enter> [ top-after:&:duplex-list:char <- get *editor, top-of-screen:offset cursor-row:num <- get *editor, cursor-row:offset cursor-column:num <- get *editor, cursor-row:offset @@ -716,12 +716,12 @@ ghi] ] ] -after <move-cursor-begin> [ +after <begin-move-cursor> [ cursor-row-before:num <- get *editor, cursor-row:offset cursor-column-before:num <- get *editor, cursor-column:offset top-before:&:duplex-list:char <- get *editor, top-of-screen:offset ] -before <move-cursor-end> [ +before <end-move-cursor> [ top-after:&:duplex-list:char <- get *editor, top-of-screen:offset cursor-row:num <- get *editor, cursor-row:offset cursor-column:num <- get *editor, cursor-column:offset @@ -1412,10 +1412,10 @@ scenario editor-can-undo-and-redo-backspace [ ] # save operation to undo -after <backspace-character-begin> [ +after <begin-backspace-character> [ top-before:&:duplex-list:char <- get *editor, top-of-screen:offset ] -before <backspace-character-end> [ +before <end-backspace-character> [ { break-unless backspaced-cell # backspace failed; don't add an undo operation top-after:&:duplex-list:char <- get *editor, top-of-screen:offset @@ -1638,10 +1638,10 @@ scenario editor-can-undo-and-redo-delete [ ] ] -after <delete-character-begin> [ +after <begin-delete-character> [ top-before:&:duplex-list:char <- get *editor, top-of-screen:offset ] -before <delete-character-end> [ +before <end-delete-character> [ { break-unless deleted-cell # delete failed; don't add an undo operation top-after:&:duplex-list:char <- get *editor, top-of-screen:offset @@ -1764,10 +1764,10 @@ def] ] ] -after <delete-to-end-of-line-begin> [ +after <begin-delete-to-end-of-line> [ top-before:&:duplex-list:char <- get *editor, top-of-screen:offset ] -before <delete-to-end-of-line-end> [ +before <end-delete-to-end-of-line> [ { break-unless deleted-cells # delete failed; don't add an undo operation top-after:&:duplex-list:char <- get *editor, top-of-screen:offset @@ -1867,10 +1867,10 @@ def] ] ] -after <delete-to-start-of-line-begin> [ +after <begin-delete-to-start-of-line> [ top-before:&:duplex-list:char <- get *editor, top-of-screen:offset ] -before <delete-to-start-of-line-end> [ +before <end-delete-to-start-of-line> [ { break-unless deleted-cells # delete failed; don't add an undo operation top-after:&:duplex-list:char <- get *editor, top-of-screen:offset |