From b4bccf49dbf8c88157b39db55eea9f57714b8169 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" <vc@akkartik.com> Date: Sat, 5 Sep 2015 15:31:55 -0700 Subject: 2167 --- edit/005-sandbox.mu | 6 ++---- edit/009-sandbox-trace.mu | 16 ++++++++++++++++ 2 files changed, 18 insertions(+), 4 deletions(-) (limited to 'edit') diff --git a/edit/005-sandbox.mu b/edit/005-sandbox.mu index 99a44ba6..2547569d 100644 --- a/edit/005-sandbox.mu +++ b/edit/005-sandbox.mu @@ -11,13 +11,11 @@ container programming-environment-data [ container sandbox-data [ data:address:array:character response:address:array:character - trace:address:array:character expected-response:address:array:character # coordinates to track clicks starting-row-on-screen:number code-ending-row-on-screen:number # past end of code response-starting-row-on-screen:number - display-trace?:boolean screen:address:screen # prints in the sandbox go here next-sandbox:address:sandbox-data ] @@ -173,14 +171,14 @@ recipe update-recipes [ reply 0/no-errors-found, env/same-as-ingredient:0, screen/same-as-ingredient:1 ] +# replaced in a later layer recipe update-sandbox [ local-scope sandbox:address:sandbox-data <- next-ingredient data:address:array:character <- get *sandbox, data:offset response:address:address:array:character <- get-address *sandbox, response:offset - trace:address:address:array:character <- get-address *sandbox, trace:offset fake-screen:address:address:screen <- get-address *sandbox, screen:offset - *response, _, *fake-screen, *trace <- run-interactive data + *response, _, *fake-screen <- run-interactive data ] recipe update-status [ diff --git a/edit/009-sandbox-trace.mu b/edit/009-sandbox-trace.mu index f10f3fd0..a2b35ac0 100644 --- a/edit/009-sandbox-trace.mu +++ b/edit/009-sandbox-trace.mu @@ -120,6 +120,22 @@ recipe foo [ ] ] +container sandbox-data [ + trace:address:array:character + display-trace?:boolean +] + +# replaced in a later layer +recipe! update-sandbox [ + local-scope + sandbox:address:sandbox-data <- next-ingredient + data:address:array:character <- get *sandbox, data:offset + response:address:address:array:character <- get-address *sandbox, response:offset + trace:address:address:array:character <- get-address *sandbox, trace:offset + fake-screen:address:address:screen <- get-address *sandbox, screen:offset + *response, _, *fake-screen, *trace <- run-interactive data +] + # clicks on sandbox code toggle its display-trace? flag after <global-touch> [ # right side of screen? check if it's inside the code of any sandbox -- cgit 1.4.1-2-gfad0