             (let [type-str (get-object-type fqn)]
               (cond 
                 (or (nil? fqn) (= "" fqn)) :white
-                (= type-str "Macro") :tomato ;;macro
-                (= type-str "Function") :lightgreen  ;; function
-                (= type-str "Multimethod") :lightgreen  ;; function
-                (= type-str "Protocol Interface/Function") :lightgreen  ;; function
-                (= type-str "Special Form") :lightsalmon  ;; function
-                (= type-str "Special Symbol") :lightsalmon  ;; function
-                (= type-str "Protocol") :lightblue  ;; function
-                (= type-str "Namespace") :blanchedalmond  ;; function
-                (= type-str "Class") :wheat  ;; function
-                (= type-str "java.lang.Class") :wheat  ;; function
+                (= type-str "Macro") :tomato
+                (= type-str "Function") :lightgreen
+                (= type-str "Multimethod") :lightgreen
+                (= type-str "Protocol Interface/Function") :lightgreen
+                (= type-str "Special Form") :lightsalmon
+                (= type-str "Special Symbol") :lightsalmon
+                (= type-str "Protocol") :lightblue
+                (= type-str "Namespace") :blanchedalmond
+                (= type-str "Class") :wheat
+                (= type-str "java.lang.Class") :wheat
                 true :white))
             :white))))
       (b/property (id :doc-tf) :background))

                  false))))
      (b/notify-soon)
      (b/property (id :edit-btn) :enabled?))
    ;
    ;; browser-btn pressed =>
    ;;
    (b/bind

      :action (fn [event] (swap! (id :color-coding-cb-atom) not)))
    ;; vars
    (config! (id :vars-entries-lbl) :text "0")
    ;; doc
    (config! (id :doc-tf) :text "")
    (config! (id :doc-ta) :text "                                                                        ")
    (selection! (id :ns-cbx) "loaded")
