This commit is contained in:
parent
10e9522149
commit
8676b3736b
3
size.rkt
3
size.rkt
|
@ -78,6 +78,9 @@
|
||||||
[x (error 'cursor-position "Something weird happened, got ~e" x)]))))
|
[x (error 'cursor-position "Something weird happened, got ~e" x)]))))
|
||||||
|
|
||||||
;; xxx xterm-set-window-title
|
;; xxx xterm-set-window-title
|
||||||
|
#;(begin
|
||||||
|
(display (A:set-mode A:alternate-screen-mode))
|
||||||
|
(display (A:reset-mode A:alternate-screen-mode)))
|
||||||
|
|
||||||
;; xxx Do I make a 'lux chaos' for this?
|
;; xxx Do I make a 'lux chaos' for this?
|
||||||
;;
|
;;
|
||||||
|
|
|
@ -2,7 +2,6 @@
|
||||||
(require racket/format
|
(require racket/format
|
||||||
raart)
|
raart)
|
||||||
|
|
||||||
#;
|
|
||||||
(module+ test
|
(module+ test
|
||||||
(draw (crop 1 80 1 20
|
(draw (crop 1 80 1 20
|
||||||
;;70 80 10 20
|
;;70 80 10 20
|
||||||
|
@ -17,7 +16,6 @@
|
||||||
(style 'bold (text "Right")))))))))
|
(style 'bold (text "Right")))))))))
|
||||||
(newline))
|
(newline))
|
||||||
|
|
||||||
#;
|
|
||||||
(module+ test
|
(module+ test
|
||||||
(draw (translate
|
(draw (translate
|
||||||
2 10
|
2 10
|
||||||
|
|
Loading…
Reference in New Issue