 ; -------------------------------------------------------------------
 
 (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 []


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

(defn addr-attrs-fn [addr]
  (str "onmousedown=\"return startDrag('loc', 'addr-" addr "', null, onDragNetAddrDone);\""))

(def addr-override-xy-g (atom {}))

(defn addr-override-xy [addr x y]
  (swap! addr-override-xy-g #(assoc % addr [x y])))

(defn render-net [target-el-id net prev-addrs]
  (let [[addrs h]
        (cbfg.world.net/render-net-html net prev-addrs
                                        :addr-attrs-fn addr-attrs-fn

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

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