   [frame & filters]
   (let [#^JFileChooser fc (apply make-file-chooser frame filters)]
     (when (= (.showSaveDialog fc frame) JFileChooser/APPROVE_OPTION)
+      ;; ask again if answer is no
+      ;; return file if answer is yes
+      ;; return nil if answer is cancel
       (.getSelectedFile fc))))
 
 ;;;

  [res]
  (let [cl (.getContextClassLoader (Thread/currentThread))]
    (.getResource cl res)))


;;; Menus

  (:import [javax.swing JFrame JMenuBar JMenu JMenuItem Box JToolBar JPanel
	                JButton ImageIcon JSeparator JTabbedPane JSplitPane
	                JLabel JTextArea JScrollPane SwingUtilities BorderFactory
	                AbstractButton SwingConstants JFileChooser JOptionPane]
	   [javax.swing.filechooser FileNameExtensionFilter]
	   [javax.imageio ImageIO]
	   [java.awt GridLayout BorderLayout Dimension Image Font Color
