From 1c2d788b454670bf8fa1cb65c6251a8ff6ddcaf7 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 19 Jun 2017 11:29:20 -0700 Subject: 3927 --- html/edit/008-sandbox-edit.mu.html | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'html/edit/008-sandbox-edit.mu.html') diff --git a/html/edit/008-sandbox-edit.mu.html b/html/edit/008-sandbox-edit.mu.html index 851a9701..49a33647 100644 --- a/html/edit/008-sandbox-edit.mu.html +++ b/html/edit/008-sandbox-edit.mu.html @@ -70,7 +70,7 @@ if ('onhashchange' in window) { 8 assume-resources [ 9 ] 10 env:&:environment <- new-programming-environment resources, screen, [add 2, 2] - 11 render-all screen, env, render + 11 render-all screen, env, render 12 # run it 13 assume-console [ 14 ¦ press F4 @@ -123,7 +123,7 @@ if ('onhashchange' in window) { 61 assume-resources [ 62 ] 63 env:&:environment <- new-programming-environment resources, screen, [add 2, 2] - 64 render-all screen, env, render + 64 render-all screen, env, render 65 # run it 66 assume-console [ 67 ¦ press F4 @@ -176,7 +176,7 @@ if ('onhashchange' in window) { 114 ¦ edit?, env <- try-edit-sandbox click-row, env 115 ¦ break-unless edit? 116 ¦ screen <- render-sandbox-side screen, env, render -117 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env +117 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env 118 ¦ loop +next-event 119 } 120 ] @@ -228,7 +228,7 @@ if ('onhashchange' in window) { 166 ] 167 # right editor contains a print instruction 168 env:&:environment <- new-programming-environment resources, screen, [print screen, 4] -169 render-all screen, env, render +169 render-all screen, env, render 170 # run the sandbox 171 assume-console [ 172 ¦ press F4 @@ -273,7 +273,7 @@ if ('onhashchange' in window) { 211 assume-resources [ 212 ] 213 env:&:environment <- new-programming-environment resources, screen, [] -214 render-all screen, env, render +214 render-all screen, env, render 215 # create 2 sandboxes and scroll to second 216 assume-console [ 217 ¦ press ctrl-n @@ -281,8 +281,8 @@ if ('onhashchange' in window) { 219 ¦ press F4 220 ¦ type [add 1, 1] 221 ¦ press F4 -222 ¦ press page-down -223 ¦ press page-down +222 ¦ press page-down +223 ¦ press page-down 224 ] 225 event-loop screen, console, env, resources 226 screen-should-contain [ @@ -322,7 +322,7 @@ if ('onhashchange' in window) { 260 assume-resources [ 261 ] 262 env:&:environment <- new-programming-environment resources, screen, [] -263 render-all screen, env, render +263 render-all screen, env, render 264 # create 2 sandboxes 265 assume-console [ 266 ¦ press ctrl-n @@ -367,9 +367,9 @@ if ('onhashchange' in window) { 305 ] 306 # now try to scroll past end 307 assume-console [ -308 ¦ press page-down -309 ¦ press page-down -310 ¦ press page-down +308 ¦ press page-down +309 ¦ press page-down +310 ¦ press page-down 311 ] 312 run [ 313 ¦ event-loop screen, console, env, resources -- cgit 1.4.1-2-gfad0