       {: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 scrollpanel/scrollpanelcontent :content-pane {:evolvers {:content-size scroll-contentsize-evolver}
-                                                                                               :children {:table table-component}})}})))+       :children {:content-pane (fg/defcomponent demotable :content-pane {})}})))
                 :text "?"
                 :evolvers {:text cell-text-evolver}}))

(fg/defevolverfn :clip-size (get-property [] :clip-size))

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

(def table-component
  (fg/defcomponent table/table :table
    {:header-model-pos header-model-pos
     :header-model-size header-model-size
     :cell-prototype democell
     :position-matrix m/identity-matrix
     :clip-size (m/defpoint 1 1)
     :background (awt/color 32 16 8)
     :look test-look
     :evolvers {:clip-size clip-size-evolver}}))

(fg/defevolverfn scroll-contentsize-evolver :content-size
  (get-property [:this :table] :content-size))

(def table-window
  (fg/defcomponent window/window :table-window

            [flatgui.paint :as fgp]))

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

(def header-model-pos
  [(mapv identity (range 0 col-count))
