                    :focused-child nil}}
 
     focus-window
-    focus-window-2))+    focus-window-2
+    focus-window-3
+    focus-window-4
+    focus-window-5
+    focus-window-6))
    window/window
    :hello2
    {:clip-size (m/defpoint 7 7)
     :position-matrix (m/translation 9 1)
     :text title-2
     :evolvers {:text window-text-evolver-2}}


       :evolvers {:model tf-model-evolver}})))


(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 title-3 "Focus Example - 3 - ")

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

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

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

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

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

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

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


;; Window 1

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

