{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.PointerLockPermissionRequest
(
PointerLockPermissionRequest(..) ,
IsPointerLockPermissionRequest ,
toPointerLockPermissionRequest ,
#if defined(ENABLE_OVERLOADING)
ResolvePointerLockPermissionRequestMethod,
#endif
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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 Control.Monad.IO.Class as MIO
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 qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest
newtype PointerLockPermissionRequest = PointerLockPermissionRequest (SP.ManagedPtr PointerLockPermissionRequest)
deriving (PointerLockPermissionRequest
-> PointerLockPermissionRequest -> Bool
(PointerLockPermissionRequest
-> PointerLockPermissionRequest -> Bool)
-> (PointerLockPermissionRequest
-> PointerLockPermissionRequest -> Bool)
-> Eq PointerLockPermissionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PointerLockPermissionRequest
-> PointerLockPermissionRequest -> Bool
$c/= :: PointerLockPermissionRequest
-> PointerLockPermissionRequest -> Bool
== :: PointerLockPermissionRequest
-> PointerLockPermissionRequest -> Bool
$c== :: PointerLockPermissionRequest
-> PointerLockPermissionRequest -> Bool
Eq)
instance SP.ManagedPtrNewtype PointerLockPermissionRequest where
toManagedPtr :: PointerLockPermissionRequest
-> ManagedPtr PointerLockPermissionRequest
toManagedPtr (PointerLockPermissionRequest ManagedPtr PointerLockPermissionRequest
p) = ManagedPtr PointerLockPermissionRequest
p
foreign import ccall "webkit_pointer_lock_permission_request_get_type"
c_webkit_pointer_lock_permission_request_get_type :: IO B.Types.GType
instance B.Types.TypedObject PointerLockPermissionRequest where
glibType :: IO GType
glibType = IO GType
c_webkit_pointer_lock_permission_request_get_type
instance B.Types.GObject PointerLockPermissionRequest
class (SP.GObject o, O.IsDescendantOf PointerLockPermissionRequest o) => IsPointerLockPermissionRequest o
instance (SP.GObject o, O.IsDescendantOf PointerLockPermissionRequest o) => IsPointerLockPermissionRequest o
instance O.HasParentTypes PointerLockPermissionRequest
type instance O.ParentTypes PointerLockPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]
toPointerLockPermissionRequest :: (MIO.MonadIO m, IsPointerLockPermissionRequest o) => o -> m PointerLockPermissionRequest
toPointerLockPermissionRequest :: forall (m :: * -> *) o.
(MonadIO m, IsPointerLockPermissionRequest o) =>
o -> m PointerLockPermissionRequest
toPointerLockPermissionRequest = IO PointerLockPermissionRequest -> m PointerLockPermissionRequest
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PointerLockPermissionRequest -> m PointerLockPermissionRequest)
-> (o -> IO PointerLockPermissionRequest)
-> o
-> m PointerLockPermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr PointerLockPermissionRequest
-> PointerLockPermissionRequest)
-> o -> IO PointerLockPermissionRequest
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr PointerLockPermissionRequest
-> PointerLockPermissionRequest
PointerLockPermissionRequest
instance B.GValue.IsGValue (Maybe PointerLockPermissionRequest) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_pointer_lock_permission_request_get_type
gvalueSet_ :: Ptr GValue -> Maybe PointerLockPermissionRequest -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PointerLockPermissionRequest
P.Nothing = Ptr GValue -> Ptr PointerLockPermissionRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr PointerLockPermissionRequest
forall a. Ptr a
FP.nullPtr :: FP.Ptr PointerLockPermissionRequest)
gvalueSet_ Ptr GValue
gv (P.Just PointerLockPermissionRequest
obj) = PointerLockPermissionRequest
-> (Ptr PointerLockPermissionRequest -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PointerLockPermissionRequest
obj (Ptr GValue -> Ptr PointerLockPermissionRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PointerLockPermissionRequest)
gvalueGet_ Ptr GValue
gv = do
Ptr PointerLockPermissionRequest
ptr <- Ptr GValue -> IO (Ptr PointerLockPermissionRequest)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr PointerLockPermissionRequest)
if Ptr PointerLockPermissionRequest
ptr Ptr PointerLockPermissionRequest
-> Ptr PointerLockPermissionRequest -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr PointerLockPermissionRequest
forall a. Ptr a
FP.nullPtr
then PointerLockPermissionRequest -> Maybe PointerLockPermissionRequest
forall a. a -> Maybe a
P.Just (PointerLockPermissionRequest
-> Maybe PointerLockPermissionRequest)
-> IO PointerLockPermissionRequest
-> IO (Maybe PointerLockPermissionRequest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr PointerLockPermissionRequest
-> PointerLockPermissionRequest)
-> Ptr PointerLockPermissionRequest
-> IO PointerLockPermissionRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr PointerLockPermissionRequest
-> PointerLockPermissionRequest
PointerLockPermissionRequest Ptr PointerLockPermissionRequest
ptr
else Maybe PointerLockPermissionRequest
-> IO (Maybe PointerLockPermissionRequest)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PointerLockPermissionRequest
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePointerLockPermissionRequestMethod (t :: Symbol) (o :: *) :: * where
ResolvePointerLockPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo
ResolvePointerLockPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePointerLockPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePointerLockPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo
ResolvePointerLockPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePointerLockPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePointerLockPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePointerLockPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePointerLockPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePointerLockPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePointerLockPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePointerLockPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePointerLockPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePointerLockPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePointerLockPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePointerLockPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePointerLockPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePointerLockPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePointerLockPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePointerLockPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePointerLockPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePointerLockPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePointerLockPermissionRequestMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePointerLockPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePointerLockPermissionRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePointerLockPermissionRequestMethod t PointerLockPermissionRequest, O.OverloadedMethod info PointerLockPermissionRequest p) => OL.IsLabel t (PointerLockPermissionRequest -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolvePointerLockPermissionRequestMethod t PointerLockPermissionRequest, O.OverloadedMethod info PointerLockPermissionRequest p, R.HasField t PointerLockPermissionRequest p) => R.HasField t PointerLockPermissionRequest p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePointerLockPermissionRequestMethod t PointerLockPermissionRequest, O.OverloadedMethodInfo info PointerLockPermissionRequest) => OL.IsLabel t (O.MethodProxy info PointerLockPermissionRequest) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PointerLockPermissionRequest
type instance O.AttributeList PointerLockPermissionRequest = PointerLockPermissionRequestAttributeList
type PointerLockPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList PointerLockPermissionRequest = PointerLockPermissionRequestSignalList
type PointerLockPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif