                                        (alert (str "Untraced all traced-vars in namespace: " ns-str)))
                                    (alert (str "Not a valid/loaded namespace: " ns-str)))))))))
 
+(add-app-action :vars-categorized-cb-action
+  (action :name "Categorized Listing"
+          :selected? false
+          :handler 
+            (fn [e] (let [root (to-root e)]
+                      (letfn [(id [kw] (select-id root kw))]
+                        (swap! group-vars-by-object-type-atom 
+                               (fn [_] (config (id :vars-categorized-cb-action) :selected?))))))))
+
+(add-app-action :vars-fqn-listing-cb-action
+  (action :name "FQN Listing"
+          :selected? false
+          :handler 
+            (fn [e] (let [root (to-root e)]
+                      (letfn [(id [kw] (select-id root kw))]
+                        (swap! (id :vars-fqn-listing-cb-atom) 
+                               (fn [_] (config (id :vars-fqn-listing-cb-action) :selected?))))))))
+
+(add-app-action :vars-unmap-btn-action
+  (action :name "Un-Map"
+          :enabled? false))
+
+(add-app-action :vars-unalias-btn-action
+  (action :name "Un-Alias"
+          :enabled? false))
+
+(add-app-action :ns-require-btn-action
+  (action :name "Require"
+          :enabled? false
+          :handler (fn [e] 
+                     (let [root (to-root e)]
+                       (letfn [(id [kw] (select-id root kw))]
+                         (swap! (id :ns-require-btn-atom) not))))))
+
+
+
 ;; Init functions called during construction of a frame with its widget hierarchy
 
 (defn init-before-bind

(def all-buttons-with-atoms
  "Used to auto-generate atoms and '-atom' keywords"
  [:ns-require-btn :browse-btn :edit-btn :clojuredocs-offline-rb :clojuredocs-online-rb 
   :update-clojuredocs-btn :var-trace-btn :inspect-btn :color-coding-cb])

(defn make-atom-kw [kw] (keyword (str (clj-ns-browser.utils/fqname kw) "-atom")))


                                    (id :zoom-in-action) (id :zoom-out-action)])
                                    
      (config! (id :ns-lb) :popup ns-lb-popup)
      (config! ns-lb-popup :items [ (id :new-browser-action) 
                                    :separator
                                    (id :copy-fqn-action) 
                                    (id :fqn-from-clipboard-action) 
                                    (id :fqn-from-selection-action)
                                    (id :open-url-from-selection-action) 
                                    :separator
                                    (id :ns-require-btn-action)
                                    :separator 
                                    (id :ns-trace-btn-action) (id :ns-untrace-btn-action) 
                                    ;;:separator auto-refresh-browser-cb
                                    ])
                                    
      (config! (id :vars-lb) :popup vars-lb-popup)
      (config! vars-lb-popup :items [(id :new-browser-action) 
                                    :separator 
                                    (id :copy-fqn-action) (id :fqn-from-clipboard-action)
                                    (id :fqn-from-selection-action) (id :open-url-from-selection-action) 
                                    :separator
                                    (id :var-trace-btn-action) 
                                    :separator 
                                    (id :vars-unmap-btn-action) (id :vars-unalias-btn-action) 
                                    :separator 
                                    (checkbox-menu-item :action (id :vars-categorized-cb-action))
                                    (checkbox-menu-item :action (id :vars-fqn-listing-cb-action))
                                    ;; vars-search-doc-also-cb
                                    ;;:separator auto-refresh-browser-cb
                                    ])

