#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.WebExtension
(
WebExtension(..) ,
IsWebExtension ,
toWebExtension ,
noWebExtension ,
#if ENABLE_OVERLOADING
WebExtensionGetPageMethodInfo ,
#endif
webExtensionGetPage ,
C_WebExtensionPageCreatedCallback ,
WebExtensionPageCreatedCallback ,
#if ENABLE_OVERLOADING
WebExtensionPageCreatedSignalInfo ,
#endif
afterWebExtensionPageCreated ,
genClosure_WebExtensionPageCreated ,
mk_WebExtensionPageCreatedCallback ,
noWebExtensionPageCreatedCallback ,
onWebExtensionPageCreated ,
wrap_WebExtensionPageCreatedCallback ,
) 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.WebPage as WebKit2WebExtension.WebPage
newtype WebExtension = WebExtension (ManagedPtr WebExtension)
foreign import ccall "webkit_web_extension_get_type"
c_webkit_web_extension_get_type :: IO GType
instance GObject WebExtension where
gobjectType = c_webkit_web_extension_get_type
class (GObject o, O.IsDescendantOf WebExtension o) => IsWebExtension o
instance (GObject o, O.IsDescendantOf WebExtension o) => IsWebExtension o
instance O.HasParentTypes WebExtension
type instance O.ParentTypes WebExtension = '[GObject.Object.Object]
toWebExtension :: (MonadIO m, IsWebExtension o) => o -> m WebExtension
toWebExtension = liftIO . unsafeCastTo WebExtension
noWebExtension :: Maybe WebExtension
noWebExtension = Nothing
#if ENABLE_OVERLOADING
type family ResolveWebExtensionMethod (t :: Symbol) (o :: *) :: * where
ResolveWebExtensionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWebExtensionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWebExtensionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWebExtensionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWebExtensionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWebExtensionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWebExtensionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWebExtensionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWebExtensionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWebExtensionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWebExtensionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWebExtensionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWebExtensionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWebExtensionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWebExtensionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWebExtensionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWebExtensionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWebExtensionMethod "getPage" o = WebExtensionGetPageMethodInfo
ResolveWebExtensionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWebExtensionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWebExtensionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWebExtensionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWebExtensionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWebExtensionMethod t WebExtension, O.MethodInfo info WebExtension p) => OL.IsLabel t (WebExtension -> 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 WebExtensionPageCreatedCallback =
WebKit2WebExtension.WebPage.WebPage
-> IO ()
noWebExtensionPageCreatedCallback :: Maybe WebExtensionPageCreatedCallback
noWebExtensionPageCreatedCallback = Nothing
type C_WebExtensionPageCreatedCallback =
Ptr () ->
Ptr WebKit2WebExtension.WebPage.WebPage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_WebExtensionPageCreatedCallback :: C_WebExtensionPageCreatedCallback -> IO (FunPtr C_WebExtensionPageCreatedCallback)
genClosure_WebExtensionPageCreated :: MonadIO m => WebExtensionPageCreatedCallback -> m (GClosure C_WebExtensionPageCreatedCallback)
genClosure_WebExtensionPageCreated cb = liftIO $ do
let cb' = wrap_WebExtensionPageCreatedCallback cb
mk_WebExtensionPageCreatedCallback cb' >>= B.GClosure.newGClosure
wrap_WebExtensionPageCreatedCallback ::
WebExtensionPageCreatedCallback ->
C_WebExtensionPageCreatedCallback
wrap_WebExtensionPageCreatedCallback _cb _ webPage _ = do
webPage' <- (newObject WebKit2WebExtension.WebPage.WebPage) webPage
_cb webPage'
onWebExtensionPageCreated :: (IsWebExtension a, MonadIO m) => a -> WebExtensionPageCreatedCallback -> m SignalHandlerId
onWebExtensionPageCreated obj cb = liftIO $ do
let cb' = wrap_WebExtensionPageCreatedCallback cb
cb'' <- mk_WebExtensionPageCreatedCallback cb'
connectSignalFunPtr obj "page-created" cb'' SignalConnectBefore
afterWebExtensionPageCreated :: (IsWebExtension a, MonadIO m) => a -> WebExtensionPageCreatedCallback -> m SignalHandlerId
afterWebExtensionPageCreated obj cb = liftIO $ do
let cb' = wrap_WebExtensionPageCreatedCallback cb
cb'' <- mk_WebExtensionPageCreatedCallback cb'
connectSignalFunPtr obj "page-created" cb'' SignalConnectAfter
#if ENABLE_OVERLOADING
instance O.HasAttributeList WebExtension
type instance O.AttributeList WebExtension = WebExtensionAttributeList
type WebExtensionAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
data WebExtensionPageCreatedSignalInfo
instance SignalInfo WebExtensionPageCreatedSignalInfo where
type HaskellCallbackType WebExtensionPageCreatedSignalInfo = WebExtensionPageCreatedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_WebExtensionPageCreatedCallback cb
cb'' <- mk_WebExtensionPageCreatedCallback cb'
connectSignalFunPtr obj "page-created" cb'' connectMode
type instance O.SignalList WebExtension = WebExtensionSignalList
type WebExtensionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("pageCreated", WebExtensionPageCreatedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_web_extension_get_page" webkit_web_extension_get_page ::
Ptr WebExtension ->
Word64 ->
IO (Ptr WebKit2WebExtension.WebPage.WebPage)
webExtensionGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsWebExtension a) =>
a
-> Word64
-> m (Maybe WebKit2WebExtension.WebPage.WebPage)
webExtensionGetPage extension pageId = liftIO $ do
extension' <- unsafeManagedPtrCastPtr extension
result <- webkit_web_extension_get_page extension' pageId
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject WebKit2WebExtension.WebPage.WebPage) result'
return result''
touchManagedPtr extension
return maybeResult
#if ENABLE_OVERLOADING
data WebExtensionGetPageMethodInfo
instance (signature ~ (Word64 -> m (Maybe WebKit2WebExtension.WebPage.WebPage)), MonadIO m, IsWebExtension a) => O.MethodInfo WebExtensionGetPageMethodInfo a signature where
overloadedMethod _ = webExtensionGetPage
#endif