           :key  "menu R"
           :handler (fn [e]
             (auto-refresh-browser-handler {:root (to-root e)}))))
+
+(add-app-action :auto-refresh-browser-action
+  (action :name "Auto-Refresh"
+          :handler (fn [e] (let [root (to-root e)
+                                 id (partial select-id root)]
+                              (println "e:" e)
+                              (println "getSource:" (.getSource e))
+                             (if (config (id :auto-refresh-browser-cb) :selected?) 
+                               (.start (seesaw.meta/get-meta root :auto-refresh-browser-timer))
+                               (.stop (seesaw.meta/get-meta root :auto-refresh-browser-timer)))))))
 
 
 ;; Init functions called during construction of a frame with its widget hierarchy

    (swap! vars-lb-refresh-atom not)
    (when-not (= (selection (id :ns-lb)) selected-ns) (selection! (id :ns-lb) selected-ns))
    (selection! (id :vars-lb) selected-var)
    {:root root :selected-ns selected-ns :selected-var selected-var}))

;;seesaw.core/toggle-full-screen! (locks up computer!!! don't use)

          vars-lb-popup (popup :id :vars-lb-popup)

          ]
          
      (seesaw.meta/put-meta! root :auto-refresh-browser-timer auto-refresh-browser-timer)
      
      (config! root :menubar main-menu)

