       (b/filter (fn [[doc-tf doc-lb]]
 ;;                  (printf "(class doc-lb)=%s (seq doc-lb)='%s' (map ... doc-lb)='%s'\n"
 ;;                          (class doc-lb) (seq doc-lb)
-;;                          (seq (map icon-to-name doc-lb)))
+;;                          (seq doc-lb))
 ;;                  (flush)
                   (not (or (nil? doc-tf)  (= "" doc-tf)
                            (nil? doc-lb) (= "" doc-lb)))))
       (b/transform
         (fn [[doc-tf doc-lb]]
           (future
-            (let [s (render-doc-text doc-tf (map icon-to-name doc-lb))]
+            (let [s (render-doc-text doc-tf doc-lb)]
               (when-not (= s (config (id :doc-ta) :text))
                 (invoke-soon (config! (id :doc-ta) :text s))))))))
     ;;

    (config! (id :ns-entries-lbl) :text "0")
    (config! (id :doc-lb)
             :model doc-lb-value-list
             :drag-enabled? true
             :drop-mode :insert
             :transfer-handler
             (seesaw.dnd/default-transfer-handler
               :import [icon-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.


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

(defn render-doc-lb-item [renderer info]
  (let [{:keys [value selected?]} info]
    (config! renderer
             :icon (if selected?
                     (name-to-selected-icon value)
                     (name-to-unselected-icon value))
             :text "")))

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