                             ;; Strip some unneeded features
                             :look nil
                             :coord-map nil
-                            :accepts-focus? nil
                             :has-mouse nil
                             :enabled nil}}))
 

(def header-model-size
  [(mapv (fn [_] 1) (range 0 col-count))
   (mapv (fn [_] 1) (range 0 row-count))])


(fgp/deflookfn cell-look1 (:theme :id :text :background :widget-type)
 [;(fgp/call-look flatgui.skins.flat/component-look)

            [flatgui.widgets.abstractbutton :as abstractbutton]
            [flatgui.paint :as fgp]))

(def col-count 30)
(def row-count 60)

(def header-model-pos
