         (catch Exception e (do (println "Config invalid: " (.getMessage e)) false)))
       false)))
 
+(fg/defevolverfn shortcut-pressed-evolver :pressed
+  (cond
+    (and
+      (keyboard/key-pressed? component)
+      (inputbase/with-ctrl? component)
+      (= (keyboard/get-key component) KeyEvent/VK_A)) true
+    (keyboard/key-released? component) false
+    :else old-pressed))
+
 (def layout-window
   (fg/defcomponent
     window/window

            [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 :-]]

  (:require [flatgui.util.matrix :as m]
            [flatgui.base :as fg]
            [flatgui.awt :as awt]
            [flatgui.inputchannels.keyboard :as keyboard]
            [flatgui.inputchannels.awtbase :as inputbase]
            [flatgui.theme]
            [flatgui.layout]
            [flatgui.widgets.label :as label]
