diff options
Diffstat (limited to 'sandbox/004-programming-environment.mu')
| -rw-r--r-- | sandbox/004-programming-environment.mu | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/sandbox/004-programming-environment.mu b/sandbox/004-programming-environment.mu index b6c50fbf..81484f0f 100644 --- a/sandbox/004-programming-environment.mu +++ b/sandbox/004-programming-environment.mu @@ -36,6 +36,7 @@ recipe new-programming-environment screen:address:shared:screen, initial-sandbox # sandbox editor current-sandbox:address:address:shared:editor-data <- get-address *result, current-sandbox:offset *current-sandbox <- new-editor initial-sandbox-contents, screen, 0, width/right + <programming-environment-initialization> ] recipe event-loop screen:address:shared:screen, console:address:shared:console, env:address:shared:programming-environment-data -> screen:address:shared:screen, console:address:shared:console, env:address:shared:programming-environment-data [ @@ -159,7 +160,9 @@ 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] |