From bdcfcc2e8e2f44189b0f5d7a3ce1044889ab6eb4 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sat, 5 Sep 2015 12:53:12 -0700 Subject: 2161 Starting on making the basic programming environment oblivious to warnings. That should come later. --- edit/004-programming-environment.mu | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/edit/004-programming-environment.mu b/edit/004-programming-environment.mu index c87e09d9..7f624fcf 100644 --- a/edit/004-programming-environment.mu +++ b/edit/004-programming-environment.mu @@ -393,14 +393,6 @@ recipe render-all [ screen <- move-cursor screen, 0/row, button-start run-button:address:array:character <- new [ run (F4) ] print-string screen, run-button, 255/white, 161/reddish - # error message - trace 11, [app], [render status] - recipe-warnings:address:array:character <- get *env, recipe-warnings:offset - { - break-unless recipe-warnings - status:address:array:character <- new [errors found] - update-status screen, status, 1/red - } # dotted line down the middle trace 11, [app], [render divider] divider:number, _ <- divide-with-remainder width, 2 @@ -409,6 +401,14 @@ recipe render-all [ # screen <- render-recipes screen, env screen <- render-sandbox-side screen, env + # error message + trace 11, [app], [render status] + recipe-warnings:address:array:character <- get *env, recipe-warnings:offset + { + break-unless recipe-warnings + status:address:array:character <- new [errors found] + update-status screen, status, 1/red + } # recipes:address:editor-data <- get *env, recipes:offset current-sandbox:address:editor-data <- get *env, current-sandbox:offset -- cgit 1.4.1-2-gfad0