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

  (let [ win-size (get-property [] :clip-size)]
    (m/defpoint (- (m/x win-size) 0.25) (- (m/y win-size) 0.625))))

(fg/defwidget "demotable"
  {:header-model-loc {:positions header-model-pos
                      :sizes header-model-size}
   :selection [nil nil]
                                  ;; 0       1   2   3   4   5   6   7   8   9
   :model-column->cell-prototype [democell1 nil nil nil nil nil nil nil nil nil]
   :cell-prototype democell2
   :position-matrix m/identity-matrix
   :background (awt/color 32 16 8)

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