     (config! (id :ns-entries-lbl) :text "0")
     (config! (id :doc-lb)
              :model doc-lb-value-list
+             :renderer render-doc-lb-item
              :drag-enabled? true
              :drop-mode :insert
              :transfer-handler
              (seesaw.dnd/default-transfer-handler
-               :import [icon-flavor
+               :import [seesaw.dnd/string-flavor
                         (fn [{:keys [target data drop? drop-location] :as m}]
                           ;; Ignore anything dropped onto the list that is
                           ;; not in the original set of list elements.

      (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 (map icon-to-name o))]
            (if (= selected-set
                   (set/intersection selected-set
                                     #{"Source" "Examples" "Meta"}))

                              (reset! doc-lb-cur-order new-order)
                              (config! target :model new-order))))]
               :export {:actions (constantly :copy)
                        :start   (fn [c] [seesaw.dnd/string-flavor
                                          (selection c)])}))
    (config! (id :edit-btn) :enabled? false)
    (config! (id :browse-btn) :enabled? false)
    (config! (id :clojuredocs-online-rb) :selected? true)
