          :supported-ops
          (fn [{:keys [ops] :as msg}]
            (swap! state assoc-in [::rid rid ::supported-ops] ops)
+           (refresh-ui [[::rid rid]])
 
            (when (contains? ops :request-tap-history)
 

                            :when (not (get-in data [::oid oid :summary]))]
                      (add-new-tap-obj state rid oid)))

                  (swap! state assoc-in [::rid rid ::objects] (as-idents ::oid oids)))})))}))))

(defmutation unselect-object [{:keys [oid] :as params}]
  (action [{:keys [state] :as env}]

(def date-format (DateTimeFormat. "yyyy-MM-dd HH:mm:ss"))
(def time-format (DateTimeFormat. "HH:mm:ss"))

(defn refresh-ui [idents]
  (fc/transact! env/app [] {:refresh idents}))

(defonce tool-ref (atom nil))
(defonce rpc-id-seq (atom 0))
(defonce rpc-ref (atom {}))
