{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.UserContentManager
(
UserContentManager(..) ,
IsUserContentManager ,
toUserContentManager ,
#if defined(ENABLE_OVERLOADING)
ResolveUserContentManagerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
UserContentManagerAddFilterMethodInfo ,
#endif
userContentManagerAddFilter ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerAddScriptMethodInfo ,
#endif
userContentManagerAddScript ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerAddStyleSheetMethodInfo,
#endif
userContentManagerAddStyleSheet ,
userContentManagerNew ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRegisterScriptMessageHandlerMethodInfo,
#endif
userContentManagerRegisterScriptMessageHandler,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo,
#endif
userContentManagerRegisterScriptMessageHandlerInWorld,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRemoveAllFiltersMethodInfo,
#endif
userContentManagerRemoveAllFilters ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRemoveAllScriptsMethodInfo,
#endif
userContentManagerRemoveAllScripts ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRemoveAllStyleSheetsMethodInfo,
#endif
userContentManagerRemoveAllStyleSheets ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRemoveFilterMethodInfo,
#endif
userContentManagerRemoveFilter ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRemoveFilterByIdMethodInfo,
#endif
userContentManagerRemoveFilterById ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRemoveScriptMethodInfo,
#endif
userContentManagerRemoveScript ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerRemoveStyleSheetMethodInfo,
#endif
userContentManagerRemoveStyleSheet ,
#if defined(ENABLE_OVERLOADING)
UserContentManagerUnregisterScriptMessageHandlerMethodInfo,
#endif
userContentManagerUnregisterScriptMessageHandler,
#if defined(ENABLE_OVERLOADING)
UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo,
#endif
userContentManagerUnregisterScriptMessageHandlerInWorld,
UserContentManagerScriptMessageReceivedCallback,
#if defined(ENABLE_OVERLOADING)
UserContentManagerScriptMessageReceivedSignalInfo,
#endif
afterUserContentManagerScriptMessageReceived,
onUserContentManagerScriptMessageReceived,
) 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.GHashTable as B.GHT
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.Coerce as Coerce
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.Structs.JavascriptResult as WebKit2.JavascriptResult
import {-# SOURCE #-} qualified GI.WebKit2.Structs.UserContentFilter as WebKit2.UserContentFilter
import {-# SOURCE #-} qualified GI.WebKit2.Structs.UserScript as WebKit2.UserScript
import {-# SOURCE #-} qualified GI.WebKit2.Structs.UserStyleSheet as WebKit2.UserStyleSheet
newtype UserContentManager = UserContentManager (SP.ManagedPtr UserContentManager)
deriving (UserContentManager -> UserContentManager -> Bool
(UserContentManager -> UserContentManager -> Bool)
-> (UserContentManager -> UserContentManager -> Bool)
-> Eq UserContentManager
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UserContentManager -> UserContentManager -> Bool
== :: UserContentManager -> UserContentManager -> Bool
$c/= :: UserContentManager -> UserContentManager -> Bool
/= :: UserContentManager -> UserContentManager -> Bool
Eq)
instance SP.ManagedPtrNewtype UserContentManager where
toManagedPtr :: UserContentManager -> ManagedPtr UserContentManager
toManagedPtr (UserContentManager ManagedPtr UserContentManager
p) = ManagedPtr UserContentManager
p
foreign import ccall "webkit_user_content_manager_get_type"
c_webkit_user_content_manager_get_type :: IO B.Types.GType
instance B.Types.TypedObject UserContentManager where
glibType :: IO GType
glibType = IO GType
c_webkit_user_content_manager_get_type
instance B.Types.GObject UserContentManager
class (SP.GObject o, O.IsDescendantOf UserContentManager o) => IsUserContentManager o
instance (SP.GObject o, O.IsDescendantOf UserContentManager o) => IsUserContentManager o
instance O.HasParentTypes UserContentManager
type instance O.ParentTypes UserContentManager = '[GObject.Object.Object]
toUserContentManager :: (MIO.MonadIO m, IsUserContentManager o) => o -> m UserContentManager
toUserContentManager :: forall (m :: * -> *) o.
(MonadIO m, IsUserContentManager o) =>
o -> m UserContentManager
toUserContentManager = IO UserContentManager -> m UserContentManager
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO UserContentManager -> m UserContentManager)
-> (o -> IO UserContentManager) -> o -> m UserContentManager
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr UserContentManager -> UserContentManager)
-> o -> IO UserContentManager
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr UserContentManager -> UserContentManager
UserContentManager
instance B.GValue.IsGValue (Maybe UserContentManager) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_user_content_manager_get_type
gvalueSet_ :: Ptr GValue -> Maybe UserContentManager -> IO ()
gvalueSet_ Ptr GValue
gv Maybe UserContentManager
P.Nothing = Ptr GValue -> Ptr UserContentManager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr UserContentManager
forall a. Ptr a
FP.nullPtr :: FP.Ptr UserContentManager)
gvalueSet_ Ptr GValue
gv (P.Just UserContentManager
obj) = UserContentManager -> (Ptr UserContentManager -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr UserContentManager
obj (Ptr GValue -> Ptr UserContentManager -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe UserContentManager)
gvalueGet_ Ptr GValue
gv = do
Ptr UserContentManager
ptr <- Ptr GValue -> IO (Ptr UserContentManager)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr UserContentManager)
if Ptr UserContentManager
ptr Ptr UserContentManager -> Ptr UserContentManager -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr UserContentManager
forall a. Ptr a
FP.nullPtr
then UserContentManager -> Maybe UserContentManager
forall a. a -> Maybe a
P.Just (UserContentManager -> Maybe UserContentManager)
-> IO UserContentManager -> IO (Maybe UserContentManager)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr UserContentManager -> UserContentManager)
-> Ptr UserContentManager -> IO UserContentManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr UserContentManager -> UserContentManager
UserContentManager Ptr UserContentManager
ptr
else Maybe UserContentManager -> IO (Maybe UserContentManager)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe UserContentManager
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveUserContentManagerMethod (t :: Symbol) (o :: *) :: * where
ResolveUserContentManagerMethod "addFilter" o = UserContentManagerAddFilterMethodInfo
ResolveUserContentManagerMethod "addScript" o = UserContentManagerAddScriptMethodInfo
ResolveUserContentManagerMethod "addStyleSheet" o = UserContentManagerAddStyleSheetMethodInfo
ResolveUserContentManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveUserContentManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveUserContentManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveUserContentManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveUserContentManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveUserContentManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveUserContentManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveUserContentManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveUserContentManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveUserContentManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveUserContentManagerMethod "registerScriptMessageHandler" o = UserContentManagerRegisterScriptMessageHandlerMethodInfo
ResolveUserContentManagerMethod "registerScriptMessageHandlerInWorld" o = UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo
ResolveUserContentManagerMethod "removeAllFilters" o = UserContentManagerRemoveAllFiltersMethodInfo
ResolveUserContentManagerMethod "removeAllScripts" o = UserContentManagerRemoveAllScriptsMethodInfo
ResolveUserContentManagerMethod "removeAllStyleSheets" o = UserContentManagerRemoveAllStyleSheetsMethodInfo
ResolveUserContentManagerMethod "removeFilter" o = UserContentManagerRemoveFilterMethodInfo
ResolveUserContentManagerMethod "removeFilterById" o = UserContentManagerRemoveFilterByIdMethodInfo
ResolveUserContentManagerMethod "removeScript" o = UserContentManagerRemoveScriptMethodInfo
ResolveUserContentManagerMethod "removeStyleSheet" o = UserContentManagerRemoveStyleSheetMethodInfo
ResolveUserContentManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveUserContentManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveUserContentManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveUserContentManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveUserContentManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveUserContentManagerMethod "unregisterScriptMessageHandler" o = UserContentManagerUnregisterScriptMessageHandlerMethodInfo
ResolveUserContentManagerMethod "unregisterScriptMessageHandlerInWorld" o = UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo
ResolveUserContentManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveUserContentManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveUserContentManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveUserContentManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveUserContentManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveUserContentManagerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveUserContentManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveUserContentManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveUserContentManagerMethod t UserContentManager, O.OverloadedMethod info UserContentManager p) => OL.IsLabel t (UserContentManager -> 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 ~ ResolveUserContentManagerMethod t UserContentManager, O.OverloadedMethod info UserContentManager p, R.HasField t UserContentManager p) => R.HasField t UserContentManager p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveUserContentManagerMethod t UserContentManager, O.OverloadedMethodInfo info UserContentManager) => OL.IsLabel t (O.MethodProxy info UserContentManager) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type UserContentManagerScriptMessageReceivedCallback =
WebKit2.JavascriptResult.JavascriptResult
-> IO ()
type C_UserContentManagerScriptMessageReceivedCallback =
Ptr UserContentManager ->
Ptr WebKit2.JavascriptResult.JavascriptResult ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_UserContentManagerScriptMessageReceivedCallback :: C_UserContentManagerScriptMessageReceivedCallback -> IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)
wrap_UserContentManagerScriptMessageReceivedCallback ::
GObject a => (a -> UserContentManagerScriptMessageReceivedCallback) ->
C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback :: forall a.
GObject a =>
(a -> UserContentManagerScriptMessageReceivedCallback)
-> C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback a -> UserContentManagerScriptMessageReceivedCallback
gi'cb Ptr UserContentManager
gi'selfPtr Ptr JavascriptResult
jsResult Ptr ()
_ = do
Ptr JavascriptResult
-> UserContentManagerScriptMessageReceivedCallback -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr JavascriptResult
jsResult (UserContentManagerScriptMessageReceivedCallback -> IO ())
-> UserContentManagerScriptMessageReceivedCallback -> IO ()
forall a b. (a -> b) -> a -> b
$ \JavascriptResult
jsResult' -> do
Ptr UserContentManager -> (UserContentManager -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr UserContentManager
gi'selfPtr ((UserContentManager -> IO ()) -> IO ())
-> (UserContentManager -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \UserContentManager
gi'self -> a -> UserContentManagerScriptMessageReceivedCallback
gi'cb (UserContentManager -> a
forall a b. Coercible a b => a -> b
Coerce.coerce UserContentManager
gi'self) JavascriptResult
jsResult'
onUserContentManagerScriptMessageReceived :: (IsUserContentManager a, MonadIO m) => a -> P.Maybe T.Text -> ((?self :: a) => UserContentManagerScriptMessageReceivedCallback) -> m SignalHandlerId
onUserContentManagerScriptMessageReceived :: forall a (m :: * -> *).
(IsUserContentManager a, MonadIO m) =>
a
-> Maybe Text
-> ((?self::a) => UserContentManagerScriptMessageReceivedCallback)
-> m SignalHandlerId
onUserContentManagerScriptMessageReceived a
obj Maybe Text
detail (?self::a) => UserContentManagerScriptMessageReceivedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> UserContentManagerScriptMessageReceivedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => UserContentManagerScriptMessageReceivedCallback
UserContentManagerScriptMessageReceivedCallback
cb
let wrapped' :: C_UserContentManagerScriptMessageReceivedCallback
wrapped' = (a -> UserContentManagerScriptMessageReceivedCallback)
-> C_UserContentManagerScriptMessageReceivedCallback
forall a.
GObject a =>
(a -> UserContentManagerScriptMessageReceivedCallback)
-> C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback a -> UserContentManagerScriptMessageReceivedCallback
wrapped
FunPtr C_UserContentManagerScriptMessageReceivedCallback
wrapped'' <- C_UserContentManagerScriptMessageReceivedCallback
-> IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)
mk_UserContentManagerScriptMessageReceivedCallback C_UserContentManagerScriptMessageReceivedCallback
wrapped'
a
-> Text
-> FunPtr C_UserContentManagerScriptMessageReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"script-message-received" FunPtr C_UserContentManagerScriptMessageReceivedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
detail
afterUserContentManagerScriptMessageReceived :: (IsUserContentManager a, MonadIO m) => a -> P.Maybe T.Text -> ((?self :: a) => UserContentManagerScriptMessageReceivedCallback) -> m SignalHandlerId
afterUserContentManagerScriptMessageReceived :: forall a (m :: * -> *).
(IsUserContentManager a, MonadIO m) =>
a
-> Maybe Text
-> ((?self::a) => UserContentManagerScriptMessageReceivedCallback)
-> m SignalHandlerId
afterUserContentManagerScriptMessageReceived a
obj Maybe Text
detail (?self::a) => UserContentManagerScriptMessageReceivedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> UserContentManagerScriptMessageReceivedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => UserContentManagerScriptMessageReceivedCallback
UserContentManagerScriptMessageReceivedCallback
cb
let wrapped' :: C_UserContentManagerScriptMessageReceivedCallback
wrapped' = (a -> UserContentManagerScriptMessageReceivedCallback)
-> C_UserContentManagerScriptMessageReceivedCallback
forall a.
GObject a =>
(a -> UserContentManagerScriptMessageReceivedCallback)
-> C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback a -> UserContentManagerScriptMessageReceivedCallback
wrapped
FunPtr C_UserContentManagerScriptMessageReceivedCallback
wrapped'' <- C_UserContentManagerScriptMessageReceivedCallback
-> IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)
mk_UserContentManagerScriptMessageReceivedCallback C_UserContentManagerScriptMessageReceivedCallback
wrapped'
a
-> Text
-> FunPtr C_UserContentManagerScriptMessageReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"script-message-received" FunPtr C_UserContentManagerScriptMessageReceivedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
detail
#if defined(ENABLE_OVERLOADING)
data UserContentManagerScriptMessageReceivedSignalInfo
instance SignalInfo UserContentManagerScriptMessageReceivedSignalInfo where
type HaskellCallbackType UserContentManagerScriptMessageReceivedSignalInfo = UserContentManagerScriptMessageReceivedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_UserContentManagerScriptMessageReceivedCallback cb
cb'' <- mk_UserContentManagerScriptMessageReceivedCallback cb'
connectSignalFunPtr obj "script-message-received" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager::script-message-received"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#g:signal:scriptMessageReceived"})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList UserContentManager
type instance O.AttributeList UserContentManager = UserContentManagerAttributeList
type UserContentManagerAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList UserContentManager = UserContentManagerSignalList
type UserContentManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("scriptMessageReceived", UserContentManagerScriptMessageReceivedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_user_content_manager_new" webkit_user_content_manager_new ::
IO (Ptr UserContentManager)
userContentManagerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m UserContentManager
userContentManagerNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m UserContentManager
userContentManagerNew = IO UserContentManager -> m UserContentManager
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO UserContentManager -> m UserContentManager)
-> IO UserContentManager -> m UserContentManager
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
result <- IO (Ptr UserContentManager)
webkit_user_content_manager_new
Text -> Ptr UserContentManager -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"userContentManagerNew" Ptr UserContentManager
result
UserContentManager
result' <- ((ManagedPtr UserContentManager -> UserContentManager)
-> Ptr UserContentManager -> IO UserContentManager
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr UserContentManager -> UserContentManager
UserContentManager) Ptr UserContentManager
result
UserContentManager -> IO UserContentManager
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return UserContentManager
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_user_content_manager_add_filter" webkit_user_content_manager_add_filter ::
Ptr UserContentManager ->
Ptr WebKit2.UserContentFilter.UserContentFilter ->
IO ()
userContentManagerAddFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> WebKit2.UserContentFilter.UserContentFilter
-> m ()
userContentManagerAddFilter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> UserContentFilter -> m ()
userContentManagerAddFilter a
manager UserContentFilter
filter = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserContentFilter
filter' <- UserContentFilter -> IO (Ptr UserContentFilter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr UserContentFilter
filter
Ptr UserContentManager -> Ptr UserContentFilter -> IO ()
webkit_user_content_manager_add_filter Ptr UserContentManager
manager' Ptr UserContentFilter
filter'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
UserContentFilter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr UserContentFilter
filter
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerAddFilterMethodInfo
instance (signature ~ (WebKit2.UserContentFilter.UserContentFilter -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerAddFilterMethodInfo a signature where
overloadedMethod = userContentManagerAddFilter
instance O.OverloadedMethodInfo UserContentManagerAddFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerAddFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerAddFilter"
})
#endif
foreign import ccall "webkit_user_content_manager_add_script" webkit_user_content_manager_add_script ::
Ptr UserContentManager ->
Ptr WebKit2.UserScript.UserScript ->
IO ()
userContentManagerAddScript ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> WebKit2.UserScript.UserScript
-> m ()
userContentManagerAddScript :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> UserScript -> m ()
userContentManagerAddScript a
manager UserScript
script = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserScript
script' <- UserScript -> IO (Ptr UserScript)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr UserScript
script
Ptr UserContentManager -> Ptr UserScript -> IO ()
webkit_user_content_manager_add_script Ptr UserContentManager
manager' Ptr UserScript
script'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
UserScript -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr UserScript
script
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerAddScriptMethodInfo
instance (signature ~ (WebKit2.UserScript.UserScript -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerAddScriptMethodInfo a signature where
overloadedMethod = userContentManagerAddScript
instance O.OverloadedMethodInfo UserContentManagerAddScriptMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerAddScript",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerAddScript"
})
#endif
foreign import ccall "webkit_user_content_manager_add_style_sheet" webkit_user_content_manager_add_style_sheet ::
Ptr UserContentManager ->
Ptr WebKit2.UserStyleSheet.UserStyleSheet ->
IO ()
userContentManagerAddStyleSheet ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> WebKit2.UserStyleSheet.UserStyleSheet
-> m ()
userContentManagerAddStyleSheet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> UserStyleSheet -> m ()
userContentManagerAddStyleSheet a
manager UserStyleSheet
stylesheet = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserStyleSheet
stylesheet' <- UserStyleSheet -> IO (Ptr UserStyleSheet)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr UserStyleSheet
stylesheet
Ptr UserContentManager -> Ptr UserStyleSheet -> IO ()
webkit_user_content_manager_add_style_sheet Ptr UserContentManager
manager' Ptr UserStyleSheet
stylesheet'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
UserStyleSheet -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr UserStyleSheet
stylesheet
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerAddStyleSheetMethodInfo
instance (signature ~ (WebKit2.UserStyleSheet.UserStyleSheet -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerAddStyleSheetMethodInfo a signature where
overloadedMethod = userContentManagerAddStyleSheet
instance O.OverloadedMethodInfo UserContentManagerAddStyleSheetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerAddStyleSheet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerAddStyleSheet"
})
#endif
foreign import ccall "webkit_user_content_manager_register_script_message_handler" webkit_user_content_manager_register_script_message_handler ::
Ptr UserContentManager ->
CString ->
IO CInt
userContentManagerRegisterScriptMessageHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> T.Text
-> m Bool
userContentManagerRegisterScriptMessageHandler :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> Text -> m Bool
userContentManagerRegisterScriptMessageHandler a
manager Text
name = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
name' <- Text -> IO CString
textToCString Text
name
CInt
result <- Ptr UserContentManager -> CString -> IO CInt
webkit_user_content_manager_register_script_message_handler Ptr UserContentManager
manager' CString
name'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRegisterScriptMessageHandlerMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRegisterScriptMessageHandlerMethodInfo a signature where
overloadedMethod = userContentManagerRegisterScriptMessageHandler
instance O.OverloadedMethodInfo UserContentManagerRegisterScriptMessageHandlerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRegisterScriptMessageHandler",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRegisterScriptMessageHandler"
})
#endif
foreign import ccall "webkit_user_content_manager_register_script_message_handler_in_world" webkit_user_content_manager_register_script_message_handler_in_world ::
Ptr UserContentManager ->
CString ->
CString ->
IO CInt
userContentManagerRegisterScriptMessageHandlerInWorld ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> T.Text
-> T.Text
-> m Bool
userContentManagerRegisterScriptMessageHandlerInWorld :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> Text -> Text -> m Bool
userContentManagerRegisterScriptMessageHandlerInWorld a
manager Text
name Text
worldName = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
name' <- Text -> IO CString
textToCString Text
name
CString
worldName' <- Text -> IO CString
textToCString Text
worldName
CInt
result <- Ptr UserContentManager -> CString -> CString -> IO CInt
webkit_user_content_manager_register_script_message_handler_in_world Ptr UserContentManager
manager' CString
name' CString
worldName'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
worldName'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo a signature where
overloadedMethod = userContentManagerRegisterScriptMessageHandlerInWorld
instance O.OverloadedMethodInfo UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRegisterScriptMessageHandlerInWorld",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRegisterScriptMessageHandlerInWorld"
})
#endif
foreign import ccall "webkit_user_content_manager_remove_all_filters" webkit_user_content_manager_remove_all_filters ::
Ptr UserContentManager ->
IO ()
userContentManagerRemoveAllFilters ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> m ()
userContentManagerRemoveAllFilters :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> m ()
userContentManagerRemoveAllFilters a
manager = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserContentManager -> IO ()
webkit_user_content_manager_remove_all_filters Ptr UserContentManager
manager'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveAllFiltersMethodInfo
instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRemoveAllFiltersMethodInfo a signature where
overloadedMethod = userContentManagerRemoveAllFilters
instance O.OverloadedMethodInfo UserContentManagerRemoveAllFiltersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRemoveAllFilters",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRemoveAllFilters"
})
#endif
foreign import ccall "webkit_user_content_manager_remove_all_scripts" webkit_user_content_manager_remove_all_scripts ::
Ptr UserContentManager ->
IO ()
userContentManagerRemoveAllScripts ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> m ()
userContentManagerRemoveAllScripts :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> m ()
userContentManagerRemoveAllScripts a
manager = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserContentManager -> IO ()
webkit_user_content_manager_remove_all_scripts Ptr UserContentManager
manager'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveAllScriptsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRemoveAllScriptsMethodInfo a signature where
overloadedMethod = userContentManagerRemoveAllScripts
instance O.OverloadedMethodInfo UserContentManagerRemoveAllScriptsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRemoveAllScripts",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRemoveAllScripts"
})
#endif
foreign import ccall "webkit_user_content_manager_remove_all_style_sheets" webkit_user_content_manager_remove_all_style_sheets ::
Ptr UserContentManager ->
IO ()
userContentManagerRemoveAllStyleSheets ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> m ()
userContentManagerRemoveAllStyleSheets :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> m ()
userContentManagerRemoveAllStyleSheets a
manager = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserContentManager -> IO ()
webkit_user_content_manager_remove_all_style_sheets Ptr UserContentManager
manager'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveAllStyleSheetsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRemoveAllStyleSheetsMethodInfo a signature where
overloadedMethod = userContentManagerRemoveAllStyleSheets
instance O.OverloadedMethodInfo UserContentManagerRemoveAllStyleSheetsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRemoveAllStyleSheets",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRemoveAllStyleSheets"
})
#endif
foreign import ccall "webkit_user_content_manager_remove_filter" webkit_user_content_manager_remove_filter ::
Ptr UserContentManager ->
Ptr WebKit2.UserContentFilter.UserContentFilter ->
IO ()
userContentManagerRemoveFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> WebKit2.UserContentFilter.UserContentFilter
-> m ()
userContentManagerRemoveFilter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> UserContentFilter -> m ()
userContentManagerRemoveFilter a
manager UserContentFilter
filter = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserContentFilter
filter' <- UserContentFilter -> IO (Ptr UserContentFilter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr UserContentFilter
filter
Ptr UserContentManager -> Ptr UserContentFilter -> IO ()
webkit_user_content_manager_remove_filter Ptr UserContentManager
manager' Ptr UserContentFilter
filter'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
UserContentFilter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr UserContentFilter
filter
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveFilterMethodInfo
instance (signature ~ (WebKit2.UserContentFilter.UserContentFilter -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRemoveFilterMethodInfo a signature where
overloadedMethod = userContentManagerRemoveFilter
instance O.OverloadedMethodInfo UserContentManagerRemoveFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRemoveFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRemoveFilter"
})
#endif
foreign import ccall "webkit_user_content_manager_remove_filter_by_id" webkit_user_content_manager_remove_filter_by_id ::
Ptr UserContentManager ->
CString ->
IO ()
userContentManagerRemoveFilterById ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> T.Text
-> m ()
userContentManagerRemoveFilterById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> Text -> m ()
userContentManagerRemoveFilterById a
manager Text
filterId = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
filterId' <- Text -> IO CString
textToCString Text
filterId
Ptr UserContentManager -> CString -> IO ()
webkit_user_content_manager_remove_filter_by_id Ptr UserContentManager
manager' CString
filterId'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filterId'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveFilterByIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRemoveFilterByIdMethodInfo a signature where
overloadedMethod = userContentManagerRemoveFilterById
instance O.OverloadedMethodInfo UserContentManagerRemoveFilterByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRemoveFilterById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRemoveFilterById"
})
#endif
foreign import ccall "webkit_user_content_manager_remove_script" webkit_user_content_manager_remove_script ::
Ptr UserContentManager ->
Ptr WebKit2.UserScript.UserScript ->
IO ()
userContentManagerRemoveScript ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> WebKit2.UserScript.UserScript
-> m ()
userContentManagerRemoveScript :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> UserScript -> m ()
userContentManagerRemoveScript a
manager UserScript
script = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserScript
script' <- UserScript -> IO (Ptr UserScript)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr UserScript
script
Ptr UserContentManager -> Ptr UserScript -> IO ()
webkit_user_content_manager_remove_script Ptr UserContentManager
manager' Ptr UserScript
script'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
UserScript -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr UserScript
script
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveScriptMethodInfo
instance (signature ~ (WebKit2.UserScript.UserScript -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRemoveScriptMethodInfo a signature where
overloadedMethod = userContentManagerRemoveScript
instance O.OverloadedMethodInfo UserContentManagerRemoveScriptMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRemoveScript",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRemoveScript"
})
#endif
foreign import ccall "webkit_user_content_manager_remove_style_sheet" webkit_user_content_manager_remove_style_sheet ::
Ptr UserContentManager ->
Ptr WebKit2.UserStyleSheet.UserStyleSheet ->
IO ()
userContentManagerRemoveStyleSheet ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> WebKit2.UserStyleSheet.UserStyleSheet
-> m ()
userContentManagerRemoveStyleSheet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> UserStyleSheet -> m ()
userContentManagerRemoveStyleSheet a
manager UserStyleSheet
stylesheet = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
Ptr UserStyleSheet
stylesheet' <- UserStyleSheet -> IO (Ptr UserStyleSheet)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr UserStyleSheet
stylesheet
Ptr UserContentManager -> Ptr UserStyleSheet -> IO ()
webkit_user_content_manager_remove_style_sheet Ptr UserContentManager
manager' Ptr UserStyleSheet
stylesheet'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
UserStyleSheet -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr UserStyleSheet
stylesheet
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveStyleSheetMethodInfo
instance (signature ~ (WebKit2.UserStyleSheet.UserStyleSheet -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerRemoveStyleSheetMethodInfo a signature where
overloadedMethod = userContentManagerRemoveStyleSheet
instance O.OverloadedMethodInfo UserContentManagerRemoveStyleSheetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerRemoveStyleSheet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerRemoveStyleSheet"
})
#endif
foreign import ccall "webkit_user_content_manager_unregister_script_message_handler" webkit_user_content_manager_unregister_script_message_handler ::
Ptr UserContentManager ->
CString ->
IO ()
userContentManagerUnregisterScriptMessageHandler ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> T.Text
-> m ()
userContentManagerUnregisterScriptMessageHandler :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> Text -> m ()
userContentManagerUnregisterScriptMessageHandler a
manager Text
name = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr UserContentManager -> CString -> IO ()
webkit_user_content_manager_unregister_script_message_handler Ptr UserContentManager
manager' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerUnregisterScriptMessageHandlerMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerUnregisterScriptMessageHandlerMethodInfo a signature where
overloadedMethod = userContentManagerUnregisterScriptMessageHandler
instance O.OverloadedMethodInfo UserContentManagerUnregisterScriptMessageHandlerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerUnregisterScriptMessageHandler",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerUnregisterScriptMessageHandler"
})
#endif
foreign import ccall "webkit_user_content_manager_unregister_script_message_handler_in_world" webkit_user_content_manager_unregister_script_message_handler_in_world ::
Ptr UserContentManager ->
CString ->
CString ->
IO ()
userContentManagerUnregisterScriptMessageHandlerInWorld ::
(B.CallStack.HasCallStack, MonadIO m, IsUserContentManager a) =>
a
-> T.Text
-> T.Text
-> m ()
userContentManagerUnregisterScriptMessageHandlerInWorld :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUserContentManager a) =>
a -> Text -> Text -> m ()
userContentManagerUnregisterScriptMessageHandlerInWorld a
manager Text
name Text
worldName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr UserContentManager
manager' <- a -> IO (Ptr UserContentManager)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
manager
CString
name' <- Text -> IO CString
textToCString Text
name
CString
worldName' <- Text -> IO CString
textToCString Text
worldName
Ptr UserContentManager -> CString -> CString -> IO ()
webkit_user_content_manager_unregister_script_message_handler_in_world Ptr UserContentManager
manager' CString
name' CString
worldName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
manager
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
worldName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsUserContentManager a) => O.OverloadedMethod UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo a signature where
overloadedMethod = userContentManagerUnregisterScriptMessageHandlerInWorld
instance O.OverloadedMethodInfo UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.UserContentManager.userContentManagerUnregisterScriptMessageHandlerInWorld",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-UserContentManager.html#v:userContentManagerUnregisterScriptMessageHandlerInWorld"
})
#endif