diff options
| author | Camil Staps | 2019-11-26 12:12:56 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-11-26 12:12:56 +0100 |
| commit | 2baaecb6c2d969815dd648ea81d0229b4ea38a5d (patch) | |
| tree | 9750088f5562224604db98a7088b0c3da787c231 | |
| parent | Add scrollToCell for GtkSheet (diff) | |
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)
| -rw-r--r-- | src/Gdk/Internal.icl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |