src/Gdk/Events.icl


1
2
3
4
5
6
7
8
9
10
11
12
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