#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.ScriptWorld
(
ScriptWorld(..) ,
IsScriptWorld ,
toScriptWorld ,
noScriptWorld ,
scriptWorldGetDefault ,
#if ENABLE_OVERLOADING
ScriptWorldGetNameMethodInfo ,
#endif
scriptWorldGetName ,
scriptWorldNew ,
scriptWorldNewWithName ,
C_ScriptWorldWindowObjectClearedCallback,
ScriptWorldWindowObjectClearedCallback ,
#if ENABLE_OVERLOADING
ScriptWorldWindowObjectClearedSignalInfo,
#endif
afterScriptWorldWindowObjectCleared ,
genClosure_ScriptWorldWindowObjectCleared,
mk_ScriptWorldWindowObjectClearedCallback,
noScriptWorldWindowObjectClearedCallback,
onScriptWorldWindowObjectCleared ,
wrap_ScriptWorldWindowObjectClearedCallback,
) 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.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.WebKit2WebExtension.Objects.Frame as WebKit2WebExtension.Frame
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.WebPage as WebKit2WebExtension.WebPage
newtype ScriptWorld = ScriptWorld (ManagedPtr ScriptWorld)
foreign import ccall "webkit_script_world_get_type"
c_webkit_script_world_get_type :: IO GType
instance GObject ScriptWorld where
gobjectType = c_webkit_script_world_get_type
class (GObject o, O.IsDescendantOf ScriptWorld o) => IsScriptWorld o
instance (GObject o, O.IsDescendantOf ScriptWorld o) => IsScriptWorld o
instance O.HasParentTypes ScriptWorld
type instance O.ParentTypes ScriptWorld = '[GObject.Object.Object]
toScriptWorld :: (MonadIO m, IsScriptWorld o) => o -> m ScriptWorld
toScriptWorld = liftIO . unsafeCastTo ScriptWorld
noScriptWorld :: Maybe ScriptWorld
noScriptWorld = Nothing
#if ENABLE_OVERLOADING
type family ResolveScriptWorldMethod (t :: Symbol) (o :: *) :: * where
ResolveScriptWorldMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveScriptWorldMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveScriptWorldMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveScriptWorldMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveScriptWorldMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveScriptWorldMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveScriptWorldMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveScriptWorldMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveScriptWorldMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveScriptWorldMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveScriptWorldMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveScriptWorldMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveScriptWorldMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveScriptWorldMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveScriptWorldMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveScriptWorldMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveScriptWorldMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveScriptWorldMethod "getName" o = ScriptWorldGetNameMethodInfo
ResolveScriptWorldMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveScriptWorldMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveScriptWorldMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveScriptWorldMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveScriptWorldMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveScriptWorldMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveScriptWorldMethod t ScriptWorld, O.MethodInfo info ScriptWorld p) => OL.IsLabel t (ScriptWorld -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type ScriptWorldWindowObjectClearedCallback =
WebKit2WebExtension.WebPage.WebPage
-> WebKit2WebExtension.Frame.Frame
-> IO ()
noScriptWorldWindowObjectClearedCallback :: Maybe ScriptWorldWindowObjectClearedCallback
noScriptWorldWindowObjectClearedCallback = Nothing
type C_ScriptWorldWindowObjectClearedCallback =
Ptr () ->
Ptr WebKit2WebExtension.WebPage.WebPage ->
Ptr WebKit2WebExtension.Frame.Frame ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ScriptWorldWindowObjectClearedCallback :: C_ScriptWorldWindowObjectClearedCallback -> IO (FunPtr C_ScriptWorldWindowObjectClearedCallback)
genClosure_ScriptWorldWindowObjectCleared :: MonadIO m => ScriptWorldWindowObjectClearedCallback -> m (GClosure C_ScriptWorldWindowObjectClearedCallback)
genClosure_ScriptWorldWindowObjectCleared cb = liftIO $ do
let cb' = wrap_ScriptWorldWindowObjectClearedCallback cb
mk_ScriptWorldWindowObjectClearedCallback cb' >>= B.GClosure.newGClosure
wrap_ScriptWorldWindowObjectClearedCallback ::
ScriptWorldWindowObjectClearedCallback ->
C_ScriptWorldWindowObjectClearedCallback
wrap_ScriptWorldWindowObjectClearedCallback _cb _ page frame _ = do
page' <- (newObject WebKit2WebExtension.WebPage.WebPage) page
frame' <- (newObject WebKit2WebExtension.Frame.Frame) frame
_cb page' frame'
onScriptWorldWindowObjectCleared :: (IsScriptWorld a, MonadIO m) => a -> ScriptWorldWindowObjectClearedCallback -> m SignalHandlerId
onScriptWorldWindowObjectCleared obj cb = liftIO $ do
let cb' = wrap_ScriptWorldWindowObjectClearedCallback cb
cb'' <- mk_ScriptWorldWindowObjectClearedCallback cb'
connectSignalFunPtr obj "window-object-cleared" cb'' SignalConnectBefore
afterScriptWorldWindowObjectCleared :: (IsScriptWorld a, MonadIO m) => a -> ScriptWorldWindowObjectClearedCallback -> m SignalHandlerId
afterScriptWorldWindowObjectCleared obj cb = liftIO $ do
let cb' = wrap_ScriptWorldWindowObjectClearedCallback cb
cb'' <- mk_ScriptWorldWindowObjectClearedCallback cb'
connectSignalFunPtr obj "window-object-cleared" cb'' SignalConnectAfter
#if ENABLE_OVERLOADING
instance O.HasAttributeList ScriptWorld
type instance O.AttributeList ScriptWorld = ScriptWorldAttributeList
type ScriptWorldAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
data ScriptWorldWindowObjectClearedSignalInfo
instance SignalInfo ScriptWorldWindowObjectClearedSignalInfo where
type HaskellCallbackType ScriptWorldWindowObjectClearedSignalInfo = ScriptWorldWindowObjectClearedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_ScriptWorldWindowObjectClearedCallback cb
cb'' <- mk_ScriptWorldWindowObjectClearedCallback cb'
connectSignalFunPtr obj "window-object-cleared" cb'' connectMode
type instance O.SignalList ScriptWorld = ScriptWorldSignalList
type ScriptWorldSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("windowObjectCleared", ScriptWorldWindowObjectClearedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_script_world_new" webkit_script_world_new ::
IO (Ptr ScriptWorld)
scriptWorldNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ScriptWorld
scriptWorldNew = liftIO $ do
result <- webkit_script_world_new
checkUnexpectedReturnNULL "scriptWorldNew" result
result' <- (wrapObject ScriptWorld) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_script_world_new_with_name" webkit_script_world_new_with_name ::
CString ->
IO (Ptr ScriptWorld)
scriptWorldNewWithName ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m ScriptWorld
scriptWorldNewWithName name = liftIO $ do
name' <- textToCString name
result <- webkit_script_world_new_with_name name'
checkUnexpectedReturnNULL "scriptWorldNewWithName" result
result' <- (wrapObject ScriptWorld) result
freeMem name'
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "webkit_script_world_get_name" webkit_script_world_get_name ::
Ptr ScriptWorld ->
IO CString
scriptWorldGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsScriptWorld a) =>
a
-> m T.Text
scriptWorldGetName world = liftIO $ do
world' <- unsafeManagedPtrCastPtr world
result <- webkit_script_world_get_name world'
checkUnexpectedReturnNULL "scriptWorldGetName" result
result' <- cstringToText result
touchManagedPtr world
return result'
#if ENABLE_OVERLOADING
data ScriptWorldGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsScriptWorld a) => O.MethodInfo ScriptWorldGetNameMethodInfo a signature where
overloadedMethod _ = scriptWorldGetName
#endif
foreign import ccall "webkit_script_world_get_default" webkit_script_world_get_default ::
IO (Ptr ScriptWorld)
scriptWorldGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ScriptWorld
scriptWorldGetDefault = liftIO $ do
result <- webkit_script_world_get_default
checkUnexpectedReturnNULL "scriptWorldGetDefault" result
result' <- (newObject ScriptWorld) result
return result'
#if ENABLE_OVERLOADING
#endif