      :background (awt/color 9 17 26)
      :focus-state {:mode :has-focus
                    :focused-child nil}}
-    focus-window))+    focus-window
+    focus-window-2))
            [flatgui.widgets.checkbox :as checkbox]
            [flatgui.widgets.textfield :as textfield]
            [flatgui.widgets.label :as label]
            [flatgui.widgets.panel :as panel]))

(fg/defevolverfn tf-model-evolver :model
 (if (= (fg/get-reason) [:this])
   {:text (let [focus-state (get-property [:this] :focus-state)]
            (str (:mode focus-state) "/" (:focused-child focus-state)))
    :caret-pos 0
    :selection-mark 0}
   (textfield/text-model-evolver component)))

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

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

(def focus-window
  (fg/defcomponent


    ))

(def focus-window-2
  (fg/defcomponent
    window/window
    :hello2
    {:clip-size (m/defpoint 7 7)
     :position-matrix (m/translation 9 1)
     :text title-2
     :evolvers {:text window-text-evolver-2}}

    (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)
                      :position-matrix (m/translation 0.25 1.25)
                      :evolvers {:model tf-model-evolver}})

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

    ))


(def root-panel
  (fg/defcomponent
    panel/panel
