               (when (var-traceable? vr)
                 (if (var-traced? vr)
                   (do (clojure.tools.trace/untrace-var* vr)
-                      (config! (id :var-trace-btn) :text "trace"))
+                      (config! (id :var-trace-btn-action) :name "Trace Var"))
                   (do (clojure.tools.trace/trace-var* vr)
-                      (config! (id :var-trace-btn) :text "untrace")))
+                      (config! (id :var-trace-btn-action) :name "Untrace Var")))
                 (selection! (id :vars-lb) (selection (id :vars-lb)))))))))
     ;;
     ;; select item in vars-lb => set associated fqn in doc-tf

    (config! (id :vars-lb) :model [])
    (config! (id :ns-entries-lbl) :text "0")
    (config! (id :ns-require-btn) :enabled? false)
    (config! (id :doc-cbx) :model doc-cbx-value-list)
    (config! (id :edit-btn) :enabled? false)
    (config! (id :browse-btn) :enabled? false)
    (config! (id :var-trace-btn) :enabled? false)
    (config! (id :clojuredocs-online-rb) :selected? true)
    (config! (id :inspect-btn) :enabled? false)
    (listen (id :inspect-btn)
      :action (fn [event] (swap! (id :inspect-btn-atom) not)))
    (listen (id :ns-require-btn)
      :action (fn [event] (swap! (id :ns-require-btn-atom) not)))
    (listen (id :var-trace-btn)
      :action (fn [event] (swap! (id :var-trace-btn-atom) not)))
    (listen (id :browse-btn)
      :action (fn [event] (swap! (id :browse-btn-atom) not)))
    (listen (id :edit-btn)

            (let [vr (resolve-fqname fqn)]
              (if (var-traceable? vr)
                (do (if (var-traced? vr)
                      (config! (id :var-trace-btn-action) :name "Untrace Var")
                      (config! (id :var-trace-btn-action) :name "Trace Var"))
                    true)
                (do (config! (id :var-trace-btn-action) :name "Trace Var")
                    false)))
            (do (config! (id :var-trace-btn-action) :name "Trace Var")
                false))))
      (b/property (id :var-trace-btn-action) :enabled?))
    ;; dis/enable require-btn, update fqn in doc-tf, scroll within view
    (b/bind
      (b/selection (id :ns-lb))
