defmodule
()
files
(ttywindow)
import
(virbitmap defstruct virtty)
export
(#:image:rectangle:window:tty:make #:image:rectangle:window:tty:cx #:image:
rectangle:window:tty:cx:macro-open #:image:rectangle:window:tty:cy #:image:
rectangle:window:tty:cy:macro-open #:image:rectangle:window:tty:lmargin #:
image:rectangle:window:tty:lmargin:macro-open #:image:rectangle:window:tty:
rmargin #:image:rectangle:window:tty:rmargin:macro-open #:image:rectangle:
window:tty:tyshowcursor #:image:rectangle:window:tty:tyshowcursor:macro-open 
#:image:rectangle:window:tty:tty #:image:rectangle:window:tty:tty:macro-open 
#:image:rectangle:window:tty:itsoft #:image:rectangle:window:tty:itsoft:
macro-open #:image:rectangle:window:tty:create #:image:rectangle:window:tty:
current-window #:image:rectangle:window:tty:uncurrent-window #:image:
rectangle:window:tty:modify-window #:tty:window:tycn #:tty:window:tystring #:
tty:window:tynewline #:tty:window:tybs #:tty:window:tycr #:tty:window:tycleol 
#:tty:window:tycls #:tty:window:tyattrib #:tty:window:tyi #:tty:window:tys #:
tty:window:tycursor #:tty:window:tyback #:tty:window:tydelcn #:tty:window:
tyinscn)

;;; Added automatically, don't type beyond this line.
cpexport
((#:image:rectangle:window:tty:make subr0 ()) (#:image:rectangle:window:tty:cx
nsubr ()) (#:image:rectangle:window:tty:cx:macro-open nsubr ()) (#:image:
rectangle:window:tty:cy nsubr ()) (#:image:rectangle:window:tty:cy:macro-open 
nsubr ()) (#:image:rectangle:window:tty:lmargin nsubr ()) (#:image:rectangle:
window:tty:lmargin:macro-open nsubr ()) (#:image:rectangle:window:tty:rmargin 
nsubr ()) (#:image:rectangle:window:tty:rmargin:macro-open nsubr ()) (#:image:
rectangle:window:tty:tyshowcursor nsubr ()) (#:image:rectangle:window:tty:
tyshowcursor:macro-open nsubr ()) (#:image:rectangle:window:tty:tty nsubr ()) 
(#:image:rectangle:window:tty:tty:macro-open nsubr ()) (#:image:rectangle:
window:tty:itsoft nsubr ()) (#:image:rectangle:window:tty:itsoft:macro-open 
nsubr ()) (#:image:rectangle:window:tty:create nsubr ()) (#:image:rectangle:
window:tty:current-window subr1 ()) (#:image:rectangle:window:tty:
uncurrent-window subr1 ()) (#:image:rectangle:window:tty:modify-window nsubr (
)) (#:tty:window:tycn subr1 ()) (#:tty:window:tystring subr2 ()) (#:tty:
window:tynewline subr0 ()) (#:tty:window:tybs subr1 ()) (#:tty:window:tycr 
subr0 ()) (#:tty:window:tycleol subr0 ()) (#:tty:window:tycls subr0 ()) (#:
tty:window:tyattrib subr1 ()) (#:tty:window:tyi subr0 ()) (#:tty:window:tys 
subr0 ()) (#:tty:window:tycursor subr2 ()) (#:tty:window:tyback subr1 ()) (#:
tty:window:tydelcn subr1 ()) (#:tty:window:tyinscn subr1 ()))
cpfunctions
((#:window:flip-tty subr1) (#:window:adjust subr1))
cpimport
((virtty (tyshowcursor . nsubr) (tycleol . subr0) (tybs . subr1)) (virbitmap (
create-window . nsubr) (x-base-space . subr0) (y-base-space . subr0) (
width-space . subr0) (height-space . subr0) (current-window . nsubr) (
draw-substring . nsubr) (x-inc-substring . subr3) (current-mode . nsubr) (
bitblit . nsubr) (window-bitmap . subr1) (clear-graph-env . subr0) (
current-font . nsubr) (draw-cursor . subr3) (read-event . nsubr) (eventp . 
subr0) (draw-cn . subr3)))