244 lines
10 KiB
Plaintext
244 lines
10 KiB
Plaintext
## clicking on the code typed into a sandbox toggles its trace
|
|
|
|
scenario sandbox-click-on-code-toggles-app-trace [
|
|
local-scope
|
|
trace-until 100/app # trace too long
|
|
assume-screen 50/width, 10/height
|
|
# run a stash instruction
|
|
assume-resources [
|
|
]
|
|
env:&:environment <- new-programming-environment resources, screen, [stash [abc]]
|
|
render-all screen, env, render
|
|
assume-console [
|
|
press F4
|
|
]
|
|
event-loop screen, console, env, resources
|
|
screen-should-contain [
|
|
. run (F4) .
|
|
. .
|
|
.──────────────────────────────────────────────────.
|
|
.0 edit copy delete .
|
|
.stash [abc] .
|
|
.──────────────────────────────────────────────────.
|
|
. .
|
|
]
|
|
# click on the code in the sandbox
|
|
assume-console [
|
|
left-click 4, 21
|
|
]
|
|
run [
|
|
event-loop screen, console, env, resources
|
|
cursor:char <- copy 9251/␣
|
|
print screen, cursor
|
|
]
|
|
# trace now printed and cursor shouldn't have budged
|
|
screen-should-contain [
|
|
. run (F4) .
|
|
.␣ .
|
|
.──────────────────────────────────────────────────.
|
|
.0 edit copy delete .
|
|
.stash [abc] .
|
|
.abc .
|
|
]
|
|
screen-should-contain-in-color 245/grey, [
|
|
. .
|
|
. .
|
|
.──────────────────────────────────────────────────.
|
|
. .
|
|
. .
|
|
.abc .
|
|
]
|
|
# click again on the same region
|
|
assume-console [
|
|
left-click 4, 25
|
|
]
|
|
run [
|
|
event-loop screen, console, env, resources
|
|
print screen, cursor
|
|
]
|
|
# trace hidden again
|
|
screen-should-contain [
|
|
. run (F4) .
|
|
.␣ .
|
|
.──────────────────────────────────────────────────.
|
|
.0 edit copy delete .
|
|
.stash [abc] .
|
|
.──────────────────────────────────────────────────.
|
|
. .
|
|
]
|
|
]
|
|
|
|
scenario sandbox-shows-app-trace-and-result [
|
|
local-scope
|
|
trace-until 100/app # trace too long
|
|
assume-screen 50/width, 10/height
|
|
# run a stash instruction and some code
|
|
assume-resources [
|
|
]
|
|
test-sandbox:text <- new [stash [abc]
|
|
add 2, 2]
|
|
env:&:environment <- new-programming-environment resources, screen, test-sandbox
|
|
render-all screen, env, render
|
|
assume-console [
|
|
press F4
|
|
]
|
|
event-loop screen, console, env, resources
|
|
screen-should-contain [
|
|
. run (F4) .
|
|
. .
|
|
.──────────────────────────────────────────────────.
|
|
.0 edit copy delete .
|
|
.stash [abc] .
|
|
.add 2, 2 .
|
|
.4 .
|
|
.──────────────────────────────────────────────────.
|
|
. .
|
|
]
|
|
# click on the code in the sandbox
|
|
assume-console [
|
|
left-click 4, 21
|
|
]
|
|
run [
|
|
event-loop screen, console, env, resources
|
|
]
|
|
# trace now printed above result
|
|
screen-should-contain [
|
|
. run (F4) .
|
|
. .
|
|
.──────────────────────────────────────────────────.
|
|
.0 edit copy delete .
|
|
.stash [abc] .
|
|
.add 2, 2 .
|
|
.abc .
|
|
.7 instructions run .
|
|
.4 .
|
|
.──────────────────────────────────────────────────.
|
|
]
|
|
]
|
|
|
|
scenario clicking-on-app-trace-does-nothing [
|
|
local-scope
|
|
trace-until 100/app # trace too long
|
|
assume-screen 50/width, 10/height
|
|
assume-resources [
|
|
]
|
|
env:&:environment <- new-programming-environment resources, screen, [stash 123456789]
|
|
render-all screen, env, render
|
|
# create and expand the trace
|
|
assume-console [
|
|
press F4
|
|
left-click 4, 1
|
|
]
|
|
event-loop screen, console, env, resources
|
|
screen-should-contain [
|
|
. run (F4) .
|
|
. .
|
|
.──────────────────────────────────────────────────.
|
|
.0 edit copy delete .
|
|
.stash 123456789 .
|
|
.123456789 .
|
|
]
|
|
# click on the stash under the edit-button region (or any of the other buttons, really)
|
|
assume-console [
|
|
left-click 5, 7
|
|
]
|
|
run [
|
|
event-loop screen, console, env, resources
|
|
]
|
|
# no change; doesn't die
|
|
screen-should-contain [
|
|
. run (F4) .
|
|
. .
|
|
.──────────────────────────────────────────────────.
|
|
.0 edit copy delete .
|
|
.stash 123456789 .
|
|
.123456789 .
|
|
]
|
|
]
|
|
|
|
container sandbox [
|
|
trace:text
|
|
display-trace?:bool
|
|
]
|
|
|
|
# replaced in a later layer
|
|
def! update-sandbox sandbox:&:sandbox, env:&:environment, idx:num -> sandbox:&:sandbox, env:&:environment [
|
|
local-scope
|
|
load-inputs
|
|
data:text <- get *sandbox, data:offset
|
|
response:text, _, fake-screen:&:screen, trace:text <- run-sandboxed data
|
|
*sandbox <- put *sandbox, response:offset, response
|
|
*sandbox <- put *sandbox, screen:offset, fake-screen
|
|
*sandbox <- put *sandbox, trace:offset, trace
|
|
]
|
|
|
|
# clicks on sandbox code toggle its display-trace? flag
|
|
after <global-touch> [
|
|
# check if it's inside the code of any sandbox
|
|
{
|
|
sandbox-left-margin:num <- get *current-sandbox, left:offset
|
|
click-column:num <- get t, column:offset
|
|
on-sandbox-side?:bool <- greater-or-equal click-column, sandbox-left-margin
|
|
break-unless on-sandbox-side?
|
|
first-sandbox:&:sandbox <- get *env, sandbox:offset
|
|
break-unless first-sandbox
|
|
first-sandbox-begins:num <- get *first-sandbox, starting-row-on-screen:offset
|
|
click-row:num <- get t, row:offset
|
|
below-sandbox-editor?:bool <- greater-or-equal click-row, first-sandbox-begins
|
|
break-unless below-sandbox-editor?
|
|
# identify the sandbox whose code is being clicked on
|
|
sandbox:&:sandbox <- find-click-in-sandbox-code env, click-row
|
|
break-unless sandbox
|
|
# toggle its display-trace? property
|
|
x:bool <- get *sandbox, display-trace?:offset
|
|
x <- not x
|
|
*sandbox <- put *sandbox, display-trace?:offset, x
|
|
screen <- render-sandbox-side screen, env, render
|
|
screen <- update-cursor screen, current-sandbox, env
|
|
loop +next-event
|
|
}
|
|
]
|
|
|
|
def find-click-in-sandbox-code env:&:environment, click-row:num -> sandbox:&:sandbox [
|
|
local-scope
|
|
load-inputs
|
|
# assert click-row >= sandbox.starting-row-on-screen
|
|
sandbox <- get *env, sandbox:offset
|
|
start:num <- get *sandbox, starting-row-on-screen:offset
|
|
clicked-on-sandboxes?:bool <- greater-or-equal click-row, start
|
|
assert clicked-on-sandboxes?, [extract-sandbox called on click to sandbox editor]
|
|
# while click-row < sandbox.next-sandbox.starting-row-on-screen
|
|
{
|
|
next-sandbox:&:sandbox <- get *sandbox, next-sandbox:offset
|
|
break-unless next-sandbox
|
|
next-start:num <- get *next-sandbox, starting-row-on-screen:offset
|
|
found?:bool <- lesser-than click-row, next-start
|
|
break-if found?
|
|
sandbox <- copy next-sandbox
|
|
loop
|
|
}
|
|
# return sandbox if click is in its code region
|
|
code-ending-row:num <- get *sandbox, code-ending-row-on-screen:offset
|
|
click-above-response?:bool <- lesser-than click-row, code-ending-row
|
|
start:num <- get *sandbox, starting-row-on-screen:offset
|
|
click-below-menu?:bool <- greater-than click-row, start
|
|
click-on-sandbox-code?:bool <- and click-above-response?, click-below-menu?
|
|
{
|
|
break-if click-on-sandbox-code?
|
|
return null/no-click-in-sandbox-output
|
|
}
|
|
return sandbox
|
|
]
|
|
|
|
# when rendering a sandbox, dump its trace before response/warning if display-trace? property is set
|
|
after <render-sandbox-results> [
|
|
{
|
|
display-trace?:bool <- get *sandbox, display-trace?:offset
|
|
break-unless display-trace?
|
|
sandbox-trace:text <- get *sandbox, trace:offset
|
|
break-unless sandbox-trace # nothing to print; move on
|
|
row, screen <- render-text screen, sandbox-trace, left, right, 245/grey, row
|
|
}
|
|
<render-sandbox-trace-done>
|
|
]
|