21 lines
686 B
Scheme
21 lines
686 B
Scheme
(define-module (sloth common)
|
|
#:use-module (oop goops)
|
|
#:export (<sloth-frontend>
|
|
fetch-input
|
|
get-main-win
|
|
set-cursor-pos
|
|
end
|
|
width
|
|
height
|
|
write-buffer))
|
|
|
|
(define-class <sloth-frontend> ()
|
|
(main-win #:getter get-main-win #:init-keyword #:main-win)
|
|
(height #:accessor height)
|
|
(width #:accessor width))
|
|
|
|
(define-generic fetch-input) ; args: <sloth-frontend>
|
|
(define-generic set-cursor-pos) ; args: <sloth-frontend> x y scroll line
|
|
(define-generic end) ; args: <sloth-frontend>
|
|
(define-generic write-buffer) ; args: <sloth-frontend> buffer scroll
|