     (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}
-       })
+       :evolvers {:model tf-model-evolver}})
 
     (fg/defcomponent textfield/textfield :entry2
       {:clip-size (m/defpoint 3.0 0.375)

            [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

       :position-matrix (m/translation 0.25 1.75)
       :evolvers {:model tf-model-evolver}})

    (fg/defcomponent panel/panel :panel1
      {:clip-size (m/defpoint 3.0 3.0)
       :position-matrix (m/translation 0.25 2.5)
       :look container-look})

    (fg/defcomponent panel/panel :panel2
      {:clip-size (m/defpoint 3.0 3.0)
       :position-matrix (m/translation 3.5 2.5)
       :look container-look}

         (fg/defcomponent panel/panel :panel2-1
           {:clip-size (m/defpoint 2.75 1.0)
            :position-matrix (m/translation 0.125 0.5)
            :look container-look}

           (fg/defcomponent textfield/textfield :entry1
             {:clip-size (m/defpoint 1.125 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.125 0.375)
              :position-matrix (m/translation 1.5 0.5)
              :evolvers {:model tf-model-evolver}}))

         (fg/defcomponent panel/panel :panel2-2
           {:clip-size (m/defpoint 2.75 1.0)
            :position-matrix (m/translation 0.125 1.625)
            :look container-look}

           (fg/defcomponent textfield/textfield :entry1
             {:clip-size (m/defpoint 1.125 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.125 0.375)
              :position-matrix (m/translation 1.5 0.5)
              :evolvers {:model tf-model-evolver}})))))

(def focus-window-2
  (fg/defcomponent
