 (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 (-> " "

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

          (set! (.-scrollLeft gp) (+ (- right pwidth) 50)))
        ))))


(behavior ::on-destroy-remove
          :triggers #{:destroy :closed}
          :reaction (fn [this]
