    (mapv (fn [_] 1) (range 0 row-count))])
 
 
-(fgp/deflookfn cell-look (:theme :id :text :background)
+(fgp/deflookfn cell-look1 (:theme :id :text :background :widget-type)
  [;(fgp/call-look flatgui.skins.flat/component-look)
   (awt/setColor background)
   (awt/fillRoundRect (awt/+px 0 2) (awt/+px 0 2) (awt/-px w- 4) (awt/-px h- 4) 0.125)
   (awt/setColor (:prime-1 theme))
   (awt/drawRoundRect (awt/+px 0 2) (awt/+px 0 2) (awt/-px w- 4) (awt/-px h- 4) 0.125)
-  (awt/drawString text 0.375 0.375)])
+  (awt/drawString text 0.375 0.375)
+  (awt/drawString widget-type 0.0 0.625)])
+
+(fgp/deflookfn cell-look2 (:theme :id :text :background :widget-type)
+ [;(fgp/call-look flatgui.skins.flat/component-look)
+  (awt/setColor background)
+  (awt/fillRoundRect (awt/+px 0 2) (awt/+px 0 2) (awt/-px w- 4) (awt/-px h- 4) 0.125)
+  (awt/setColor (:prime-1 theme))
+  (awt/drawRoundRect (awt/+px 0 2) (awt/+px 0 2) (awt/-px w- 4) (awt/-px h- 4) 0.125)
+  (awt/drawString text 0.375 0.375)
+  (awt/drawString widget-type 0.0 0.625)])
+
 
 (fg/defevolverfn cell-text-evolver :text
   (let [mc (get-property [:this] :model-coord)]

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

    selected-color
    regular-color))

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