diff options
Diffstat (limited to 'edit.mu')
| -rw-r--r-- | edit.mu | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/edit.mu b/edit.mu index b0a24383..611fc23c 100644 --- a/edit.mu +++ b/edit.mu @@ -1600,8 +1600,7 @@ recipe delete-before-cursor [ loop } # we're guaranteed not to be at the right margin - $log [printing space for backspace] -#? screen <- print-character screen, 32/space + screen <- print-character screen, 32/space reply editor/same-as-ingredient:0, screen/same-as-ingredient:1, 0/no-more-render ] @@ -4775,10 +4774,10 @@ recipe render-all [ local-scope screen:address <- next-ingredient env:address:programming-environment-data <- next-ingredient - $log [--- render all] + trace 10, [app], [render all] hide-screen screen # top menu - $log [-- top menu] + trace 11, [app], [render top menu] width:number <- screen-width screen draw-horizontal screen, 0, 0/left, width, 32/space, 0/black, 238/grey button-start:number <- subtract width, 20 @@ -4788,7 +4787,7 @@ recipe render-all [ run-button:address:array:character <- new [ run (F4) ] print-string screen, run-button, 255/white, 161/reddish # error message - $log [-- status] + trace 11, [app], [render status] recipe-warnings:address:array:character <- get *env, recipe-warnings:offset { break-unless recipe-warnings @@ -4796,7 +4795,7 @@ recipe render-all [ update-status screen, status, 1/red } # dotted line down the middle - $log [-- vertical line] + trace 11, [app], [render divider] divider:number, _ <- divide-with-remainder width, 2 height:number <- screen-height screen draw-vertical screen, divider, 1/top, height, 9482/vertical-dotted @@ -4842,7 +4841,7 @@ recipe render-recipes [ local-scope screen:address <- next-ingredient env:address:programming-environment-data <- next-ingredient - $log [-- render recipes] + trace 11, [app], [render recipes] recipes:address:editor-data <- get *env, recipes:offset # render recipes left:number <- get *recipes, left:offset @@ -4897,9 +4896,6 @@ after +global-type [ { ctrl-l?:boolean <- equal *c, 12/ctrl-l break-unless ctrl-l? - $log [=== ctrl-l pressed] -#? screen <- clear-screen screen - clear-display screen <- render-all screen, env:address:programming-environment-data loop +next-event:label } @@ -5254,8 +5250,7 @@ recipe render-sandbox-side [ local-scope screen:address <- next-ingredient env:address:programming-environment-data <- next-ingredient - $log [-- render sandbox side] -#? trace 10, [app], [render sandbox side] #? 1 + trace 11, [app], [render sandbox side] current-sandbox:address:editor-data <- get *env, current-sandbox:offset left:number <- get *current-sandbox, left:offset right:number <- get *current-sandbox, right:offset |