about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-08-19 13:28:01 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-08-19 13:28:01 -0700
commitcecb1b1b6b317425d6ff50a9a728c83e7f6f3b10 (patch)
treeb711e535f5ed7eba425d2e9b81885869f75f2035
parent9f4e1b9ac37dc8d54dfd25c9e4d8f5826ab56e01 (diff)
downloadmu-cecb1b1b6b317425d6ff50a9a728c83e7f6f3b10.tar.gz
2038 - toggle trace even if warnings or prints
-rw-r--r--edit.mu7
1 files changed, 5 insertions, 2 deletions
diff --git a/edit.mu b/edit.mu
index de2181ac..eb4ba61f 100644
--- a/edit.mu
+++ b/edit.mu
@@ -4763,6 +4763,7 @@ container sandbox-data [
   expected-response:address:array:character
   # coordinates to track clicks
   starting-row-on-screen:number
+  code-ending-row-on-screen:number
   response-starting-row-on-screen:number
   display-trace?:boolean
   screen:address:screen  # prints in the sandbox go here
@@ -5001,6 +5002,8 @@ recipe render-sandboxes [
   # render sandbox contents
   sandbox-data:address:array:character <- get *sandbox, data:offset
   row, screen <- render-string screen, sandbox-data, left, right, 7/white, row
+  code-ending-row:address:number <- get-address *sandbox, code-ending-row-on-screen:offset
+  *code-ending-row <- copy row
   # render sandbox warnings, screen or response, in that order
   response-starting-row:address:number <- get-address *sandbox, response-starting-row-on-screen:offset
   sandbox-response:address:array:character <- get *sandbox, response:offset
@@ -5975,8 +5978,8 @@ recipe find-click-in-sandbox-code [
     loop
   }
   # return sandbox if click is in its code region
-  response-starting-row:number <- get *sandbox, response-starting-row-on-screen:offset
-  click-above-response?:boolean <- lesser-than click-row, response-starting-row
+  code-ending-row:number <- get *sandbox, code-ending-row-on-screen:offset
+  click-above-response?:boolean <- lesser-or-equal click-row, code-ending-row
   start:number <- get *sandbox, starting-row-on-screen:offset
   click-below-menu?:boolean <- greater-than click-row, start
   click-on-sandbox-code?:boolean <- and click-above-response?, click-below-menu?