   (reset! prog-hover nil)
   (reset! prog-history []))
 
-(defn prog-event [label fn]
-  (let [pc (swap! prog-curr fn)]
-    (swap! prog-history #(conj % [(count %) label pc]))))
+(defn prog-event [world label fn]
+  (let [prog-frame (swap! prog-curr fn)
+        ago-ss (ago-snapshot ((:get-agw (first world))))]
+    (swap! prog-history #(conj % [(count %) label prog-frame ago-ss]))))
 
 ; -------------------------------------------------------------------
 

                   [server-addr port listen-result-ch])
             (when-let [[accept-ch close-accept-ch] (atake server-init listen-result-ch)]
               (cbfg.world.net/server-accept-loop world accept-ch close-accept-ch)
               (prog-event [:kv-server server-addr port]
                           #(update-in % [:servers server-addr]
                                       conj port)))))
         (reset! done true))

         (map (fn [[k v]] (dom/li nil (str k ":" (count v))))
              prog-frame)))

(defn on-prog-frame-click [ts label prog-frame]
  (println :on-prog-frame-click ts label))

(defn on-prog-frame-focus [ts label prog-frame]
  (reset! prog-hover prog-frame)
  (.add gdom/classes (gdom/getElement "prog-container") "hover"))
