3041 - fix 3039 in sandbox/ as well

1 files changed, 41 insertions, 0 deletions

diff --git a/sandbox/010-sandbox-trace.mu b/sandbox/010-sandbox-trace.mu
index 63d56787..4ef03239 100644
--- a/sandbox/010-sandbox-trace.mu
+++ b/sandbox/010-sandbox-trace.mu
@@ -113,6 +113,47 @@ add 2, 2]
   ]
 ]
 
+scenario clicking-on-app-trace-does-nothing [
+  trace-until 100/app  # trace too long
+  assume-screen 50/width, 10/height
+  # create and expand the trace
+  1:address:array:character <- new [stash 123456789]
+  assume-console [
+    press F4
+    left-click 4, 1
+  ]
+  2:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character
+  event-loop screen:address:screen, console:address:console, 2:address:programming-environment-data
+  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:address:screen, console:address:console, 2:address:programming-environment-data
+  ]
+  # no change; doesn't die
+  screen-should-contain [
+    .                               run (F4)           .
+    .                                                  .
+    .━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━.
+    .0   edit           copy           delete          .
+    .stash 123456789                                   .
+    .123456789                                         .
+    .━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━.
+    .                                                  .
+  ]
+]
+
 container sandbox-data [
   trace:address:array:character
   display-trace?:boolean