                   :position-matrix (m/translation 0.125 0.5)
                   :evolvers {:model tf-model-evolver}})))))))
 
+(def focus-window-3
+  (fg/defcomponent
+    window/window
+    :hello3
+    {:clip-size (m/defpoint 7 3.25)
+     :position-matrix (m/translation 1 7.5)
+     :text title-3
+     :evolvers {:text window-text-evolver-3}}
+
+    (fg/defcomponent panel/panel :panel
+      {:clip-size (m/defpoint 6.75 2.5)
+       :position-matrix (m/translation 0.125 0.5)
+       :look container-look}
+
+      (fg/defcomponent panel/panel :panel1
+        {:clip-size (m/defpoint 3.0 0.875)
+         :position-matrix (m/translation 0.25 0.75)
+         :look container-look}
+
+        (fg/defcomponent textfield/textfield :entry1-1
+                         {:clip-size (m/defpoint 1.0 0.375)
+                          :position-matrix (m/translation 0.125 0.375)
+                          :evolvers {:model tf-model-evolver}}))
+
+      (fg/defcomponent textfield/textfield :entry1
+        {:clip-size (m/defpoint 1.5 0.375)
+         :position-matrix (m/translation 0.125 1.75)
+         :evolvers {:model tf-model-evolver}})
+
+      (fg/defcomponent textfield/textfield :entry2
+        {:clip-size (m/defpoint 1.5 0.375)
+         :position-matrix (m/translation 1.75 1.75)
+         :evolvers {:model tf-model-evolver}})
+
+      (fg/defcomponent textfield/textfield :entry3
+        {:clip-size (m/defpoint 1.5 0.375)
+         :position-matrix (m/translation 3.375 1.75)
+         :evolvers {:model tf-model-evolver}})
+     )
+    ))
+
+(def focus-window-4
+  (fg/defcomponent
+    window/window
+    :hello4
+    {:clip-size (m/defpoint 7.0 2.0)
+     :position-matrix (m/translation 9 7.5)
+     :text title-4
+     :evolvers {:text window-text-evolver-4}}
+
+    (fg/defcomponent panel/panel :panel
+                     {:clip-size (m/defpoint 3.0 1.375)
+                      :position-matrix (m/translation 0.125 0.5)
+                      :look container-look}
+
+                     (fg/defcomponent panel/panel :panel1
+                                      {:clip-size (m/defpoint 2.75 0.875)
+                                       :position-matrix (m/translation 0.125 0.375)
+                                       :look container-look}
+
+                                      (fg/defcomponent textfield/textfield :entry1-1
+                                                       {:clip-size (m/defpoint 2.5 0.375)
+                                                        :position-matrix (m/translation 0.125 0.375)
+                                                        :evolvers {:model tf-model-evolver}}))
+                     )
+    ))
+
+(def focus-window-5
+  (fg/defcomponent
+    window/window
+    :hello5
+    {:clip-size (m/defpoint 4.25 1.625)
+     :position-matrix (m/translation 9 9.75)
+     :text title-5
+     :evolvers {:text window-text-evolver-5}}
+
+    (fg/defcomponent panel/panel :panel1
+                     {:clip-size (m/defpoint 2.75 0.875)
+                      :position-matrix (m/translation 0.125 0.5)
+                      :look container-look}
+
+                     (fg/defcomponent textfield/textfield :entry1-1
+                                      {:clip-size (m/defpoint 2.5 0.375)
+                                       :position-matrix (m/translation 0.125 0.375)
+                                       :evolvers {:model tf-model-evolver}}))
+    ))
+
+(def focus-window-6
+  (fg/defcomponent
+    window/window
+    :hello6
+    {:clip-size (m/defpoint 4.25 1.625)
+     :position-matrix (m/translation 13.5 9.75)
+     :text title-6
+     :evolvers {:text window-text-evolver-6}}
+
+    (fg/defcomponent textfield/textfield :entry1-1
+                     {:clip-size (m/defpoint 2.5 0.375)
+                      :position-matrix (m/translation 0.125 0.5)
+                      :evolvers {:model tf-model-evolver}})    ))
+
 
 (def root-panel
   (fg/defcomponent

       :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-2 (:mode focus-state) "/" (:focused-child focus-state))))

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


                   :focused-child nil}}

    focus-window
    focus-window-2
    focus-window-3
    focus-window-4
    focus-window-5
    focus-window-6))