3957

Marking sandbox responses as expected can take a long time if there are
many sandboxes. Indicate when a click is being worked on.

1 files changed, 2 insertions, 0 deletions

diff --git a/sandbox/009-sandbox-test.mu b/sandbox/009-sandbox-test.mu
index 62ced6c9..7c6c0804 100644
--- a/sandbox/009-sandbox-test.mu
+++ b/sandbox/009-sandbox-test.mu
@@ -130,10 +130,12 @@ after <global-touch> [
     # identify the sandbox whose output is being clicked on
     sandbox:&:sandbox <- find-click-in-sandbox-output env, click-row
     break-unless sandbox
+    screen <- update-status screen, [updating...      ], 245/grey
     # toggle its expected-response, and save session
     sandbox <- toggle-expected-response sandbox
     save-sandboxes env, resources
     screen <- render-sandbox-side screen, env, render
+    screen <- update-status screen, [                 ], 245/grey
     screen <- update-cursor screen, current-sandbox, env
     loop +next-event
   }