Add media.ended binding.
This commit is contained in:
parent
111eb33429
commit
e09efb46a0
2 changed files with 14 additions and 0 deletions
1
game.js
1
game.js
|
@ -49,6 +49,7 @@ window.addEventListener("load", async () => {
|
||||||
},
|
},
|
||||||
media: {
|
media: {
|
||||||
newAudio: (src) => new Audio(src),
|
newAudio: (src) => new Audio(src),
|
||||||
|
ended: (media) => media.ended,
|
||||||
play: (media) => media.play(),
|
play: (media) => media.play(),
|
||||||
pause: (media) => media.pause(),
|
pause: (media) => media.pause(),
|
||||||
volume: (media) => media.volume,
|
volume: (media) => media.volume,
|
||||||
|
|
|
@ -20,6 +20,7 @@
|
||||||
|
|
||||||
(library (dom media)
|
(library (dom media)
|
||||||
(export make-audio
|
(export make-audio
|
||||||
|
media-ended?
|
||||||
media-play
|
media-play
|
||||||
media-pause
|
media-pause
|
||||||
media-volume
|
media-volume
|
||||||
|
@ -34,21 +35,33 @@
|
||||||
(define-foreign make-audio
|
(define-foreign make-audio
|
||||||
"media" "newAudio"
|
"media" "newAudio"
|
||||||
(ref string) -> (ref extern))
|
(ref string) -> (ref extern))
|
||||||
|
|
||||||
|
(define-foreign %media-ended?
|
||||||
|
"media" "ended"
|
||||||
|
(ref extern) -> i32)
|
||||||
|
(define (media-ended? media)
|
||||||
|
(= (%media-ended? media) 1))
|
||||||
|
|
||||||
(define-foreign media-play
|
(define-foreign media-play
|
||||||
"media" "play"
|
"media" "play"
|
||||||
(ref extern) -> none)
|
(ref extern) -> none)
|
||||||
|
|
||||||
(define-foreign media-pause
|
(define-foreign media-pause
|
||||||
"media" "pause"
|
"media" "pause"
|
||||||
(ref extern) -> none)
|
(ref extern) -> none)
|
||||||
|
|
||||||
(define-foreign media-volume
|
(define-foreign media-volume
|
||||||
"media" "volume"
|
"media" "volume"
|
||||||
(ref extern) -> f64)
|
(ref extern) -> f64)
|
||||||
|
|
||||||
(define-foreign set-media-volume!
|
(define-foreign set-media-volume!
|
||||||
"media" "setVolume"
|
"media" "setVolume"
|
||||||
(ref extern) f64 -> none)
|
(ref extern) f64 -> none)
|
||||||
|
|
||||||
(define-foreign set-media-loop!
|
(define-foreign set-media-loop!
|
||||||
"media" "setLoop"
|
"media" "setLoop"
|
||||||
(ref extern) i32 -> none)
|
(ref extern) i32 -> none)
|
||||||
|
|
||||||
(define-foreign media-seek
|
(define-foreign media-seek
|
||||||
"media" "seek"
|
"media" "seek"
|
||||||
(ref extern) f64 -> none))
|
(ref extern) f64 -> none))
|
||||||
|
|
Loading…
Add table
Reference in a new issue