       {:position-matrix (m/translation 0.125 0.5)
        :clip-size (m/defpoint 0.375 0.375)
        :text "T"})
+
+    (fg/defcomponent button/button :image->
+      {:position-matrix (m/translation 0.625 0.5)
+       :clip-size (m/defpoint 0.375 0.375)
+       :text "I"})
 
     (fg/defcomponent
       textrich/textrich

            [flatgui.widgets.window :as window]
            [flatgui.widgets.textrich :as textrich]
            [flatgui.widgets.panel :as panel]
            [flatgui.widgets.button :as button])
  (:import (flatgui.core IFGEvolveConsumer)))

(def sample-text "If you can fill the unforgiving minute With sixty seconds’ worth of distance run, Yours is the Earth and everything that’s in it, And — which is more — you’ll be a Man, my son!")


     :background (awt/color 9 17 26)
     :font "bold 14px sans-serif"
     :evolvers {:clip-size component/clip-size-to-host}}
    window))