diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-07-11 00:05:56 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-07-11 00:05:56 -0700 |
commit | 8d7af1ab94cee5d3fd4d4188a6de50426dc55c9b (patch) | |
tree | 041ed4e4cb7450110d0075882d8eac57dce7d9fa | |
parent | da75cfb193197e0edc3434ca3d55a560a1931d26 (diff) | |
download | mu-8d7af1ab94cee5d3fd4d4188a6de50426dc55c9b.tar.gz |
1756
-rw-r--r-- | edit.mu | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/edit.mu b/edit.mu index 469e61f8..dbdd2c58 100644 --- a/edit.mu +++ b/edit.mu @@ -831,6 +831,24 @@ recipe render-all [ right:number <- get current-sandbox:address:editor-data/deref, right:offset row:number, screen:address <- render screen:address, current-sandbox:address:editor-data sandbox:address:sandbox-data <- get-address env:address:programming-environment-data/deref, sandbox:offset + row:number, screen:address <- render-sandboxes screen:address, sandbox:address:sandbox-data, left:number, right:number, row:number + # clear next line, in case we just processed a backspace + row:number <- add row:number, 1:literal + move-cursor screen:address, row:number, left:number + clear-line-delimited screen:address, left:number, right:number + update-cursor screen:address, recipes:address:editor-data, current-sandbox:address:editor-data, sandbox-in-focus?:boolean + show-screen screen:address + reply screen:address/same-as-ingredient:0 +] + +recipe render-sandboxes [ + default-space:address:array:location <- new location:type, 40:literal + screen:address <- next-ingredient + sandbox:address:sandbox-data <- next-ingredient + left:number <- next-ingredient + right:number <- next-ingredient + row:number <- next-ingredient + reply-unless sandbox:address:sandbox-data, row:number/same-as-ingredient:4, screen:address/same-as-ingredient:0 sandbox-response:address:array:character <- get sandbox:address:sandbox-data/deref, response:offset sandbox-warnings:address:array:character <- get sandbox:address:sandbox-data/deref, warnings:offset { @@ -843,13 +861,7 @@ recipe render-all [ } # draw solid line after sandbox draw-horizontal screen:address, row:number, left:number, right:number, 9473:literal/horizontal-double - # clear next line, in case we just processed a backspace - row:number <- add row:number, 1:literal - move-cursor screen:address, row:number, left:number - clear-line-delimited screen:address, left:number, right:number - update-cursor screen:address, recipes:address:editor-data, current-sandbox:address:editor-data, sandbox-in-focus?:boolean - show-screen screen:address - reply screen:address/same-as-ingredient:0 + reply row:number/same-as-ingredient:4, screen:address/same-as-ingredient:0 ] recipe update-cursor [ |