                                                             :auto-size true
                                                             :paint-border false
                                                             :model text-model
-                                                            :text (:text text-model)})}})}})
+                                                            :text (:text text-model)
+                                                            :evolvers {:pressed shortcut-pressed-evolver
+                                                                       :pressed-trigger abtn/pressed-trigger-evolver}})}})}})
 
     (fg/defcomponent label/label :validity-indicator
       {:text "Valid"
        :foreground (awt/color 64 255 64)
        :evolvers {:text (fg/accessorfn (if (get-property component [] :config-valid)
-                                         "Valid"
-                                         "Not valid"))
+                                         "Current config: valid"
+                                         "Current config: invalid"))
                   :foreground (fg/accessorfn (if (get-property component [] :config-valid)
                                                (awt/color 64 255 64)
                                                (awt/color 255 64 64)))}})
 
-    (fg/defcomponent button/button :apply {:text "Apply"})))
+    (fg/defcomponent button/button :apply {:text "Apply (Ctrl+A)"})))
 
 (def root-panel
   (fg/defcomponent

            [flatgui.widgets.textfield :as textfield]
            [flatgui.widgets.panel :as panel]
            [flatgui.widgets.button :as button]
            [flatgui.widgets.scrollpanel :as scrollpanel]))

(def layout-cfg
  [[[:a :-] [:a :-] [:a :-] [:b :c :d :-]]

   [[:m :|] [:n :|] [:o :|] [:p :|]]])

(fg/defevolverfn :layout
  (if (or
        (and
          (= (fg/get-reason) [:config :apply])
          (abtn/button-pressed? (get-property [:config :apply] :pressed-trigger)))
        (and
          (= (fg/get-reason) [:config :scroll :content-pane :textfield])
          (abtn/button-pressed? (get-property [:config :scroll :content-pane :textfield] :pressed-trigger))))
    (read-string (get-property [:config :scroll :content-pane :textfield] :text))
    old-layout))

