From 951d135507b31097757e2b8ed433f7285bde4f27 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 15 Mar 2017 19:43:09 -0700 Subject: 3797 --- html/edit/005-sandbox.mu.html | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 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 c50eb279..12719a04 100644 --- a/html/edit/005-sandbox.mu.html +++ b/html/edit/005-sandbox.mu.html @@ -75,7 +75,7 @@ if ('onhashchange' in window) { 12 open-console 13 env:&:environment <- new-programming-environment 0/filesystem, 0/screen 14 env <- restore-sandboxes env - 15 render-all 0/screen, env, render + 15 render-all 0/screen, env, render 16 event-loop 0/screen, 0/console, env, 0/filesystem 17 # never gets here 18 ] @@ -193,12 +193,12 @@ if ('onhashchange' in window) { 130 ¦ screen <- update-status screen, [running... ], 245/grey 131 ¦ error?:bool <- run-sandboxes env, resources, screen 132 ¦ # F4 might update warnings and results on both sides - 133 ¦ screen <- render-all screen, env, render + 133 ¦ screen <- render-all screen, env, render 134 ¦ { 135 ¦ ¦ break-if error? 136 ¦ ¦ screen <- update-status screen, [ ], 245/grey 137 ¦ } - 138 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env + 138 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env 139 ¦ loop +next-event 140 } 141 ] @@ -314,14 +314,14 @@ if ('onhashchange' in window) { 251 ¦ render-current-sandbox?:bool <- equal render-from, -1 252 ¦ break-unless render-current-sandbox? 253 ¦ row, column, screen, current-sandbox <- call render-editor, screen, current-sandbox - 254 ¦ clear-screen-from screen, row, column, left, right + 254 ¦ clear-screen-from screen, row, column, left, right 255 ¦ row <- add row, 1 256 } 257 # render sandboxes 258 draw-horizontal screen, row, left, right 259 sandbox:&:sandbox <- get *env, sandbox:offset 260 row, screen <- render-sandboxes screen, sandbox, left, right, row, render-from - 261 clear-rest-of-screen screen, row, left, right + 261 clear-rest-of-screen screen, row, left, right 262 ] 263 264 def render-sandboxes screen:&:screen, sandbox:&:sandbox, left:num, right:num, row:num, render-from:num, idx:num -> row:num, screen:&:screen, sandbox:&:sandbox [ @@ -802,7 +802,7 @@ if ('onhashchange' in window) { 739 assume-resources [ 740 ] 741 env:&:environment <- new-programming-environment resources, screen, [] - 742 render-all screen, env, render + 742 render-all screen, env, render 743 assume-console [ 744 ¦ press enter 745 ¦ press down-arrow @@ -825,7 +825,7 @@ if ('onhashchange' in window) { 762 assume-resources [ 763 ] 764 env:&:environment <- new-programming-environment resources, screen, [] - 765 render-all screen, env, render + 765 render-all screen, env, render 766 assume-console [ 767 ¦ press enter 768 ¦ press up-arrow @@ -851,7 +851,7 @@ if ('onhashchange' in window) { 788 recipe-bottom:num 789 ] 790 - 791 after <render-recipe-components-end> [ + 791 after <render-recipe-components-end> [ 792 *env <- put *env, recipe-bottom:offset, row 793 ] 794 @@ -905,7 +905,7 @@ if ('onhashchange' in window) { 842 assume-resources [ 843 ] 844 env:&:environment <- new-programming-environment resources, screen, [] - 845 render-all screen, env, render + 845 render-all screen, env, render 846 assume-console [ 847 ¦ # add a line 848 ¦ press enter @@ -933,7 +933,7 @@ if ('onhashchange' in window) { 870 ] 871 env:&:environment <- new-programming-environment resources, screen, [ab 872 cd] - 873 render-all screen, env, render + 873 render-all screen, env, render 874 assume-console [ 875 ¦ # add a line 876 ¦ press enter @@ -965,7 +965,7 @@ if ('onhashchange' in window) { 902 assume-resources [ 903 ] 904 env:&:environment <- new-programming-environment resources, screen, [add 2, 2] - 905 render-all screen, env, render + 905 render-all screen, env, render 906 assume-console [ 907 ¦ # create a sandbox 908 ¦ press F4 @@ -1042,7 +1042,7 @@ if ('onhashchange' in window) { 979 ] 980 981 # update-cursor takes render-from into account - 982 after <update-cursor-special-cases> [ + 982 after <update-cursor-special-cases> [ 983 { 984 ¦ break-unless sandbox-in-focus? 985 ¦ render-from:num <- get *env, render-from:offset @@ -1103,7 +1103,7 @@ if ('onhashchange' in window) { 1040 ] 1041 # create a sandbox 1042 env:&:environment <- new-programming-environment resources, screen, [add 2, 2] -1043 render-all screen, env, render +1043 render-all screen, env, render 1044 assume-console [ 1045 ¦ press F4 1046 ] @@ -1135,7 +1135,7 @@ if ('onhashchange' in window) { 1072 assume-resources [ 1073 ] 1074 env:&:environment <- new-programming-environment resources, screen, [] -1075 render-all screen, env, render +1075 render-all screen, env, render 1076 # create 2 sandboxes 1077 assume-console [ 1078 ¦ press ctrl-n @@ -1288,7 +1288,7 @@ if ('onhashchange' in window) { 1225 assume-resources [ 1226 ] 1227 env:&:environment <- new-programming-environment resources, screen, [] -1228 render-all screen, env, render +1228 render-all screen, env, render 1229 # create a sandbox 1230 assume-console [ 1231 ¦ press ctrl-n -- cgit 1.4.1-2-gfad0