From 2ca21148a1c1c42db90b0dac69c857f7ef8417d6 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 9 Jul 2015 10:25:12 -0700 Subject: 1740 - correct redraw after reducing editor size I probably need another test like editor-clears-last-line-on-backspace, but we aren't testing the boundary, and we're pushing on anyway. --- edit.mu | 37 +++++++++++++++++-------------------- 1 file changed, 17 insertions(+), 20 deletions(-) diff --git a/edit.mu b/edit.mu index b5e308a2..97bc8c85 100644 --- a/edit.mu +++ b/edit.mu @@ -327,30 +327,27 @@ recipe render [ row:number <- render-string response:address:array:character, editor:address:editor-data, 245:literal/grey, row:number } } + { + # draw a line after + # hack: not for tests + break-if screen:address + { + break-if left:number # hacky + # left side, recipe editor + draw-horizontal screen:address, row:number, left:number, right:number, 9480:literal/horizontal-dotted + } + { + break-unless left:number + # right side, sandbox editor + draw-horizontal screen:address, row:number, left:number, right:number, 9473:literal/horizontal-double + } + row:number <- add row:number, 1:literal + } { # clear one more line just in case we just backspaced out of it done?:boolean <- greater-or-equal row:number, screen-height:number break-if done?:boolean - # hack: blank for tests - { - { - break-if screen:address - { - break-if left:number # hacky - # left side, recipe editor - draw-horizontal screen:address, row:number, left:number, right:number, 9480:literal/horizontal-dotted - } - { - break-unless left:number - # right side, sandbox editor - draw-horizontal screen:address, row:number, left:number, right:number, 9473:literal/horizontal-double - } - } - { - break-unless screen:address - draw-horizontal screen:address, row:number, left:number, right:number, 32:literal/space - } - } + draw-horizontal screen:address, row:number, left:number, right:number, 32:literal/space } # update cursor { -- cgit 1.4.1-2-gfad0