diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2017-05-10 16:37:35 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2017-05-10 16:37:35 -0700 |
| commit | ff96aace6d9fd99fcf8bdacf2c663dbf4451367c (patch) | |
| tree | e4535e33b7c39f67efc9f34ca94efad42fcddca5 /edit/002-typing.mu | |
| parent | 45bcfcfe10e6a2fbc8aa4a84f60ca7d39af14031 (diff) | |
| download | mu-ff96aace6d9fd99fcf8bdacf2c663dbf4451367c.tar.gz | |
3850
Bugfix: writes out of bounds used to be skipped, but started clobbering the screen on commit 3824.
Diffstat (limited to 'edit/002-typing.mu')
| -rw-r--r-- | edit/002-typing.mu | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/edit/002-typing.mu b/edit/002-typing.mu index 4f704f0d..d5120f2f 100644 --- a/edit/002-typing.mu +++ b/edit/002-typing.mu @@ -266,10 +266,17 @@ def editor-render screen:&:screen, editor:&:editor -> screen:&:screen, editor:&: left:num <- get *editor, left:offset right:num <- get *editor, right:offset row:num, column:num <- render screen, editor + screen-height:num <- screen-height screen + space-left?:bool <- lesser-than row, screen-height + return-unless space-left? clear-line-until screen, right row <- add row, 1 + space-left?:bool <- lesser-than row, screen-height + return-unless space-left? draw-horizontal screen, row, left, right, 9480/horizontal-dotted row <- add row, 1 + space-left?:bool <- lesser-than row, screen-height + return-unless space-left? clear-screen-from screen, row, left, left, right ] |