diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-11-06 13:34:46 -0800 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-11-06 13:39:46 -0800 |
| commit | 443140ae3e3eae3bf59f34447bedc8329498cca0 (patch) | |
| tree | 8acee78d1e1136282021624d418db0eeb1fc0e49 /apps/tile/environment.mu | |
| parent | 9a0412b8587f6b153be2d7d63cd9da2600345e86 (diff) | |
| download | mu-443140ae3e3eae3bf59f34447bedc8329498cca0.tar.gz | |
7195 - tile: create 'screen' objects
Diffstat (limited to 'apps/tile/environment.mu')
| -rw-r--r-- | apps/tile/environment.mu | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 5266b1fb..fa897203 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -798,6 +798,11 @@ fn bound-function? w: (addr word), functions-ah: (addr handle function) -> _/ebx subresult <- word-equal? w, "lines" compare subresult, 0 # false break-if-!= + ## screens + # if w == "fake-screen" return true + subresult <- word-equal? w, "fake-screen" + compare subresult, 0 # false + break-if-!= ## hacks # if w == "dup" return true subresult <- word-equal? w, "dup" @@ -1473,6 +1478,8 @@ fn clear-canvas _env: (addr environment) { move-cursor screen, 3, start-col print-string screen, "open read slurp lines" move-cursor screen, 4, start-col + print-string screen, "fake-screen" + move-cursor screen, 5, start-col print-string screen, "dup swap" # currently defined functions start-col <- subtract 2 |