                                    #(on-event-blur last-snapshot-ts ts)}
                               (str ts (pr-str args))))]))
            [nil []]
-           (:events app)))))
+           (:prog-events app)))))
 
 (defn render-clients [app owner]
   (apply dom/select #js {:id "client"}
          (map (fn [client-addr]
                 (dom/option #js {:value client-addr} (str client-addr)))
-              (keys (:clients app)))))
+              (keys (:clients (:prog-world app))))))
 
 (defn init-roots []
   (om/root render-world run-world

           {: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
           {:target (. js/document (getElementById "events"))})
  (om/root render-clients prog-world
           {:target (. js/document (getElementById "controls-clients"))}))

; ------------------------------------------------

         (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")))

