(bind-func eos
(lambda (sink:GstAppSink* data:gpointer)
(let ((quad (tref (cast data userdata*) 0))
(playz (tref (cast data userdata*) 1)))
(cond ((= quad 1) (set! vplay1 #f) (set! sampledata1dirty #f)))
(printf "Finished Decoding[%d]!\n" quad)
void)))