From 2baaecb6c2d969815dd648ea81d0229b4ea38a5d Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 26 Nov 2019 12:12:56 +0100
Subject: Prevent crash in gdk_event_get_keyval (the keyval can be 0 when a key
 is pressed without result, e.g. a capital Hebrew letter)

---
 src/Gdk/Internal.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Gdk/Internal.icl b/src/Gdk/Internal.icl
index a922d84..9c50238 100644
--- a/src/Gdk/Internal.icl
+++ b/src/Gdk/Internal.icl
@@ -9,7 +9,7 @@ gdk_event_get_keyval :: !Pointer -> Maybe Int
 gdk_event_get_keyval event
 	# arr = {#0}
 	# ok = get event (get_array_pointer arr)
-	| ok
+	| ok && arr.[0] <> 0
 		= Just (arr.[0])
 		= Nothing
 where
-- 
cgit v1.2.3