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/010-sandbox-trace.mu.html | 38 ++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) (limited to 'html/edit/010-sandbox-trace.mu.html') diff --git a/html/edit/010-sandbox-trace.mu.html b/html/edit/010-sandbox-trace.mu.html index deaf6432..1a5147af 100644 --- a/html/edit/010-sandbox-trace.mu.html +++ b/html/edit/010-sandbox-trace.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 [ ╎ . @@ -91,9 +91,9 @@ if ('onhashchange' in window) { 32 left-click 4, 51 33 ] 34 run [ - 35 event-loop screen, console, env, resources + 35 event-loop screen, console, env, resources 36 cursor:char <- copy 9251/␣ - 37 print screen, cursor + 37 print screen, cursor 38 ] 39 # trace now printed and cursor shouldn't have budged 40 screen-should-contain [ @@ -117,8 +117,8 @@ if ('onhashchange' in window) { 58 left-click 4, 55 59 ] 60 run [ - 61 event-loop screen, console, env, resources - 62 print screen, cursor + 61 event-loop screen, console, env, resources + 62 print screen, cursor 63 ] 64 # trace hidden again 65 screen-should-contain [ @@ -145,12 +145,12 @@ if ('onhashchange' in window) { 86 |]| 87 ] 88 ] - 89 env:&:environment <- new-programming-environment resources, screen, [foo] + 89 env:&:environment <- new-programming-environment resources, screen, [foo] 90 # run it 91 assume-console [ 92 press F4 93 ] - 94 event-loop screen, console, env, resources + 94 event-loop screen, console, env, resources 95 screen-should-contain [ 96 . run (F4) . 97 .recipe foo [ ╎ . @@ -166,7 +166,7 @@ if ('onhashchange' in window) { 107 left-click 4, 51 108 ] 109 run [ -110 event-loop screen, console, env, resources +110 event-loop screen, console, env, resources 111 ] 112 # trace now printed above result 113 screen-should-contain [ @@ -189,13 +189,13 @@ if ('onhashchange' in window) { 130 assume-screen 100/width, 10/height 131 assume-resources [ 132 ] -133 env:&:environment <- new-programming-environment resources, screen, [stash 123456789] +133 env:&:environment <- new-programming-environment resources, screen, [stash 123456789] 134 # create and expand the trace 135 assume-console [ 136 press F4 137 left-click 4, 51 138 ] -139 event-loop screen, console, env, resources +139 event-loop screen, console, env, resources 140 screen-should-contain [ 141 . run (F4) . 142 . ╎ . @@ -209,7 +209,7 @@ if ('onhashchange' in window) { 150 left-click 5, 57 151 ] 152 run [ -153 event-loop screen, console, env, resources +153 event-loop screen, console, env, resources 154 ] 155 # no change; doesn't die 156 screen-should-contain [ @@ -232,9 +232,9 @@ if ('onhashchange' in window) { 173 local-scope 174 load-ingredients 175 data:text <- get *sandbox, data:offset -176 response:text, _, fake-screen:&:screen, trace:text <- run-sandboxed data +176 response:text, _, fake-screen:&:screen, trace:text <- run-sandboxed data 177 *sandbox <- put *sandbox, response:offset, response -178 *sandbox <- put *sandbox, screen:offset, fake-screen +178 *sandbox <- put *sandbox, screen:offset, fake-screen 179 *sandbox <- put *sandbox, trace:offset, trace 180 ] 181 @@ -259,11 +259,11 @@ if ('onhashchange' in window) { 200 x:bool <- get *sandbox, display-trace?:offset 201 x <- not x 202 *sandbox <- put *sandbox, display-trace?:offset, x -203 hide-screen screen -204 screen <- render-sandbox-side screen, env, render -205 screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env +203 hide-screen screen +204 screen <- render-sandbox-side screen, env, render +205 screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env 206 # no change in cursor -207 show-screen screen +207 show-screen screen 208 loop +next-event 209 } 210 ] @@ -306,7 +306,7 @@ if ('onhashchange' in window) { 247 break-unless display-trace? 248 sandbox-trace:text <- get *sandbox, trace:offset 249 break-unless sandbox-trace # nothing to print; move on -250 row, screen <- render-text screen, sandbox-trace, left, right, 245/grey, row +250 row, screen <- render-text screen, sandbox-trace, left, right, 245/grey, row 251 } 252 <render-sandbox-trace-done> 253 ] -- cgit 1.4.1-2-gfad0