           clojuredocs-access-btn-group (button-group)
           clojuredocs-online-rb (radio-menu-item :text "ClojureDocs Online" :id :clojuredocs-online-rb :group clojuredocs-access-btn-group)
           clojuredocs-offline-rb (radio-menu-item :text "ClojureDocs Offline/Local" :id :clojuredocs-offline-rb :group clojuredocs-access-btn-group)
+
+          vars-categorized-cb (checkbox-menu-item :text "Categorized Listing" :id :vars-categorized-cb)
           
           auto-refresh-browser-cb (checkbox-menu-item :text "Auto-Refresh" :id :auto-refresh-browser)
           auto-refresh-browser-timer (timer auto-refresh-browser-handler  :initial-value {:root root} 


      (config! ns-menu :items ["Load" "Trace"])

      (config! vars-menu :items ["Trace" "Unmap"])

      
      (config! auto-refresh-browser-cb :listen [:action 
        (fn [e] (if (config auto-refresh-browser-cb :selected?) (.start auto-refresh-browser-timer) (.stop auto-refresh-browser-timer)))] :selected? false)
        
      (config! color-coding-cb :selected? true)

      (config! font-Monospaced-rb :listen [:action (fn [e] (set-font-handler! root "Monospaced"))] :selected? true)

        [(b/selection (id :vars-cbx))
         (b/selection (id :ns-lb))
         (id :vars-filter-tf)
         vars-lb-refresh-atom
         group-vars-by-object-type-atom])
      (b/transform (fn [o]
        (let [n-s (selection (id :ns-lb))
              n (and n-s (find-ns (symbol n-s)))
