       (apply b/funnel
         [(b/selection (id :vars-cbx))
          (b/selection (id :ns-lb))
-         (id :vars-filter-tf)])
+         (id :vars-filter-tf)
+         vars-lb-refresh-atom])
       (b/transform (fn [o]
         (let [n-s (selection (id :ns-lb))
               n (and n-s (find-ns (symbol n-s)))

        prev-var (:selected-ns m)
        selected-ns (selection (id :ns-lb))
        selected-var (selection (id :vars-lb))]
    (selection! (id :vars-lb) (selection (id :vars-lb)))
    {:root root :selected-ns selected-ns :selected-var selected-var})
  )

;;seesaw.core/toggle-full-screen! (locks up computer!!! don't use)
;;(seesaw.dev/show-options) and (seesaw.dev/show-events)

(swap! all-ns-unloaded-atom (fn [& a] (all-ns-unloaded)))
(swap! all-ns-loaded-atom (fn [& a] (all-ns-loaded)))
(def group-vars-by-object-type (atom true))
(def ns-lb-refresh-atom (atom true))
(def vars-lb-refresh-atom (atom true))

;; bind specific fns

