diff options
Diffstat (limited to 'sandbox')
| -rw-r--r-- | sandbox/001-editor.mu | 6 | ||||
| -rw-r--r-- | sandbox/002-typing.mu | 6 | ||||
| -rw-r--r-- | sandbox/003-shortcuts.mu | 8 | ||||
| -rw-r--r-- | sandbox/004-programming-environment.mu | 12 | ||||
| -rw-r--r-- | sandbox/005-sandbox.mu | 14 | ||||
| -rw-r--r-- | sandbox/009-sandbox-trace.mu | 4 |
6 files changed, 25 insertions, 25 deletions
diff --git a/sandbox/001-editor.mu b/sandbox/001-editor.mu index f84e388a..56c98d81 100644 --- a/sandbox/001-editor.mu +++ b/sandbox/001-editor.mu @@ -193,14 +193,14 @@ recipe render screen:address:screen, editor:address:editor-data -> last-row:numb at-right?:boolean <- equal column, right break-unless at-right? # print wrap icon - print-character screen, 8617/loop-back-to-left, 245/grey + print screen, 8617/loop-back-to-left, 245/grey column <- copy left row <- add row, 1 screen <- move-cursor screen, row, column # don't increment curr loop +next-character:label } - print-character screen, c, color + print screen, c, color curr <- next curr prev <- next prev column <- add column, 1 @@ -230,7 +230,7 @@ recipe clear-line-delimited screen:address:screen, column:number, right:number - { done?:boolean <- greater-than column, right break-if done? - screen <- print-character screen, 32/space + screen <- print screen, 32/space column <- add column, 1 loop } diff --git a/sandbox/002-typing.mu b/sandbox/002-typing.mu index bc47e2d8..2b446101 100644 --- a/sandbox/002-typing.mu +++ b/sandbox/002-typing.mu @@ -224,7 +224,7 @@ recipe insert-at-cursor editor:address:editor-data, c:character, screen:address: overflow?:boolean <- and at-bottom?, at-right? break-if overflow? move-cursor screen, save-row, save-column - print-character screen, c + print screen, c go-render? <- copy 0/false reply } @@ -246,7 +246,7 @@ recipe insert-at-cursor editor:address:editor-data, c:character, screen:address: currc:character <- get *curr, value:offset at-newline?:boolean <- equal currc, 10/newline break-if at-newline? - print-character screen, currc + print screen, currc curr-column <- add curr-column, 1 curr <- next curr loop @@ -1035,7 +1035,7 @@ recipe draw-horizontal screen:address:screen, row:number, x:number, right:number { continue?:boolean <- lesser-or-equal x, right # right is inclusive, to match editor-data semantics break-unless continue? - print-character screen, style, color, bg-color + print screen, style, color, bg-color x <- add x, 1 loop } diff --git a/sandbox/003-shortcuts.mu b/sandbox/003-shortcuts.mu index 9c46c927..b3676efb 100644 --- a/sandbox/003-shortcuts.mu +++ b/sandbox/003-shortcuts.mu @@ -118,13 +118,13 @@ recipe delete-before-cursor editor:address:editor-data, screen:address:screen -> currc:character <- get *curr, value:offset at-newline?:boolean <- equal currc, 10/newline break-if at-newline? - screen <- print-character screen, currc + screen <- print screen, currc curr-column <- add curr-column, 1 curr <- next curr loop } # we're guaranteed not to be at the right margin - screen <- print-character screen, 32/space + screen <- print screen, 32/space go-render? <- copy 0/false ] @@ -358,13 +358,13 @@ recipe delete-at-cursor editor:address:editor-data, screen:address:screen -> edi currc:character <- get *curr, value:offset at-newline?:boolean <- equal currc, 10/newline break-if at-newline? - screen <- print-character screen, currc + screen <- print screen, currc curr-column <- add curr-column, 1 curr <- next curr loop } # we're guaranteed not to be at the right margin - screen <- print-character screen, 32/space + screen <- print screen, 32/space go-render? <- copy 0/false ] diff --git a/sandbox/004-programming-environment.mu b/sandbox/004-programming-environment.mu index c9cb020a..c6742397 100644 --- a/sandbox/004-programming-environment.mu +++ b/sandbox/004-programming-environment.mu @@ -223,7 +223,7 @@ recipe render screen:address:screen, s:address:array:character, left:number, rig at-right?:boolean <- equal column, right break-unless at-right? # print wrap icon - print-character screen, 8617/loop-back-to-left, 245/grey + print screen, 8617/loop-back-to-left, 245/grey column <- copy left row <- add row, 1 screen <- move-cursor screen, row, column @@ -238,7 +238,7 @@ recipe render screen:address:screen, s:address:array:character, left:number, rig { done?:boolean <- greater-than column, right break-if done? - print-character screen, 32/space + print screen, 32/space column <- add column, 1 loop } @@ -247,7 +247,7 @@ recipe render screen:address:screen, s:address:array:character, left:number, rig screen <- move-cursor screen, row, column loop +next-character:label } - print-character screen, c, color + print screen, c, color column <- add column, 1 loop } @@ -284,7 +284,7 @@ recipe render-code screen:address:screen, s:address:array:character, left:number at-right?:boolean <- equal column, right break-unless at-right? # print wrap icon - print-character screen, 8617/loop-back-to-left, 245/grey + print screen, 8617/loop-back-to-left, 245/grey column <- copy left row <- add row, 1 screen <- move-cursor screen, row, column @@ -299,7 +299,7 @@ recipe render-code screen:address:screen, s:address:array:character, left:number { done?:boolean <- greater-than column, right break-if done? - print-character screen, 32/space + print screen, 32/space column <- add column, 1 loop } @@ -308,7 +308,7 @@ recipe render-code screen:address:screen, s:address:array:character, left:number screen <- move-cursor screen, row, column loop +next-character:label } - print-character screen, c, color + print screen, c, color column <- add column, 1 loop } diff --git a/sandbox/005-sandbox.mu b/sandbox/005-sandbox.mu index 0ebd079e..2fded997 100644 --- a/sandbox/005-sandbox.mu +++ b/sandbox/005-sandbox.mu @@ -234,7 +234,7 @@ recipe render-sandboxes screen:address:screen, sandbox:address:sandbox-data, lef row <- add row, 1 screen <- move-cursor screen, row, left clear-line-delimited screen, left, right - print-character screen, 120/x, 245/grey + print screen, 120/x, 245/grey # save menu row so we can detect clicks to it later starting-row:address:number <- get-address *sandbox, starting-row-on-screen:offset *starting-row <- copy row @@ -330,9 +330,9 @@ recipe render-screen screen:address:screen, sandbox-screen:address:screen, left: column <- copy left screen <- move-cursor screen, row, column # initial leader for each row: two spaces and a '.' - print-character screen, 32/space, 245/grey - print-character screen, 32/space, 245/grey - print-character screen, 46/full-stop, 245/grey + print screen, 32/space, 245/grey + print screen, 32/space, 245/grey + print screen, 46/full-stop, 245/grey column <- add left, 3 { # print row @@ -347,19 +347,19 @@ recipe render-screen screen:address:screen, sandbox-screen:address:screen, left: break-unless white? color <- copy 245/grey } - print-character screen, c, color + print screen, c, color column <- add column, 1 i <- add i, 1 loop } # print final '.' - print-character screen, 46/full-stop, 245/grey + print screen, 46/full-stop, 245/grey column <- add column, 1 { # clear rest of current line line-done?:boolean <- greater-than column, right break-if line-done? - print-character screen, 32/space + print screen, 32/space column <- add column, 1 loop } diff --git a/sandbox/009-sandbox-trace.mu b/sandbox/009-sandbox-trace.mu index 2a4cc55e..df74df47 100644 --- a/sandbox/009-sandbox-trace.mu +++ b/sandbox/009-sandbox-trace.mu @@ -25,7 +25,7 @@ scenario sandbox-click-on-code-toggles-app-trace [ ] run [ event-loop screen:address:screen, console:address:console, 2:address:programming-environment-data - print-character screen:address:screen, 9251/␣/cursor + print screen:address:screen, 9251/␣/cursor ] # trace now printed and cursor shouldn't have budged screen-should-contain [ @@ -54,7 +54,7 @@ scenario sandbox-click-on-code-toggles-app-trace [ ] run [ event-loop screen:address:screen, console:address:console, 2:address:programming-environment-data - print-character screen:address:screen, 9251/␣/cursor + print screen:address:screen, 9251/␣/cursor ] # trace hidden again screen-should-contain [ |