           (set! (.-scrollLeft gp) (+ (- right pwidth) 50)))
         ))))
 
+
 (behavior ::on-destroy-remove
           :triggers #{:destroy :closed}
           :reaction (fn [this]

        :title (->path e)
        :obj-id (object/->id e)
        :pos pos}
   (->name e)]
  :click (fn []
           (active! e))
  :contextmenu (fn [ev]

(defn dirty? [c e]
  (str c (when (:dirty @e)
           " dirty")))

(defui close-tab [obj] ;; TODO: Create x button
  [:button "x"]
  :click (fn [] (object/raise obj :close)))

(defui item [multi e pos]
  [:li {:class (-> " "
