diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-05-19 09:10:29 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-05-19 09:10:29 -0700 |
commit | 1521e4e32f7a5ddd3629006b3e46501ed22d91a5 (patch) | |
tree | cc6de148bdf3d3b78caa48ef51ce31ce0b6cad3b /sandbox/004-programming-environment.mu | |
parent | 2655ae726e607ba4caa88c088ffb77e50753aead (diff) | |
download | mu-1521e4e32f7a5ddd3629006b3e46501ed22d91a5.tar.gz |
2975
Clean up this helper before we start redoing sandbox menubars.
Diffstat (limited to 'sandbox/004-programming-environment.mu')
-rw-r--r-- | sandbox/004-programming-environment.mu | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sandbox/004-programming-environment.mu b/sandbox/004-programming-environment.mu index 63c6df3c..5b743a5c 100644 --- a/sandbox/004-programming-environment.mu +++ b/sandbox/004-programming-environment.mu @@ -181,7 +181,7 @@ def render-sandbox-side screen:address:screen, env:address:programming-environme left:number <- get *current-sandbox, left:offset right:number <- get *current-sandbox, right:offset row:number, column:number, screen, current-sandbox <- render screen, current-sandbox - clear-line-delimited screen, column, right + clear-line-until screen, right row <- add row, 1 # draw solid line after code (you'll see why in later layers) draw-horizontal screen, row, left, right, 9473/horizontal @@ -252,7 +252,7 @@ def render screen:address:screen, s:address:array:character, left:number, right: loop } was-at-left?:boolean <- equal column, left - clear-line-delimited screen, column, right + clear-line-until screen, right { break-if was-at-left? row <- add row, 1 @@ -315,7 +315,7 @@ def render-code screen:address:screen, s:address:array:character, left:number, r loop } was-at-left?:boolean <- equal column, left - clear-line-delimited screen, column, right + clear-line-until screen, right { break-if was-at-left? row <- add row, 1 |