    (when-let [cur-tabset (or ts (ctx/->obj :tabset))]
      (object/add-tags obj [:tabset.tab])
      (object/update! cur-tabset [:objs] conj obj)
-     (object/merge! {:no-redraw false})
      (object/merge! obj {::tabset cur-tabset})
      (add-watch (subatom obj [:dirty]) :tabs (fn [_ _ _ cur]
                                                (object/raise cur-tabset :tab.updated)

          aidx (->index active)]
      (remove-watch obj :tabs)
      (object/merge! obj {::tabset nil})
      (object/merge! cur-tabset {:objs (vec (remove #(= obj %) (@cur-tabset :objs)))
                                 :no-redraw false})
      (if (= obj active)
        (object/raise cur-tabset :tab idx)
        (when (not= aidx (->index active))

              (map #(dom/attr % :pos) children))
        prev-active (:active-obj @multi)]
    (object/merge! multi {:objs (mapv (:objs @multi) ser)
                          :active-obj nil})
    (active! prev-active)
    ))

