            {:target (. js/document (getElementById "world-hover"))})
   (om/root render-world run-world-hover
            {:target (. js/document (getElementById "world-map-hover"))})
-  (om/root render-events run-history
+  (om/root render-events prog-history
            {:target (. js/document (getElementById "events"))})
-  (om/root render-clients prog-world
+  (om/root render-clients prog-history
            {:target (. js/document (getElementById "controls-clients"))}))
 
 ; ------------------------------------------------

              prog-js (str "with (cbfg.world.t1) {" prog "}")
              prog-res (try (js/eval prog-js) (catch js/Object ex ex))]
          (world-cmd-loop world cbfg.world.lane/cmd-handlers cmd-ch
                          req-ch (:res-ch @prog-world)
                          vis-chs world-vis-init el-prefix)
          (act-loop cmd-dispatch-loop world [num-dispatches 0]
                    (when-let [msg (atake cmd-dispatch-loop req-ch)]
                      (when-let [client-req-ch
                                 (get-in @prog-world [:clients (:client msg) :req-ch])]
                        (aput cmd-dispatch-loop client-req-ch msg))
                      (recur (inc num-dispatches))))
          (println :prog-res prog-res)

         (map (fn [[k v]] (dom/li nil (str k ":" v))) app)))

(defn on-event-focus [snapshot-ts event-ts]
  (when-let [ss (get-in @prog-history [:snapshots snapshot-ts])]
    (reset! run-world-hover ss)
    (.add gdom/classes (gdom/getElement "world-container") "hover")))

