From b301e0c0e6b54dceecbe4ee1ef8f610411015c30 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 27 Jan 2018 00:28:51 -0800 Subject: 4200 Forgot to set up exuberant_ctags_rc as .ctags on new laptop. --- html/edit/010-sandbox-trace.mu.html | 50 ++++++++++++++++++------------------- 1 file changed, 25 insertions(+), 25 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 b8c44c26..afa5c57f 100644 --- a/html/edit/010-sandbox-trace.mu.html +++ b/html/edit/010-sandbox-trace.mu.html @@ -74,13 +74,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 [ ╎ . @@ -95,9 +95,9 @@ if ('onhashchange' in window) { 33 left-click 4, 51 34 ] 35 run [ - 36 event-loop screen, console, env, resources + 36 event-loop screen, console, env, resources 37 cursor:char <- copy 9251/␣ - 38 print screen, cursor + 38 print screen, cursor 39 ] 40 # trace now printed and cursor shouldn't have budged 41 screen-should-contain [ @@ -121,8 +121,8 @@ if ('onhashchange' in window) { 59 left-click 4, 55 60 ] 61 run [ - 62 event-loop screen, console, env, resources - 63 print screen, cursor + 62 event-loop screen, console, env, resources + 63 print screen, cursor 64 ] 65 # trace hidden again 66 screen-should-contain [ @@ -149,13 +149,13 @@ if ('onhashchange' in window) { 87 |]| 88 ] 89 ] - 90 env:&:environment <- new-programming-environment resources, screen, [foo] - 91 render-all screen, env, render + 90 env:&:environment <- new-programming-environment resources, screen, [foo] + 91 render-all screen, env, render 92 # run it 93 assume-console [ 94 press F4 95 ] - 96 event-loop screen, console, env, resources + 96 event-loop screen, console, env, resources 97 screen-should-contain [ 98 . run (F4) . 99 .recipe foo [ ╎ . @@ -171,7 +171,7 @@ if ('onhashchange' in window) { 109 left-click 4, 51 110 ] 111 run [ -112 event-loop screen, console, env, resources +112 event-loop screen, console, env, resources 113 ] 114 # trace now printed above result 115 screen-should-contain [ @@ -194,14 +194,14 @@ if ('onhashchange' in window) { 132 assume-screen 100/width, 10/height 133 assume-resources [ 134 ] -135 env:&:environment <- new-programming-environment resources, screen, [stash 123456789] -136 render-all screen, env, render +135 env:&:environment <- new-programming-environment resources, screen, [stash 123456789] +136 render-all screen, env, render 137 # create and expand the trace 138 assume-console [ 139 press F4 140 left-click 4, 51 141 ] -142 event-loop screen, console, env, resources +142 event-loop screen, console, env, resources 143 screen-should-contain [ 144 . run (F4) . 145 . ╎ . @@ -215,7 +215,7 @@ if ('onhashchange' in window) { 153 left-click 5, 57 154 ] 155 run [ -156 event-loop screen, console, env, resources +156 event-loop screen, console, env, resources 157 ] 158 # no change; doesn't die 159 screen-should-contain [ @@ -238,14 +238,14 @@ if ('onhashchange' in window) { 176 local-scope 177 load-inputs 178 data:text <- get *sandbox, data:offset -179 response:text, _, fake-screen:&:screen, trace:text <- run-sandboxed data +179 response:text, _, fake-screen:&:screen, trace:text <- run-sandboxed data 180 *sandbox <- put *sandbox, response:offset, response -181 *sandbox <- put *sandbox, screen:offset, fake-screen +181 *sandbox <- put *sandbox, screen:offset, fake-screen 182 *sandbox <- put *sandbox, trace:offset, trace 183 ] 184 185 # clicks on sandbox code toggle its display-trace? flag -186 after <global-touch> [ +186 after <global-touch> [ 187 # check if it's inside the code of any sandbox 188 { 189 sandbox-left-margin:num <- get *current-sandbox, left:offset @@ -259,19 +259,19 @@ if ('onhashchange' in window) { 197 below-sandbox-editor?:bool <- greater-or-equal click-row, first-sandbox-begins 198 break-unless below-sandbox-editor? 199 # identify the sandbox whose code is being clicked on -200 sandbox:&:sandbox <- find-click-in-sandbox-code env, click-row +200 sandbox:&:sandbox <- find-click-in-sandbox-code env, click-row 201 break-unless sandbox 202 # toggle its display-trace? property 203 x:bool <- get *sandbox, display-trace?:offset 204 x <- not x 205 *sandbox <- put *sandbox, display-trace?:offset, x -206 screen <- render-sandbox-side screen, env, render -207 screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env +206 screen <- render-sandbox-side screen, env, render +207 screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env 208 loop +next-event 209 } 210 ] 211 -212 def find-click-in-sandbox-code env:&:environment, click-row:num -> sandbox:&:sandbox [ +212 def find-click-in-sandbox-code env:&:environment, click-row:num -> sandbox:&:sandbox [ 213 local-scope 214 load-inputs 215 # assert click-row >= sandbox.starting-row-on-screen @@ -303,15 +303,15 @@ if ('onhashchange' in window) { 241 ] 242 243 # when rendering a sandbox, dump its trace before response/warning if display-trace? property is set -244 after <render-sandbox-results> [ +244 after <render-sandbox-results> [ 245 { 246 display-trace?:bool <- get *sandbox, display-trace?:offset 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> +252 <render-sandbox-trace-done> 253 ] -- cgit 1.4.1-2-gfad0