    :extends javax.swing.JFrame
    )
   (:import
-   (javax.swing JButton JTextField JLabel JOptionPane)
+   (javax.swing JButton JTextField JLabel JOptionPane JFileChooser)
    (java.io File)
    (javax.imageio ImageIO)
    (javax.swing.event DocumentListener)

    )
  )
(defn -save [ui]
  (ImageIO/write (.getState ui :img) "png" (File. "Fractal.png"))
  )
(defn -reset [this & clearpath]
  (let [

    (.flush img)
    (.setColor graphics Color/black)
    (.fillRect graphics 0 0 (.getWidth img) (.getHeight img))
    (.setColor graphics Color/red)
    (.repaint this)
    )
  (if clearpath
