               (if (and ns (some #(= ns %) @all-ns-unloaded-atom))
                 true
                 false)))
-            (b/property (id :ns-require-btn) :enabled?))
+            (b/property (id :ns-require-btn-action) :enabled?))
           (b/bind
             (b/transform (fn [ns-str]
               (if (and ns-str (find-ns (symbol ns-str)))

                                    (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
                                    "Require" :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 "Un-Map" "Un-Alias" 
                                    ;;:separator vars-categorized-cb
                                    ;;vars-fqn-listing-cb vars-search-doc-also-cb
                                    ;;:separator auto-refresh-browser-cb
                                    ])


                                       (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
