From 201458e3bd2f1d79a0ea0b853552e9df267e92b1 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 26 Dec 2016 20:44:10 -0800 Subject: 3713 - cross-link calls with definitions in html --- 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 9361df24..52631e6f 100644 --- a/html/edit/009-sandbox-test.mu.html +++ b/html/edit/009-sandbox-test.mu.html @@ -71,12 +71,12 @@ if ('onhashchange' in window) { 12 |]| 13 ] 14 ] - 15 env:&:environment <- new-programming-environment resources, screen, [foo] + 15 env:&:environment <- new-programming-environment resources, screen, [foo] 16 # run it 17 assume-console [ 18 press F4 19 ] - 20 event-loop screen, console, env, resources + 20 event-loop screen, console, env, resources 21 screen-should-contain [ 22 . run (F4) . 23 .recipe foo [ ╎ . @@ -92,7 +92,7 @@ if ('onhashchange' in window) { 33 left-click 5, 51 34 ] 35 run [ - 36 event-loop screen, console, env, resources + 36 event-loop screen, console, env, resources 37 ] 38 # color toggles to green 39 screen-should-contain-in-color 2/green, [ @@ -108,7 +108,7 @@ if ('onhashchange' in window) { 49 # cursor should remain unmoved 50 run [ 51 cursor:char <- copy 9251/␣ - 52 print screen, cursor + 52 print screen, cursor 53 ] 54 screen-should-contain [ 55 . run (F4) . @@ -129,7 +129,7 @@ if ('onhashchange' in window) { 70 press F4 71 ] 72 run [ - 73 event-loop screen, console, env, resources + 73 event-loop screen, console, env, resources 74 ] 75 # result turns red 76 screen-should-contain-in-color 1/red, [ @@ -156,14 +156,14 @@ if ('onhashchange' in window) { 97 expected-response:text <- get *curr, expected-response:offset 98 break-unless expected-response 99 filename <- append filename, [.out] -100 resources <- dump resources, filename, expected-response +100 resources <- dump resources, filename, expected-response 101 } 102 ] 103 104 before <end-restore-sandbox> [ 105 { 106 filename <- append filename, [.out] -107 contents <- slurp resources, filename +107 contents <- slurp resources, filename 108 break-unless contents 109 *curr <- put *curr, expected-response:offset, contents 110 } @@ -188,12 +188,12 @@ if ('onhashchange' in window) { 129 break-unless sandbox 130 # toggle its expected-response, and save session 131 sandbox <- toggle-expected-response sandbox -132 save-sandboxes env, resources -133 hide-screen screen -134 screen <- render-sandbox-side screen, env, render -135 screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env +132 save-sandboxes env, resources +133 hide-screen screen +134 screen <- render-sandbox-side screen, env, render +135 screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env 136 # no change in cursor -137 show-screen screen +137 show-screen screen 138 loop +next-event 139 } 140 ] @@ -251,11 +251,11 @@ if ('onhashchange' in window) { 192 response-is-expected?:bool <- equal expected-response, sandbox-response 193 { 194 break-if response-is-expected?:bool -195 row, screen <- render-text screen, sandbox-response, left, right, 1/red, row +195 row, screen <- render-text screen, sandbox-response, left, right, 1/red, row 196 } 197 { 198 break-unless response-is-expected?:bool -199 row, screen <- render-text screen, sandbox-response, left, right, 2/green, row +199 row, screen <- render-text screen, sandbox-response, left, right, 2/green, row 200 } 201 jump +render-sandbox-end 202 } -- cgit 1.4.1-2-gfad0