misc-deps
/
raart
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

up

This commit is contained in:
Jay McCarthy 2018-01-15 19:48:30 -05:00
parent a8fc283668
commit 60ac3729e7
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
buffer.rkt
View File

@ -243,6 +243,7 @@
(set! x y) (set! x y)
(set! y tmp))) (set! y tmp)))
(provide (provide
(contract-out (contract-out
[color/c contract?] [color/c contract?]
@ -272,3 +273,5 @@
(->* (exact-nonnegative-integer? exact-nonnegative-integer?) (->* (exact-nonnegative-integer? exact-nonnegative-integer?)
(#:output output-port?) (#:output output-port?)
buffer?)])) buffer?)]))

4
draw.rkt
View File

@ -325,6 +325,9 @@
(for/list ([col (in-list row)]) (for/list ([col (in-list row)])
(if (raart? col) col (text (~a col)))))) (if (raart? col) col (text (~a col))))))
(define (draw-here r)
(draw (make-output-buffer) r))
(define valign/c (or/c 'top 'center 'bottom)) (define valign/c (or/c 'top 'center 'bottom))
(define halign/c (or/c 'left 'center 'right)) (define halign/c (or/c 'left 'center 'right))
(provide (provide
@ -333,6 +336,7 @@
[draw [draw
(-> buffer? raart? (-> buffer? raart?
void?)] void?)]
[draw-here (-> raart? void?)]
[style (-> style/c raart? raart?)] [style (-> style/c raart? raart?)]
[fg (-> color/c raart? raart?)] [fg (-> color/c raart? raart?)]
[bg (-> color/c raart? raart?)] [bg (-> color/c raart? raart?)]