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