   "The complete UI panel." (atom nil))
 
 (def chooser (javax.swing.JFileChooser.)) ; FileChooser hack to get system icons
-(def current-filename (atom nil))
+
 
 (defn get-editor
   "return the first editor window."

                               :text filename #_(last (string/split @current-filename #"/")) #_@current-filename;; with text set to txt
                               :foreground :blue) 
                      ;:filename @current-filename 
                      :tip @current-filename 
                      :icon (.getIcon chooser (file @current-filename))
                      :content (RTextScrollPane. textArea)})))
        
(defn make-editor-window

    #_(println "Switching project:" proj)))

(def ^{:private true} make-icon icon)



(defn add-content-tab
  "Add a tab to the content pane."
