 (fg/defevolverfn text-position-matrix :position-matrix (m/translation gap (+ (header-&-toolpanel-h component) gap)))
 
 (fg/defevolverfn :rendition
-  (if (and (= (get-reason) [:text->]) (get-property [:text->] :pressed))
+  (cond
+
+    (and (= (get-reason) [:text->]) (get-property [:text->] :pressed))
     (textrich/rendition-input-data-evolver component old-rendition {:type :string :data "TEST"})
+
+    (and (= (get-reason) [:image->]) (get-property [:image->] :pressed))
+    (textrich/rendition-input-data-evolver component old-rendition {:type :image :data "http://flatgui.org/resources/icon.png" :size {:w 0.5 :h 0.5}})
+
+    :else
     (textrich/rendition-evolver component)))
 
 (def window

      {:position-matrix (m/translation 0.125 0.5)
       :clip-size (m/defpoint 0.375 0.375)
       :text "T"})

    (fg/defcomponent
      textrich/textrich

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