diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-08-19 13:28:01 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-08-19 13:28:01 -0700 |
commit | cecb1b1b6b317425d6ff50a9a728c83e7f6f3b10 (patch) | |
tree | b711e535f5ed7eba425d2e9b81885869f75f2035 | |
parent | 9f4e1b9ac37dc8d54dfd25c9e4d8f5826ab56e01 (diff) | |
download | mu-cecb1b1b6b317425d6ff50a9a728c83e7f6f3b10.tar.gz |
2038 - toggle trace even if warnings or prints
-rw-r--r-- | edit.mu | 7 |
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? |