diff options
Diffstat (limited to 'edit/004-programming-environment.mu')
| -rw-r--r-- | edit/004-programming-environment.mu | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/edit/004-programming-environment.mu b/edit/004-programming-environment.mu index 0915fb33..51dd2362 100644 --- a/edit/004-programming-environment.mu +++ b/edit/004-programming-environment.mu @@ -34,7 +34,7 @@ recipe new-programming-environment screen:address:screen, initial-recipe-content assert button-on-screen?, [screen too narrow for menu] 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 + print screen, run-button, 255/white, 161/reddish # dotted line down the middle divider:number, _ <- divide-with-remainder width, 2 draw-vertical screen, divider, 1/top, height, 9482/vertical-dotted @@ -381,7 +381,7 @@ recipe render-all screen:address:screen, env:address:programming-environment-dat assert button-on-screen?, [screen too narrow for menu] 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 + print screen, run-button, 255/white, 161/reddish # dotted line down the middle trace 11, [app], [render divider] divider:number, _ <- divide-with-remainder width, 2 @@ -450,9 +450,9 @@ recipe update-cursor screen:address:screen, recipes:address:editor-data, current screen <- move-cursor screen, cursor-row, cursor-column ] -# print a string 's' to 'editor' in 'color' starting at 'row' +# print a text 's' to 'editor' in 'color' starting at 'row' # clear rest of last line, move cursor to next line -recipe render-string screen:address:screen, s:address:array:character, left:number, right:number, color:number, row:number -> row:number, screen:address:screen [ +recipe render screen:address:screen, s:address:array:character, left:number, right:number, color:number, row:number -> row:number, screen:address:screen [ local-scope load-ingredients reply-unless s @@ -510,8 +510,8 @@ recipe render-string screen:address:screen, s:address:array:character, left:numb move-cursor screen, row, left ] -# like 'render-string' but with colorization for comments like in the editor -recipe render-code-string screen:address:screen, s:address:array:character, left:number, right:number, row:number -> row:number, screen:address:screen [ +# like 'render' for texts, but with colorization for comments like in the editor +recipe render-code screen:address:screen, s:address:array:character, left:number, right:number, row:number -> row:number, screen:address:screen [ local-scope load-ingredients reply-unless s @@ -528,7 +528,7 @@ recipe render-code-string screen:address:screen, s:address:array:character, left done? <- greater-or-equal row, screen-height break-if done? c:character <- index *s, i - <character-c-received> # only line different from render-string + <character-c-received> # only line different from render { # at right? wrap. at-right?:boolean <- equal column, right |