{-# LANGUAGE 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 ,
noUserContentManager ,
#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)
UserContentManagerUnregisterScriptMessageHandlerMethodInfo,
#endif
userContentManagerUnregisterScriptMessageHandler,
#if defined(ENABLE_OVERLOADING)
UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo,
#endif
userContentManagerUnregisterScriptMessageHandlerInWorld,
C_UserContentManagerScriptMessageReceivedCallback,
UserContentManagerScriptMessageReceivedCallback,
#if defined(ENABLE_OVERLOADING)
UserContentManagerScriptMessageReceivedSignalInfo,
#endif
afterUserContentManagerScriptMessageReceived,
genClosure_UserContentManagerScriptMessageReceived,
mk_UserContentManagerScriptMessageReceivedCallback,
noUserContentManagerScriptMessageReceivedCallback,
onUserContentManagerScriptMessageReceived,
wrap_UserContentManagerScriptMessageReceivedCallback,
) 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.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 (ManagedPtr UserContentManager)
deriving (UserContentManager -> UserContentManager -> Bool
(UserContentManager -> UserContentManager -> Bool)
-> (UserContentManager -> UserContentManager -> Bool)
-> Eq UserContentManager
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UserContentManager -> UserContentManager -> Bool
$c/= :: UserContentManager -> UserContentManager -> Bool
== :: UserContentManager -> UserContentManager -> Bool
$c== :: UserContentManager -> UserContentManager -> Bool
Eq)
foreign import ccall "webkit_user_content_manager_get_type"
c_webkit_user_content_manager_get_type :: IO GType
instance GObject UserContentManager where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_user_content_manager_get_type
instance B.GValue.IsGValue UserContentManager where
toGValue :: UserContentManager -> IO GValue
toGValue o :: UserContentManager
o = do
GType
gtype <- IO GType
c_webkit_user_content_manager_get_type
UserContentManager
-> (Ptr UserContentManager -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr UserContentManager
o (GType
-> (GValue -> Ptr UserContentManager -> IO ())
-> Ptr UserContentManager
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr UserContentManager -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO UserContentManager
fromGValue gv :: GValue
gv = do
Ptr UserContentManager
ptr <- GValue -> IO (Ptr UserContentManager)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr UserContentManager)
(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
class (GObject o, O.IsDescendantOf UserContentManager o) => IsUserContentManager o
instance (GObject o, O.IsDescendantOf UserContentManager o) => IsUserContentManager o
instance O.HasParentTypes UserContentManager
type instance O.ParentTypes UserContentManager = '[GObject.Object.Object]
toUserContentManager :: (MonadIO m, IsUserContentManager o) => o -> m UserContentManager
toUserContentManager :: o -> m UserContentManager
toUserContentManager = IO UserContentManager -> m UserContentManager
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr UserContentManager -> UserContentManager
UserContentManager
noUserContentManager :: Maybe UserContentManager
noUserContentManager :: Maybe UserContentManager
noUserContentManager = Maybe UserContentManager
forall a. Maybe a
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 "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.MethodInfo 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
#endif
type UserContentManagerScriptMessageReceivedCallback =
WebKit2.JavascriptResult.JavascriptResult
-> IO ()
noUserContentManagerScriptMessageReceivedCallback :: Maybe UserContentManagerScriptMessageReceivedCallback
noUserContentManagerScriptMessageReceivedCallback :: Maybe UserContentManagerScriptMessageReceivedCallback
noUserContentManagerScriptMessageReceivedCallback = Maybe UserContentManagerScriptMessageReceivedCallback
forall a. Maybe a
Nothing
type C_UserContentManagerScriptMessageReceivedCallback =
Ptr () ->
Ptr WebKit2.JavascriptResult.JavascriptResult ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_UserContentManagerScriptMessageReceivedCallback :: C_UserContentManagerScriptMessageReceivedCallback -> IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)
genClosure_UserContentManagerScriptMessageReceived :: MonadIO m => UserContentManagerScriptMessageReceivedCallback -> m (GClosure C_UserContentManagerScriptMessageReceivedCallback)
genClosure_UserContentManagerScriptMessageReceived :: UserContentManagerScriptMessageReceivedCallback
-> m (GClosure C_UserContentManagerScriptMessageReceivedCallback)
genClosure_UserContentManagerScriptMessageReceived cb :: UserContentManagerScriptMessageReceivedCallback
cb = IO (GClosure C_UserContentManagerScriptMessageReceivedCallback)
-> m (GClosure C_UserContentManagerScriptMessageReceivedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_UserContentManagerScriptMessageReceivedCallback)
-> m (GClosure C_UserContentManagerScriptMessageReceivedCallback))
-> IO (GClosure C_UserContentManagerScriptMessageReceivedCallback)
-> m (GClosure C_UserContentManagerScriptMessageReceivedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_UserContentManagerScriptMessageReceivedCallback
cb' = UserContentManagerScriptMessageReceivedCallback
-> C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback UserContentManagerScriptMessageReceivedCallback
cb
C_UserContentManagerScriptMessageReceivedCallback
-> IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)
mk_UserContentManagerScriptMessageReceivedCallback C_UserContentManagerScriptMessageReceivedCallback
cb' IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)
-> (FunPtr C_UserContentManagerScriptMessageReceivedCallback
-> IO (GClosure C_UserContentManagerScriptMessageReceivedCallback))
-> IO (GClosure C_UserContentManagerScriptMessageReceivedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_UserContentManagerScriptMessageReceivedCallback
-> IO (GClosure C_UserContentManagerScriptMessageReceivedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_UserContentManagerScriptMessageReceivedCallback ::
UserContentManagerScriptMessageReceivedCallback ->
C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback :: UserContentManagerScriptMessageReceivedCallback
-> C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback _cb :: UserContentManagerScriptMessageReceivedCallback
_cb _ jsResult :: Ptr JavascriptResult
jsResult _ = do
(ManagedPtr JavascriptResult -> JavascriptResult)
-> Ptr JavascriptResult
-> UserContentManagerScriptMessageReceivedCallback
-> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr JavascriptResult -> JavascriptResult
WebKit2.JavascriptResult.JavascriptResult Ptr JavascriptResult
jsResult (UserContentManagerScriptMessageReceivedCallback -> IO ())
-> UserContentManagerScriptMessageReceivedCallback -> IO ()
forall a b. (a -> b) -> a -> b
$ \jsResult' :: JavascriptResult
jsResult' -> do
UserContentManagerScriptMessageReceivedCallback
_cb JavascriptResult
jsResult'
onUserContentManagerScriptMessageReceived :: (IsUserContentManager a, MonadIO m) => a -> P.Maybe T.Text -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId
onUserContentManagerScriptMessageReceived :: a
-> Maybe Text
-> UserContentManagerScriptMessageReceivedCallback
-> m SignalHandlerId
onUserContentManagerScriptMessageReceived obj :: a
obj detail :: Maybe Text
detail cb :: UserContentManagerScriptMessageReceivedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_UserContentManagerScriptMessageReceivedCallback
cb' = UserContentManagerScriptMessageReceivedCallback
-> C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback UserContentManagerScriptMessageReceivedCallback
cb
FunPtr C_UserContentManagerScriptMessageReceivedCallback
cb'' <- C_UserContentManagerScriptMessageReceivedCallback
-> IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)
mk_UserContentManagerScriptMessageReceivedCallback C_UserContentManagerScriptMessageReceivedCallback
cb'
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 "script-message-received" FunPtr C_UserContentManagerScriptMessageReceivedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
detail
afterUserContentManagerScriptMessageReceived :: (IsUserContentManager a, MonadIO m) => a -> P.Maybe T.Text -> UserContentManagerScriptMessageReceivedCallback -> m SignalHandlerId
afterUserContentManagerScriptMessageReceived :: a
-> Maybe Text
-> UserContentManagerScriptMessageReceivedCallback
-> m SignalHandlerId
afterUserContentManagerScriptMessageReceived obj :: a
obj detail :: Maybe Text
detail cb :: UserContentManagerScriptMessageReceivedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
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 cb' :: C_UserContentManagerScriptMessageReceivedCallback
cb' = UserContentManagerScriptMessageReceivedCallback
-> C_UserContentManagerScriptMessageReceivedCallback
wrap_UserContentManagerScriptMessageReceivedCallback UserContentManagerScriptMessageReceivedCallback
cb
FunPtr C_UserContentManagerScriptMessageReceivedCallback
cb'' <- C_UserContentManagerScriptMessageReceivedCallback
-> IO (FunPtr C_UserContentManagerScriptMessageReceivedCallback)
mk_UserContentManagerScriptMessageReceivedCallback C_UserContentManagerScriptMessageReceivedCallback
cb'
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 "script-message-received" FunPtr C_UserContentManagerScriptMessageReceivedCallback
cb'' 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
#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 :: m UserContentManager
userContentManagerNew = IO UserContentManager -> m UserContentManager
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 "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 (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 :: a -> UserContentFilter -> m ()
userContentManagerAddFilter manager :: a
manager filter :: UserContentFilter
filter = IO () -> m ()
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 (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.MethodInfo UserContentManagerAddFilterMethodInfo a signature where
overloadedMethod = 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 :: a -> UserScript -> m ()
userContentManagerAddScript manager :: a
manager script :: UserScript
script = IO () -> m ()
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 (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.MethodInfo UserContentManagerAddScriptMethodInfo a signature where
overloadedMethod = 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 :: a -> UserStyleSheet -> m ()
userContentManagerAddStyleSheet manager :: a
manager stylesheet :: UserStyleSheet
stylesheet = IO () -> m ()
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 (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.MethodInfo UserContentManagerAddStyleSheetMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m Bool
userContentManagerRegisterScriptMessageHandler manager :: a
manager name :: Text
name = IO Bool -> m Bool
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
/= 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 (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.MethodInfo UserContentManagerRegisterScriptMessageHandlerMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> Text -> m Bool
userContentManagerRegisterScriptMessageHandlerInWorld manager :: a
manager name :: Text
name worldName :: Text
worldName = IO Bool -> m Bool
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
/= 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 (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.MethodInfo UserContentManagerRegisterScriptMessageHandlerInWorldMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
userContentManagerRemoveAllFilters manager :: a
manager = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveAllFiltersMethodInfo
instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRemoveAllFiltersMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
userContentManagerRemoveAllScripts manager :: a
manager = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveAllScriptsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRemoveAllScriptsMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
userContentManagerRemoveAllStyleSheets manager :: a
manager = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerRemoveAllStyleSheetsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerRemoveAllStyleSheetsMethodInfo a signature where
overloadedMethod = 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 :: a -> UserContentFilter -> m ()
userContentManagerRemoveFilter manager :: a
manager filter :: UserContentFilter
filter = IO () -> m ()
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 (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.MethodInfo UserContentManagerRemoveFilterMethodInfo a signature where
overloadedMethod = userContentManagerRemoveFilter
#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 :: a -> Text -> m ()
userContentManagerUnregisterScriptMessageHandler manager :: a
manager name :: Text
name = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UserContentManagerUnregisterScriptMessageHandlerMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsUserContentManager a) => O.MethodInfo UserContentManagerUnregisterScriptMessageHandlerMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> Text -> m ()
userContentManagerUnregisterScriptMessageHandlerInWorld manager :: a
manager name :: Text
name worldName :: Text
worldName = IO () -> m ()
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 (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.MethodInfo UserContentManagerUnregisterScriptMessageHandlerInWorldMethodInfo a signature where
overloadedMethod = userContentManagerUnregisterScriptMessageHandlerInWorld
#endif