diff options
Diffstat (limited to 'edit')
-rw-r--r-- | edit/004-programming-environment.mu | 10 | ||||
-rw-r--r-- | edit/005-sandbox.mu | 2 | ||||
-rw-r--r-- | edit/006-sandbox-edit.mu | 2 | ||||
-rw-r--r-- | edit/007-sandbox-delete.mu | 2 |
4 files changed, 8 insertions, 8 deletions
diff --git a/edit/004-programming-environment.mu b/edit/004-programming-environment.mu index b4d9f442..44a812c5 100644 --- a/edit/004-programming-environment.mu +++ b/edit/004-programming-environment.mu @@ -21,7 +21,7 @@ container programming-environment-data [ sandbox-in-focus?:boolean # false => cursor in recipes; true => cursor in current-sandbox ] -recipe new-programming-environment screen:address:screen, initial-recipe-contents:address:array:character, initial-sandbox-contents:address:array:character -> result:address:programming-environment-data [ +recipe new-programming-environment screen:address:screen, initial-recipe-contents:address:array:character, initial-sandbox-contents:address:array:character -> result:address:programming-environment-data, screen:address:screen [ local-scope load-ingredients width:number <- screen-width screen @@ -47,7 +47,7 @@ recipe new-programming-environment screen:address:screen, initial-recipe-content *current-sandbox <- new-editor initial-sandbox-contents, screen, new-left, width/right ] -recipe event-loop screen:address:screen, console:address:console, env:address:programming-environment-data [ +recipe event-loop screen:address:screen, console:address:console, env:address:programming-environment-data -> screen:address:screen, console:address:console, env:address:programming-environment-data [ local-scope load-ingredients recipes:address:editor-data <- get *env, recipes:offset @@ -106,7 +106,7 @@ recipe event-loop screen:address:screen, console:address:console, env:address:pr } { break-if more-events? - env <- resize screen, env + env, screen <- resize screen, env screen <- render-all screen, env render-all-on-no-more-events? <- copy 0/false # full render done } @@ -179,7 +179,7 @@ recipe event-loop screen:address:screen, console:address:console, env:address:pr } ] -recipe resize screen:address:screen, env:address:programming-environment-data -> env:address:programming-environment-data [ +recipe resize screen:address:screen, env:address:programming-environment-data -> env:address:programming-environment-data, screen:address:screen [ local-scope load-ingredients clear-screen screen # update screen dimensions @@ -598,7 +598,7 @@ after <global-type> [ ## helpers -recipe draw-vertical screen:address:screen, col:number, y:number, bottom:number [ +recipe draw-vertical screen:address:screen, col:number, y:number, bottom:number -> screen:address:screen [ local-scope load-ingredients style:character, style-found?:boolean <- next-ingredient diff --git a/edit/005-sandbox.mu b/edit/005-sandbox.mu index 15c6ef98..1c024b2b 100644 --- a/edit/005-sandbox.mu +++ b/edit/005-sandbox.mu @@ -239,7 +239,7 @@ recipe! render-sandbox-side screen:address:screen, env:address:programming-envir clear-rest-of-screen screen, row, left, left, right ] -recipe render-sandboxes screen:address:screen, sandbox:address:sandbox-data, left:number, right:number, row:number -> row:number, screen:address:screen [ +recipe render-sandboxes screen:address:screen, sandbox:address:sandbox-data, left:number, right:number, row:number -> row:number, screen:address:screen, sandbox:address:sandbox-data [ local-scope load-ingredients reply-unless sandbox diff --git a/edit/006-sandbox-edit.mu b/edit/006-sandbox-edit.mu index ea95c6af..0e294be3 100644 --- a/edit/006-sandbox-edit.mu +++ b/edit/006-sandbox-edit.mu @@ -97,7 +97,7 @@ recipe empty-editor? editor:address:editor-data -> result:boolean [ result <- not first ] -recipe extract-sandbox env:address:programming-environment-data, click-row:number -> result:address:sandbox-data [ +recipe extract-sandbox env:address:programming-environment-data, click-row:number -> result:address:sandbox-data, env:address:programming-environment-data [ local-scope load-ingredients # assert click-row >= sandbox.starting-row-on-screen diff --git a/edit/007-sandbox-delete.mu b/edit/007-sandbox-delete.mu index 54c4fc8b..e9d28ffa 100644 --- a/edit/007-sandbox-delete.mu +++ b/edit/007-sandbox-delete.mu @@ -77,7 +77,7 @@ after <global-touch> [ } ] -recipe delete-sandbox t:touch-event, env:address:programming-environment-data -> was-delete?:boolean [ +recipe delete-sandbox t:touch-event, env:address:programming-environment-data -> was-delete?:boolean, env:address:programming-environment-data [ local-scope load-ingredients click-column:number <- get t, column:offset |