                                :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))
+                      :tip filename
+                      :icon (.getIcon chooser (file filename))
                       :content (RTextScrollPane. textArea)})))
         
 (defn make-editor-window

  "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."

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

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



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