From cecb1b1b6b317425d6ff50a9a728c83e7f6f3b10 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 19 Aug 2015 13:28:01 -0700 Subject: 2038 - toggle trace even if warnings or prints --- edit.mu | 7 +++++-- 1 file 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? -- cgit 1.4.1-2-gfad0