Как работать с обработчиком событий gsvideo или qtvideo в quil?

Question

Я борюсь с портированием этого кода на quil без успеха:

используя qtvideo

void movieEvent(Movie m) {
m.read();
}

или гсвидео

void movieEvent(GSMovie movie) {
  movie.read();
}

Я сделал много поисков, связанных с этой проблемой, но безрезультатно:(

Я полагаю, что проблема состоит в том, чтобы связать (другие) события апплета с определением defsketch, но... я могу достичь этой простой вещи

Может кто-нибудь мне помочь?
Спасибо заранее!
Juan

Отредактировано: мой файл clj

(ns talendar.core
  (:use quil.core)
  (:import [javax.swing JFileChooser]
           [codeanticode.gsvideo GSMovie]))

(declare example movie)

(defn setup []
  (def movie (GSMovie. example "./data/station.mov"))
  (.loop movie ))

(defn draw []
  (comment "this way works but i'll prefer to work with event handler"
           (when (.available movie)
             (.read movie)))
  (image movie 100 100))

(defn movieEvent [e]
  (println "listen movie event!")
  (.read movie))

(defsketch example
  :title "j"
  :setup setup
  :draw draw
  :size [300 300]
  :movie-event movieEvent)