From eeed3845cd504028779c333665e0b9fad2070357 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 6 Oct 2016 21:49:36 -0700 Subject: 3456 --- html/edit/005-sandbox.mu.html | 94 +++++++++++++++++++++---------------------- 1 file changed, 47 insertions(+), 47 deletions(-) (limited to 'html/edit/005-sandbox.mu.html') diff --git a/html/edit/005-sandbox.mu.html b/html/edit/005-sandbox.mu.html index 8f328e91..17da0bdd 100644 --- a/html/edit/005-sandbox.mu.html +++ b/html/edit/005-sandbox.mu.html @@ -82,13 +82,13 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color assume-screen 100/width, 15/height # recipe editor is empty # sandbox editor contains an instruction without storing outputs - env:&:environment <- new-programming-environment screen:&:screen, [], [divide-with-remainder 11, 3] + env:&:environment <- new-programming-environment screen, [], [divide-with-remainder 11, 3] # run the code in the editors assume-console [ press F4 ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # check that screen prints the results screen-should-contain [ @@ -138,7 +138,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press F4 ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # check that screen prints both sandboxes screen-should-contain [ @@ -561,12 +561,12 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color reply z ]] # sandbox editor contains an instruction without storing outputs - env:&:environment <- new-programming-environment screen:&:screen, recipes, [foo] + env:&:environment <- new-programming-environment screen, recipes, [foo] # run the code in the editors assume-console [ press F4 ] - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env screen-should-contain [ . run (F4) . . ┊ . @@ -586,7 +586,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press F4 ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # check that screen updates the result on the right screen-should-contain [ @@ -608,13 +608,13 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color assume-screen 100/width, 20/height # left editor is empty # right editor contains an instruction - env:&:environment <- new-programming-environment screen:&:screen, [], [print-integer screen, 4] + env:&:environment <- new-programming-environment screen, [], [print-integer screen, 4] # run the code in the editor assume-console [ press F4 ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # check that it prints a little toy screen screen-should-contain [ @@ -656,13 +656,13 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color scenario editor-provides-edited-contents [ local-scope assume-screen 10/width, 5/height - e:&:editor <- new-editor [abc], screen:&:screen, 0/left, 10/right + e:&:editor <- new-editor [abc], screen, 0/left, 10/right assume-console [ left-click 1, 2 type [def] ] run [ - editor-event-loop screen:&:screen, console:&:console, e + editor-event-loop screen, console, e s:text <- editor-contents e 1:@:char/raw <- copy *s ] @@ -677,13 +677,13 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color local-scope trace-until 100/app assume-screen 100/width, 10/height - env:&:environment <- new-programming-environment screen:&:screen, [], [] + env:&:environment <- new-programming-environment screen, [], [] render-all screen, env, render assume-console [ press enter press down-arrow ] - event-loop screen, console:&:console, env + event-loop screen, console, env # no scroll screen-should-contain [ . run (F4) . @@ -698,16 +698,16 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color local-scope trace-until 100/app assume-screen 100/width, 10/height - env:&:environment <- new-programming-environment screen:&:screen, [], [] + env:&:environment <- new-programming-environment screen, [], [] render-all screen, env, render assume-console [ press enter press up-arrow press down-arrow # while cursor isn't at bottom ] - event-loop screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor # cursor moves back to bottom screen-should-contain [ . run (F4) . @@ -776,7 +776,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color local-scope trace-until 100/app assume-screen 100/width, 10/height - env:&:environment <- new-programming-environment screen:&:screen, [], [] + env:&:environment <- new-programming-environment screen, [], [] render-all screen, env, render assume-console [ # add a line @@ -786,7 +786,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color # try to scroll press page-down # or ctrl-f ] - event-loop screen, console:&:console, env + event-loop screen, console, env # no scroll, and cursor remains at top line screen-should-contain [ . run (F4) . @@ -801,7 +801,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color local-scope trace-until 100/app assume-screen 100/width, 10/height - env:&:environment <- new-programming-environment screen:&:screen, [], [ab + env:&:environment <- new-programming-environment screen, [], [ab cd] render-all screen, env, render assume-console [ @@ -812,9 +812,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color # move cursor press down-arrow ] - event-loop screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor # no scroll on recipe side, cursor moves on sandbox side screen-should-contain [ . run (F4) . @@ -832,13 +832,13 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color trace-until 100/app # trace too long assume-screen 100/width, 10/height # initialize sandbox side - env:&:environment <- new-programming-environment screen:&:screen, [], [add 2, 2] + env:&:environment <- new-programming-environment screen, [], [add 2, 2] render-all screen, env, render assume-console [ # create a sandbox press F4 ] - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env screen-should-contain [ . run (F4) . . ┊ . @@ -852,9 +852,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-down ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor ] # sandbox editor hidden; first sandbox displayed # cursor moves to first sandbox @@ -870,9 +870,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-up ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor ] # sandbox editor displays again, cursor is in editor screen-should-contain [ @@ -967,20 +967,20 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color recipes:text <- new [ ] # create a sandbox - env:&:environment <- new-programming-environment screen:&:screen, recipes:text, [add 2, 2] + env:&:environment <- new-programming-environment screen, recipes:text, [add 2, 2] render-all screen, env, render assume-console [ press F4 ] - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env # hit 'down' in recipe editor assume-console [ press page-down ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor ] # cursor moves down on recipe side screen-should-contain [ @@ -997,7 +997,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color trace-until 100/app # trace too long assume-screen 100/width, 10/height # initialize environment - env:&:environment <- new-programming-environment screen:&:screen, [], [] + env:&:environment <- new-programming-environment screen, [], [] render-all screen, env, render # create 2 sandboxes assume-console [ @@ -1007,9 +1007,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color type [add 1, 1] press F4 ] - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor screen-should-contain [ . run (F4) . . ┊␣ . @@ -1027,9 +1027,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-down ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor ] # sandbox editor hidden; first sandbox displayed # cursor moves to first sandbox @@ -1049,7 +1049,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-down ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # just second sandbox displayed screen-should-contain [ @@ -1066,7 +1066,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-down ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # no change screen-should-contain [ @@ -1083,7 +1083,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-up ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # back to displaying both sandboxes without editor screen-should-contain [ @@ -1102,9 +1102,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-up ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor ] # back to displaying both sandboxes as well as editor screen-should-contain [ @@ -1124,9 +1124,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-up ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env cursor:char <- copy 9251/␣ - print screen:&:screen, cursor + print screen, cursor ] # no change screen-should-contain [ @@ -1148,7 +1148,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color trace-until 100/app # trace too long assume-screen 100/width, 10/height # initialize environment - env:&:environment <- new-programming-environment screen:&:screen, [], [] + env:&:environment <- new-programming-environment screen, [], [] render-all screen, env, render # create a sandbox assume-console [ @@ -1156,7 +1156,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color type [add 1, 1] press F4 ] - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env screen-should-contain [ . run (F4) . . ┊ . @@ -1172,7 +1172,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-down ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # sandbox editor hidden; first sandbox displayed # cursor moves to first sandbox @@ -1190,7 +1190,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-up ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # back to displaying both sandboxes as well as editor screen-should-contain [ @@ -1208,7 +1208,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color press page-down ] run [ - event-loop screen:&:screen, console:&:console, env + event-loop screen, console, env ] # sandbox editor hidden; first sandbox displayed # cursor moves to first sandbox -- cgit 1.4.1-2-gfad0