   (fg/defcomponent
     window/window
     :layoutdemo
-    {:clip-size (m/defpoint 7.125 5.5)
-     :position-matrix (m/translation 6 0.25)
+    {:clip-size (m/defpoint 5 3.5)
+     :position-matrix (m/translation 4.0 0.25)
      :layout layout-cfg
      :text "Layout"
      :evolvers {:layout layout-evolver}}

    {:theme flatgui.theme/dark
     :clip-size (m/defpoint 40 20)
     :background (awt/color 9 17 26)
     :font "bold 14px sans-serif"

     ;; TODO this should be a part defroot probably
     :closed-focus-root true

                                   :children {:textfield (fg/defcomponent
                                                           textfield/textfield
                                                           :textfield
                                                           {:multiline true
                                                            :auto-size true
                                                            :paint-border false
                                                            :model text-model
                                                            :text-supplier sample-only-text-suplier
                                                            :text (:text text-model)})}})}})

    (fg/defcomponent label/label :validity-indicator
      {:text "Valid"
       :foreground (awt/color 64 255 64)
       :evolvers {:text (fg/accessorfn (if (get-property component [] :config-valid)
                                         "Valid"
                                         "Not valid"))
                  :foreground (fg/accessorfn (if (get-property component [] :config-valid)
                                               (awt/color 64 255 64)
                                               (awt/color 255 64 64)))}})

    (fg/defcomponent button/button :apply {:text "Apply"})))

(def root-panel
  (fg/defcomponent
