 ; -------------------------------------------------------------------
 
 (defn on-prog-frame-focus [prog-frame]
-  (render-net "net-hover" (:net prog-frame) {})
+  (render-net-addrs-to-el "net-hover" (:net prog-frame) {})
   (.add gdom/classes (gdom/getElement "net-container") "hover"))
 
 (defn on-prog-frame-blur []

                     (when-let [net (get-in vis [:actxs @net-actx :loop-state])]
                       (when (not= net (:net @prog-curr))
                         (swap! prog-curr #(assoc % :net net))
                         (swap! net-addrs #(render-net "net-main" net %)))))]
        (prog-init world)
        (cbfg.vis/process-events vis event-delay cbfg.vis/vis-event-handlers
                                 event-ch step-ch event-run-ch)

    (swap! prog-evts #(vec (filter (fn [[s & _]] (<= s ts)) %)))
    (swap! prog-ss #(into {} (filter (fn [[s _]] (<= s ts)) %)))
    (set-el-innerHTML "reqs" (render-reqs-html (:reqs prog-frame)))
    (render-net-addrs-to-el "net-main" (:net prog-frame) {})
    (on-prog-frame-blur)))

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