From aac2775a4d30459c3090569b26e81ba18f1423a7 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 24 Jun 2017 16:00:44 -0700 Subject: 3951 --- html/edit/009-sandbox-test.mu.html | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'html/edit/009-sandbox-test.mu.html') diff --git a/html/edit/009-sandbox-test.mu.html b/html/edit/009-sandbox-test.mu.html index 3bf4d96b..ecdd04c6 100644 --- a/html/edit/009-sandbox-test.mu.html +++ b/html/edit/009-sandbox-test.mu.html @@ -75,13 +75,13 @@ if ('onhashchange' in window) { 12 ¦ ¦ |]| 13 ¦ ] 14 ] - 15 env:&:environment <- new-programming-environment resources, screen, [foo] - 16 render-all screen, env, render + 15 env:&:environment <- new-programming-environment resources, screen, [foo] + 16 render-all screen, env, render 17 # run it 18 assume-console [ 19 ¦ press F4 20 ] - 21 event-loop screen, console, env, resources + 21 event-loop screen, console, env, resources 22 screen-should-contain [ 23 ¦ . run (F4) . 24 ¦ .recipe foo [ ╎ . @@ -97,7 +97,7 @@ if ('onhashchange' in window) { 34 ¦ left-click 5, 51 35 ] 36 run [ - 37 ¦ event-loop screen, console, env, resources + 37 ¦ event-loop screen, console, env, resources 38 ] 39 # color toggles to green 40 screen-should-contain-in-color 2/green, [ @@ -113,7 +113,7 @@ if ('onhashchange' in window) { 50 # cursor should remain unmoved 51 run [ 52 ¦ cursor:char <- copy 9251/␣ - 53 ¦ print screen, cursor + 53 ¦ print screen, cursor 54 ] 55 screen-should-contain [ 56 ¦ . run (F4) . @@ -134,7 +134,7 @@ if ('onhashchange' in window) { 71 ¦ press F4 72 ] 73 run [ - 74 ¦ event-loop screen, console, env, resources + 74 ¦ event-loop screen, console, env, resources 75 ] 76 # result turns red 77 screen-should-contain-in-color 1/red, [ @@ -165,7 +165,7 @@ if ('onhashchange' in window) { 102 } 103 ] 104 -105 before <end-restore-sandbox> [ +105 before <end-restore-sandbox> [ 106 { 107 ¦ filename <- append filename, [.out] 108 ¦ contents <- slurp resources, filename @@ -194,8 +194,8 @@ if ('onhashchange' in window) { 131 ¦ # toggle its expected-response, and save session 132 ¦ sandbox <- toggle-expected-response sandbox 133 ¦ save-sandboxes env, resources -134 ¦ screen <- render-sandbox-side screen, env, render -135 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env +134 ¦ screen <- render-sandbox-side screen, env, render +135 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env 136 ¦ loop +next-event 137 } 138 ] @@ -244,7 +244,7 @@ if ('onhashchange' in window) { 181 ] 182 183 # when rendering a sandbox, color it in red/green if expected response exists -184 after <render-sandbox-response> [ +184 after <render-sandbox-response> [ 185 { 186 ¦ break-unless sandbox-response 187 ¦ *sandbox <- put *sandbox, response-starting-row-on-screen:offset, row @@ -252,18 +252,18 @@ if ('onhashchange' in window) { 189 ¦ break-unless expected-response # fall-through to print in grey 190 ¦ response-is-expected?:bool <- equal expected-response, sandbox-response 191 ¦ { -192 ¦ ¦ break-if response-is-expected?:bool -193 ¦ ¦ row, screen <- render-text screen, sandbox-response, left, right, 1/red, row +192 ¦ ¦ break-if response-is-expected? +193 ¦ ¦ row, screen <- render-text screen, sandbox-response, left, right, 1/red, row 194 ¦ } 195 ¦ { 196 ¦ ¦ break-unless response-is-expected?:bool -197 ¦ ¦ row, screen <- render-text screen, sandbox-response, left, right, 2/green, row +197 ¦ ¦ row, screen <- render-text screen, sandbox-response, left, right, 2/green, row 198 ¦ } 199 ¦ jump +render-sandbox-end 200 } 201 ] 202 -203 before <end-render-sandbox-reset-hidden> [ +203 before <end-render-sandbox-reset-hidden> [ 204 *sandbox <- put *sandbox, response-starting-row-on-screen:offset, 0 205 ] -- cgit 1.4.1-2-gfad0