{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventWindowState
(
EventWindowState(..) ,
newZeroEventWindowState ,
noEventWindowState ,
#if defined(ENABLE_OVERLOADING)
ResolveEventWindowStateMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventWindowState_changedMask ,
#endif
getEventWindowStateChangedMask ,
setEventWindowStateChangedMask ,
#if defined(ENABLE_OVERLOADING)
eventWindowState_newWindowState ,
#endif
getEventWindowStateNewWindowState ,
setEventWindowStateNewWindowState ,
#if defined(ENABLE_OVERLOADING)
eventWindowState_sendEvent ,
#endif
getEventWindowStateSendEvent ,
setEventWindowStateSendEvent ,
#if defined(ENABLE_OVERLOADING)
eventWindowState_type ,
#endif
getEventWindowStateType ,
setEventWindowStateType ,
clearEventWindowStateWindow ,
#if defined(ENABLE_OVERLOADING)
eventWindowState_window ,
#endif
getEventWindowStateWindow ,
setEventWindowStateWindow ,
) 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.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
newtype EventWindowState = EventWindowState (ManagedPtr EventWindowState)
deriving (Eq)
instance WrappedPtr EventWindowState where
wrappedPtrCalloc = callocBytes 32
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 32 >=> wrapPtr EventWindowState)
wrappedPtrFree = Just ptr_to_g_free
newZeroEventWindowState :: MonadIO m => m EventWindowState
newZeroEventWindowState = liftIO $ wrappedPtrCalloc >>= wrapPtr EventWindowState
instance tag ~ 'AttrSet => Constructible EventWindowState tag where
new _ attrs = do
o <- newZeroEventWindowState
GI.Attributes.set o attrs
return o
noEventWindowState :: Maybe EventWindowState
noEventWindowState = Nothing
getEventWindowStateType :: MonadIO m => EventWindowState -> m Gdk.Enums.EventType
getEventWindowStateType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CInt
let val' = (toEnum . fromIntegral) val
return val'
setEventWindowStateType :: MonadIO m => EventWindowState -> Gdk.Enums.EventType -> m ()
setEventWindowStateType s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventWindowStateTypeFieldInfo
instance AttrInfo EventWindowStateTypeFieldInfo where
type AttrBaseTypeConstraint EventWindowStateTypeFieldInfo = (~) EventWindowState
type AttrAllowedOps EventWindowStateTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventWindowStateTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventWindowStateTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventWindowStateTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventWindowStateTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventWindowStateTypeFieldInfo = "type"
type AttrOrigin EventWindowStateTypeFieldInfo = EventWindowState
attrGet = getEventWindowStateType
attrSet = setEventWindowStateType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventWindowState_type :: AttrLabelProxy "type"
eventWindowState_type = AttrLabelProxy
#endif
getEventWindowStateWindow :: MonadIO m => EventWindowState -> m (Maybe Gdk.Window.Window)
getEventWindowStateWindow 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
setEventWindowStateWindow :: MonadIO m => EventWindowState -> Ptr Gdk.Window.Window -> m ()
setEventWindowStateWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr Gdk.Window.Window)
clearEventWindowStateWindow :: MonadIO m => EventWindowState -> m ()
clearEventWindowStateWindow s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr Gdk.Window.Window)
#if defined(ENABLE_OVERLOADING)
data EventWindowStateWindowFieldInfo
instance AttrInfo EventWindowStateWindowFieldInfo where
type AttrBaseTypeConstraint EventWindowStateWindowFieldInfo = (~) EventWindowState
type AttrAllowedOps EventWindowStateWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventWindowStateWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventWindowStateWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventWindowStateWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventWindowStateWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventWindowStateWindowFieldInfo = "window"
type AttrOrigin EventWindowStateWindowFieldInfo = EventWindowState
attrGet = getEventWindowStateWindow
attrSet = setEventWindowStateWindow
attrConstruct = undefined
attrClear = clearEventWindowStateWindow
attrTransfer _ v = do
return v
eventWindowState_window :: AttrLabelProxy "window"
eventWindowState_window = AttrLabelProxy
#endif
getEventWindowStateSendEvent :: MonadIO m => EventWindowState -> m Int8
getEventWindowStateSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
setEventWindowStateSendEvent :: MonadIO m => EventWindowState -> Int8 -> m ()
setEventWindowStateSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventWindowStateSendEventFieldInfo
instance AttrInfo EventWindowStateSendEventFieldInfo where
type AttrBaseTypeConstraint EventWindowStateSendEventFieldInfo = (~) EventWindowState
type AttrAllowedOps EventWindowStateSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventWindowStateSendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventWindowStateSendEventFieldInfo = (~)Int8
type AttrTransferType EventWindowStateSendEventFieldInfo = Int8
type AttrGetType EventWindowStateSendEventFieldInfo = Int8
type AttrLabel EventWindowStateSendEventFieldInfo = "send_event"
type AttrOrigin EventWindowStateSendEventFieldInfo = EventWindowState
attrGet = getEventWindowStateSendEvent
attrSet = setEventWindowStateSendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventWindowState_sendEvent :: AttrLabelProxy "sendEvent"
eventWindowState_sendEvent = AttrLabelProxy
#endif
getEventWindowStateChangedMask :: MonadIO m => EventWindowState -> m [Gdk.Flags.WindowState]
getEventWindowStateChangedMask s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO CUInt
let val' = wordToGFlags val
return val'
setEventWindowStateChangedMask :: MonadIO m => EventWindowState -> [Gdk.Flags.WindowState] -> m ()
setEventWindowStateChangedMask s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = gflagsToWord val
poke (ptr `plusPtr` 20) (val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventWindowStateChangedMaskFieldInfo
instance AttrInfo EventWindowStateChangedMaskFieldInfo where
type AttrBaseTypeConstraint EventWindowStateChangedMaskFieldInfo = (~) EventWindowState
type AttrAllowedOps EventWindowStateChangedMaskFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventWindowStateChangedMaskFieldInfo = (~) [Gdk.Flags.WindowState]
type AttrTransferTypeConstraint EventWindowStateChangedMaskFieldInfo = (~)[Gdk.Flags.WindowState]
type AttrTransferType EventWindowStateChangedMaskFieldInfo = [Gdk.Flags.WindowState]
type AttrGetType EventWindowStateChangedMaskFieldInfo = [Gdk.Flags.WindowState]
type AttrLabel EventWindowStateChangedMaskFieldInfo = "changed_mask"
type AttrOrigin EventWindowStateChangedMaskFieldInfo = EventWindowState
attrGet = getEventWindowStateChangedMask
attrSet = setEventWindowStateChangedMask
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventWindowState_changedMask :: AttrLabelProxy "changedMask"
eventWindowState_changedMask = AttrLabelProxy
#endif
getEventWindowStateNewWindowState :: MonadIO m => EventWindowState -> m [Gdk.Flags.WindowState]
getEventWindowStateNewWindowState s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CUInt
let val' = wordToGFlags val
return val'
setEventWindowStateNewWindowState :: MonadIO m => EventWindowState -> [Gdk.Flags.WindowState] -> m ()
setEventWindowStateNewWindowState s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = gflagsToWord val
poke (ptr `plusPtr` 24) (val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventWindowStateNewWindowStateFieldInfo
instance AttrInfo EventWindowStateNewWindowStateFieldInfo where
type AttrBaseTypeConstraint EventWindowStateNewWindowStateFieldInfo = (~) EventWindowState
type AttrAllowedOps EventWindowStateNewWindowStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventWindowStateNewWindowStateFieldInfo = (~) [Gdk.Flags.WindowState]
type AttrTransferTypeConstraint EventWindowStateNewWindowStateFieldInfo = (~)[Gdk.Flags.WindowState]
type AttrTransferType EventWindowStateNewWindowStateFieldInfo = [Gdk.Flags.WindowState]
type AttrGetType EventWindowStateNewWindowStateFieldInfo = [Gdk.Flags.WindowState]
type AttrLabel EventWindowStateNewWindowStateFieldInfo = "new_window_state"
type AttrOrigin EventWindowStateNewWindowStateFieldInfo = EventWindowState
attrGet = getEventWindowStateNewWindowState
attrSet = setEventWindowStateNewWindowState
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventWindowState_newWindowState :: AttrLabelProxy "newWindowState"
eventWindowState_newWindowState = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventWindowState
type instance O.AttributeList EventWindowState = EventWindowStateAttributeList
type EventWindowStateAttributeList = ('[ '("type", EventWindowStateTypeFieldInfo), '("window", EventWindowStateWindowFieldInfo), '("sendEvent", EventWindowStateSendEventFieldInfo), '("changedMask", EventWindowStateChangedMaskFieldInfo), '("newWindowState", EventWindowStateNewWindowStateFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventWindowStateMethod (t :: Symbol) (o :: *) :: * where
ResolveEventWindowStateMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventWindowStateMethod t EventWindowState, O.MethodInfo info EventWindowState p) => OL.IsLabel t (EventWindowState -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif