From aac2775a4d30459c3090569b26e81ba18f1423a7 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 24 Jun 2017 16:00:44 -0700 Subject: 3951 --- html/edit/007-sandbox-delete.mu.html | 60 ++++++++++++++++++------------------ 1 file changed, 30 insertions(+), 30 deletions(-) (limited to 'html/edit/007-sandbox-delete.mu.html') diff --git a/html/edit/007-sandbox-delete.mu.html b/html/edit/007-sandbox-delete.mu.html index b023c314..a51492f8 100644 --- a/html/edit/007-sandbox-delete.mu.html +++ b/html/edit/007-sandbox-delete.mu.html @@ -68,8 +68,8 @@ if ('onhashchange' in window) { 6 assume-screen 100/width, 15/height 7 assume-resources [ 8 ] - 9 env:&:environment <- new-programming-environment resources, screen, [] - 10 render-all screen, env, render + 9 env:&:environment <- new-programming-environment resources, screen, [] + 10 render-all screen, env, render 11 # run a few commands 12 assume-console [ 13 ¦ left-click 1, 75 @@ -78,7 +78,7 @@ if ('onhashchange' in window) { 16 ¦ type [add 2, 2] 17 ¦ press F4 18 ] - 19 event-loop screen, console, env, resources + 19 event-loop screen, console, env, resources 20 screen-should-contain [ 21 ¦ . run (F4) . 22 ¦ . ╎ . @@ -99,7 +99,7 @@ if ('onhashchange' in window) { 37 ¦ left-click 7, 90 38 ] 39 run [ - 40 ¦ event-loop screen, console, env, resources + 40 ¦ event-loop screen, console, env, resources 41 ] 42 screen-should-contain [ 43 ¦ . run (F4) . @@ -117,7 +117,7 @@ if ('onhashchange' in window) { 55 ¦ left-click 3, 99 56 ] 57 run [ - 58 ¦ event-loop screen, console, env, resources + 58 ¦ event-loop screen, console, env, resources 59 ] 60 screen-should-contain [ 61 ¦ . run (F4) . @@ -135,8 +135,8 @@ if ('onhashchange' in window) { 73 ¦ break-unless delete? 74 ¦ delete?, env <- try-delete-sandbox click-row, env 75 ¦ break-unless delete? - 76 ¦ screen <- render-sandbox-side screen, env, render - 77 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env + 76 ¦ screen <- render-sandbox-side screen, env, render + 77 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env 78 ¦ loop +next-event 79 } 80 ] @@ -153,7 +153,7 @@ if ('onhashchange' in window) { 91 assert first-sandbox, [!!] 92 sandbox-left-margin:num <- get *first-sandbox, left:offset 93 sandbox-right-margin:num <- get *first-sandbox, right:offset - 94 _, _, _, _, _, _, delete-button-left:num <- sandbox-menu-columns sandbox-left-margin, sandbox-right-margin + 94 _, _, _, _, _, _, delete-button-left:num <- sandbox-menu-columns sandbox-left-margin, sandbox-right-margin 95 result <- within-range? click-column, delete-button-left, sandbox-right-margin 96 ] 97 @@ -216,8 +216,8 @@ if ('onhashchange' in window) { 154 # initialize environment 155 assume-resources [ 156 ] -157 env:&:environment <- new-programming-environment resources, screen, [] -158 render-all screen, env, render +157 env:&:environment <- new-programming-environment resources, screen, [] +158 render-all screen, env, render 159 # create 2 sandboxes and scroll to second 160 assume-console [ 161 ¦ press ctrl-n @@ -225,9 +225,9 @@ if ('onhashchange' in window) { 163 ¦ press F4 164 ¦ type [add 1, 1] 165 ¦ press F4 -166 ¦ press page-down +166 ¦ press page-down 167 ] -168 event-loop screen, console, env, resources +168 event-loop screen, console, env, resources 169 screen-should-contain [ 170 ¦ . run (F4) . 171 ¦ . ╎─────────────────────────────────────────────────. @@ -242,7 +242,7 @@ if ('onhashchange' in window) { 180 ¦ left-click 6, 99 181 ] 182 run [ -183 ¦ event-loop screen, console, env, resources +183 ¦ event-loop screen, console, env, resources 184 ] 185 # second sandbox shows in editor; scroll resets to display first sandbox 186 screen-should-contain [ @@ -263,8 +263,8 @@ if ('onhashchange' in window) { 201 # initialize environment 202 assume-resources [ 203 ] -204 env:&:environment <- new-programming-environment resources, screen, [] -205 render-all screen, env, render +204 env:&:environment <- new-programming-environment resources, screen, [] +205 render-all screen, env, render 206 # create 2 sandboxes and scroll to second 207 assume-console [ 208 ¦ press ctrl-n @@ -272,9 +272,9 @@ if ('onhashchange' in window) { 210 ¦ press F4 211 ¦ type [add 1, 1] 212 ¦ press F4 -213 ¦ press page-down +213 ¦ press page-down 214 ] -215 event-loop screen, console, env, resources +215 event-loop screen, console, env, resources 216 screen-should-contain [ 217 ¦ . run (F4) . 218 ¦ . ╎─────────────────────────────────────────────────. @@ -289,7 +289,7 @@ if ('onhashchange' in window) { 227 ¦ left-click 2, 99 228 ] 229 run [ -230 ¦ event-loop screen, console, env, resources +230 ¦ event-loop screen, console, env, resources 231 ] 232 # second sandbox shows in editor; scroll resets to display first sandbox 233 screen-should-contain [ @@ -310,8 +310,8 @@ if ('onhashchange' in window) { 248 # initialize environment 249 assume-resources [ 250 ] -251 env:&:environment <- new-programming-environment resources, screen, [] -252 render-all screen, env, render +251 env:&:environment <- new-programming-environment resources, screen, [] +252 render-all screen, env, render 253 # create 2 sandboxes and scroll to second 254 assume-console [ 255 ¦ press ctrl-n @@ -319,10 +319,10 @@ if ('onhashchange' in window) { 257 ¦ press F4 258 ¦ type [add 1, 1] 259 ¦ press F4 -260 ¦ press page-down -261 ¦ press page-down +260 ¦ press page-down +261 ¦ press page-down 262 ] -263 event-loop screen, console, env, resources +263 event-loop screen, console, env, resources 264 screen-should-contain [ 265 ¦ . run (F4) . 266 ¦ . ╎─────────────────────────────────────────────────. @@ -337,7 +337,7 @@ if ('onhashchange' in window) { 275 ¦ left-click 2, 99 276 ] 277 run [ -278 ¦ event-loop screen, console, env, resources +278 ¦ event-loop screen, console, env, resources 279 ] 280 # implicitly scroll up to first sandbox 281 screen-should-contain [ @@ -359,8 +359,8 @@ if ('onhashchange' in window) { 297 # initialize environment 298 assume-resources [ 299 ] -300 env:&:environment <- new-programming-environment resources, screen, [] -301 render-all screen, env, render +300 env:&:environment <- new-programming-environment resources, screen, [] +301 render-all screen, env, render 302 # create 2 sandboxes 303 assume-console [ 304 ¦ press ctrl-n @@ -369,7 +369,7 @@ if ('onhashchange' in window) { 307 ¦ type [add 1, 1] 308 ¦ press F4 309 ] -310 event-loop screen, console, env, resources +310 event-loop screen, console, env, resources 311 screen-should-contain [ 312 ¦ . run (F4) . 313 ¦ . ╎ . @@ -385,11 +385,11 @@ if ('onhashchange' in window) { 323 # delete the second sandbox, then try to scroll down twice 324 assume-console [ 325 ¦ left-click 3, 99 -326 ¦ press page-down -327 ¦ press page-down +326 ¦ press page-down +327 ¦ press page-down 328 ] 329 run [ -330 ¦ event-loop screen, console, env, resources +330 ¦ event-loop screen, console, env, resources 331 ] 332 # shouldn't go past last sandbox 333 screen-should-contain [ -- cgit 1.4.1-2-gfad0