diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-02-25 20:47:42 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-02-25 20:47:42 -0800 |
commit | d0e29245f9d37256093026d5080452db8a694136 (patch) | |
tree | 0f6658fa7dc42e7ac30c0641d1bcd562c332f3ec /sandbox | |
parent | dcc060c7d4ef56b978beb34ddce8d8ffcec94fa6 (diff) | |
download | mu-d0e29245f9d37256093026d5080452db8a694136.tar.gz |
2707
Diffstat (limited to 'sandbox')
-rw-r--r-- | sandbox/004-programming-environment.mu | 2 | ||||
-rw-r--r-- | sandbox/005-sandbox.mu | 1 | ||||
-rw-r--r-- | sandbox/010-errors.mu | 4 |
3 files changed, 0 insertions, 7 deletions
diff --git a/sandbox/004-programming-environment.mu b/sandbox/004-programming-environment.mu index 7a449622..78aca5ae 100644 --- a/sandbox/004-programming-environment.mu +++ b/sandbox/004-programming-environment.mu @@ -160,9 +160,7 @@ recipe render-all screen:address:shared:screen, env:address:shared:programming-e # top menu trace 11, [app], [render top menu] width:number <- screen-width screen -#? $print [draw menu], 10/newline draw-horizontal screen, 0, 0/left, width, 32/space, 0/black, 238/grey -#? $print [draw menu end], 10/newline button-start:number <- subtract width, 20 button-on-screen?:boolean <- greater-or-equal button-start, 0 assert button-on-screen?, [screen too narrow for menu] diff --git a/sandbox/005-sandbox.mu b/sandbox/005-sandbox.mu index e79029f6..31032eb3 100644 --- a/sandbox/005-sandbox.mu +++ b/sandbox/005-sandbox.mu @@ -121,7 +121,6 @@ after <global-keypress> [ screen <- render-all screen, env { break-if error? -#? $print [update-status: clearing], 10/newline status:address:shared:array:character <- new [ ] screen <- update-status screen, status, 245/grey } diff --git a/sandbox/010-errors.mu b/sandbox/010-errors.mu index 6a2c87ed..6794271d 100644 --- a/sandbox/010-errors.mu +++ b/sandbox/010-errors.mu @@ -71,9 +71,7 @@ before <render-components-end> [ status-template:address:shared:array:character <- new [errors found (_) ] error-index-text:address:shared:array:character <- to-text error-index status:address:shared:array:character <- interpolate status-template, error-index-text -#? $print [update-status: sandbox error], 10/newline update-status screen, status, 1/red -#? $print [run sandboxes end], 10/newline } ] @@ -104,13 +102,11 @@ recipe! update-sandbox sandbox:address:shared:sandbox-data, env:address:shared:p } { break-unless *errors -#? $print [setting error-index to ], idx, 10/newline error-index:address:number <- get-address *env, error-index:offset error-not-set?:boolean <- equal *error-index, -1 break-unless error-not-set? *error-index <- copy idx } -#? $print [done with run-interactive], 10/newline ] # make sure we render any trace |