{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventProperty
(
EventProperty(..) ,
newZeroEventProperty ,
noEventProperty ,
#if defined(ENABLE_OVERLOADING)
ResolveEventPropertyMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventProperty_atom ,
#endif
getEventPropertyAtom ,
#if defined(ENABLE_OVERLOADING)
eventProperty_sendEvent ,
#endif
getEventPropertySendEvent ,
setEventPropertySendEvent ,
#if defined(ENABLE_OVERLOADING)
eventProperty_state ,
#endif
getEventPropertyState ,
setEventPropertyState ,
#if defined(ENABLE_OVERLOADING)
eventProperty_time ,
#endif
getEventPropertyTime ,
setEventPropertyTime ,
#if defined(ENABLE_OVERLOADING)
eventProperty_type ,
#endif
getEventPropertyType ,
setEventPropertyType ,
clearEventPropertyWindow ,
#if defined(ENABLE_OVERLOADING)
eventProperty_window ,
#endif
getEventPropertyWindow ,
setEventPropertyWindow ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
import {-# SOURCE #-} qualified GI.Gdk.Structs.Atom as Gdk.Atom
newtype EventProperty = EventProperty (ManagedPtr EventProperty)
deriving (Eq)
instance WrappedPtr EventProperty where
wrappedPtrCalloc = callocBytes 40
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 40 >=> wrapPtr EventProperty)
wrappedPtrFree = Just ptr_to_g_free
newZeroEventProperty :: MonadIO m => m EventProperty
newZeroEventProperty = liftIO $ wrappedPtrCalloc >>= wrapPtr EventProperty
instance tag ~ 'AttrSet => Constructible EventProperty tag where
new _ attrs = do
o <- newZeroEventProperty
GI.Attributes.set o attrs
return o
noEventProperty :: Maybe EventProperty
noEventProperty = Nothing
getEventPropertyType :: MonadIO m => EventProperty -> m Gdk.Enums.EventType
getEventPropertyType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CInt
let val' = (toEnum . fromIntegral) val
return val'
setEventPropertyType :: MonadIO m => EventProperty -> Gdk.Enums.EventType -> m ()
setEventPropertyType s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventPropertyTypeFieldInfo
instance AttrInfo EventPropertyTypeFieldInfo where
type AttrBaseTypeConstraint EventPropertyTypeFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPropertyTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventPropertyTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventPropertyTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventPropertyTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventPropertyTypeFieldInfo = "type"
type AttrOrigin EventPropertyTypeFieldInfo = EventProperty
attrGet = getEventPropertyType
attrSet = setEventPropertyType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventProperty_type :: AttrLabelProxy "type"
eventProperty_type = AttrLabelProxy
#endif
getEventPropertyWindow :: MonadIO m => EventProperty -> m (Maybe Gdk.Window.Window)
getEventPropertyWindow s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr Gdk.Window.Window)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newObject Gdk.Window.Window) val'
return val''
return result
setEventPropertyWindow :: MonadIO m => EventProperty -> Ptr Gdk.Window.Window -> m ()
setEventPropertyWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr Gdk.Window.Window)
clearEventPropertyWindow :: MonadIO m => EventProperty -> m ()
clearEventPropertyWindow s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr Gdk.Window.Window)
#if defined(ENABLE_OVERLOADING)
data EventPropertyWindowFieldInfo
instance AttrInfo EventPropertyWindowFieldInfo where
type AttrBaseTypeConstraint EventPropertyWindowFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventPropertyWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventPropertyWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventPropertyWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventPropertyWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventPropertyWindowFieldInfo = "window"
type AttrOrigin EventPropertyWindowFieldInfo = EventProperty
attrGet = getEventPropertyWindow
attrSet = setEventPropertyWindow
attrConstruct = undefined
attrClear = clearEventPropertyWindow
attrTransfer _ v = do
return v
eventProperty_window :: AttrLabelProxy "window"
eventProperty_window = AttrLabelProxy
#endif
getEventPropertySendEvent :: MonadIO m => EventProperty -> m Int8
getEventPropertySendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
setEventPropertySendEvent :: MonadIO m => EventProperty -> Int8 -> m ()
setEventPropertySendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventPropertySendEventFieldInfo
instance AttrInfo EventPropertySendEventFieldInfo where
type AttrBaseTypeConstraint EventPropertySendEventFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertySendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPropertySendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventPropertySendEventFieldInfo = (~)Int8
type AttrTransferType EventPropertySendEventFieldInfo = Int8
type AttrGetType EventPropertySendEventFieldInfo = Int8
type AttrLabel EventPropertySendEventFieldInfo = "send_event"
type AttrOrigin EventPropertySendEventFieldInfo = EventProperty
attrGet = getEventPropertySendEvent
attrSet = setEventPropertySendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventProperty_sendEvent :: AttrLabelProxy "sendEvent"
eventProperty_sendEvent = AttrLabelProxy
#endif
getEventPropertyAtom :: MonadIO m => EventProperty -> m Gdk.Atom.Atom
getEventPropertyAtom s = liftIO $ withManagedPtr s $ \ptr -> do
let val = ptr `plusPtr` 24 :: (Ptr Gdk.Atom.Atom)
val' <- (newPtr Gdk.Atom.Atom) val
return val'
#if defined(ENABLE_OVERLOADING)
data EventPropertyAtomFieldInfo
instance AttrInfo EventPropertyAtomFieldInfo where
type AttrBaseTypeConstraint EventPropertyAtomFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyAtomFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventPropertyAtomFieldInfo = (~) (Ptr Gdk.Atom.Atom)
type AttrTransferTypeConstraint EventPropertyAtomFieldInfo = (~)(Ptr Gdk.Atom.Atom)
type AttrTransferType EventPropertyAtomFieldInfo = (Ptr Gdk.Atom.Atom)
type AttrGetType EventPropertyAtomFieldInfo = Gdk.Atom.Atom
type AttrLabel EventPropertyAtomFieldInfo = "atom"
type AttrOrigin EventPropertyAtomFieldInfo = EventProperty
attrGet = getEventPropertyAtom
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
eventProperty_atom :: AttrLabelProxy "atom"
eventProperty_atom = AttrLabelProxy
#endif
getEventPropertyTime :: MonadIO m => EventProperty -> m Word32
getEventPropertyTime s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO Word32
return val
setEventPropertyTime :: MonadIO m => EventProperty -> Word32 -> m ()
setEventPropertyTime s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventPropertyTimeFieldInfo
instance AttrInfo EventPropertyTimeFieldInfo where
type AttrBaseTypeConstraint EventPropertyTimeFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPropertyTimeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventPropertyTimeFieldInfo = (~)Word32
type AttrTransferType EventPropertyTimeFieldInfo = Word32
type AttrGetType EventPropertyTimeFieldInfo = Word32
type AttrLabel EventPropertyTimeFieldInfo = "time"
type AttrOrigin EventPropertyTimeFieldInfo = EventProperty
attrGet = getEventPropertyTime
attrSet = setEventPropertyTime
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventProperty_time :: AttrLabelProxy "time"
eventProperty_time = AttrLabelProxy
#endif
getEventPropertyState :: MonadIO m => EventProperty -> m Gdk.Enums.PropertyState
getEventPropertyState s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 36) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
setEventPropertyState :: MonadIO m => EventProperty -> Gdk.Enums.PropertyState -> m ()
setEventPropertyState s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 36) (val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventPropertyStateFieldInfo
instance AttrInfo EventPropertyStateFieldInfo where
type AttrBaseTypeConstraint EventPropertyStateFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPropertyStateFieldInfo = (~) Gdk.Enums.PropertyState
type AttrTransferTypeConstraint EventPropertyStateFieldInfo = (~)Gdk.Enums.PropertyState
type AttrTransferType EventPropertyStateFieldInfo = Gdk.Enums.PropertyState
type AttrGetType EventPropertyStateFieldInfo = Gdk.Enums.PropertyState
type AttrLabel EventPropertyStateFieldInfo = "state"
type AttrOrigin EventPropertyStateFieldInfo = EventProperty
attrGet = getEventPropertyState
attrSet = setEventPropertyState
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventProperty_state :: AttrLabelProxy "state"
eventProperty_state = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventProperty
type instance O.AttributeList EventProperty = EventPropertyAttributeList
type EventPropertyAttributeList = ('[ '("type", EventPropertyTypeFieldInfo), '("window", EventPropertyWindowFieldInfo), '("sendEvent", EventPropertySendEventFieldInfo), '("atom", EventPropertyAtomFieldInfo), '("time", EventPropertyTimeFieldInfo), '("state", EventPropertyStateFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventPropertyMethod (t :: Symbol) (o :: *) :: * where
ResolveEventPropertyMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventPropertyMethod t EventProperty, O.MethodInfo info EventProperty p) => OL.IsLabel t (EventProperty -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif