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

  It means we can dispose frame, call on-close function and perform other
  clean ups."
  [applet]
  (-> applet meta :target-obj deref .dispose)
  ((:on-close (meta applet))))

(defn applet-state

     (fn []
       (.setResizable frame true)
       (.setAlwaysOnTop frame keep-on-top?)))
    applet))


