module GI.WebKit.Objects.WebFrame
(
WebFrame(..) ,
WebFrameK ,
toWebFrame ,
noWebFrame ,
webFrameFindFrame ,
webFrameGetDataSource ,
webFrameGetDomDocument ,
webFrameGetGlobalContext ,
webFrameGetHorizontalScrollbarPolicy ,
webFrameGetLoadStatus ,
webFrameGetName ,
webFrameGetNetworkResponse ,
webFrameGetParent ,
webFrameGetProvisionalDataSource ,
webFrameGetRangeForWordAroundCaret ,
webFrameGetSecurityOrigin ,
webFrameGetTitle ,
webFrameGetUri ,
webFrameGetVerticalScrollbarPolicy ,
webFrameGetWebView ,
webFrameLoadAlternateString ,
webFrameLoadRequest ,
webFrameLoadString ,
webFrameLoadUri ,
webFrameNew ,
webFramePrint ,
webFramePrintFull ,
webFrameReload ,
webFrameReplaceSelection ,
webFrameStopLoading ,
WebFrameHorizontalScrollbarPolicyPropertyInfo,
getWebFrameHorizontalScrollbarPolicy ,
WebFrameLoadStatusPropertyInfo ,
getWebFrameLoadStatus ,
WebFrameNamePropertyInfo ,
getWebFrameName ,
WebFrameTitlePropertyInfo ,
getWebFrameTitle ,
WebFrameUriPropertyInfo ,
getWebFrameUri ,
WebFrameVerticalScrollbarPolicyPropertyInfo,
getWebFrameVerticalScrollbarPolicy ,
WebFrameClearedCallback ,
WebFrameClearedCallbackC ,
WebFrameClearedSignalInfo ,
afterWebFrameCleared ,
mkWebFrameClearedCallback ,
noWebFrameClearedCallback ,
onWebFrameCleared ,
webFrameClearedCallbackWrapper ,
webFrameClearedClosure ,
WebFrameHoveringOverLinkCallback ,
WebFrameHoveringOverLinkCallbackC ,
WebFrameHoveringOverLinkSignalInfo ,
afterWebFrameHoveringOverLink ,
mkWebFrameHoveringOverLinkCallback ,
noWebFrameHoveringOverLinkCallback ,
onWebFrameHoveringOverLink ,
webFrameHoveringOverLinkCallbackWrapper ,
webFrameHoveringOverLinkClosure ,
WebFrameInsecureContentRunCallback ,
WebFrameInsecureContentRunCallbackC ,
WebFrameInsecureContentRunSignalInfo ,
afterWebFrameInsecureContentRun ,
mkWebFrameInsecureContentRunCallback ,
noWebFrameInsecureContentRunCallback ,
onWebFrameInsecureContentRun ,
webFrameInsecureContentRunCallbackWrapper,
webFrameInsecureContentRunClosure ,
WebFrameLoadCommittedCallback ,
WebFrameLoadCommittedCallbackC ,
WebFrameLoadCommittedSignalInfo ,
afterWebFrameLoadCommitted ,
mkWebFrameLoadCommittedCallback ,
noWebFrameLoadCommittedCallback ,
onWebFrameLoadCommitted ,
webFrameLoadCommittedCallbackWrapper ,
webFrameLoadCommittedClosure ,
WebFrameResourceContentLengthReceivedCallback,
WebFrameResourceContentLengthReceivedCallbackC,
WebFrameResourceContentLengthReceivedSignalInfo,
afterWebFrameResourceContentLengthReceived,
mkWebFrameResourceContentLengthReceivedCallback,
noWebFrameResourceContentLengthReceivedCallback,
onWebFrameResourceContentLengthReceived ,
webFrameResourceContentLengthReceivedCallbackWrapper,
webFrameResourceContentLengthReceivedClosure,
WebFrameResourceLoadFailedCallback ,
WebFrameResourceLoadFailedCallbackC ,
WebFrameResourceLoadFailedSignalInfo ,
afterWebFrameResourceLoadFailed ,
mkWebFrameResourceLoadFailedCallback ,
noWebFrameResourceLoadFailedCallback ,
onWebFrameResourceLoadFailed ,
webFrameResourceLoadFailedCallbackWrapper,
webFrameResourceLoadFailedClosure ,
WebFrameResourceLoadFinishedCallback ,
WebFrameResourceLoadFinishedCallbackC ,
WebFrameResourceLoadFinishedSignalInfo ,
afterWebFrameResourceLoadFinished ,
mkWebFrameResourceLoadFinishedCallback ,
noWebFrameResourceLoadFinishedCallback ,
onWebFrameResourceLoadFinished ,
webFrameResourceLoadFinishedCallbackWrapper,
webFrameResourceLoadFinishedClosure ,
WebFrameResourceRequestStartingCallback ,
WebFrameResourceRequestStartingCallbackC,
WebFrameResourceRequestStartingSignalInfo,
afterWebFrameResourceRequestStarting ,
mkWebFrameResourceRequestStartingCallback,
noWebFrameResourceRequestStartingCallback,
onWebFrameResourceRequestStarting ,
webFrameResourceRequestStartingCallbackWrapper,
webFrameResourceRequestStartingClosure ,
WebFrameResourceResponseReceivedCallback,
WebFrameResourceResponseReceivedCallbackC,
WebFrameResourceResponseReceivedSignalInfo,
afterWebFrameResourceResponseReceived ,
mkWebFrameResourceResponseReceivedCallback,
noWebFrameResourceResponseReceivedCallback,
onWebFrameResourceResponseReceived ,
webFrameResourceResponseReceivedCallbackWrapper,
webFrameResourceResponseReceivedClosure ,
WebFrameScrollbarsPolicyChangedCallback ,
WebFrameScrollbarsPolicyChangedCallbackC,
WebFrameScrollbarsPolicyChangedSignalInfo,
afterWebFrameScrollbarsPolicyChanged ,
mkWebFrameScrollbarsPolicyChangedCallback,
noWebFrameScrollbarsPolicyChangedCallback,
onWebFrameScrollbarsPolicyChanged ,
webFrameScrollbarsPolicyChangedCallbackWrapper,
webFrameScrollbarsPolicyChangedClosure ,
WebFrameTitleChangedCallback ,
WebFrameTitleChangedCallbackC ,
WebFrameTitleChangedSignalInfo ,
afterWebFrameTitleChanged ,
mkWebFrameTitleChangedCallback ,
noWebFrameTitleChangedCallback ,
onWebFrameTitleChanged ,
webFrameTitleChangedCallbackWrapper ,
webFrameTitleChangedClosure ,
) 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.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
import qualified GI.Gtk as Gtk
import qualified GI.JavaScriptCore as JavaScriptCore
newtype WebFrame = WebFrame (ForeignPtr WebFrame)
foreign import ccall "webkit_web_frame_get_type"
c_webkit_web_frame_get_type :: IO GType
type instance ParentTypes WebFrame = WebFrameParentTypes
type WebFrameParentTypes = '[GObject.Object]
instance GObject WebFrame where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_frame_get_type
class GObject o => WebFrameK o
instance (GObject o, IsDescendantOf WebFrame o) => WebFrameK o
toWebFrame :: WebFrameK o => o -> IO WebFrame
toWebFrame = unsafeCastTo WebFrame
noWebFrame :: Maybe WebFrame
noWebFrame = Nothing
type WebFrameClearedCallback =
IO ()
noWebFrameClearedCallback :: Maybe WebFrameClearedCallback
noWebFrameClearedCallback = Nothing
type WebFrameClearedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameClearedCallback :: WebFrameClearedCallbackC -> IO (FunPtr WebFrameClearedCallbackC)
webFrameClearedClosure :: WebFrameClearedCallback -> IO Closure
webFrameClearedClosure cb = newCClosure =<< mkWebFrameClearedCallback wrapped
where wrapped = webFrameClearedCallbackWrapper cb
webFrameClearedCallbackWrapper ::
WebFrameClearedCallback ->
Ptr () ->
Ptr () ->
IO ()
webFrameClearedCallbackWrapper _cb _ _ = do
_cb
onWebFrameCleared :: (GObject a, MonadIO m) => a -> WebFrameClearedCallback -> m SignalHandlerId
onWebFrameCleared obj cb = liftIO $ connectWebFrameCleared obj cb SignalConnectBefore
afterWebFrameCleared :: (GObject a, MonadIO m) => a -> WebFrameClearedCallback -> m SignalHandlerId
afterWebFrameCleared obj cb = connectWebFrameCleared obj cb SignalConnectAfter
connectWebFrameCleared :: (GObject a, MonadIO m) =>
a -> WebFrameClearedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameCleared obj cb after = liftIO $ do
cb' <- mkWebFrameClearedCallback (webFrameClearedCallbackWrapper cb)
connectSignalFunPtr obj "cleared" cb' after
type WebFrameHoveringOverLinkCallback =
T.Text ->
T.Text ->
IO ()
noWebFrameHoveringOverLinkCallback :: Maybe WebFrameHoveringOverLinkCallback
noWebFrameHoveringOverLinkCallback = Nothing
type WebFrameHoveringOverLinkCallbackC =
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameHoveringOverLinkCallback :: WebFrameHoveringOverLinkCallbackC -> IO (FunPtr WebFrameHoveringOverLinkCallbackC)
webFrameHoveringOverLinkClosure :: WebFrameHoveringOverLinkCallback -> IO Closure
webFrameHoveringOverLinkClosure cb = newCClosure =<< mkWebFrameHoveringOverLinkCallback wrapped
where wrapped = webFrameHoveringOverLinkCallbackWrapper cb
webFrameHoveringOverLinkCallbackWrapper ::
WebFrameHoveringOverLinkCallback ->
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
webFrameHoveringOverLinkCallbackWrapper _cb _ object p0 _ = do
object' <- cstringToText object
p0' <- cstringToText p0
_cb object' p0'
onWebFrameHoveringOverLink :: (GObject a, MonadIO m) => a -> WebFrameHoveringOverLinkCallback -> m SignalHandlerId
onWebFrameHoveringOverLink obj cb = liftIO $ connectWebFrameHoveringOverLink obj cb SignalConnectBefore
afterWebFrameHoveringOverLink :: (GObject a, MonadIO m) => a -> WebFrameHoveringOverLinkCallback -> m SignalHandlerId
afterWebFrameHoveringOverLink obj cb = connectWebFrameHoveringOverLink obj cb SignalConnectAfter
connectWebFrameHoveringOverLink :: (GObject a, MonadIO m) =>
a -> WebFrameHoveringOverLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameHoveringOverLink obj cb after = liftIO $ do
cb' <- mkWebFrameHoveringOverLinkCallback (webFrameHoveringOverLinkCallbackWrapper cb)
connectSignalFunPtr obj "hovering-over-link" cb' after
type WebFrameInsecureContentRunCallback =
SecurityOrigin ->
T.Text ->
IO ()
noWebFrameInsecureContentRunCallback :: Maybe WebFrameInsecureContentRunCallback
noWebFrameInsecureContentRunCallback = Nothing
type WebFrameInsecureContentRunCallbackC =
Ptr () ->
Ptr SecurityOrigin ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameInsecureContentRunCallback :: WebFrameInsecureContentRunCallbackC -> IO (FunPtr WebFrameInsecureContentRunCallbackC)
webFrameInsecureContentRunClosure :: WebFrameInsecureContentRunCallback -> IO Closure
webFrameInsecureContentRunClosure cb = newCClosure =<< mkWebFrameInsecureContentRunCallback wrapped
where wrapped = webFrameInsecureContentRunCallbackWrapper cb
webFrameInsecureContentRunCallbackWrapper ::
WebFrameInsecureContentRunCallback ->
Ptr () ->
Ptr SecurityOrigin ->
CString ->
Ptr () ->
IO ()
webFrameInsecureContentRunCallbackWrapper _cb _ security_origin url _ = do
security_origin' <- (newObject SecurityOrigin) security_origin
url' <- cstringToText url
_cb security_origin' url'
onWebFrameInsecureContentRun :: (GObject a, MonadIO m) => a -> WebFrameInsecureContentRunCallback -> m SignalHandlerId
onWebFrameInsecureContentRun obj cb = liftIO $ connectWebFrameInsecureContentRun obj cb SignalConnectBefore
afterWebFrameInsecureContentRun :: (GObject a, MonadIO m) => a -> WebFrameInsecureContentRunCallback -> m SignalHandlerId
afterWebFrameInsecureContentRun obj cb = connectWebFrameInsecureContentRun obj cb SignalConnectAfter
connectWebFrameInsecureContentRun :: (GObject a, MonadIO m) =>
a -> WebFrameInsecureContentRunCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameInsecureContentRun obj cb after = liftIO $ do
cb' <- mkWebFrameInsecureContentRunCallback (webFrameInsecureContentRunCallbackWrapper cb)
connectSignalFunPtr obj "insecure-content-run" cb' after
type WebFrameLoadCommittedCallback =
IO ()
noWebFrameLoadCommittedCallback :: Maybe WebFrameLoadCommittedCallback
noWebFrameLoadCommittedCallback = Nothing
type WebFrameLoadCommittedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameLoadCommittedCallback :: WebFrameLoadCommittedCallbackC -> IO (FunPtr WebFrameLoadCommittedCallbackC)
webFrameLoadCommittedClosure :: WebFrameLoadCommittedCallback -> IO Closure
webFrameLoadCommittedClosure cb = newCClosure =<< mkWebFrameLoadCommittedCallback wrapped
where wrapped = webFrameLoadCommittedCallbackWrapper cb
webFrameLoadCommittedCallbackWrapper ::
WebFrameLoadCommittedCallback ->
Ptr () ->
Ptr () ->
IO ()
webFrameLoadCommittedCallbackWrapper _cb _ _ = do
_cb
onWebFrameLoadCommitted :: (GObject a, MonadIO m) => a -> WebFrameLoadCommittedCallback -> m SignalHandlerId
onWebFrameLoadCommitted obj cb = liftIO $ connectWebFrameLoadCommitted obj cb SignalConnectBefore
afterWebFrameLoadCommitted :: (GObject a, MonadIO m) => a -> WebFrameLoadCommittedCallback -> m SignalHandlerId
afterWebFrameLoadCommitted obj cb = connectWebFrameLoadCommitted obj cb SignalConnectAfter
connectWebFrameLoadCommitted :: (GObject a, MonadIO m) =>
a -> WebFrameLoadCommittedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameLoadCommitted obj cb after = liftIO $ do
cb' <- mkWebFrameLoadCommittedCallback (webFrameLoadCommittedCallbackWrapper cb)
connectSignalFunPtr obj "load-committed" cb' after
type WebFrameResourceContentLengthReceivedCallback =
WebResource ->
Int32 ->
IO ()
noWebFrameResourceContentLengthReceivedCallback :: Maybe WebFrameResourceContentLengthReceivedCallback
noWebFrameResourceContentLengthReceivedCallback = Nothing
type WebFrameResourceContentLengthReceivedCallbackC =
Ptr () ->
Ptr WebResource ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceContentLengthReceivedCallback :: WebFrameResourceContentLengthReceivedCallbackC -> IO (FunPtr WebFrameResourceContentLengthReceivedCallbackC)
webFrameResourceContentLengthReceivedClosure :: WebFrameResourceContentLengthReceivedCallback -> IO Closure
webFrameResourceContentLengthReceivedClosure cb = newCClosure =<< mkWebFrameResourceContentLengthReceivedCallback wrapped
where wrapped = webFrameResourceContentLengthReceivedCallbackWrapper cb
webFrameResourceContentLengthReceivedCallbackWrapper ::
WebFrameResourceContentLengthReceivedCallback ->
Ptr () ->
Ptr WebResource ->
Int32 ->
Ptr () ->
IO ()
webFrameResourceContentLengthReceivedCallbackWrapper _cb _ web_resource length_received _ = do
web_resource' <- (newObject WebResource) web_resource
_cb web_resource' length_received
onWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceContentLengthReceivedCallback -> m SignalHandlerId
onWebFrameResourceContentLengthReceived obj cb = liftIO $ connectWebFrameResourceContentLengthReceived obj cb SignalConnectBefore
afterWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceContentLengthReceivedCallback -> m SignalHandlerId
afterWebFrameResourceContentLengthReceived obj cb = connectWebFrameResourceContentLengthReceived obj cb SignalConnectAfter
connectWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) =>
a -> WebFrameResourceContentLengthReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceContentLengthReceived obj cb after = liftIO $ do
cb' <- mkWebFrameResourceContentLengthReceivedCallback (webFrameResourceContentLengthReceivedCallbackWrapper cb)
connectSignalFunPtr obj "resource-content-length-received" cb' after
type WebFrameResourceLoadFailedCallback =
WebResource ->
Ptr () ->
IO ()
noWebFrameResourceLoadFailedCallback :: Maybe WebFrameResourceLoadFailedCallback
noWebFrameResourceLoadFailedCallback = Nothing
type WebFrameResourceLoadFailedCallbackC =
Ptr () ->
Ptr WebResource ->
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceLoadFailedCallback :: WebFrameResourceLoadFailedCallbackC -> IO (FunPtr WebFrameResourceLoadFailedCallbackC)
webFrameResourceLoadFailedClosure :: WebFrameResourceLoadFailedCallback -> IO Closure
webFrameResourceLoadFailedClosure cb = newCClosure =<< mkWebFrameResourceLoadFailedCallback wrapped
where wrapped = webFrameResourceLoadFailedCallbackWrapper cb
webFrameResourceLoadFailedCallbackWrapper ::
WebFrameResourceLoadFailedCallback ->
Ptr () ->
Ptr WebResource ->
Ptr () ->
Ptr () ->
IO ()
webFrameResourceLoadFailedCallbackWrapper _cb _ web_resource error_ _ = do
web_resource' <- (newObject WebResource) web_resource
_cb web_resource' error_
onWebFrameResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFailedCallback -> m SignalHandlerId
onWebFrameResourceLoadFailed obj cb = liftIO $ connectWebFrameResourceLoadFailed obj cb SignalConnectBefore
afterWebFrameResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFailedCallback -> m SignalHandlerId
afterWebFrameResourceLoadFailed obj cb = connectWebFrameResourceLoadFailed obj cb SignalConnectAfter
connectWebFrameResourceLoadFailed :: (GObject a, MonadIO m) =>
a -> WebFrameResourceLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceLoadFailed obj cb after = liftIO $ do
cb' <- mkWebFrameResourceLoadFailedCallback (webFrameResourceLoadFailedCallbackWrapper cb)
connectSignalFunPtr obj "resource-load-failed" cb' after
type WebFrameResourceLoadFinishedCallback =
WebResource ->
IO ()
noWebFrameResourceLoadFinishedCallback :: Maybe WebFrameResourceLoadFinishedCallback
noWebFrameResourceLoadFinishedCallback = Nothing
type WebFrameResourceLoadFinishedCallbackC =
Ptr () ->
Ptr WebResource ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceLoadFinishedCallback :: WebFrameResourceLoadFinishedCallbackC -> IO (FunPtr WebFrameResourceLoadFinishedCallbackC)
webFrameResourceLoadFinishedClosure :: WebFrameResourceLoadFinishedCallback -> IO Closure
webFrameResourceLoadFinishedClosure cb = newCClosure =<< mkWebFrameResourceLoadFinishedCallback wrapped
where wrapped = webFrameResourceLoadFinishedCallbackWrapper cb
webFrameResourceLoadFinishedCallbackWrapper ::
WebFrameResourceLoadFinishedCallback ->
Ptr () ->
Ptr WebResource ->
Ptr () ->
IO ()
webFrameResourceLoadFinishedCallbackWrapper _cb _ web_resource _ = do
web_resource' <- (newObject WebResource) web_resource
_cb web_resource'
onWebFrameResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFinishedCallback -> m SignalHandlerId
onWebFrameResourceLoadFinished obj cb = liftIO $ connectWebFrameResourceLoadFinished obj cb SignalConnectBefore
afterWebFrameResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFinishedCallback -> m SignalHandlerId
afterWebFrameResourceLoadFinished obj cb = connectWebFrameResourceLoadFinished obj cb SignalConnectAfter
connectWebFrameResourceLoadFinished :: (GObject a, MonadIO m) =>
a -> WebFrameResourceLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceLoadFinished obj cb after = liftIO $ do
cb' <- mkWebFrameResourceLoadFinishedCallback (webFrameResourceLoadFinishedCallbackWrapper cb)
connectSignalFunPtr obj "resource-load-finished" cb' after
type WebFrameResourceRequestStartingCallback =
WebResource ->
NetworkRequest ->
NetworkResponse ->
IO ()
noWebFrameResourceRequestStartingCallback :: Maybe WebFrameResourceRequestStartingCallback
noWebFrameResourceRequestStartingCallback = Nothing
type WebFrameResourceRequestStartingCallbackC =
Ptr () ->
Ptr WebResource ->
Ptr NetworkRequest ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceRequestStartingCallback :: WebFrameResourceRequestStartingCallbackC -> IO (FunPtr WebFrameResourceRequestStartingCallbackC)
webFrameResourceRequestStartingClosure :: WebFrameResourceRequestStartingCallback -> IO Closure
webFrameResourceRequestStartingClosure cb = newCClosure =<< mkWebFrameResourceRequestStartingCallback wrapped
where wrapped = webFrameResourceRequestStartingCallbackWrapper cb
webFrameResourceRequestStartingCallbackWrapper ::
WebFrameResourceRequestStartingCallback ->
Ptr () ->
Ptr WebResource ->
Ptr NetworkRequest ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
webFrameResourceRequestStartingCallbackWrapper _cb _ web_resource request response _ = do
web_resource' <- (newObject WebResource) web_resource
request' <- (newObject NetworkRequest) request
response' <- (newObject NetworkResponse) response
_cb web_resource' request' response'
onWebFrameResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebFrameResourceRequestStartingCallback -> m SignalHandlerId
onWebFrameResourceRequestStarting obj cb = liftIO $ connectWebFrameResourceRequestStarting obj cb SignalConnectBefore
afterWebFrameResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebFrameResourceRequestStartingCallback -> m SignalHandlerId
afterWebFrameResourceRequestStarting obj cb = connectWebFrameResourceRequestStarting obj cb SignalConnectAfter
connectWebFrameResourceRequestStarting :: (GObject a, MonadIO m) =>
a -> WebFrameResourceRequestStartingCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceRequestStarting obj cb after = liftIO $ do
cb' <- mkWebFrameResourceRequestStartingCallback (webFrameResourceRequestStartingCallbackWrapper cb)
connectSignalFunPtr obj "resource-request-starting" cb' after
type WebFrameResourceResponseReceivedCallback =
WebResource ->
NetworkResponse ->
IO ()
noWebFrameResourceResponseReceivedCallback :: Maybe WebFrameResourceResponseReceivedCallback
noWebFrameResourceResponseReceivedCallback = Nothing
type WebFrameResourceResponseReceivedCallbackC =
Ptr () ->
Ptr WebResource ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceResponseReceivedCallback :: WebFrameResourceResponseReceivedCallbackC -> IO (FunPtr WebFrameResourceResponseReceivedCallbackC)
webFrameResourceResponseReceivedClosure :: WebFrameResourceResponseReceivedCallback -> IO Closure
webFrameResourceResponseReceivedClosure cb = newCClosure =<< mkWebFrameResourceResponseReceivedCallback wrapped
where wrapped = webFrameResourceResponseReceivedCallbackWrapper cb
webFrameResourceResponseReceivedCallbackWrapper ::
WebFrameResourceResponseReceivedCallback ->
Ptr () ->
Ptr WebResource ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
webFrameResourceResponseReceivedCallbackWrapper _cb _ web_resource response _ = do
web_resource' <- (newObject WebResource) web_resource
response' <- (newObject NetworkResponse) response
_cb web_resource' response'
onWebFrameResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceResponseReceivedCallback -> m SignalHandlerId
onWebFrameResourceResponseReceived obj cb = liftIO $ connectWebFrameResourceResponseReceived obj cb SignalConnectBefore
afterWebFrameResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceResponseReceivedCallback -> m SignalHandlerId
afterWebFrameResourceResponseReceived obj cb = connectWebFrameResourceResponseReceived obj cb SignalConnectAfter
connectWebFrameResourceResponseReceived :: (GObject a, MonadIO m) =>
a -> WebFrameResourceResponseReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceResponseReceived obj cb after = liftIO $ do
cb' <- mkWebFrameResourceResponseReceivedCallback (webFrameResourceResponseReceivedCallbackWrapper cb)
connectSignalFunPtr obj "resource-response-received" cb' after
type WebFrameScrollbarsPolicyChangedCallback =
IO Bool
noWebFrameScrollbarsPolicyChangedCallback :: Maybe WebFrameScrollbarsPolicyChangedCallback
noWebFrameScrollbarsPolicyChangedCallback = Nothing
type WebFrameScrollbarsPolicyChangedCallbackC =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mkWebFrameScrollbarsPolicyChangedCallback :: WebFrameScrollbarsPolicyChangedCallbackC -> IO (FunPtr WebFrameScrollbarsPolicyChangedCallbackC)
webFrameScrollbarsPolicyChangedClosure :: WebFrameScrollbarsPolicyChangedCallback -> IO Closure
webFrameScrollbarsPolicyChangedClosure cb = newCClosure =<< mkWebFrameScrollbarsPolicyChangedCallback wrapped
where wrapped = webFrameScrollbarsPolicyChangedCallbackWrapper cb
webFrameScrollbarsPolicyChangedCallbackWrapper ::
WebFrameScrollbarsPolicyChangedCallback ->
Ptr () ->
Ptr () ->
IO CInt
webFrameScrollbarsPolicyChangedCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) => a -> WebFrameScrollbarsPolicyChangedCallback -> m SignalHandlerId
onWebFrameScrollbarsPolicyChanged obj cb = liftIO $ connectWebFrameScrollbarsPolicyChanged obj cb SignalConnectBefore
afterWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) => a -> WebFrameScrollbarsPolicyChangedCallback -> m SignalHandlerId
afterWebFrameScrollbarsPolicyChanged obj cb = connectWebFrameScrollbarsPolicyChanged obj cb SignalConnectAfter
connectWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) =>
a -> WebFrameScrollbarsPolicyChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameScrollbarsPolicyChanged obj cb after = liftIO $ do
cb' <- mkWebFrameScrollbarsPolicyChangedCallback (webFrameScrollbarsPolicyChangedCallbackWrapper cb)
connectSignalFunPtr obj "scrollbars-policy-changed" cb' after
type WebFrameTitleChangedCallback =
T.Text ->
IO ()
noWebFrameTitleChangedCallback :: Maybe WebFrameTitleChangedCallback
noWebFrameTitleChangedCallback = Nothing
type WebFrameTitleChangedCallbackC =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebFrameTitleChangedCallback :: WebFrameTitleChangedCallbackC -> IO (FunPtr WebFrameTitleChangedCallbackC)
webFrameTitleChangedClosure :: WebFrameTitleChangedCallback -> IO Closure
webFrameTitleChangedClosure cb = newCClosure =<< mkWebFrameTitleChangedCallback wrapped
where wrapped = webFrameTitleChangedCallbackWrapper cb
webFrameTitleChangedCallbackWrapper ::
WebFrameTitleChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
webFrameTitleChangedCallbackWrapper _cb _ title _ = do
title' <- cstringToText title
_cb title'
onWebFrameTitleChanged :: (GObject a, MonadIO m) => a -> WebFrameTitleChangedCallback -> m SignalHandlerId
onWebFrameTitleChanged obj cb = liftIO $ connectWebFrameTitleChanged obj cb SignalConnectBefore
afterWebFrameTitleChanged :: (GObject a, MonadIO m) => a -> WebFrameTitleChangedCallback -> m SignalHandlerId
afterWebFrameTitleChanged obj cb = connectWebFrameTitleChanged obj cb SignalConnectAfter
connectWebFrameTitleChanged :: (GObject a, MonadIO m) =>
a -> WebFrameTitleChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameTitleChanged obj cb after = liftIO $ do
cb' <- mkWebFrameTitleChangedCallback (webFrameTitleChangedCallbackWrapper cb)
connectSignalFunPtr obj "title-changed" cb' after
getWebFrameHorizontalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType
getWebFrameHorizontalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "horizontal-scrollbar-policy"
data WebFrameHorizontalScrollbarPolicyPropertyInfo
instance AttrInfo WebFrameHorizontalScrollbarPolicyPropertyInfo where
type AttrAllowedOps WebFrameHorizontalScrollbarPolicyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebFrameHorizontalScrollbarPolicyPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebFrameHorizontalScrollbarPolicyPropertyInfo = WebFrameK
type AttrGetType WebFrameHorizontalScrollbarPolicyPropertyInfo = Gtk.PolicyType
type AttrLabel WebFrameHorizontalScrollbarPolicyPropertyInfo = "WebFrame::horizontal-scrollbar-policy"
attrGet _ = getWebFrameHorizontalScrollbarPolicy
attrSet _ = undefined
attrConstruct _ = undefined
getWebFrameLoadStatus :: (MonadIO m, WebFrameK o) => o -> m LoadStatus
getWebFrameLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status"
data WebFrameLoadStatusPropertyInfo
instance AttrInfo WebFrameLoadStatusPropertyInfo where
type AttrAllowedOps WebFrameLoadStatusPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebFrameLoadStatusPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebFrameLoadStatusPropertyInfo = WebFrameK
type AttrGetType WebFrameLoadStatusPropertyInfo = LoadStatus
type AttrLabel WebFrameLoadStatusPropertyInfo = "WebFrame::load-status"
attrGet _ = getWebFrameLoadStatus
attrSet _ = undefined
attrConstruct _ = undefined
getWebFrameName :: (MonadIO m, WebFrameK o) => o -> m T.Text
getWebFrameName obj = liftIO $ getObjectPropertyString obj "name"
data WebFrameNamePropertyInfo
instance AttrInfo WebFrameNamePropertyInfo where
type AttrAllowedOps WebFrameNamePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebFrameNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebFrameNamePropertyInfo = WebFrameK
type AttrGetType WebFrameNamePropertyInfo = T.Text
type AttrLabel WebFrameNamePropertyInfo = "WebFrame::name"
attrGet _ = getWebFrameName
attrSet _ = undefined
attrConstruct _ = undefined
getWebFrameTitle :: (MonadIO m, WebFrameK o) => o -> m T.Text
getWebFrameTitle obj = liftIO $ getObjectPropertyString obj "title"
data WebFrameTitlePropertyInfo
instance AttrInfo WebFrameTitlePropertyInfo where
type AttrAllowedOps WebFrameTitlePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebFrameTitlePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebFrameTitlePropertyInfo = WebFrameK
type AttrGetType WebFrameTitlePropertyInfo = T.Text
type AttrLabel WebFrameTitlePropertyInfo = "WebFrame::title"
attrGet _ = getWebFrameTitle
attrSet _ = undefined
attrConstruct _ = undefined
getWebFrameUri :: (MonadIO m, WebFrameK o) => o -> m T.Text
getWebFrameUri obj = liftIO $ getObjectPropertyString obj "uri"
data WebFrameUriPropertyInfo
instance AttrInfo WebFrameUriPropertyInfo where
type AttrAllowedOps WebFrameUriPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebFrameUriPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebFrameUriPropertyInfo = WebFrameK
type AttrGetType WebFrameUriPropertyInfo = T.Text
type AttrLabel WebFrameUriPropertyInfo = "WebFrame::uri"
attrGet _ = getWebFrameUri
attrSet _ = undefined
attrConstruct _ = undefined
getWebFrameVerticalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType
getWebFrameVerticalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "vertical-scrollbar-policy"
data WebFrameVerticalScrollbarPolicyPropertyInfo
instance AttrInfo WebFrameVerticalScrollbarPolicyPropertyInfo where
type AttrAllowedOps WebFrameVerticalScrollbarPolicyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebFrameVerticalScrollbarPolicyPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebFrameVerticalScrollbarPolicyPropertyInfo = WebFrameK
type AttrGetType WebFrameVerticalScrollbarPolicyPropertyInfo = Gtk.PolicyType
type AttrLabel WebFrameVerticalScrollbarPolicyPropertyInfo = "WebFrame::vertical-scrollbar-policy"
attrGet _ = getWebFrameVerticalScrollbarPolicy
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList WebFrame = WebFrameAttributeList
type WebFrameAttributeList = ('[ '("horizontal-scrollbar-policy", WebFrameHorizontalScrollbarPolicyPropertyInfo), '("load-status", WebFrameLoadStatusPropertyInfo), '("name", WebFrameNamePropertyInfo), '("title", WebFrameTitlePropertyInfo), '("uri", WebFrameUriPropertyInfo), '("vertical-scrollbar-policy", WebFrameVerticalScrollbarPolicyPropertyInfo)] :: [(Symbol, *)])
data WebFrameClearedSignalInfo
instance SignalInfo WebFrameClearedSignalInfo where
type HaskellCallbackType WebFrameClearedSignalInfo = WebFrameClearedCallback
connectSignal _ = connectWebFrameCleared
data WebFrameHoveringOverLinkSignalInfo
instance SignalInfo WebFrameHoveringOverLinkSignalInfo where
type HaskellCallbackType WebFrameHoveringOverLinkSignalInfo = WebFrameHoveringOverLinkCallback
connectSignal _ = connectWebFrameHoveringOverLink
data WebFrameInsecureContentRunSignalInfo
instance SignalInfo WebFrameInsecureContentRunSignalInfo where
type HaskellCallbackType WebFrameInsecureContentRunSignalInfo = WebFrameInsecureContentRunCallback
connectSignal _ = connectWebFrameInsecureContentRun
data WebFrameLoadCommittedSignalInfo
instance SignalInfo WebFrameLoadCommittedSignalInfo where
type HaskellCallbackType WebFrameLoadCommittedSignalInfo = WebFrameLoadCommittedCallback
connectSignal _ = connectWebFrameLoadCommitted
data WebFrameResourceContentLengthReceivedSignalInfo
instance SignalInfo WebFrameResourceContentLengthReceivedSignalInfo where
type HaskellCallbackType WebFrameResourceContentLengthReceivedSignalInfo = WebFrameResourceContentLengthReceivedCallback
connectSignal _ = connectWebFrameResourceContentLengthReceived
data WebFrameResourceLoadFailedSignalInfo
instance SignalInfo WebFrameResourceLoadFailedSignalInfo where
type HaskellCallbackType WebFrameResourceLoadFailedSignalInfo = WebFrameResourceLoadFailedCallback
connectSignal _ = connectWebFrameResourceLoadFailed
data WebFrameResourceLoadFinishedSignalInfo
instance SignalInfo WebFrameResourceLoadFinishedSignalInfo where
type HaskellCallbackType WebFrameResourceLoadFinishedSignalInfo = WebFrameResourceLoadFinishedCallback
connectSignal _ = connectWebFrameResourceLoadFinished
data WebFrameResourceRequestStartingSignalInfo
instance SignalInfo WebFrameResourceRequestStartingSignalInfo where
type HaskellCallbackType WebFrameResourceRequestStartingSignalInfo = WebFrameResourceRequestStartingCallback
connectSignal _ = connectWebFrameResourceRequestStarting
data WebFrameResourceResponseReceivedSignalInfo
instance SignalInfo WebFrameResourceResponseReceivedSignalInfo where
type HaskellCallbackType WebFrameResourceResponseReceivedSignalInfo = WebFrameResourceResponseReceivedCallback
connectSignal _ = connectWebFrameResourceResponseReceived
data WebFrameScrollbarsPolicyChangedSignalInfo
instance SignalInfo WebFrameScrollbarsPolicyChangedSignalInfo where
type HaskellCallbackType WebFrameScrollbarsPolicyChangedSignalInfo = WebFrameScrollbarsPolicyChangedCallback
connectSignal _ = connectWebFrameScrollbarsPolicyChanged
data WebFrameTitleChangedSignalInfo
instance SignalInfo WebFrameTitleChangedSignalInfo where
type HaskellCallbackType WebFrameTitleChangedSignalInfo = WebFrameTitleChangedCallback
connectSignal _ = connectWebFrameTitleChanged
type instance SignalList WebFrame = WebFrameSignalList
type WebFrameSignalList = ('[ '("cleared", WebFrameClearedSignalInfo), '("hovering-over-link", WebFrameHoveringOverLinkSignalInfo), '("insecure-content-run", WebFrameInsecureContentRunSignalInfo), '("load-committed", WebFrameLoadCommittedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("resource-content-length-received", WebFrameResourceContentLengthReceivedSignalInfo), '("resource-load-failed", WebFrameResourceLoadFailedSignalInfo), '("resource-load-finished", WebFrameResourceLoadFinishedSignalInfo), '("resource-request-starting", WebFrameResourceRequestStartingSignalInfo), '("resource-response-received", WebFrameResourceResponseReceivedSignalInfo), '("scrollbars-policy-changed", WebFrameScrollbarsPolicyChangedSignalInfo), '("title-changed", WebFrameTitleChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_web_frame_new" webkit_web_frame_new ::
Ptr WebView ->
IO (Ptr WebFrame)
webFrameNew ::
(MonadIO m, WebViewK a) =>
a ->
m WebFrame
webFrameNew web_view = liftIO $ do
let web_view' = unsafeManagedPtrCastPtr web_view
result <- webkit_web_frame_new web_view'
checkUnexpectedReturnNULL "webkit_web_frame_new" result
result' <- (wrapObject WebFrame) result
touchManagedPtr web_view
return result'
foreign import ccall "webkit_web_frame_find_frame" webkit_web_frame_find_frame ::
Ptr WebFrame ->
CString ->
IO (Ptr WebFrame)
webFrameFindFrame ::
(MonadIO m, WebFrameK a) =>
a ->
T.Text ->
m WebFrame
webFrameFindFrame _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_web_frame_find_frame _obj' name'
checkUnexpectedReturnNULL "webkit_web_frame_find_frame" result
result' <- (newObject WebFrame) result
touchManagedPtr _obj
freeMem name'
return result'
foreign import ccall "webkit_web_frame_get_data_source" webkit_web_frame_get_data_source ::
Ptr WebFrame ->
IO (Ptr WebDataSource)
webFrameGetDataSource ::
(MonadIO m, WebFrameK a) =>
a ->
m WebDataSource
webFrameGetDataSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_data_source _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_data_source" result
result' <- (newObject WebDataSource) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_dom_document" webkit_web_frame_get_dom_document ::
Ptr WebFrame ->
IO (Ptr DOMDocument)
webFrameGetDomDocument ::
(MonadIO m, WebFrameK a) =>
a ->
m DOMDocument
webFrameGetDomDocument _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_dom_document _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_dom_document" result
result' <- (newObject DOMDocument) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_global_context" webkit_web_frame_get_global_context ::
Ptr WebFrame ->
IO (Ptr JavaScriptCore.GlobalContext)
webFrameGetGlobalContext ::
(MonadIO m, WebFrameK a) =>
a ->
m JavaScriptCore.GlobalContext
webFrameGetGlobalContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_global_context _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_global_context" result
result' <- (\x -> JavaScriptCore.GlobalContext <$> newForeignPtr_ x) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_horizontal_scrollbar_policy" webkit_web_frame_get_horizontal_scrollbar_policy ::
Ptr WebFrame ->
IO CUInt
webFrameGetHorizontalScrollbarPolicy ::
(MonadIO m, WebFrameK a) =>
a ->
m Gtk.PolicyType
webFrameGetHorizontalScrollbarPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_horizontal_scrollbar_policy _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_load_status" webkit_web_frame_get_load_status ::
Ptr WebFrame ->
IO CUInt
webFrameGetLoadStatus ::
(MonadIO m, WebFrameK a) =>
a ->
m LoadStatus
webFrameGetLoadStatus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_load_status _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_name" webkit_web_frame_get_name ::
Ptr WebFrame ->
IO CString
webFrameGetName ::
(MonadIO m, WebFrameK a) =>
a ->
m T.Text
webFrameGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_name _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_network_response" webkit_web_frame_get_network_response ::
Ptr WebFrame ->
IO (Ptr NetworkResponse)
webFrameGetNetworkResponse ::
(MonadIO m, WebFrameK a) =>
a ->
m NetworkResponse
webFrameGetNetworkResponse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_network_response _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_network_response" result
result' <- (wrapObject NetworkResponse) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_parent" webkit_web_frame_get_parent ::
Ptr WebFrame ->
IO (Ptr WebFrame)
webFrameGetParent ::
(MonadIO m, WebFrameK a) =>
a ->
m WebFrame
webFrameGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_parent _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_parent" result
result' <- (newObject WebFrame) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_provisional_data_source" webkit_web_frame_get_provisional_data_source ::
Ptr WebFrame ->
IO (Ptr WebDataSource)
webFrameGetProvisionalDataSource ::
(MonadIO m, WebFrameK a) =>
a ->
m WebDataSource
webFrameGetProvisionalDataSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_provisional_data_source _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_provisional_data_source" result
result' <- (newObject WebDataSource) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_range_for_word_around_caret" webkit_web_frame_get_range_for_word_around_caret ::
Ptr WebFrame ->
IO (Ptr DOMRange)
webFrameGetRangeForWordAroundCaret ::
(MonadIO m, WebFrameK a) =>
a ->
m DOMRange
webFrameGetRangeForWordAroundCaret _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_range_for_word_around_caret _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_range_for_word_around_caret" result
result' <- (newObject DOMRange) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_security_origin" webkit_web_frame_get_security_origin ::
Ptr WebFrame ->
IO (Ptr SecurityOrigin)
webFrameGetSecurityOrigin ::
(MonadIO m, WebFrameK a) =>
a ->
m SecurityOrigin
webFrameGetSecurityOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_security_origin _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_security_origin" result
result' <- (newObject SecurityOrigin) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_title" webkit_web_frame_get_title ::
Ptr WebFrame ->
IO CString
webFrameGetTitle ::
(MonadIO m, WebFrameK a) =>
a ->
m T.Text
webFrameGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_title _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_uri" webkit_web_frame_get_uri ::
Ptr WebFrame ->
IO CString
webFrameGetUri ::
(MonadIO m, WebFrameK a) =>
a ->
m T.Text
webFrameGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_uri _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_vertical_scrollbar_policy" webkit_web_frame_get_vertical_scrollbar_policy ::
Ptr WebFrame ->
IO CUInt
webFrameGetVerticalScrollbarPolicy ::
(MonadIO m, WebFrameK a) =>
a ->
m Gtk.PolicyType
webFrameGetVerticalScrollbarPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_vertical_scrollbar_policy _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_get_web_view" webkit_web_frame_get_web_view ::
Ptr WebFrame ->
IO (Ptr WebView)
webFrameGetWebView ::
(MonadIO m, WebFrameK a) =>
a ->
m WebView
webFrameGetWebView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_web_view _obj'
checkUnexpectedReturnNULL "webkit_web_frame_get_web_view" result
result' <- (newObject WebView) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_frame_load_alternate_string" webkit_web_frame_load_alternate_string ::
Ptr WebFrame ->
CString ->
CString ->
CString ->
IO ()
webFrameLoadAlternateString ::
(MonadIO m, WebFrameK a) =>
a ->
T.Text ->
T.Text ->
T.Text ->
m ()
webFrameLoadAlternateString _obj content base_url unreachable_url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
base_url' <- textToCString base_url
unreachable_url' <- textToCString unreachable_url
webkit_web_frame_load_alternate_string _obj' content' base_url' unreachable_url'
touchManagedPtr _obj
freeMem content'
freeMem base_url'
freeMem unreachable_url'
return ()
foreign import ccall "webkit_web_frame_load_request" webkit_web_frame_load_request ::
Ptr WebFrame ->
Ptr NetworkRequest ->
IO ()
webFrameLoadRequest ::
(MonadIO m, WebFrameK a, NetworkRequestK b) =>
a ->
b ->
m ()
webFrameLoadRequest _obj request = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let request' = unsafeManagedPtrCastPtr request
webkit_web_frame_load_request _obj' request'
touchManagedPtr _obj
touchManagedPtr request
return ()
foreign import ccall "webkit_web_frame_load_string" webkit_web_frame_load_string ::
Ptr WebFrame ->
CString ->
CString ->
CString ->
CString ->
IO ()
webFrameLoadString ::
(MonadIO m, WebFrameK a) =>
a ->
T.Text ->
T.Text ->
T.Text ->
T.Text ->
m ()
webFrameLoadString _obj content mime_type encoding base_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
mime_type' <- textToCString mime_type
encoding' <- textToCString encoding
base_uri' <- textToCString base_uri
webkit_web_frame_load_string _obj' content' mime_type' encoding' base_uri'
touchManagedPtr _obj
freeMem content'
freeMem mime_type'
freeMem encoding'
freeMem base_uri'
return ()
foreign import ccall "webkit_web_frame_load_uri" webkit_web_frame_load_uri ::
Ptr WebFrame ->
CString ->
IO ()
webFrameLoadUri ::
(MonadIO m, WebFrameK a) =>
a ->
T.Text ->
m ()
webFrameLoadUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
webkit_web_frame_load_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
foreign import ccall "webkit_web_frame_print" webkit_web_frame_print ::
Ptr WebFrame ->
IO ()
webFramePrint ::
(MonadIO m, WebFrameK a) =>
a ->
m ()
webFramePrint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_frame_print _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_web_frame_print_full" webkit_web_frame_print_full ::
Ptr WebFrame ->
Ptr Gtk.PrintOperation ->
CUInt ->
Ptr (Ptr GError) ->
IO CUInt
webFramePrintFull ::
(MonadIO m, WebFrameK a, Gtk.PrintOperationK b) =>
a ->
b ->
Gtk.PrintOperationAction ->
m Gtk.PrintOperationResult
webFramePrintFull _obj operation action = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let operation' = unsafeManagedPtrCastPtr operation
let action' = (fromIntegral . fromEnum) action
onException (do
result <- propagateGError $ webkit_web_frame_print_full _obj' operation' action'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr operation
return result'
) (do
return ()
)
foreign import ccall "webkit_web_frame_reload" webkit_web_frame_reload ::
Ptr WebFrame ->
IO ()
webFrameReload ::
(MonadIO m, WebFrameK a) =>
a ->
m ()
webFrameReload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_frame_reload _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_web_frame_replace_selection" webkit_web_frame_replace_selection ::
Ptr WebFrame ->
CString ->
IO ()
webFrameReplaceSelection ::
(MonadIO m, WebFrameK a) =>
a ->
T.Text ->
m ()
webFrameReplaceSelection _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
webkit_web_frame_replace_selection _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
foreign import ccall "webkit_web_frame_stop_loading" webkit_web_frame_stop_loading ::
Ptr WebFrame ->
IO ()
webFrameStopLoading ::
(MonadIO m, WebFrameK a) =>
a ->
m ()
webFrameStopLoading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_frame_stop_loading _obj'
touchManagedPtr _obj
return ()