module GI.WebKit2.Interfaces.PermissionRequest
(
PermissionRequest(..) ,
noPermissionRequest ,
IsPermissionRequest ,
toPermissionRequest ,
PermissionRequestAllowMethodInfo ,
permissionRequestAllow ,
PermissionRequestDenyMethodInfo ,
permissionRequestDeny ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
newtype PermissionRequest = PermissionRequest (ManagedPtr PermissionRequest)
noPermissionRequest :: Maybe PermissionRequest
noPermissionRequest = Nothing
type family ResolvePermissionRequestMethod (t :: Symbol) (o :: *) :: * where
ResolvePermissionRequestMethod "allow" o = PermissionRequestAllowMethodInfo
ResolvePermissionRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePermissionRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePermissionRequestMethod "deny" o = PermissionRequestDenyMethodInfo
ResolvePermissionRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePermissionRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePermissionRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePermissionRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePermissionRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePermissionRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePermissionRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePermissionRequestMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolvePermissionRequestMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolvePermissionRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePermissionRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePermissionRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePermissionRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePermissionRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePermissionRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePermissionRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePermissionRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePermissionRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePermissionRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePermissionRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePermissionRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, O.MethodInfo info PermissionRequest p) => O.IsLabelProxy t (PermissionRequest -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolvePermissionRequestMethod t PermissionRequest, O.MethodInfo info PermissionRequest p) => O.IsLabel t (PermissionRequest -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
instance O.HasAttributeList PermissionRequest
type instance O.AttributeList PermissionRequest = PermissionRequestAttributeList
type PermissionRequestAttributeList = ('[ ] :: [(Symbol, *)])
type instance O.SignalList PermissionRequest = PermissionRequestSignalList
type PermissionRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_permission_request_get_type"
c_webkit_permission_request_get_type :: IO GType
instance GObject PermissionRequest where
gobjectType _ = c_webkit_permission_request_get_type
class GObject o => IsPermissionRequest o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError PermissionRequest a) =>
IsPermissionRequest a
#endif
instance IsPermissionRequest PermissionRequest
instance GObject.Object.IsObject PermissionRequest
toPermissionRequest :: IsPermissionRequest o => o -> IO PermissionRequest
toPermissionRequest = unsafeCastTo PermissionRequest
foreign import ccall "webkit_permission_request_allow" webkit_permission_request_allow ::
Ptr PermissionRequest ->
IO ()
permissionRequestAllow ::
(B.CallStack.HasCallStack, MonadIO m, IsPermissionRequest a) =>
a
-> m ()
permissionRequestAllow request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
webkit_permission_request_allow request'
touchManagedPtr request
return ()
data PermissionRequestAllowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPermissionRequest a) => O.MethodInfo PermissionRequestAllowMethodInfo a signature where
overloadedMethod _ = permissionRequestAllow
foreign import ccall "webkit_permission_request_deny" webkit_permission_request_deny ::
Ptr PermissionRequest ->
IO ()
permissionRequestDeny ::
(B.CallStack.HasCallStack, MonadIO m, IsPermissionRequest a) =>
a
-> m ()
permissionRequestDeny request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
webkit_permission_request_deny request'
touchManagedPtr request
return ()
data PermissionRequestDenyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPermissionRequest a) => O.MethodInfo PermissionRequestDenyMethodInfo a signature where
overloadedMethod _ = permissionRequestDeny