     selected-color
     regular-color))
 
-(def democell
+(def democell1
   (merge-with fg/properties-merger cell/cell
                 {:skin-key false
-                 :look cell-look
+                 :look cell-look1
                  :text "?"
+                 :widget-type "democell1"
                  :children {:exp cell-expand-checkbox}
                  :evolvers {:text cell-text-evolver
                             :atomic-state atomic-state-evolver

  {:header-model-loc {:positions header-model-pos
                      :sizes header-model-size}
   :selection [nil nil]
   :cell-prototype democell
   :position-matrix m/identity-matrix
   :background (awt/color 32 16 8)
   :evolvers {:header-model-loc table/shift-header-model-loc-evolver

                            :has-mouse nil
                            :enabled nil}}))

(def democell2
  (merge-with fg/properties-merger cell/cell
              {:skin-key false
               :look cell-look2
               :text "x"
               :widget-type "democell2"
               :evolvers {:text cell-text-evolver
                          :atomic-state atomic-state-evolver
                          :background background-evolver
                          ;; Strip some unneeded features
                          :look nil
                          :coord-map nil
                          :accepts-focus? nil
                          :has-mouse nil
                          :enabled nil}}))

(fg/defevolverfn scroll-cs-evolver :clip-size
  (let [ win-size (get-property [] :clip-size)]
    (m/defpoint (- (m/x win-size) 0.25) (- (m/y win-size) 0.625))))
