diff options
Diffstat (limited to 'sandbox/002-typing.mu')
| -rw-r--r-- | sandbox/002-typing.mu | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/sandbox/002-typing.mu b/sandbox/002-typing.mu index 4f704f0d..d5120f2f 100644 --- a/sandbox/002-typing.mu +++ b/sandbox/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 ] |