         looping?          (atom true)
         listeners         (into {} (for [name listeners]
                                      [name (or (options name) no-fn)]))
+
+
         applet-state      (merge options
                                  {:state state
                                   :target-obj target-obj

    (.registerMethod applet "dispose" listener-obj)
    applet))

(defn applet
  "Create and start a new visualisation applet.


                                  :target :frame
                                  :safe-draw-fn true}
                                 (apply hash-map opts))

        opts              (make-hmap (filter opts-applet-params (:opts options)) true)

        options           (merge (dissoc options :opts) opts)

        decor             (:decor opts (not= :fullscreen (:size options)))
        size              (process-size (:size options))
        target            (validate-target! (:target options))
