module GI.WebKit2WebExtension.Objects.WebExtension
(
WebExtension(..) ,
WebExtensionK ,
toWebExtension ,
noWebExtension ,
webExtensionGetPage ,
WebExtensionPageCreatedCallback ,
WebExtensionPageCreatedCallbackC ,
WebExtensionPageCreatedSignalInfo ,
afterWebExtensionPageCreated ,
mkWebExtensionPageCreatedCallback ,
noWebExtensionPageCreatedCallback ,
onWebExtensionPageCreated ,
webExtensionPageCreatedCallbackWrapper ,
webExtensionPageCreatedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit2WebExtension.Types
import GI.WebKit2WebExtension.Callbacks
import qualified GI.GObject as GObject
newtype WebExtension = WebExtension (ForeignPtr WebExtension)
foreign import ccall "webkit_web_extension_get_type"
c_webkit_web_extension_get_type :: IO GType
type instance ParentTypes WebExtension = WebExtensionParentTypes
type WebExtensionParentTypes = '[GObject.Object]
instance GObject WebExtension where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_extension_get_type
class GObject o => WebExtensionK o
instance (GObject o, IsDescendantOf WebExtension o) => WebExtensionK o
toWebExtension :: WebExtensionK o => o -> IO WebExtension
toWebExtension = unsafeCastTo WebExtension
noWebExtension :: Maybe WebExtension
noWebExtension = Nothing
type WebExtensionPageCreatedCallback =
WebPage ->
IO ()
noWebExtensionPageCreatedCallback :: Maybe WebExtensionPageCreatedCallback
noWebExtensionPageCreatedCallback = Nothing
type WebExtensionPageCreatedCallbackC =
Ptr () ->
Ptr WebPage ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebExtensionPageCreatedCallback :: WebExtensionPageCreatedCallbackC -> IO (FunPtr WebExtensionPageCreatedCallbackC)
webExtensionPageCreatedClosure :: WebExtensionPageCreatedCallback -> IO Closure
webExtensionPageCreatedClosure cb = newCClosure =<< mkWebExtensionPageCreatedCallback wrapped
where wrapped = webExtensionPageCreatedCallbackWrapper cb
webExtensionPageCreatedCallbackWrapper ::
WebExtensionPageCreatedCallback ->
Ptr () ->
Ptr WebPage ->
Ptr () ->
IO ()
webExtensionPageCreatedCallbackWrapper _cb _ web_page _ = do
web_page' <- (newObject WebPage) web_page
_cb web_page'
onWebExtensionPageCreated :: (GObject a, MonadIO m) => a -> WebExtensionPageCreatedCallback -> m SignalHandlerId
onWebExtensionPageCreated obj cb = liftIO $ connectWebExtensionPageCreated obj cb SignalConnectBefore
afterWebExtensionPageCreated :: (GObject a, MonadIO m) => a -> WebExtensionPageCreatedCallback -> m SignalHandlerId
afterWebExtensionPageCreated obj cb = connectWebExtensionPageCreated obj cb SignalConnectAfter
connectWebExtensionPageCreated :: (GObject a, MonadIO m) =>
a -> WebExtensionPageCreatedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebExtensionPageCreated obj cb after = liftIO $ do
cb' <- mkWebExtensionPageCreatedCallback (webExtensionPageCreatedCallbackWrapper cb)
connectSignalFunPtr obj "page-created" cb' after
type instance AttributeList WebExtension = WebExtensionAttributeList
type WebExtensionAttributeList = ('[ ] :: [(Symbol, *)])
data WebExtensionPageCreatedSignalInfo
instance SignalInfo WebExtensionPageCreatedSignalInfo where
type HaskellCallbackType WebExtensionPageCreatedSignalInfo = WebExtensionPageCreatedCallback
connectSignal _ = connectWebExtensionPageCreated
type instance SignalList WebExtension = WebExtensionSignalList
type WebExtensionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("page-created", WebExtensionPageCreatedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_web_extension_get_page" webkit_web_extension_get_page ::
Ptr WebExtension ->
Word64 ->
IO (Ptr WebPage)
webExtensionGetPage ::
(MonadIO m, WebExtensionK a) =>
a ->
Word64 ->
m WebPage
webExtensionGetPage _obj page_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_extension_get_page _obj' page_id
checkUnexpectedReturnNULL "webkit_web_extension_get_page" result
result' <- (newObject WebPage) result
touchManagedPtr _obj
return result'