             [flatgui.paint :as fgp]))
 
 (def col-count 30)
-(def row-count 300)
+(def row-count 60)
 
 (def header-model-pos
   [(mapv identity (range 0 col-count))



(fgp/deflookfn cell-look (:theme :id :text)
 [                                                          ;(fgp/call-look flatgui.skins.flat/component-look)
  (awt/setColor (awt/color 200 50 0) ;(:prime-2 theme)
                )
  (awt/drawRect 0 0 w- h-)
  (awt/drawRect 5 5 10 10)
  (awt/setColor (:prime-1 theme))
  (awt/drawRoundRect 0 0 w- h- 0.125)
  (awt/drawString text 0.375 0.375)
  (awt/setColor (awt/color 255 0 0))
  (awt/drawRect 7 7 12 12)
  (awt/drawLine 0 0 w h)])

(fgp/deflookfn test-look (:theme :id :text)
               [(fgp/call-look flatgui.skins.flat/component-look)
                (awt/setColor (awt/color 255 0 0))
                (awt/drawLine 0 0 w h)])


(fg/defevolverfn cell-text-evolver :text
  (let [mc (get-property [:this] :model-coord)]

      {:position-matrix (m/translation 0.125 0.5)
       :clip-size (m/defpoint 1 1)
       :evolvers {:clip-size scroll-cs-evolver}
       :children {:content-pane (fg/defcomponent demotable :content-pane {})}})))