                    :focused-child nil}}
 
     focus-window
-    focus-window-2))+    focus-window-2
+    focus-window-3
+    focus-window-4
+    focus-window-5
+    focus-window-6))
  [(fgp/call-look component/component-look)
   (awt/setColor (:prime-2 theme))
   (awt/drawRect 0 0 w- h-)
   (awt/drawString (str (:mode focus-state) "/" (:focused-child focus-state)) (awt/px) 0.25)])



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

                  :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
