{-# LINE 1 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Stopgap.Graphics.UI.Gdk.Event where import Foreign.Storable import Foreign.C.Enum import Data.Bits import Data.Word import Data.Int enum "Mask" ''Word32 [''Show, ''Read, ''Eq, ''Bits] [ {-# LINE 17 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("ExposureMask", 2), {-# LINE 18 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("PointerMotionMask", 4), {-# LINE 19 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("PointerMotionHintMask", 8), {-# LINE 20 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("ButtonMotionMask", 16), {-# LINE 21 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("Button1MotionMask", 32), {-# LINE 22 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("Button2MotionMask", 64), {-# LINE 23 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("Button3MotionMask", 128), {-# LINE 24 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("ButtonPressMask", 256), {-# LINE 25 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("ButtonReleaseMask", 512), {-# LINE 26 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("KeyPressMask", 1024), {-# LINE 27 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("KeyReleaseMask", 2048), {-# LINE 28 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("EnterNotifyMask", 4096), {-# LINE 29 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("LeaveNotifyMask", 8192) {-# LINE 30 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ] enum "Type" ''Int32 [''Show, ''Read, ''Eq, ''Ord, ''Storable] [ {-# LINE 33 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("Delete", 0), {-# LINE 34 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("MotionNotify", 3), {-# LINE 35 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("ButtonPress", 4), {-# LINE 36 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ("ButtonRelease", 7) {-# LINE 37 "src/Stopgap/Graphics/UI/Gdk/Event.hsc" #-} ]