         song (.getAudio (. director (getAudioManager)) "song")
         song-supported? (and song (not (not (and song.canPlayType (.replace (.canPlayType song "audio/mpeg;") #"no" "")))))
         song-playing? (atom false)
-        play-icon (let [img (->image "play" director :thumbnail [35 35])
-                        img2 (->image "stop" director :thumbnail [35 35])
+        play-icon (let [img (->image "play" :thumbnail [35 35])
+                        img2 (->image "stop" :thumbnail [35 35])
                         actor (doto (CAAT/Actor.)
                                 (.setBackgroundImage img))
                         audio-loop (atom nil)] 

                      (let [callback-fn spec]
                        (fn [bh t a]
                          ;; (log/info logger (pr-str "Calling expiration fn" spec))
                          (callback-fn t)))})))
                 (recur more t last-caat-behavior))
             (let [bh (gen-behavior spec)
                   dur (. bh (getDuration))

     (assert (actor? target))
     (assert (keyword? event-name))
     (assert (fn? handler))
     (let [;; store director, so the handler fn has access to it
           director *director*]
       (cond (= event-name :mouse-enter)
             (m/wrap target.mouseEnter [e oldf]
                     (binding [*director* director]
                       (handler e oldf)))
             (= event-name :mouse-exit)
             (m/wrap target.mouseExit [e oldf]
                     (binding [*director* director]
                       (handler e oldf)))
             (= event-name :mouse-drag)
             (m/wrap target.mouseDrag [e oldf]
                     (binding [*director* director]
                       (handler e oldf))))))
  ([target e1 h1 e2 h2 & more]
     (listen target e1 h1)
     (listen target e2 h2)
     (when more
       (apply listen target more))))

(defn gen-actor
  [scene & {:keys [image draggable? fill-style position size sprite-index events?]
            :or {draggable? false}}]
  (assert (scene? scene) "First arg must be a scene.")
  (when (and image fill-style)
   (log/info logger (str "WARNING: both :image & :fill-style set. No image will be visible.")))
