{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.DeviceInfoPermissionRequest
(
DeviceInfoPermissionRequest(..) ,
IsDeviceInfoPermissionRequest ,
toDeviceInfoPermissionRequest ,
noDeviceInfoPermissionRequest ,
#if defined(ENABLE_OVERLOADING)
ResolveDeviceInfoPermissionRequestMethod,
#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.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 qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2.Interfaces.PermissionRequest as WebKit2.PermissionRequest
newtype DeviceInfoPermissionRequest = DeviceInfoPermissionRequest (ManagedPtr DeviceInfoPermissionRequest)
deriving (DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
(DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest -> Bool)
-> (DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest -> Bool)
-> Eq DeviceInfoPermissionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
$c/= :: DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
== :: DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
$c== :: DeviceInfoPermissionRequest -> DeviceInfoPermissionRequest -> Bool
Eq)
foreign import ccall "webkit_device_info_permission_request_get_type"
c_webkit_device_info_permission_request_get_type :: IO GType
instance GObject DeviceInfoPermissionRequest where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_device_info_permission_request_get_type
instance B.GValue.IsGValue DeviceInfoPermissionRequest where
toGValue :: DeviceInfoPermissionRequest -> IO GValue
toGValue o :: DeviceInfoPermissionRequest
o = do
GType
gtype <- IO GType
c_webkit_device_info_permission_request_get_type
DeviceInfoPermissionRequest
-> (Ptr DeviceInfoPermissionRequest -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DeviceInfoPermissionRequest
o (GType
-> (GValue -> Ptr DeviceInfoPermissionRequest -> IO ())
-> Ptr DeviceInfoPermissionRequest
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DeviceInfoPermissionRequest -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DeviceInfoPermissionRequest
fromGValue gv :: GValue
gv = do
Ptr DeviceInfoPermissionRequest
ptr <- GValue -> IO (Ptr DeviceInfoPermissionRequest)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DeviceInfoPermissionRequest)
(ManagedPtr DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest)
-> Ptr DeviceInfoPermissionRequest
-> IO DeviceInfoPermissionRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest
DeviceInfoPermissionRequest Ptr DeviceInfoPermissionRequest
ptr
class (GObject o, O.IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o
instance (GObject o, O.IsDescendantOf DeviceInfoPermissionRequest o) => IsDeviceInfoPermissionRequest o
instance O.HasParentTypes DeviceInfoPermissionRequest
type instance O.ParentTypes DeviceInfoPermissionRequest = '[GObject.Object.Object, WebKit2.PermissionRequest.PermissionRequest]
toDeviceInfoPermissionRequest :: (MonadIO m, IsDeviceInfoPermissionRequest o) => o -> m DeviceInfoPermissionRequest
toDeviceInfoPermissionRequest :: o -> m DeviceInfoPermissionRequest
toDeviceInfoPermissionRequest = IO DeviceInfoPermissionRequest -> m DeviceInfoPermissionRequest
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DeviceInfoPermissionRequest -> m DeviceInfoPermissionRequest)
-> (o -> IO DeviceInfoPermissionRequest)
-> o
-> m DeviceInfoPermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest)
-> o -> IO DeviceInfoPermissionRequest
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DeviceInfoPermissionRequest
-> DeviceInfoPermissionRequest
DeviceInfoPermissionRequest
noDeviceInfoPermissionRequest :: Maybe DeviceInfoPermissionRequest
noDeviceInfoPermissionRequest :: Maybe DeviceInfoPermissionRequest
noDeviceInfoPermissionRequest = Maybe DeviceInfoPermissionRequest
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDeviceInfoPermissionRequestMethod (t :: Symbol) (o :: *) :: * where
ResolveDeviceInfoPermissionRequestMethod "allow" o = WebKit2.PermissionRequest.PermissionRequestAllowMethodInfo
ResolveDeviceInfoPermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDeviceInfoPermissionRequestMethod "deny" o = WebKit2.PermissionRequest.PermissionRequestDenyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDeviceInfoPermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDeviceInfoPermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDeviceInfoPermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDeviceInfoPermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDeviceInfoPermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDeviceInfoPermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDeviceInfoPermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDeviceInfoPermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDeviceInfoPermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDeviceInfoPermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDeviceInfoPermissionRequestMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDeviceInfoPermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDeviceInfoPermissionRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDeviceInfoPermissionRequestMethod t DeviceInfoPermissionRequest, O.MethodInfo info DeviceInfoPermissionRequest p) => OL.IsLabel t (DeviceInfoPermissionRequest -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DeviceInfoPermissionRequest
type instance O.AttributeList DeviceInfoPermissionRequest = DeviceInfoPermissionRequestAttributeList
type DeviceInfoPermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DeviceInfoPermissionRequest = DeviceInfoPermissionRequestSignalList
type DeviceInfoPermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif