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

    (set-el-innerHTML target-el-id (apply str (flatten h)))
    addrs))

(def net-addrs (atom {}))

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



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

(def net-addrs-g (atom {})) ; Last output of net-main render-net-addrs-to-el.

(def addr-override-xy-g (atom {})) ; Explicit xy's (ex: drag/drop) of addr positions.

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

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