blob: 87225ef142a4f225a0b9e3293abd4f911f7e5b7b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(library (strigoform window)
(export current-window
window-inner-width
window-inner-height
request-animation-frame
timeout)
(import (scheme base)
(hoot ffi))
(define-foreign current-window
"window" "get"
-> (ref null extern))
(define-foreign window-inner-width
"window" "innerWidth"
(ref null extern) -> i32)
(define-foreign window-inner-height
"window" "innerHeight"
(ref null extern) -> i32)
(define-foreign request-animation-frame
"window" "requestAnimationFrame"
(ref null extern) -> none)
(define-foreign timeout
"window" "setTimeout"
(ref null extern) f64 -> i32))
|