From 79915057437b92095ed44667c269c8650a77a298 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 30 Oct 2019 13:21:06 +0100
Subject: Add GdkEvent and KeyPressHandler

---
 src/Gdk/Events.icl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/Gdk/Events.icl

(limited to 'src/Gdk/Events.icl')

diff --git a/src/Gdk/Events.icl b/src/Gdk/Events.icl
new file mode 100644
index 0000000..58ca045
--- /dev/null
+++ b/src/Gdk/Events.icl
@@ -0,0 +1,13 @@
+implementation module Gdk.Events
+
+import StdEnv
+import StdMaybe
+
+import Data.Functor
+import Data.Maybe
+import System._Pointer
+
+import Gdk.Internal
+
+getKeyvalName :: !GdkEvent -> Maybe String
+getKeyvalName (GdkEvent ev) = gdk_keyval_name <$> gdk_event_get_keyval ev
-- 
cgit v1.2.3