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

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

(fgp/deflookfn container-look (:theme)
  [(fgp/call-look component/component-look)
   (awt/setColor :prime-2)
   (awt/drawRect 0 0 w- h-)])



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


;; Panel 1 for win 1

(def panel-1
  (fg/defcomponent
    panel/panel
    :hello
    {:clip-size (m/defpoint 4 4)
     :position-matrix (m/translation 1 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}})

    ))



;; Window 1

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