From 5fe060d582d4a82444243a28b18085c971a85628 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Fri, 27 Jul 2018 17:07:52 -0700 Subject: 4447 --- html/edit/009-sandbox-test.mu.html | 14 +++++++------- 1 file changed, 7 insertions(+), 7 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 88dca874..5b70530e 100644 --- a/html/edit/009-sandbox-test.mu.html +++ b/html/edit/009-sandbox-test.mu.html @@ -15,17 +15,17 @@ body { font-size: 12pt; font-family: monospace; color: #aaaaaa; background-color a { color:#eeeeee; text-decoration: none; } a:hover { text-decoration: underline; } * { font-size: 12pt; font-size: 1em; } +.muData { color: #ffff00; } .muRecipe { color: #ff8700; } -.muScenario { color: #00af00; } .Special { color: #c00000; } .Delimiter { color: #800080; } .SalientComment { color: #00ffff; } .Constant { color: #00a0a0; } .LineNr { color: #444444; } +.muControl { color: #c0a020; } .Comment { color: #9090ff; } .Comment a { color:#0000ee; text-decoration:underline; } -.muControl { color: #c0a020; } -.muData { color: #ffff00; } +.muScenario { color: #00af00; } --> @@ -75,7 +75,7 @@ if ('onhashchange' in window) { 13 ] 14 ] 15 env:&:environment <- new-programming-environment resources, screen, [foo] - 16 render-all screen, env, render + 16 render-all screen, env, render 17 # run it 18 assume-console [ 19 press F4 @@ -233,9 +233,9 @@ if ('onhashchange' in window) { 171 } 172 # return sandbox if click is in its output region 173 response-starting-row:num <- get *sandbox, response-starting-row-on-screen:offset -174 return-unless response-starting-row, 0/no-click-in-sandbox-output, 0/sandbox-index +174 return-unless response-starting-row, null/no-click-in-sandbox-output, 0/sandbox-index 175 click-in-response?:bool <- greater-or-equal click-row, response-starting-row -176 return-unless click-in-response?, 0/no-click-in-sandbox-output, 0/sandbox-index +176 return-unless click-in-response?, null/no-click-in-sandbox-output, 0/sandbox-index 177 return sandbox, sandbox-index 178 ] 179 @@ -246,7 +246,7 @@ if ('onhashchange' in window) { 184 { 185 # if expected-response is set, reset 186 break-unless expected-response -187 *sandbox <- put *sandbox, expected-response:offset, 0 +187 *sandbox <- put *sandbox, expected-response:offset, null 188 } 189 { 190 # if not, set expected response to the current response -- cgit 1.4.1-2-gfad0