   (fg/defcomponent
     window/window
     :hello6
-    {:clip-size (m/defpoint 4.25 1.625)
-     :position-matrix (m/translation 13.5 9.75)
+    {:clip-size (m/defpoint 3.375 1.0)
+     :position-matrix (m/translation 4.25 7.875)
      :text title-6
      :evolvers {:text window-text-evolver-6}}
 

  (fg/defcomponent
    panel/panel
    :main
    {:clip-size (m/defpoint 40 25)
     :background (awt/color 9 17 26)

     ;; TODO this should be a part defroot probably


;; Panel 1 for win 1

(def title-1 "Focus 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 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 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 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 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 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))))


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

    (fg/defcomponent textfield/textfield :entry1
      {:clip-size (m/defpoint 1.0 0.375)
       :position-matrix (m/translation 0.125 0.5)
       :evolvers {:model tf-model-evolver}})

    (fg/defcomponent textfield/textfield :entry2
      {:clip-size (m/defpoint 1.0 0.375)
       :position-matrix (m/translation 0.125 1.0)
       :evolvers {:model tf-model-evolver}})

    (fg/defcomponent textfield/textfield :entry3
      {:clip-size (m/defpoint 1.0 0.375)
       :position-matrix (m/translation 0.125 1.5)
       :evolvers {:model tf-model-evolver}})

    (fg/defcomponent panel/panel :panel1
      {:clip-size (m/defpoint 1.0 2.375)
       :position-matrix (m/translation 0.125 2.0)
       :look container-look})

    (fg/defcomponent panel/panel :panel2
      {:clip-size (m/defpoint 2.625 2.375)
       :position-matrix (m/translation 1.25 2.0)
       :look container-look}

         (fg/defcomponent panel/panel :panel2-1
           {:clip-size (m/defpoint 2.375 0.875)
            :position-matrix (m/translation 0.125 0.375)
            :look container-look}

           (fg/defcomponent textfield/textfield :entry1
             {: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 :entry2
             {:clip-size (m/defpoint 1.0 0.375)
              :position-matrix (m/translation 1.25 0.375)
              :evolvers {:model tf-model-evolver}}))

         (fg/defcomponent panel/panel :panel2-2
           {:clip-size (m/defpoint 2.375 0.875)
            :position-matrix (m/translation 0.125 1.375)
            :look container-look}

           (fg/defcomponent textfield/textfield :entry1
             {: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 :entry2
             {:clip-size (m/defpoint 1.0 0.375)
              :position-matrix (m/translation 1.25 0.375)
              :evolvers {:model tf-model-evolver}})))))

(def focus-window-2
  (fg/defcomponent
    window/window
    :hello2
    {:clip-size (m/defpoint 3.375 5)
     :position-matrix (m/translation 4.25 0.125)
     :text title-2
     :evolvers {:text window-text-evolver-2}}

    (fg/defcomponent textfield/textfield :entry1
      {:clip-size (m/defpoint 1.0 0.375)
       :position-matrix (m/translation 0.125 0.5)
       :evolvers {:model tf-model-evolver}})

    (fg/defcomponent textfield/textfield :entry2
      {:clip-size (m/defpoint 1.0 0.375)
       :position-matrix (m/translation 0.125 1.0)
       :evolvers {:model tf-model-evolver}})

    (fg/defcomponent textfield/textfield :entry3
      {:clip-size (m/defpoint 1.0 0.375)
       :position-matrix (m/translation 0.125 1.5)
       :evolvers {:model tf-model-evolver}})

    (fg/defcomponent panel/panel :panel1
      {:clip-size (m/defpoint 3.125 2.875)
       :position-matrix (m/translation 0.125 2.0)
       :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-2
        {:clip-size (m/defpoint 1.0 0.375)
         :position-matrix (m/translation 1.25 0.375)
         :evolvers {:model tf-model-evolver}})

      (fg/defcomponent panel/panel :panel1-1
        {:clip-size (m/defpoint 2.875 1.875)
         :position-matrix (m/translation 0.125 0.875)
         :look container-look}

        (fg/defcomponent panel/panel :panel1-1-1
          {:clip-size (m/defpoint 1.0 1.375)
           :position-matrix (m/translation 0.125 0.375)
           :look container-look})

        (fg/defcomponent panel/panel :panel1-1-2
          {:clip-size (m/defpoint 1.5 1.375)
           :position-matrix (m/translation 1.25 0.375)
           :look container-look}

          (fg/defcomponent panel/panel :panel1-1-2-1
            {:clip-size (m/defpoint 1.25 0.875)
             :position-matrix (m/translation 0.125 0.375)
             :look container-look}

          (fg/defcomponent textfield/textfield :entry1-1-2-1
            {:clip-size (m/defpoint 1.0 0.375)
             :position-matrix (m/translation 0.125 0.375)
             :evolvers {:model tf-model-evolver}})))))))

(def focus-window-3
  (fg/defcomponent
    window/window
    :hello3
    {:clip-size (m/defpoint 4 2.5)
     :position-matrix (m/translation 0.125 5.25)
     :text title-3
     :evolvers {:text window-text-evolver-3}}

    (fg/defcomponent panel/panel :panel
      {:clip-size (m/defpoint 3.5 1.875)
       :position-matrix (m/translation 0.125 0.5)
       :look container-look}

      (fg/defcomponent panel/panel :panel1
        {:clip-size (m/defpoint 3.25 0.875)
         :position-matrix (m/translation 0.125 0.375)
         :look container-look}

        (fg/defcomponent textfield/textfield :entry1-1
