From 1521e4e32f7a5ddd3629006b3e46501ed22d91a5 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 19 May 2016 09:10:29 -0700 Subject: 2975 Clean up this helper before we start redoing sandbox menubars. --- sandbox/004-programming-environment.mu | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'sandbox/004-programming-environment.mu') 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 -- cgit 1.4.1-2-gfad0