           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})
+      (object/merge! cur-tabset {:objs (vec (remove #(= obj %) (@cur-tabset :objs)))})
       (if (= obj active)
         (object/raise cur-tabset :tab idx)
         (when (not= aidx (->index active))

                      ))

(behavior ::repaint-tab-updated
          :triggers #{:tab.updated, :object.refresh}
          :reaction (fn [this]
                      (object/update! this [:count] inc)
                      (object/merge! this {:no-redraw false})))

(behavior ::no-anim-on-drag
          :triggers #{:start-drag}

(defn active! [obj]
  (when (and obj
             (::tabset @obj))
    (object/merge! (::tabset @obj) {:active-obj obj})
    (object/raise obj :show)
    (ensure-visible (->index obj) (::tabset @obj))))

