     (config! (id :doc-ta) :text "                                                                        ")
     (selection! (id :ns-cbx) "loaded")
     (selection! (id :vars-cbx) "Vars - public")
-    (selection! (id :doc-lb) (name-to-icon "Doc"))))
+    (selection! (id :doc-lb) "Doc")))
 
 
 (defn init-after-bind


;; Init functions called during construction of a frame with its widget hierarchy

(defn init-before-bind
  [root]
  (letfn [(id [kw] (select-id root kw))]

      (b/selection (id :doc-lb) {:multi? true})
      (b/transform (fn [o] 
        (when (= (.getName (type (id :doc-ta))) "org.fife.ui.rsyntaxtextarea.RSyntaxTextArea")
          (let [selected-set (set o)]
            (if (= selected-set
                   (set/intersection selected-set
                                     #{"Source" "Examples" "Meta"}))
