                            (.setBackgroundImage basket-sprite)
                            (.setLocation x y)
                            (.setFillStyle "#ff3fff"))
-        basket-body (gen-actor scene :image basket-sprite :sprite-index 1)
-        basket-head (gen-actor scene :image basket-head :events? false)]
-    (.addChild basket-container basket-body)
-    (.addChild basket-container basket-head)
+        basket-body (gen-actor :image basket-sprite :sprite-index 1)
+        basket-head (gen-actor :image basket-head :events? false)]
+    (add! basket-container basket-body)
+    (add! basket-container basket-head)
     (set! basket-container.isOpened false)
     (set! basket-container.doMunch
           (fn [& {:keys [on-finish] :or {on-finish (fn [])}}]

               (.setFillStyle "black")) 
        w (or w (+ text.textWidth 30))
        h (or h (+ text.textHeight 30))
        bubble (doto (CAAT/Actor.)
                 (.setLocation 0 0)
                 (.enableEvents false))
        x (if (fn? x) (x w h) x)
        y (if (fn? y) (y w h) y)]
    (.setBounds actor-container x y w h)

        img (-> "books"
              (->image :thumbnail [60 60])
              (->sprite :cols 3)) 
        books (gen-actor :image img :sprite-index 0)]
    (set! container.inc-book-count
          (fn []
            (.setSpriteIndex books (mod (+ (.spriteIndex img) 1) 3))))
