     {:clip-size (m/defpoint 40 25)
      :background (awt/color 9 17 26)
 
+     ;; TODO this should be a part defroot probably
      :closed-focus-root true
      :focus-state {:mode :has-focus
                    :focused-child nil}}

(def title-2 "Focus Example - 2 - ")

(fg/defevolverfn window-text-evolver-2 :text
                 (let [focus-state (get-property [:this] :focus-state)]
                   (str title-1 (:mode focus-state) "/" (:focused-child focus-state))))

(def focus-window
  (fg/defcomponent

    (fg/defcomponent textfield/textfield :entry1
      {:clip-size (m/defpoint 3.0 0.375)
       :position-matrix (m/translation 0.25 0.75)
       :evolvers {:model tf-model-evolver}})

    (fg/defcomponent textfield/textfield :entry2
      {:clip-size (m/defpoint 3.0 0.375)
