syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

WIP

This commit is contained in:
Tony Garnock-Jones 2016-09-11 22:12:56 -04:00
parent 863c1a7db9
commit 9a80ddfa83
1 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/syndicate-ide/wm.rkt
View File

@ -196,10 +196,18 @@
(require racket/set) (require racket/set)
(require "display-terminal.rkt") (require "display-terminal.rkt")
(let ()
(define tty (default-tty)) (define tty (default-tty))
(tty-display tty "Ho ho ho\r\n") (tty-display tty "Ho ho ho\r\n")
(define R (glue-tbox 10 5 ":" (pen color-white color-red #f #f)))
(define G (glue-tbox 10 5 ":" (pen color-white color-green #f #f)))
(define B (glue-tbox 10 5 ":" (pen color-white color-blue #f #f)))
(tbox-render! B 'uhhh tty 0 0 (tty-columns tty) (tty-rows tty))
(tty-goto tty 0 0)
(let loop () (let loop ()
(tty-flush tty) (tty-flush tty)
(sync (handle-evt (tty-next-key-evt tty) (sync (handle-evt (tty-next-key-evt tty)
@ -210,4 +218,4 @@
(tty-clear-to-eol tty) (tty-clear-to-eol tty)
(tty-display tty (format "~v" k)) (tty-display tty (format "~v" k))
(tty-goto tty (tty-cursor-row tty) 0) (tty-goto tty (tty-cursor-row tty) 0)
(loop)])))))) (loop)])))))))