blob: 5f470991afa4a877281934a5a4f5fcb750f0301b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(library (strigoform event)
(export prevent-default!
keyboard-event-code)
(import (scheme base)
(hoot ffi))
(define-foreign prevent-default!
"event" "preventDefault"
(ref null extern) -> none)
(define-foreign keyboard-event-code
"event" "keyboardCode"
(ref null extern) -> (ref string)))
|