gi-webkit2-0.2.8.12: GI/WebKit2/Objects/WebView.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.WebKit2.Objects.WebView
(
-- * Exported types
WebView(..) ,
WebViewK ,
toWebView ,
noWebView ,
-- * Methods
-- ** webViewCanExecuteEditingCommand
webViewCanExecuteEditingCommand ,
-- ** webViewCanExecuteEditingCommandFinish
webViewCanExecuteEditingCommandFinish ,
-- ** webViewCanGoBack
webViewCanGoBack ,
-- ** webViewCanGoForward
webViewCanGoForward ,
-- ** webViewCanShowMimeType
webViewCanShowMimeType ,
-- ** webViewDownloadUri
webViewDownloadUri ,
-- ** webViewExecuteEditingCommand
webViewExecuteEditingCommand ,
-- ** webViewGetBackForwardList
webViewGetBackForwardList ,
-- ** webViewGetBackgroundColor
webViewGetBackgroundColor ,
-- ** webViewGetContext
webViewGetContext ,
-- ** webViewGetCustomCharset
webViewGetCustomCharset ,
-- ** webViewGetEstimatedLoadProgress
webViewGetEstimatedLoadProgress ,
-- ** webViewGetFavicon
webViewGetFavicon ,
-- ** webViewGetFindController
webViewGetFindController ,
-- ** webViewGetInspector
webViewGetInspector ,
-- ** webViewGetJavascriptGlobalContext
webViewGetJavascriptGlobalContext ,
-- ** webViewGetMainResource
webViewGetMainResource ,
-- ** webViewGetPageId
webViewGetPageId ,
-- ** webViewGetSettings
webViewGetSettings ,
-- ** webViewGetSnapshot
webViewGetSnapshot ,
-- ** webViewGetSnapshotFinish
webViewGetSnapshotFinish ,
-- ** webViewGetTitle
webViewGetTitle ,
-- ** webViewGetTlsInfo
webViewGetTlsInfo ,
-- ** webViewGetUri
webViewGetUri ,
-- ** webViewGetUserContentManager
webViewGetUserContentManager ,
-- ** webViewGetWindowProperties
webViewGetWindowProperties ,
-- ** webViewGetZoomLevel
webViewGetZoomLevel ,
-- ** webViewGoBack
webViewGoBack ,
-- ** webViewGoForward
webViewGoForward ,
-- ** webViewGoToBackForwardListItem
webViewGoToBackForwardListItem ,
-- ** webViewIsEditable
webViewIsEditable ,
-- ** webViewIsLoading
webViewIsLoading ,
-- ** webViewIsPlayingAudio
webViewIsPlayingAudio ,
-- ** webViewLoadAlternateHtml
webViewLoadAlternateHtml ,
-- ** webViewLoadBytes
webViewLoadBytes ,
-- ** webViewLoadHtml
webViewLoadHtml ,
-- ** webViewLoadPlainText
webViewLoadPlainText ,
-- ** webViewLoadRequest
webViewLoadRequest ,
-- ** webViewLoadUri
webViewLoadUri ,
-- ** webViewNew
webViewNew ,
-- ** webViewNewWithContext
webViewNewWithContext ,
-- ** webViewNewWithRelatedView
webViewNewWithRelatedView ,
-- ** webViewNewWithSettings
webViewNewWithSettings ,
-- ** webViewNewWithUserContentManager
webViewNewWithUserContentManager ,
-- ** webViewReload
webViewReload ,
-- ** webViewReloadBypassCache
webViewReloadBypassCache ,
-- ** webViewRunJavascript
webViewRunJavascript ,
-- ** webViewRunJavascriptFinish
webViewRunJavascriptFinish ,
-- ** webViewRunJavascriptFromGresource
webViewRunJavascriptFromGresource ,
-- ** webViewRunJavascriptFromGresourceFinish
webViewRunJavascriptFromGresourceFinish ,
-- ** webViewSave
webViewSave ,
-- ** webViewSaveFinish
webViewSaveFinish ,
-- ** webViewSaveToFile
webViewSaveToFile ,
-- ** webViewSaveToFileFinish
webViewSaveToFileFinish ,
-- ** webViewSetBackgroundColor
webViewSetBackgroundColor ,
-- ** webViewSetCustomCharset
webViewSetCustomCharset ,
-- ** webViewSetEditable
webViewSetEditable ,
-- ** webViewSetSettings
webViewSetSettings ,
-- ** webViewSetZoomLevel
webViewSetZoomLevel ,
-- ** webViewStopLoading
webViewStopLoading ,
-- * Properties
-- ** Editable
WebViewEditablePropertyInfo ,
constructWebViewEditable ,
getWebViewEditable ,
setWebViewEditable ,
-- ** EstimatedLoadProgress
WebViewEstimatedLoadProgressPropertyInfo,
getWebViewEstimatedLoadProgress ,
-- ** Favicon
WebViewFaviconPropertyInfo ,
getWebViewFavicon ,
-- ** IsLoading
WebViewIsLoadingPropertyInfo ,
getWebViewIsLoading ,
-- ** IsPlayingAudio
WebViewIsPlayingAudioPropertyInfo ,
getWebViewIsPlayingAudio ,
-- ** RelatedView
WebViewRelatedViewPropertyInfo ,
constructWebViewRelatedView ,
-- ** Settings
WebViewSettingsPropertyInfo ,
constructWebViewSettings ,
setWebViewSettings ,
-- ** Title
WebViewTitlePropertyInfo ,
getWebViewTitle ,
-- ** Uri
WebViewUriPropertyInfo ,
getWebViewUri ,
-- ** UserContentManager
WebViewUserContentManagerPropertyInfo ,
constructWebViewUserContentManager ,
getWebViewUserContentManager ,
-- ** WebContext
WebViewWebContextPropertyInfo ,
constructWebViewWebContext ,
getWebViewWebContext ,
-- ** ZoomLevel
WebViewZoomLevelPropertyInfo ,
constructWebViewZoomLevel ,
getWebViewZoomLevel ,
setWebViewZoomLevel ,
-- * Signals
-- ** Authenticate
WebViewAuthenticateCallback ,
WebViewAuthenticateCallbackC ,
WebViewAuthenticateSignalInfo ,
afterWebViewAuthenticate ,
mkWebViewAuthenticateCallback ,
noWebViewAuthenticateCallback ,
onWebViewAuthenticate ,
webViewAuthenticateCallbackWrapper ,
webViewAuthenticateClosure ,
-- ** Close
WebViewCloseCallback ,
WebViewCloseCallbackC ,
WebViewCloseSignalInfo ,
afterWebViewClose ,
mkWebViewCloseCallback ,
noWebViewCloseCallback ,
onWebViewClose ,
webViewCloseCallbackWrapper ,
webViewCloseClosure ,
-- ** ContextMenu
WebViewContextMenuCallback ,
WebViewContextMenuCallbackC ,
WebViewContextMenuSignalInfo ,
afterWebViewContextMenu ,
mkWebViewContextMenuCallback ,
noWebViewContextMenuCallback ,
onWebViewContextMenu ,
webViewContextMenuCallbackWrapper ,
webViewContextMenuClosure ,
-- ** ContextMenuDismissed
WebViewContextMenuDismissedCallback ,
WebViewContextMenuDismissedCallbackC ,
WebViewContextMenuDismissedSignalInfo ,
afterWebViewContextMenuDismissed ,
mkWebViewContextMenuDismissedCallback ,
noWebViewContextMenuDismissedCallback ,
onWebViewContextMenuDismissed ,
webViewContextMenuDismissedCallbackWrapper,
webViewContextMenuDismissedClosure ,
-- ** Create
WebViewCreateCallback ,
WebViewCreateCallbackC ,
WebViewCreateSignalInfo ,
afterWebViewCreate ,
mkWebViewCreateCallback ,
noWebViewCreateCallback ,
onWebViewCreate ,
webViewCreateCallbackWrapper ,
webViewCreateClosure ,
-- ** DecidePolicy
WebViewDecidePolicyCallback ,
WebViewDecidePolicyCallbackC ,
WebViewDecidePolicySignalInfo ,
afterWebViewDecidePolicy ,
mkWebViewDecidePolicyCallback ,
noWebViewDecidePolicyCallback ,
onWebViewDecidePolicy ,
webViewDecidePolicyCallbackWrapper ,
webViewDecidePolicyClosure ,
-- ** EnterFullscreen
WebViewEnterFullscreenCallback ,
WebViewEnterFullscreenCallbackC ,
WebViewEnterFullscreenSignalInfo ,
afterWebViewEnterFullscreen ,
mkWebViewEnterFullscreenCallback ,
noWebViewEnterFullscreenCallback ,
onWebViewEnterFullscreen ,
webViewEnterFullscreenCallbackWrapper ,
webViewEnterFullscreenClosure ,
-- ** InsecureContentDetected
WebViewInsecureContentDetectedCallback ,
WebViewInsecureContentDetectedCallbackC ,
WebViewInsecureContentDetectedSignalInfo,
afterWebViewInsecureContentDetected ,
mkWebViewInsecureContentDetectedCallback,
noWebViewInsecureContentDetectedCallback,
onWebViewInsecureContentDetected ,
webViewInsecureContentDetectedCallbackWrapper,
webViewInsecureContentDetectedClosure ,
-- ** LeaveFullscreen
WebViewLeaveFullscreenCallback ,
WebViewLeaveFullscreenCallbackC ,
WebViewLeaveFullscreenSignalInfo ,
afterWebViewLeaveFullscreen ,
mkWebViewLeaveFullscreenCallback ,
noWebViewLeaveFullscreenCallback ,
onWebViewLeaveFullscreen ,
webViewLeaveFullscreenCallbackWrapper ,
webViewLeaveFullscreenClosure ,
-- ** LoadChanged
WebViewLoadChangedCallback ,
WebViewLoadChangedCallbackC ,
WebViewLoadChangedSignalInfo ,
afterWebViewLoadChanged ,
mkWebViewLoadChangedCallback ,
noWebViewLoadChangedCallback ,
onWebViewLoadChanged ,
webViewLoadChangedCallbackWrapper ,
webViewLoadChangedClosure ,
-- ** LoadFailed
WebViewLoadFailedCallback ,
WebViewLoadFailedCallbackC ,
WebViewLoadFailedSignalInfo ,
afterWebViewLoadFailed ,
mkWebViewLoadFailedCallback ,
noWebViewLoadFailedCallback ,
onWebViewLoadFailed ,
webViewLoadFailedCallbackWrapper ,
webViewLoadFailedClosure ,
-- ** LoadFailedWithTlsErrors
WebViewLoadFailedWithTlsErrorsCallback ,
WebViewLoadFailedWithTlsErrorsCallbackC ,
WebViewLoadFailedWithTlsErrorsSignalInfo,
afterWebViewLoadFailedWithTlsErrors ,
mkWebViewLoadFailedWithTlsErrorsCallback,
noWebViewLoadFailedWithTlsErrorsCallback,
onWebViewLoadFailedWithTlsErrors ,
webViewLoadFailedWithTlsErrorsCallbackWrapper,
webViewLoadFailedWithTlsErrorsClosure ,
-- ** MouseTargetChanged
WebViewMouseTargetChangedCallback ,
WebViewMouseTargetChangedCallbackC ,
WebViewMouseTargetChangedSignalInfo ,
afterWebViewMouseTargetChanged ,
mkWebViewMouseTargetChangedCallback ,
noWebViewMouseTargetChangedCallback ,
onWebViewMouseTargetChanged ,
webViewMouseTargetChangedCallbackWrapper,
webViewMouseTargetChangedClosure ,
-- ** PermissionRequest
WebViewPermissionRequestCallback ,
WebViewPermissionRequestCallbackC ,
WebViewPermissionRequestSignalInfo ,
afterWebViewPermissionRequest ,
mkWebViewPermissionRequestCallback ,
noWebViewPermissionRequestCallback ,
onWebViewPermissionRequest ,
webViewPermissionRequestCallbackWrapper ,
webViewPermissionRequestClosure ,
-- ** Print
WebViewPrintCallback ,
WebViewPrintCallbackC ,
WebViewPrintSignalInfo ,
afterWebViewPrint ,
mkWebViewPrintCallback ,
noWebViewPrintCallback ,
onWebViewPrint ,
webViewPrintCallbackWrapper ,
webViewPrintClosure ,
-- ** ReadyToShow
WebViewReadyToShowCallback ,
WebViewReadyToShowCallbackC ,
WebViewReadyToShowSignalInfo ,
afterWebViewReadyToShow ,
mkWebViewReadyToShowCallback ,
noWebViewReadyToShowCallback ,
onWebViewReadyToShow ,
webViewReadyToShowCallbackWrapper ,
webViewReadyToShowClosure ,
-- ** ResourceLoadStarted
WebViewResourceLoadStartedCallback ,
WebViewResourceLoadStartedCallbackC ,
WebViewResourceLoadStartedSignalInfo ,
afterWebViewResourceLoadStarted ,
mkWebViewResourceLoadStartedCallback ,
noWebViewResourceLoadStartedCallback ,
onWebViewResourceLoadStarted ,
webViewResourceLoadStartedCallbackWrapper,
webViewResourceLoadStartedClosure ,
-- ** RunAsModal
WebViewRunAsModalCallback ,
WebViewRunAsModalCallbackC ,
WebViewRunAsModalSignalInfo ,
afterWebViewRunAsModal ,
mkWebViewRunAsModalCallback ,
noWebViewRunAsModalCallback ,
onWebViewRunAsModal ,
webViewRunAsModalCallbackWrapper ,
webViewRunAsModalClosure ,
-- ** RunColorChooser
WebViewRunColorChooserCallback ,
WebViewRunColorChooserCallbackC ,
WebViewRunColorChooserSignalInfo ,
afterWebViewRunColorChooser ,
mkWebViewRunColorChooserCallback ,
noWebViewRunColorChooserCallback ,
onWebViewRunColorChooser ,
webViewRunColorChooserCallbackWrapper ,
webViewRunColorChooserClosure ,
-- ** RunFileChooser
WebViewRunFileChooserCallback ,
WebViewRunFileChooserCallbackC ,
WebViewRunFileChooserSignalInfo ,
afterWebViewRunFileChooser ,
mkWebViewRunFileChooserCallback ,
noWebViewRunFileChooserCallback ,
onWebViewRunFileChooser ,
webViewRunFileChooserCallbackWrapper ,
webViewRunFileChooserClosure ,
-- ** ScriptDialog
WebViewScriptDialogCallback ,
WebViewScriptDialogCallbackC ,
WebViewScriptDialogSignalInfo ,
afterWebViewScriptDialog ,
mkWebViewScriptDialogCallback ,
noWebViewScriptDialogCallback ,
onWebViewScriptDialog ,
webViewScriptDialogCallbackWrapper ,
webViewScriptDialogClosure ,
-- ** ShowNotification
WebViewShowNotificationCallback ,
WebViewShowNotificationCallbackC ,
WebViewShowNotificationSignalInfo ,
afterWebViewShowNotification ,
mkWebViewShowNotificationCallback ,
noWebViewShowNotificationCallback ,
onWebViewShowNotification ,
webViewShowNotificationCallbackWrapper ,
webViewShowNotificationClosure ,
-- ** SubmitForm
WebViewSubmitFormCallback ,
WebViewSubmitFormCallbackC ,
WebViewSubmitFormSignalInfo ,
afterWebViewSubmitForm ,
mkWebViewSubmitFormCallback ,
noWebViewSubmitFormCallback ,
onWebViewSubmitForm ,
webViewSubmitFormCallbackWrapper ,
webViewSubmitFormClosure ,
-- ** WebProcessCrashed
WebViewWebProcessCrashedCallback ,
WebViewWebProcessCrashedCallbackC ,
WebViewWebProcessCrashedSignalInfo ,
afterWebViewWebProcessCrashed ,
mkWebViewWebProcessCrashedCallback ,
noWebViewWebProcessCrashedCallback ,
onWebViewWebProcessCrashed ,
webViewWebProcessCrashedCallbackWrapper ,
webViewWebProcessCrashedClosure ,
) 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.WebKit2.Types
import GI.WebKit2.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
import qualified GI.Gio as Gio
import qualified GI.Gtk as Gtk
import qualified GI.JavaScriptCore as JavaScriptCore
import qualified GI.Cairo as Cairo
newtype WebView = WebView (ForeignPtr WebView)
foreign import ccall "webkit_web_view_get_type"
c_webkit_web_view_get_type :: IO GType
type instance ParentTypes WebView = WebViewParentTypes
type WebViewParentTypes = '[WebViewBase, Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable]
instance GObject WebView where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_webkit_web_view_get_type
class GObject o => WebViewK o
instance (GObject o, IsDescendantOf WebView o) => WebViewK o
toWebView :: WebViewK o => o -> IO WebView
toWebView = unsafeCastTo WebView
noWebView :: Maybe WebView
noWebView = Nothing
-- signal WebView::authenticate
type WebViewAuthenticateCallback =
AuthenticationRequest ->
IO Bool
noWebViewAuthenticateCallback :: Maybe WebViewAuthenticateCallback
noWebViewAuthenticateCallback = Nothing
type WebViewAuthenticateCallbackC =
Ptr () -> -- object
Ptr AuthenticationRequest ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewAuthenticateCallback :: WebViewAuthenticateCallbackC -> IO (FunPtr WebViewAuthenticateCallbackC)
webViewAuthenticateClosure :: WebViewAuthenticateCallback -> IO Closure
webViewAuthenticateClosure cb = newCClosure =<< mkWebViewAuthenticateCallback wrapped
where wrapped = webViewAuthenticateCallbackWrapper cb
webViewAuthenticateCallbackWrapper ::
WebViewAuthenticateCallback ->
Ptr () ->
Ptr AuthenticationRequest ->
Ptr () ->
IO CInt
webViewAuthenticateCallbackWrapper _cb _ request _ = do
request' <- (newObject AuthenticationRequest) request
result <- _cb request'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId
onWebViewAuthenticate obj cb = liftIO $ connectWebViewAuthenticate obj cb SignalConnectBefore
afterWebViewAuthenticate :: (GObject a, MonadIO m) => a -> WebViewAuthenticateCallback -> m SignalHandlerId
afterWebViewAuthenticate obj cb = connectWebViewAuthenticate obj cb SignalConnectAfter
connectWebViewAuthenticate :: (GObject a, MonadIO m) =>
a -> WebViewAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewAuthenticate obj cb after = liftIO $ do
cb' <- mkWebViewAuthenticateCallback (webViewAuthenticateCallbackWrapper cb)
connectSignalFunPtr obj "authenticate" cb' after
-- signal WebView::close
type WebViewCloseCallback =
IO ()
noWebViewCloseCallback :: Maybe WebViewCloseCallback
noWebViewCloseCallback = Nothing
type WebViewCloseCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewCloseCallback :: WebViewCloseCallbackC -> IO (FunPtr WebViewCloseCallbackC)
webViewCloseClosure :: WebViewCloseCallback -> IO Closure
webViewCloseClosure cb = newCClosure =<< mkWebViewCloseCallback wrapped
where wrapped = webViewCloseCallbackWrapper cb
webViewCloseCallbackWrapper ::
WebViewCloseCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewCloseCallbackWrapper _cb _ _ = do
_cb
onWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId
onWebViewClose obj cb = liftIO $ connectWebViewClose obj cb SignalConnectBefore
afterWebViewClose :: (GObject a, MonadIO m) => a -> WebViewCloseCallback -> m SignalHandlerId
afterWebViewClose obj cb = connectWebViewClose obj cb SignalConnectAfter
connectWebViewClose :: (GObject a, MonadIO m) =>
a -> WebViewCloseCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewClose obj cb after = liftIO $ do
cb' <- mkWebViewCloseCallback (webViewCloseCallbackWrapper cb)
connectSignalFunPtr obj "close" cb' after
-- signal WebView::context-menu
type WebViewContextMenuCallback =
ContextMenu ->
Gdk.Event ->
HitTestResult ->
IO Bool
noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback
noWebViewContextMenuCallback = Nothing
type WebViewContextMenuCallbackC =
Ptr () -> -- object
Ptr ContextMenu ->
Ptr Gdk.Event ->
Ptr HitTestResult ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewContextMenuCallback :: WebViewContextMenuCallbackC -> IO (FunPtr WebViewContextMenuCallbackC)
webViewContextMenuClosure :: WebViewContextMenuCallback -> IO Closure
webViewContextMenuClosure cb = newCClosure =<< mkWebViewContextMenuCallback wrapped
where wrapped = webViewContextMenuCallbackWrapper cb
webViewContextMenuCallbackWrapper ::
WebViewContextMenuCallback ->
Ptr () ->
Ptr ContextMenu ->
Ptr Gdk.Event ->
Ptr HitTestResult ->
Ptr () ->
IO CInt
webViewContextMenuCallbackWrapper _cb _ context_menu event hit_test_result _ = do
context_menu' <- (newObject ContextMenu) context_menu
event' <- (newBoxed Gdk.Event) event
hit_test_result' <- (newObject HitTestResult) hit_test_result
result <- _cb context_menu' event' hit_test_result'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId
onWebViewContextMenu obj cb = liftIO $ connectWebViewContextMenu obj cb SignalConnectBefore
afterWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId
afterWebViewContextMenu obj cb = connectWebViewContextMenu obj cb SignalConnectAfter
connectWebViewContextMenu :: (GObject a, MonadIO m) =>
a -> WebViewContextMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewContextMenu obj cb after = liftIO $ do
cb' <- mkWebViewContextMenuCallback (webViewContextMenuCallbackWrapper cb)
connectSignalFunPtr obj "context-menu" cb' after
-- signal WebView::context-menu-dismissed
type WebViewContextMenuDismissedCallback =
IO ()
noWebViewContextMenuDismissedCallback :: Maybe WebViewContextMenuDismissedCallback
noWebViewContextMenuDismissedCallback = Nothing
type WebViewContextMenuDismissedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewContextMenuDismissedCallback :: WebViewContextMenuDismissedCallbackC -> IO (FunPtr WebViewContextMenuDismissedCallbackC)
webViewContextMenuDismissedClosure :: WebViewContextMenuDismissedCallback -> IO Closure
webViewContextMenuDismissedClosure cb = newCClosure =<< mkWebViewContextMenuDismissedCallback wrapped
where wrapped = webViewContextMenuDismissedCallbackWrapper cb
webViewContextMenuDismissedCallbackWrapper ::
WebViewContextMenuDismissedCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewContextMenuDismissedCallbackWrapper _cb _ _ = do
_cb
onWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId
onWebViewContextMenuDismissed obj cb = liftIO $ connectWebViewContextMenuDismissed obj cb SignalConnectBefore
afterWebViewContextMenuDismissed :: (GObject a, MonadIO m) => a -> WebViewContextMenuDismissedCallback -> m SignalHandlerId
afterWebViewContextMenuDismissed obj cb = connectWebViewContextMenuDismissed obj cb SignalConnectAfter
connectWebViewContextMenuDismissed :: (GObject a, MonadIO m) =>
a -> WebViewContextMenuDismissedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewContextMenuDismissed obj cb after = liftIO $ do
cb' <- mkWebViewContextMenuDismissedCallback (webViewContextMenuDismissedCallbackWrapper cb)
connectSignalFunPtr obj "context-menu-dismissed" cb' after
-- signal WebView::create
type WebViewCreateCallback =
NavigationAction ->
IO Gtk.Widget
noWebViewCreateCallback :: Maybe WebViewCreateCallback
noWebViewCreateCallback = Nothing
type WebViewCreateCallbackC =
Ptr () -> -- object
Ptr NavigationAction ->
Ptr () -> -- user_data
IO (Ptr Gtk.Widget)
foreign import ccall "wrapper"
mkWebViewCreateCallback :: WebViewCreateCallbackC -> IO (FunPtr WebViewCreateCallbackC)
webViewCreateClosure :: WebViewCreateCallback -> IO Closure
webViewCreateClosure cb = newCClosure =<< mkWebViewCreateCallback wrapped
where wrapped = webViewCreateCallbackWrapper cb
webViewCreateCallbackWrapper ::
WebViewCreateCallback ->
Ptr () ->
Ptr NavigationAction ->
Ptr () ->
IO (Ptr Gtk.Widget)
webViewCreateCallbackWrapper _cb _ navigation_action _ = do
navigation_action' <- (newBoxed NavigationAction) navigation_action
result <- _cb navigation_action'
result' <- refObject result
return result'
onWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId
onWebViewCreate obj cb = liftIO $ connectWebViewCreate obj cb SignalConnectBefore
afterWebViewCreate :: (GObject a, MonadIO m) => a -> WebViewCreateCallback -> m SignalHandlerId
afterWebViewCreate obj cb = connectWebViewCreate obj cb SignalConnectAfter
connectWebViewCreate :: (GObject a, MonadIO m) =>
a -> WebViewCreateCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewCreate obj cb after = liftIO $ do
cb' <- mkWebViewCreateCallback (webViewCreateCallbackWrapper cb)
connectSignalFunPtr obj "create" cb' after
-- signal WebView::decide-policy
type WebViewDecidePolicyCallback =
PolicyDecision ->
PolicyDecisionType ->
IO Bool
noWebViewDecidePolicyCallback :: Maybe WebViewDecidePolicyCallback
noWebViewDecidePolicyCallback = Nothing
type WebViewDecidePolicyCallbackC =
Ptr () -> -- object
Ptr PolicyDecision ->
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewDecidePolicyCallback :: WebViewDecidePolicyCallbackC -> IO (FunPtr WebViewDecidePolicyCallbackC)
webViewDecidePolicyClosure :: WebViewDecidePolicyCallback -> IO Closure
webViewDecidePolicyClosure cb = newCClosure =<< mkWebViewDecidePolicyCallback wrapped
where wrapped = webViewDecidePolicyCallbackWrapper cb
webViewDecidePolicyCallbackWrapper ::
WebViewDecidePolicyCallback ->
Ptr () ->
Ptr PolicyDecision ->
CUInt ->
Ptr () ->
IO CInt
webViewDecidePolicyCallbackWrapper _cb _ decision decision_type _ = do
decision' <- (newObject PolicyDecision) decision
let decision_type' = (toEnum . fromIntegral) decision_type
result <- _cb decision' decision_type'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId
onWebViewDecidePolicy obj cb = liftIO $ connectWebViewDecidePolicy obj cb SignalConnectBefore
afterWebViewDecidePolicy :: (GObject a, MonadIO m) => a -> WebViewDecidePolicyCallback -> m SignalHandlerId
afterWebViewDecidePolicy obj cb = connectWebViewDecidePolicy obj cb SignalConnectAfter
connectWebViewDecidePolicy :: (GObject a, MonadIO m) =>
a -> WebViewDecidePolicyCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewDecidePolicy obj cb after = liftIO $ do
cb' <- mkWebViewDecidePolicyCallback (webViewDecidePolicyCallbackWrapper cb)
connectSignalFunPtr obj "decide-policy" cb' after
-- signal WebView::enter-fullscreen
type WebViewEnterFullscreenCallback =
IO Bool
noWebViewEnterFullscreenCallback :: Maybe WebViewEnterFullscreenCallback
noWebViewEnterFullscreenCallback = Nothing
type WebViewEnterFullscreenCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewEnterFullscreenCallback :: WebViewEnterFullscreenCallbackC -> IO (FunPtr WebViewEnterFullscreenCallbackC)
webViewEnterFullscreenClosure :: WebViewEnterFullscreenCallback -> IO Closure
webViewEnterFullscreenClosure cb = newCClosure =<< mkWebViewEnterFullscreenCallback wrapped
where wrapped = webViewEnterFullscreenCallbackWrapper cb
webViewEnterFullscreenCallbackWrapper ::
WebViewEnterFullscreenCallback ->
Ptr () ->
Ptr () ->
IO CInt
webViewEnterFullscreenCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
onWebViewEnterFullscreen obj cb = liftIO $ connectWebViewEnterFullscreen obj cb SignalConnectBefore
afterWebViewEnterFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnterFullscreenCallback -> m SignalHandlerId
afterWebViewEnterFullscreen obj cb = connectWebViewEnterFullscreen obj cb SignalConnectAfter
connectWebViewEnterFullscreen :: (GObject a, MonadIO m) =>
a -> WebViewEnterFullscreenCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewEnterFullscreen obj cb after = liftIO $ do
cb' <- mkWebViewEnterFullscreenCallback (webViewEnterFullscreenCallbackWrapper cb)
connectSignalFunPtr obj "enter-fullscreen" cb' after
-- signal WebView::insecure-content-detected
type WebViewInsecureContentDetectedCallback =
InsecureContentEvent ->
IO ()
noWebViewInsecureContentDetectedCallback :: Maybe WebViewInsecureContentDetectedCallback
noWebViewInsecureContentDetectedCallback = Nothing
type WebViewInsecureContentDetectedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewInsecureContentDetectedCallback :: WebViewInsecureContentDetectedCallbackC -> IO (FunPtr WebViewInsecureContentDetectedCallbackC)
webViewInsecureContentDetectedClosure :: WebViewInsecureContentDetectedCallback -> IO Closure
webViewInsecureContentDetectedClosure cb = newCClosure =<< mkWebViewInsecureContentDetectedCallback wrapped
where wrapped = webViewInsecureContentDetectedCallbackWrapper cb
webViewInsecureContentDetectedCallbackWrapper ::
WebViewInsecureContentDetectedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
webViewInsecureContentDetectedCallbackWrapper _cb _ event _ = do
let event' = (toEnum . fromIntegral) event
_cb event'
onWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId
onWebViewInsecureContentDetected obj cb = liftIO $ connectWebViewInsecureContentDetected obj cb SignalConnectBefore
afterWebViewInsecureContentDetected :: (GObject a, MonadIO m) => a -> WebViewInsecureContentDetectedCallback -> m SignalHandlerId
afterWebViewInsecureContentDetected obj cb = connectWebViewInsecureContentDetected obj cb SignalConnectAfter
connectWebViewInsecureContentDetected :: (GObject a, MonadIO m) =>
a -> WebViewInsecureContentDetectedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewInsecureContentDetected obj cb after = liftIO $ do
cb' <- mkWebViewInsecureContentDetectedCallback (webViewInsecureContentDetectedCallbackWrapper cb)
connectSignalFunPtr obj "insecure-content-detected" cb' after
-- signal WebView::leave-fullscreen
type WebViewLeaveFullscreenCallback =
IO Bool
noWebViewLeaveFullscreenCallback :: Maybe WebViewLeaveFullscreenCallback
noWebViewLeaveFullscreenCallback = Nothing
type WebViewLeaveFullscreenCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewLeaveFullscreenCallback :: WebViewLeaveFullscreenCallbackC -> IO (FunPtr WebViewLeaveFullscreenCallbackC)
webViewLeaveFullscreenClosure :: WebViewLeaveFullscreenCallback -> IO Closure
webViewLeaveFullscreenClosure cb = newCClosure =<< mkWebViewLeaveFullscreenCallback wrapped
where wrapped = webViewLeaveFullscreenCallbackWrapper cb
webViewLeaveFullscreenCallbackWrapper ::
WebViewLeaveFullscreenCallback ->
Ptr () ->
Ptr () ->
IO CInt
webViewLeaveFullscreenCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId
onWebViewLeaveFullscreen obj cb = liftIO $ connectWebViewLeaveFullscreen obj cb SignalConnectBefore
afterWebViewLeaveFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeaveFullscreenCallback -> m SignalHandlerId
afterWebViewLeaveFullscreen obj cb = connectWebViewLeaveFullscreen obj cb SignalConnectAfter
connectWebViewLeaveFullscreen :: (GObject a, MonadIO m) =>
a -> WebViewLeaveFullscreenCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLeaveFullscreen obj cb after = liftIO $ do
cb' <- mkWebViewLeaveFullscreenCallback (webViewLeaveFullscreenCallbackWrapper cb)
connectSignalFunPtr obj "leave-fullscreen" cb' after
-- signal WebView::load-changed
type WebViewLoadChangedCallback =
LoadEvent ->
IO ()
noWebViewLoadChangedCallback :: Maybe WebViewLoadChangedCallback
noWebViewLoadChangedCallback = Nothing
type WebViewLoadChangedCallbackC =
Ptr () -> -- object
CUInt ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewLoadChangedCallback :: WebViewLoadChangedCallbackC -> IO (FunPtr WebViewLoadChangedCallbackC)
webViewLoadChangedClosure :: WebViewLoadChangedCallback -> IO Closure
webViewLoadChangedClosure cb = newCClosure =<< mkWebViewLoadChangedCallback wrapped
where wrapped = webViewLoadChangedCallbackWrapper cb
webViewLoadChangedCallbackWrapper ::
WebViewLoadChangedCallback ->
Ptr () ->
CUInt ->
Ptr () ->
IO ()
webViewLoadChangedCallbackWrapper _cb _ load_event _ = do
let load_event' = (toEnum . fromIntegral) load_event
_cb load_event'
onWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId
onWebViewLoadChanged obj cb = liftIO $ connectWebViewLoadChanged obj cb SignalConnectBefore
afterWebViewLoadChanged :: (GObject a, MonadIO m) => a -> WebViewLoadChangedCallback -> m SignalHandlerId
afterWebViewLoadChanged obj cb = connectWebViewLoadChanged obj cb SignalConnectAfter
connectWebViewLoadChanged :: (GObject a, MonadIO m) =>
a -> WebViewLoadChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLoadChanged obj cb after = liftIO $ do
cb' <- mkWebViewLoadChangedCallback (webViewLoadChangedCallbackWrapper cb)
connectSignalFunPtr obj "load-changed" cb' after
-- signal WebView::load-failed
type WebViewLoadFailedCallback =
LoadEvent ->
T.Text ->
Ptr () ->
IO Bool
noWebViewLoadFailedCallback :: Maybe WebViewLoadFailedCallback
noWebViewLoadFailedCallback = Nothing
type WebViewLoadFailedCallbackC =
Ptr () -> -- object
CUInt ->
CString ->
Ptr () ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewLoadFailedCallback :: WebViewLoadFailedCallbackC -> IO (FunPtr WebViewLoadFailedCallbackC)
webViewLoadFailedClosure :: WebViewLoadFailedCallback -> IO Closure
webViewLoadFailedClosure cb = newCClosure =<< mkWebViewLoadFailedCallback wrapped
where wrapped = webViewLoadFailedCallbackWrapper cb
webViewLoadFailedCallbackWrapper ::
WebViewLoadFailedCallback ->
Ptr () ->
CUInt ->
CString ->
Ptr () ->
Ptr () ->
IO CInt
webViewLoadFailedCallbackWrapper _cb _ load_event failing_uri error_ _ = do
let load_event' = (toEnum . fromIntegral) load_event
failing_uri' <- cstringToText failing_uri
result <- _cb load_event' failing_uri' error_
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId
onWebViewLoadFailed obj cb = liftIO $ connectWebViewLoadFailed obj cb SignalConnectBefore
afterWebViewLoadFailed :: (GObject a, MonadIO m) => a -> WebViewLoadFailedCallback -> m SignalHandlerId
afterWebViewLoadFailed obj cb = connectWebViewLoadFailed obj cb SignalConnectAfter
connectWebViewLoadFailed :: (GObject a, MonadIO m) =>
a -> WebViewLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLoadFailed obj cb after = liftIO $ do
cb' <- mkWebViewLoadFailedCallback (webViewLoadFailedCallbackWrapper cb)
connectSignalFunPtr obj "load-failed" cb' after
-- signal WebView::load-failed-with-tls-errors
type WebViewLoadFailedWithTlsErrorsCallback =
T.Text ->
Gio.TlsCertificate ->
[Gio.TlsCertificateFlags] ->
IO Bool
noWebViewLoadFailedWithTlsErrorsCallback :: Maybe WebViewLoadFailedWithTlsErrorsCallback
noWebViewLoadFailedWithTlsErrorsCallback = Nothing
type WebViewLoadFailedWithTlsErrorsCallbackC =
Ptr () -> -- object
CString ->
Ptr Gio.TlsCertificate ->
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewLoadFailedWithTlsErrorsCallback :: WebViewLoadFailedWithTlsErrorsCallbackC -> IO (FunPtr WebViewLoadFailedWithTlsErrorsCallbackC)
webViewLoadFailedWithTlsErrorsClosure :: WebViewLoadFailedWithTlsErrorsCallback -> IO Closure
webViewLoadFailedWithTlsErrorsClosure cb = newCClosure =<< mkWebViewLoadFailedWithTlsErrorsCallback wrapped
where wrapped = webViewLoadFailedWithTlsErrorsCallbackWrapper cb
webViewLoadFailedWithTlsErrorsCallbackWrapper ::
WebViewLoadFailedWithTlsErrorsCallback ->
Ptr () ->
CString ->
Ptr Gio.TlsCertificate ->
CUInt ->
Ptr () ->
IO CInt
webViewLoadFailedWithTlsErrorsCallbackWrapper _cb _ failing_uri certificate errors _ = do
failing_uri' <- cstringToText failing_uri
certificate' <- (newObject Gio.TlsCertificate) certificate
let errors' = wordToGFlags errors
result <- _cb failing_uri' certificate' errors'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId
onWebViewLoadFailedWithTlsErrors obj cb = liftIO $ connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectBefore
afterWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) => a -> WebViewLoadFailedWithTlsErrorsCallback -> m SignalHandlerId
afterWebViewLoadFailedWithTlsErrors obj cb = connectWebViewLoadFailedWithTlsErrors obj cb SignalConnectAfter
connectWebViewLoadFailedWithTlsErrors :: (GObject a, MonadIO m) =>
a -> WebViewLoadFailedWithTlsErrorsCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLoadFailedWithTlsErrors obj cb after = liftIO $ do
cb' <- mkWebViewLoadFailedWithTlsErrorsCallback (webViewLoadFailedWithTlsErrorsCallbackWrapper cb)
connectSignalFunPtr obj "load-failed-with-tls-errors" cb' after
-- signal WebView::mouse-target-changed
type WebViewMouseTargetChangedCallback =
HitTestResult ->
Word32 ->
IO ()
noWebViewMouseTargetChangedCallback :: Maybe WebViewMouseTargetChangedCallback
noWebViewMouseTargetChangedCallback = Nothing
type WebViewMouseTargetChangedCallbackC =
Ptr () -> -- object
Ptr HitTestResult ->
Word32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewMouseTargetChangedCallback :: WebViewMouseTargetChangedCallbackC -> IO (FunPtr WebViewMouseTargetChangedCallbackC)
webViewMouseTargetChangedClosure :: WebViewMouseTargetChangedCallback -> IO Closure
webViewMouseTargetChangedClosure cb = newCClosure =<< mkWebViewMouseTargetChangedCallback wrapped
where wrapped = webViewMouseTargetChangedCallbackWrapper cb
webViewMouseTargetChangedCallbackWrapper ::
WebViewMouseTargetChangedCallback ->
Ptr () ->
Ptr HitTestResult ->
Word32 ->
Ptr () ->
IO ()
webViewMouseTargetChangedCallbackWrapper _cb _ hit_test_result modifiers _ = do
hit_test_result' <- (newObject HitTestResult) hit_test_result
_cb hit_test_result' modifiers
onWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId
onWebViewMouseTargetChanged obj cb = liftIO $ connectWebViewMouseTargetChanged obj cb SignalConnectBefore
afterWebViewMouseTargetChanged :: (GObject a, MonadIO m) => a -> WebViewMouseTargetChangedCallback -> m SignalHandlerId
afterWebViewMouseTargetChanged obj cb = connectWebViewMouseTargetChanged obj cb SignalConnectAfter
connectWebViewMouseTargetChanged :: (GObject a, MonadIO m) =>
a -> WebViewMouseTargetChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewMouseTargetChanged obj cb after = liftIO $ do
cb' <- mkWebViewMouseTargetChangedCallback (webViewMouseTargetChangedCallbackWrapper cb)
connectSignalFunPtr obj "mouse-target-changed" cb' after
-- signal WebView::permission-request
type WebViewPermissionRequestCallback =
PermissionRequest ->
IO Bool
noWebViewPermissionRequestCallback :: Maybe WebViewPermissionRequestCallback
noWebViewPermissionRequestCallback = Nothing
type WebViewPermissionRequestCallbackC =
Ptr () -> -- object
Ptr PermissionRequest ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewPermissionRequestCallback :: WebViewPermissionRequestCallbackC -> IO (FunPtr WebViewPermissionRequestCallbackC)
webViewPermissionRequestClosure :: WebViewPermissionRequestCallback -> IO Closure
webViewPermissionRequestClosure cb = newCClosure =<< mkWebViewPermissionRequestCallback wrapped
where wrapped = webViewPermissionRequestCallbackWrapper cb
webViewPermissionRequestCallbackWrapper ::
WebViewPermissionRequestCallback ->
Ptr () ->
Ptr PermissionRequest ->
Ptr () ->
IO CInt
webViewPermissionRequestCallbackWrapper _cb _ request _ = do
request' <- (newObject PermissionRequest) request
result <- _cb request'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId
onWebViewPermissionRequest obj cb = liftIO $ connectWebViewPermissionRequest obj cb SignalConnectBefore
afterWebViewPermissionRequest :: (GObject a, MonadIO m) => a -> WebViewPermissionRequestCallback -> m SignalHandlerId
afterWebViewPermissionRequest obj cb = connectWebViewPermissionRequest obj cb SignalConnectAfter
connectWebViewPermissionRequest :: (GObject a, MonadIO m) =>
a -> WebViewPermissionRequestCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewPermissionRequest obj cb after = liftIO $ do
cb' <- mkWebViewPermissionRequestCallback (webViewPermissionRequestCallbackWrapper cb)
connectSignalFunPtr obj "permission-request" cb' after
-- signal WebView::print
type WebViewPrintCallback =
PrintOperation ->
IO Bool
noWebViewPrintCallback :: Maybe WebViewPrintCallback
noWebViewPrintCallback = Nothing
type WebViewPrintCallbackC =
Ptr () -> -- object
Ptr PrintOperation ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewPrintCallback :: WebViewPrintCallbackC -> IO (FunPtr WebViewPrintCallbackC)
webViewPrintClosure :: WebViewPrintCallback -> IO Closure
webViewPrintClosure cb = newCClosure =<< mkWebViewPrintCallback wrapped
where wrapped = webViewPrintCallbackWrapper cb
webViewPrintCallbackWrapper ::
WebViewPrintCallback ->
Ptr () ->
Ptr PrintOperation ->
Ptr () ->
IO CInt
webViewPrintCallbackWrapper _cb _ print_operation _ = do
print_operation' <- (newObject PrintOperation) print_operation
result <- _cb print_operation'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId
onWebViewPrint obj cb = liftIO $ connectWebViewPrint obj cb SignalConnectBefore
afterWebViewPrint :: (GObject a, MonadIO m) => a -> WebViewPrintCallback -> m SignalHandlerId
afterWebViewPrint obj cb = connectWebViewPrint obj cb SignalConnectAfter
connectWebViewPrint :: (GObject a, MonadIO m) =>
a -> WebViewPrintCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewPrint obj cb after = liftIO $ do
cb' <- mkWebViewPrintCallback (webViewPrintCallbackWrapper cb)
connectSignalFunPtr obj "print" cb' after
-- signal WebView::ready-to-show
type WebViewReadyToShowCallback =
IO ()
noWebViewReadyToShowCallback :: Maybe WebViewReadyToShowCallback
noWebViewReadyToShowCallback = Nothing
type WebViewReadyToShowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewReadyToShowCallback :: WebViewReadyToShowCallbackC -> IO (FunPtr WebViewReadyToShowCallbackC)
webViewReadyToShowClosure :: WebViewReadyToShowCallback -> IO Closure
webViewReadyToShowClosure cb = newCClosure =<< mkWebViewReadyToShowCallback wrapped
where wrapped = webViewReadyToShowCallbackWrapper cb
webViewReadyToShowCallbackWrapper ::
WebViewReadyToShowCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewReadyToShowCallbackWrapper _cb _ _ = do
_cb
onWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId
onWebViewReadyToShow obj cb = liftIO $ connectWebViewReadyToShow obj cb SignalConnectBefore
afterWebViewReadyToShow :: (GObject a, MonadIO m) => a -> WebViewReadyToShowCallback -> m SignalHandlerId
afterWebViewReadyToShow obj cb = connectWebViewReadyToShow obj cb SignalConnectAfter
connectWebViewReadyToShow :: (GObject a, MonadIO m) =>
a -> WebViewReadyToShowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewReadyToShow obj cb after = liftIO $ do
cb' <- mkWebViewReadyToShowCallback (webViewReadyToShowCallbackWrapper cb)
connectSignalFunPtr obj "ready-to-show" cb' after
-- signal WebView::resource-load-started
type WebViewResourceLoadStartedCallback =
WebResource ->
URIRequest ->
IO ()
noWebViewResourceLoadStartedCallback :: Maybe WebViewResourceLoadStartedCallback
noWebViewResourceLoadStartedCallback = Nothing
type WebViewResourceLoadStartedCallbackC =
Ptr () -> -- object
Ptr WebResource ->
Ptr URIRequest ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewResourceLoadStartedCallback :: WebViewResourceLoadStartedCallbackC -> IO (FunPtr WebViewResourceLoadStartedCallbackC)
webViewResourceLoadStartedClosure :: WebViewResourceLoadStartedCallback -> IO Closure
webViewResourceLoadStartedClosure cb = newCClosure =<< mkWebViewResourceLoadStartedCallback wrapped
where wrapped = webViewResourceLoadStartedCallbackWrapper cb
webViewResourceLoadStartedCallbackWrapper ::
WebViewResourceLoadStartedCallback ->
Ptr () ->
Ptr WebResource ->
Ptr URIRequest ->
Ptr () ->
IO ()
webViewResourceLoadStartedCallbackWrapper _cb _ resource request _ = do
resource' <- (newObject WebResource) resource
request' <- (newObject URIRequest) request
_cb resource' request'
onWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId
onWebViewResourceLoadStarted obj cb = liftIO $ connectWebViewResourceLoadStarted obj cb SignalConnectBefore
afterWebViewResourceLoadStarted :: (GObject a, MonadIO m) => a -> WebViewResourceLoadStartedCallback -> m SignalHandlerId
afterWebViewResourceLoadStarted obj cb = connectWebViewResourceLoadStarted obj cb SignalConnectAfter
connectWebViewResourceLoadStarted :: (GObject a, MonadIO m) =>
a -> WebViewResourceLoadStartedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewResourceLoadStarted obj cb after = liftIO $ do
cb' <- mkWebViewResourceLoadStartedCallback (webViewResourceLoadStartedCallbackWrapper cb)
connectSignalFunPtr obj "resource-load-started" cb' after
-- signal WebView::run-as-modal
type WebViewRunAsModalCallback =
IO ()
noWebViewRunAsModalCallback :: Maybe WebViewRunAsModalCallback
noWebViewRunAsModalCallback = Nothing
type WebViewRunAsModalCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewRunAsModalCallback :: WebViewRunAsModalCallbackC -> IO (FunPtr WebViewRunAsModalCallbackC)
webViewRunAsModalClosure :: WebViewRunAsModalCallback -> IO Closure
webViewRunAsModalClosure cb = newCClosure =<< mkWebViewRunAsModalCallback wrapped
where wrapped = webViewRunAsModalCallbackWrapper cb
webViewRunAsModalCallbackWrapper ::
WebViewRunAsModalCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewRunAsModalCallbackWrapper _cb _ _ = do
_cb
onWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId
onWebViewRunAsModal obj cb = liftIO $ connectWebViewRunAsModal obj cb SignalConnectBefore
afterWebViewRunAsModal :: (GObject a, MonadIO m) => a -> WebViewRunAsModalCallback -> m SignalHandlerId
afterWebViewRunAsModal obj cb = connectWebViewRunAsModal obj cb SignalConnectAfter
connectWebViewRunAsModal :: (GObject a, MonadIO m) =>
a -> WebViewRunAsModalCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewRunAsModal obj cb after = liftIO $ do
cb' <- mkWebViewRunAsModalCallback (webViewRunAsModalCallbackWrapper cb)
connectSignalFunPtr obj "run-as-modal" cb' after
-- signal WebView::run-color-chooser
type WebViewRunColorChooserCallback =
ColorChooserRequest ->
IO Bool
noWebViewRunColorChooserCallback :: Maybe WebViewRunColorChooserCallback
noWebViewRunColorChooserCallback = Nothing
type WebViewRunColorChooserCallbackC =
Ptr () -> -- object
Ptr ColorChooserRequest ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewRunColorChooserCallback :: WebViewRunColorChooserCallbackC -> IO (FunPtr WebViewRunColorChooserCallbackC)
webViewRunColorChooserClosure :: WebViewRunColorChooserCallback -> IO Closure
webViewRunColorChooserClosure cb = newCClosure =<< mkWebViewRunColorChooserCallback wrapped
where wrapped = webViewRunColorChooserCallbackWrapper cb
webViewRunColorChooserCallbackWrapper ::
WebViewRunColorChooserCallback ->
Ptr () ->
Ptr ColorChooserRequest ->
Ptr () ->
IO CInt
webViewRunColorChooserCallbackWrapper _cb _ request _ = do
request' <- (newObject ColorChooserRequest) request
result <- _cb request'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId
onWebViewRunColorChooser obj cb = liftIO $ connectWebViewRunColorChooser obj cb SignalConnectBefore
afterWebViewRunColorChooser :: (GObject a, MonadIO m) => a -> WebViewRunColorChooserCallback -> m SignalHandlerId
afterWebViewRunColorChooser obj cb = connectWebViewRunColorChooser obj cb SignalConnectAfter
connectWebViewRunColorChooser :: (GObject a, MonadIO m) =>
a -> WebViewRunColorChooserCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewRunColorChooser obj cb after = liftIO $ do
cb' <- mkWebViewRunColorChooserCallback (webViewRunColorChooserCallbackWrapper cb)
connectSignalFunPtr obj "run-color-chooser" cb' after
-- signal WebView::run-file-chooser
type WebViewRunFileChooserCallback =
FileChooserRequest ->
IO Bool
noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback
noWebViewRunFileChooserCallback = Nothing
type WebViewRunFileChooserCallbackC =
Ptr () -> -- object
Ptr FileChooserRequest ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewRunFileChooserCallback :: WebViewRunFileChooserCallbackC -> IO (FunPtr WebViewRunFileChooserCallbackC)
webViewRunFileChooserClosure :: WebViewRunFileChooserCallback -> IO Closure
webViewRunFileChooserClosure cb = newCClosure =<< mkWebViewRunFileChooserCallback wrapped
where wrapped = webViewRunFileChooserCallbackWrapper cb
webViewRunFileChooserCallbackWrapper ::
WebViewRunFileChooserCallback ->
Ptr () ->
Ptr FileChooserRequest ->
Ptr () ->
IO CInt
webViewRunFileChooserCallbackWrapper _cb _ request _ = do
request' <- (newObject FileChooserRequest) request
result <- _cb request'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId
onWebViewRunFileChooser obj cb = liftIO $ connectWebViewRunFileChooser obj cb SignalConnectBefore
afterWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId
afterWebViewRunFileChooser obj cb = connectWebViewRunFileChooser obj cb SignalConnectAfter
connectWebViewRunFileChooser :: (GObject a, MonadIO m) =>
a -> WebViewRunFileChooserCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewRunFileChooser obj cb after = liftIO $ do
cb' <- mkWebViewRunFileChooserCallback (webViewRunFileChooserCallbackWrapper cb)
connectSignalFunPtr obj "run-file-chooser" cb' after
-- signal WebView::script-dialog
type WebViewScriptDialogCallback =
ScriptDialog ->
IO Bool
noWebViewScriptDialogCallback :: Maybe WebViewScriptDialogCallback
noWebViewScriptDialogCallback = Nothing
type WebViewScriptDialogCallbackC =
Ptr () -> -- object
Ptr ScriptDialog ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewScriptDialogCallback :: WebViewScriptDialogCallbackC -> IO (FunPtr WebViewScriptDialogCallbackC)
webViewScriptDialogClosure :: WebViewScriptDialogCallback -> IO Closure
webViewScriptDialogClosure cb = newCClosure =<< mkWebViewScriptDialogCallback wrapped
where wrapped = webViewScriptDialogCallbackWrapper cb
webViewScriptDialogCallbackWrapper ::
WebViewScriptDialogCallback ->
Ptr () ->
Ptr ScriptDialog ->
Ptr () ->
IO CInt
webViewScriptDialogCallbackWrapper _cb _ dialog _ = do
dialog' <- (newBoxed ScriptDialog) dialog
result <- _cb dialog'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId
onWebViewScriptDialog obj cb = liftIO $ connectWebViewScriptDialog obj cb SignalConnectBefore
afterWebViewScriptDialog :: (GObject a, MonadIO m) => a -> WebViewScriptDialogCallback -> m SignalHandlerId
afterWebViewScriptDialog obj cb = connectWebViewScriptDialog obj cb SignalConnectAfter
connectWebViewScriptDialog :: (GObject a, MonadIO m) =>
a -> WebViewScriptDialogCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewScriptDialog obj cb after = liftIO $ do
cb' <- mkWebViewScriptDialogCallback (webViewScriptDialogCallbackWrapper cb)
connectSignalFunPtr obj "script-dialog" cb' after
-- signal WebView::show-notification
type WebViewShowNotificationCallback =
Notification ->
IO Bool
noWebViewShowNotificationCallback :: Maybe WebViewShowNotificationCallback
noWebViewShowNotificationCallback = Nothing
type WebViewShowNotificationCallbackC =
Ptr () -> -- object
Ptr Notification ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShowNotificationCallback :: WebViewShowNotificationCallbackC -> IO (FunPtr WebViewShowNotificationCallbackC)
webViewShowNotificationClosure :: WebViewShowNotificationCallback -> IO Closure
webViewShowNotificationClosure cb = newCClosure =<< mkWebViewShowNotificationCallback wrapped
where wrapped = webViewShowNotificationCallbackWrapper cb
webViewShowNotificationCallbackWrapper ::
WebViewShowNotificationCallback ->
Ptr () ->
Ptr Notification ->
Ptr () ->
IO CInt
webViewShowNotificationCallbackWrapper _cb _ notification _ = do
notification' <- (newObject Notification) notification
result <- _cb notification'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId
onWebViewShowNotification obj cb = liftIO $ connectWebViewShowNotification obj cb SignalConnectBefore
afterWebViewShowNotification :: (GObject a, MonadIO m) => a -> WebViewShowNotificationCallback -> m SignalHandlerId
afterWebViewShowNotification obj cb = connectWebViewShowNotification obj cb SignalConnectAfter
connectWebViewShowNotification :: (GObject a, MonadIO m) =>
a -> WebViewShowNotificationCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShowNotification obj cb after = liftIO $ do
cb' <- mkWebViewShowNotificationCallback (webViewShowNotificationCallbackWrapper cb)
connectSignalFunPtr obj "show-notification" cb' after
-- signal WebView::submit-form
type WebViewSubmitFormCallback =
FormSubmissionRequest ->
IO ()
noWebViewSubmitFormCallback :: Maybe WebViewSubmitFormCallback
noWebViewSubmitFormCallback = Nothing
type WebViewSubmitFormCallbackC =
Ptr () -> -- object
Ptr FormSubmissionRequest ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewSubmitFormCallback :: WebViewSubmitFormCallbackC -> IO (FunPtr WebViewSubmitFormCallbackC)
webViewSubmitFormClosure :: WebViewSubmitFormCallback -> IO Closure
webViewSubmitFormClosure cb = newCClosure =<< mkWebViewSubmitFormCallback wrapped
where wrapped = webViewSubmitFormCallbackWrapper cb
webViewSubmitFormCallbackWrapper ::
WebViewSubmitFormCallback ->
Ptr () ->
Ptr FormSubmissionRequest ->
Ptr () ->
IO ()
webViewSubmitFormCallbackWrapper _cb _ request _ = do
request' <- (newObject FormSubmissionRequest) request
_cb request'
onWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId
onWebViewSubmitForm obj cb = liftIO $ connectWebViewSubmitForm obj cb SignalConnectBefore
afterWebViewSubmitForm :: (GObject a, MonadIO m) => a -> WebViewSubmitFormCallback -> m SignalHandlerId
afterWebViewSubmitForm obj cb = connectWebViewSubmitForm obj cb SignalConnectAfter
connectWebViewSubmitForm :: (GObject a, MonadIO m) =>
a -> WebViewSubmitFormCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewSubmitForm obj cb after = liftIO $ do
cb' <- mkWebViewSubmitFormCallback (webViewSubmitFormCallbackWrapper cb)
connectSignalFunPtr obj "submit-form" cb' after
-- signal WebView::web-process-crashed
type WebViewWebProcessCrashedCallback =
IO Bool
noWebViewWebProcessCrashedCallback :: Maybe WebViewWebProcessCrashedCallback
noWebViewWebProcessCrashedCallback = Nothing
type WebViewWebProcessCrashedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewWebProcessCrashedCallback :: WebViewWebProcessCrashedCallbackC -> IO (FunPtr WebViewWebProcessCrashedCallbackC)
webViewWebProcessCrashedClosure :: WebViewWebProcessCrashedCallback -> IO Closure
webViewWebProcessCrashedClosure cb = newCClosure =<< mkWebViewWebProcessCrashedCallback wrapped
where wrapped = webViewWebProcessCrashedCallbackWrapper cb
webViewWebProcessCrashedCallbackWrapper ::
WebViewWebProcessCrashedCallback ->
Ptr () ->
Ptr () ->
IO CInt
webViewWebProcessCrashedCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId
onWebViewWebProcessCrashed obj cb = liftIO $ connectWebViewWebProcessCrashed obj cb SignalConnectBefore
afterWebViewWebProcessCrashed :: (GObject a, MonadIO m) => a -> WebViewWebProcessCrashedCallback -> m SignalHandlerId
afterWebViewWebProcessCrashed obj cb = connectWebViewWebProcessCrashed obj cb SignalConnectAfter
connectWebViewWebProcessCrashed :: (GObject a, MonadIO m) =>
a -> WebViewWebProcessCrashedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewWebProcessCrashed obj cb after = liftIO $ do
cb' <- mkWebViewWebProcessCrashedCallback (webViewWebProcessCrashedCallbackWrapper cb)
connectSignalFunPtr obj "web-process-crashed" cb' after
-- VVV Prop "editable"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool
getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable"
setWebViewEditable :: (MonadIO m, WebViewK o) => o -> Bool -> m ()
setWebViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val
constructWebViewEditable :: Bool -> IO ([Char], GValue)
constructWebViewEditable val = constructObjectPropertyBool "editable" val
data WebViewEditablePropertyInfo
instance AttrInfo WebViewEditablePropertyInfo where
type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint WebViewEditablePropertyInfo = WebViewK
type AttrGetType WebViewEditablePropertyInfo = Bool
type AttrLabel WebViewEditablePropertyInfo = "WebView::editable"
attrGet _ = getWebViewEditable
attrSet _ = setWebViewEditable
attrConstruct _ = constructWebViewEditable
-- VVV Prop "estimated-load-progress"
-- Type: TBasicType TDouble
-- Flags: [PropertyReadable]
getWebViewEstimatedLoadProgress :: (MonadIO m, WebViewK o) => o -> m Double
getWebViewEstimatedLoadProgress obj = liftIO $ getObjectPropertyDouble obj "estimated-load-progress"
data WebViewEstimatedLoadProgressPropertyInfo
instance AttrInfo WebViewEstimatedLoadProgressPropertyInfo where
type AttrAllowedOps WebViewEstimatedLoadProgressPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebViewEstimatedLoadProgressPropertyInfo = WebViewK
type AttrGetType WebViewEstimatedLoadProgressPropertyInfo = Double
type AttrLabel WebViewEstimatedLoadProgressPropertyInfo = "WebView::estimated-load-progress"
attrGet _ = getWebViewEstimatedLoadProgress
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "favicon"
-- Type: TBasicType TVoid
-- Flags: [PropertyReadable]
getWebViewFavicon :: (MonadIO m, WebViewK o) => o -> m (Ptr ())
getWebViewFavicon obj = liftIO $ getObjectPropertyPtr obj "favicon"
data WebViewFaviconPropertyInfo
instance AttrInfo WebViewFaviconPropertyInfo where
type AttrAllowedOps WebViewFaviconPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebViewFaviconPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebViewFaviconPropertyInfo = WebViewK
type AttrGetType WebViewFaviconPropertyInfo = (Ptr ())
type AttrLabel WebViewFaviconPropertyInfo = "WebView::favicon"
attrGet _ = getWebViewFavicon
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "is-loading"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable]
getWebViewIsLoading :: (MonadIO m, WebViewK o) => o -> m Bool
getWebViewIsLoading obj = liftIO $ getObjectPropertyBool obj "is-loading"
data WebViewIsLoadingPropertyInfo
instance AttrInfo WebViewIsLoadingPropertyInfo where
type AttrAllowedOps WebViewIsLoadingPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebViewIsLoadingPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebViewIsLoadingPropertyInfo = WebViewK
type AttrGetType WebViewIsLoadingPropertyInfo = Bool
type AttrLabel WebViewIsLoadingPropertyInfo = "WebView::is-loading"
attrGet _ = getWebViewIsLoading
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "is-playing-audio"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable]
getWebViewIsPlayingAudio :: (MonadIO m, WebViewK o) => o -> m Bool
getWebViewIsPlayingAudio obj = liftIO $ getObjectPropertyBool obj "is-playing-audio"
data WebViewIsPlayingAudioPropertyInfo
instance AttrInfo WebViewIsPlayingAudioPropertyInfo where
type AttrAllowedOps WebViewIsPlayingAudioPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebViewIsPlayingAudioPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebViewIsPlayingAudioPropertyInfo = WebViewK
type AttrGetType WebViewIsPlayingAudioPropertyInfo = Bool
type AttrLabel WebViewIsPlayingAudioPropertyInfo = "WebView::is-playing-audio"
attrGet _ = getWebViewIsPlayingAudio
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "related-view"
-- Type: TInterface "WebKit2" "WebView"
-- Flags: [PropertyWritable,PropertyConstructOnly]
constructWebViewRelatedView :: (WebViewK a) => a -> IO ([Char], GValue)
constructWebViewRelatedView val = constructObjectPropertyObject "related-view" val
data WebViewRelatedViewPropertyInfo
instance AttrInfo WebViewRelatedViewPropertyInfo where
type AttrAllowedOps WebViewRelatedViewPropertyInfo = '[ 'AttrConstruct]
type AttrSetTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK
type AttrBaseTypeConstraint WebViewRelatedViewPropertyInfo = WebViewK
type AttrGetType WebViewRelatedViewPropertyInfo = ()
type AttrLabel WebViewRelatedViewPropertyInfo = "WebView::related-view"
attrGet _ = undefined
attrSet _ = undefined
attrConstruct _ = constructWebViewRelatedView
-- VVV Prop "settings"
-- Type: TInterface "WebKit2" "Settings"
-- Flags: [PropertyWritable,PropertyConstruct]
setWebViewSettings :: (MonadIO m, WebViewK o, SettingsK a) => o -> a -> m ()
setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" val
constructWebViewSettings :: (SettingsK a) => a -> IO ([Char], GValue)
constructWebViewSettings val = constructObjectPropertyObject "settings" val
data WebViewSettingsPropertyInfo
instance AttrInfo WebViewSettingsPropertyInfo where
type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct]
type AttrSetTypeConstraint WebViewSettingsPropertyInfo = SettingsK
type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = WebViewK
type AttrGetType WebViewSettingsPropertyInfo = ()
type AttrLabel WebViewSettingsPropertyInfo = "WebView::settings"
attrGet _ = undefined
attrSet _ = setWebViewSettings
attrConstruct _ = constructWebViewSettings
-- VVV Prop "title"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable]
getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text
getWebViewTitle obj = liftIO $ getObjectPropertyString obj "title"
data WebViewTitlePropertyInfo
instance AttrInfo WebViewTitlePropertyInfo where
type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK
type AttrGetType WebViewTitlePropertyInfo = T.Text
type AttrLabel WebViewTitlePropertyInfo = "WebView::title"
attrGet _ = getWebViewTitle
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "uri"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable]
getWebViewUri :: (MonadIO m, WebViewK o) => o -> m T.Text
getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri"
data WebViewUriPropertyInfo
instance AttrInfo WebViewUriPropertyInfo where
type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK
type AttrGetType WebViewUriPropertyInfo = T.Text
type AttrLabel WebViewUriPropertyInfo = "WebView::uri"
attrGet _ = getWebViewUri
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "user-content-manager"
-- Type: TInterface "WebKit2" "UserContentManager"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getWebViewUserContentManager :: (MonadIO m, WebViewK o) => o -> m UserContentManager
getWebViewUserContentManager obj = liftIO $ getObjectPropertyObject obj "user-content-manager" UserContentManager
constructWebViewUserContentManager :: (UserContentManagerK a) => a -> IO ([Char], GValue)
constructWebViewUserContentManager val = constructObjectPropertyObject "user-content-manager" val
data WebViewUserContentManagerPropertyInfo
instance AttrInfo WebViewUserContentManagerPropertyInfo where
type AttrAllowedOps WebViewUserContentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebViewUserContentManagerPropertyInfo = UserContentManagerK
type AttrBaseTypeConstraint WebViewUserContentManagerPropertyInfo = WebViewK
type AttrGetType WebViewUserContentManagerPropertyInfo = UserContentManager
type AttrLabel WebViewUserContentManagerPropertyInfo = "WebView::user-content-manager"
attrGet _ = getWebViewUserContentManager
attrSet _ = undefined
attrConstruct _ = constructWebViewUserContentManager
-- VVV Prop "web-context"
-- Type: TInterface "WebKit2" "WebContext"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getWebViewWebContext :: (MonadIO m, WebViewK o) => o -> m WebContext
getWebViewWebContext obj = liftIO $ getObjectPropertyObject obj "web-context" WebContext
constructWebViewWebContext :: (WebContextK a) => a -> IO ([Char], GValue)
constructWebViewWebContext val = constructObjectPropertyObject "web-context" val
data WebViewWebContextPropertyInfo
instance AttrInfo WebViewWebContextPropertyInfo where
type AttrAllowedOps WebViewWebContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebViewWebContextPropertyInfo = WebContextK
type AttrBaseTypeConstraint WebViewWebContextPropertyInfo = WebViewK
type AttrGetType WebViewWebContextPropertyInfo = WebContext
type AttrLabel WebViewWebContextPropertyInfo = "WebView::web-context"
attrGet _ = getWebViewWebContext
attrSet _ = undefined
attrConstruct _ = constructWebViewWebContext
-- VVV Prop "zoom-level"
-- Type: TBasicType TDouble
-- Flags: [PropertyReadable,PropertyWritable]
getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Double
getWebViewZoomLevel obj = liftIO $ getObjectPropertyDouble obj "zoom-level"
setWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> Double -> m ()
setWebViewZoomLevel obj val = liftIO $ setObjectPropertyDouble obj "zoom-level" val
constructWebViewZoomLevel :: Double -> IO ([Char], GValue)
constructWebViewZoomLevel val = constructObjectPropertyDouble "zoom-level" val
data WebViewZoomLevelPropertyInfo
instance AttrInfo WebViewZoomLevelPropertyInfo where
type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Double
type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = WebViewK
type AttrGetType WebViewZoomLevelPropertyInfo = Double
type AttrLabel WebViewZoomLevelPropertyInfo = "WebView::zoom-level"
attrGet _ = getWebViewZoomLevel
attrSet _ = setWebViewZoomLevel
attrConstruct _ = constructWebViewZoomLevel
type instance AttributeList WebView = WebViewAttributeList
type WebViewAttributeList = ('[ '("app-paintable", Gtk.WidgetAppPaintablePropertyInfo), '("border-width", Gtk.ContainerBorderWidthPropertyInfo), '("can-default", Gtk.WidgetCanDefaultPropertyInfo), '("can-focus", Gtk.WidgetCanFocusPropertyInfo), '("child", Gtk.ContainerChildPropertyInfo), '("composite-child", Gtk.WidgetCompositeChildPropertyInfo), '("double-buffered", Gtk.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("estimated-load-progress", WebViewEstimatedLoadProgressPropertyInfo), '("events", Gtk.WidgetEventsPropertyInfo), '("expand", Gtk.WidgetExpandPropertyInfo), '("favicon", WebViewFaviconPropertyInfo), '("halign", Gtk.WidgetHalignPropertyInfo), '("has-default", Gtk.WidgetHasDefaultPropertyInfo), '("has-focus", Gtk.WidgetHasFocusPropertyInfo), '("has-tooltip", Gtk.WidgetHasTooltipPropertyInfo), '("height-request", Gtk.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.WidgetHexpandPropertyInfo), '("hexpand-set", Gtk.WidgetHexpandSetPropertyInfo), '("is-focus", Gtk.WidgetIsFocusPropertyInfo), '("is-loading", WebViewIsLoadingPropertyInfo), '("is-playing-audio", WebViewIsPlayingAudioPropertyInfo), '("margin", Gtk.WidgetMarginPropertyInfo), '("margin-bottom", Gtk.WidgetMarginBottomPropertyInfo), '("margin-end", Gtk.WidgetMarginEndPropertyInfo), '("margin-left", Gtk.WidgetMarginLeftPropertyInfo), '("margin-right", Gtk.WidgetMarginRightPropertyInfo), '("margin-start", Gtk.WidgetMarginStartPropertyInfo), '("margin-top", Gtk.WidgetMarginTopPropertyInfo), '("name", Gtk.WidgetNamePropertyInfo), '("no-show-all", Gtk.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.WidgetOpacityPropertyInfo), '("parent", Gtk.WidgetParentPropertyInfo), '("receives-default", Gtk.WidgetReceivesDefaultPropertyInfo), '("related-view", WebViewRelatedViewPropertyInfo), '("resize-mode", Gtk.ContainerResizeModePropertyInfo), '("scale-factor", Gtk.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", Gtk.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltip-markup", Gtk.WidgetTooltipMarkupPropertyInfo), '("tooltip-text", Gtk.WidgetTooltipTextPropertyInfo), '("uri", WebViewUriPropertyInfo), '("user-content-manager", WebViewUserContentManagerPropertyInfo), '("valign", Gtk.WidgetValignPropertyInfo), '("vexpand", Gtk.WidgetVexpandPropertyInfo), '("vexpand-set", Gtk.WidgetVexpandSetPropertyInfo), '("visible", Gtk.WidgetVisiblePropertyInfo), '("web-context", WebViewWebContextPropertyInfo), '("width-request", Gtk.WidgetWidthRequestPropertyInfo), '("window", Gtk.WidgetWindowPropertyInfo), '("zoom-level", WebViewZoomLevelPropertyInfo)] :: [(Symbol, *)])
data WebViewAuthenticateSignalInfo
instance SignalInfo WebViewAuthenticateSignalInfo where
type HaskellCallbackType WebViewAuthenticateSignalInfo = WebViewAuthenticateCallback
connectSignal _ = connectWebViewAuthenticate
data WebViewCloseSignalInfo
instance SignalInfo WebViewCloseSignalInfo where
type HaskellCallbackType WebViewCloseSignalInfo = WebViewCloseCallback
connectSignal _ = connectWebViewClose
data WebViewContextMenuSignalInfo
instance SignalInfo WebViewContextMenuSignalInfo where
type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback
connectSignal _ = connectWebViewContextMenu
data WebViewContextMenuDismissedSignalInfo
instance SignalInfo WebViewContextMenuDismissedSignalInfo where
type HaskellCallbackType WebViewContextMenuDismissedSignalInfo = WebViewContextMenuDismissedCallback
connectSignal _ = connectWebViewContextMenuDismissed
data WebViewCreateSignalInfo
instance SignalInfo WebViewCreateSignalInfo where
type HaskellCallbackType WebViewCreateSignalInfo = WebViewCreateCallback
connectSignal _ = connectWebViewCreate
data WebViewDecidePolicySignalInfo
instance SignalInfo WebViewDecidePolicySignalInfo where
type HaskellCallbackType WebViewDecidePolicySignalInfo = WebViewDecidePolicyCallback
connectSignal _ = connectWebViewDecidePolicy
data WebViewEnterFullscreenSignalInfo
instance SignalInfo WebViewEnterFullscreenSignalInfo where
type HaskellCallbackType WebViewEnterFullscreenSignalInfo = WebViewEnterFullscreenCallback
connectSignal _ = connectWebViewEnterFullscreen
data WebViewInsecureContentDetectedSignalInfo
instance SignalInfo WebViewInsecureContentDetectedSignalInfo where
type HaskellCallbackType WebViewInsecureContentDetectedSignalInfo = WebViewInsecureContentDetectedCallback
connectSignal _ = connectWebViewInsecureContentDetected
data WebViewLeaveFullscreenSignalInfo
instance SignalInfo WebViewLeaveFullscreenSignalInfo where
type HaskellCallbackType WebViewLeaveFullscreenSignalInfo = WebViewLeaveFullscreenCallback
connectSignal _ = connectWebViewLeaveFullscreen
data WebViewLoadChangedSignalInfo
instance SignalInfo WebViewLoadChangedSignalInfo where
type HaskellCallbackType WebViewLoadChangedSignalInfo = WebViewLoadChangedCallback
connectSignal _ = connectWebViewLoadChanged
data WebViewLoadFailedSignalInfo
instance SignalInfo WebViewLoadFailedSignalInfo where
type HaskellCallbackType WebViewLoadFailedSignalInfo = WebViewLoadFailedCallback
connectSignal _ = connectWebViewLoadFailed
data WebViewLoadFailedWithTlsErrorsSignalInfo
instance SignalInfo WebViewLoadFailedWithTlsErrorsSignalInfo where
type HaskellCallbackType WebViewLoadFailedWithTlsErrorsSignalInfo = WebViewLoadFailedWithTlsErrorsCallback
connectSignal _ = connectWebViewLoadFailedWithTlsErrors
data WebViewMouseTargetChangedSignalInfo
instance SignalInfo WebViewMouseTargetChangedSignalInfo where
type HaskellCallbackType WebViewMouseTargetChangedSignalInfo = WebViewMouseTargetChangedCallback
connectSignal _ = connectWebViewMouseTargetChanged
data WebViewPermissionRequestSignalInfo
instance SignalInfo WebViewPermissionRequestSignalInfo where
type HaskellCallbackType WebViewPermissionRequestSignalInfo = WebViewPermissionRequestCallback
connectSignal _ = connectWebViewPermissionRequest
data WebViewPrintSignalInfo
instance SignalInfo WebViewPrintSignalInfo where
type HaskellCallbackType WebViewPrintSignalInfo = WebViewPrintCallback
connectSignal _ = connectWebViewPrint
data WebViewReadyToShowSignalInfo
instance SignalInfo WebViewReadyToShowSignalInfo where
type HaskellCallbackType WebViewReadyToShowSignalInfo = WebViewReadyToShowCallback
connectSignal _ = connectWebViewReadyToShow
data WebViewResourceLoadStartedSignalInfo
instance SignalInfo WebViewResourceLoadStartedSignalInfo where
type HaskellCallbackType WebViewResourceLoadStartedSignalInfo = WebViewResourceLoadStartedCallback
connectSignal _ = connectWebViewResourceLoadStarted
data WebViewRunAsModalSignalInfo
instance SignalInfo WebViewRunAsModalSignalInfo where
type HaskellCallbackType WebViewRunAsModalSignalInfo = WebViewRunAsModalCallback
connectSignal _ = connectWebViewRunAsModal
data WebViewRunColorChooserSignalInfo
instance SignalInfo WebViewRunColorChooserSignalInfo where
type HaskellCallbackType WebViewRunColorChooserSignalInfo = WebViewRunColorChooserCallback
connectSignal _ = connectWebViewRunColorChooser
data WebViewRunFileChooserSignalInfo
instance SignalInfo WebViewRunFileChooserSignalInfo where
type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback
connectSignal _ = connectWebViewRunFileChooser
data WebViewScriptDialogSignalInfo
instance SignalInfo WebViewScriptDialogSignalInfo where
type HaskellCallbackType WebViewScriptDialogSignalInfo = WebViewScriptDialogCallback
connectSignal _ = connectWebViewScriptDialog
data WebViewShowNotificationSignalInfo
instance SignalInfo WebViewShowNotificationSignalInfo where
type HaskellCallbackType WebViewShowNotificationSignalInfo = WebViewShowNotificationCallback
connectSignal _ = connectWebViewShowNotification
data WebViewSubmitFormSignalInfo
instance SignalInfo WebViewSubmitFormSignalInfo where
type HaskellCallbackType WebViewSubmitFormSignalInfo = WebViewSubmitFormCallback
connectSignal _ = connectWebViewSubmitForm
data WebViewWebProcessCrashedSignalInfo
instance SignalInfo WebViewWebProcessCrashedSignalInfo where
type HaskellCallbackType WebViewWebProcessCrashedSignalInfo = WebViewWebProcessCrashedCallback
connectSignal _ = connectWebViewWebProcessCrashed
type instance SignalList WebView = WebViewSignalList
type WebViewSignalList = ('[ '("accel-closures-changed", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("authenticate", WebViewAuthenticateSignalInfo), '("button-press-event", Gtk.WidgetButtonPressEventSignalInfo), '("button-release-event", Gtk.WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", Gtk.WidgetCanActivateAccelSignalInfo), '("check-resize", Gtk.ContainerCheckResizeSignalInfo), '("child-notify", Gtk.WidgetChildNotifySignalInfo), '("close", WebViewCloseSignalInfo), '("composited-changed", Gtk.WidgetCompositedChangedSignalInfo), '("configure-event", Gtk.WidgetConfigureEventSignalInfo), '("context-menu", WebViewContextMenuSignalInfo), '("context-menu-dismissed", WebViewContextMenuDismissedSignalInfo), '("create", WebViewCreateSignalInfo), '("damage-event", Gtk.WidgetDamageEventSignalInfo), '("decide-policy", WebViewDecidePolicySignalInfo), '("delete-event", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroy-event", Gtk.WidgetDestroyEventSignalInfo), '("direction-changed", Gtk.WidgetDirectionChangedSignalInfo), '("drag-begin", Gtk.WidgetDragBeginSignalInfo), '("drag-data-delete", Gtk.WidgetDragDataDeleteSignalInfo), '("drag-data-get", Gtk.WidgetDragDataGetSignalInfo), '("drag-data-received", Gtk.WidgetDragDataReceivedSignalInfo), '("drag-drop", Gtk.WidgetDragDropSignalInfo), '("drag-end", Gtk.WidgetDragEndSignalInfo), '("drag-failed", Gtk.WidgetDragFailedSignalInfo), '("drag-leave", Gtk.WidgetDragLeaveSignalInfo), '("drag-motion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("enter-fullscreen", WebViewEnterFullscreenSignalInfo), '("enter-notify-event", Gtk.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("event-after", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focus-in-event", Gtk.WidgetFocusInEventSignalInfo), '("focus-out-event", Gtk.WidgetFocusOutEventSignalInfo), '("grab-broken-event", Gtk.WidgetGrabBrokenEventSignalInfo), '("grab-focus", Gtk.WidgetGrabFocusSignalInfo), '("grab-notify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchy-changed", Gtk.WidgetHierarchyChangedSignalInfo), '("insecure-content-detected", WebViewInsecureContentDetectedSignalInfo), '("key-press-event", Gtk.WidgetKeyPressEventSignalInfo), '("key-release-event", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynav-failed", Gtk.WidgetKeynavFailedSignalInfo), '("leave-fullscreen", WebViewLeaveFullscreenSignalInfo), '("leave-notify-event", Gtk.WidgetLeaveNotifyEventSignalInfo), '("load-changed", WebViewLoadChangedSignalInfo), '("load-failed", WebViewLoadFailedSignalInfo), '("load-failed-with-tls-errors", WebViewLoadFailedWithTlsErrorsSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("map-event", Gtk.WidgetMapEventSignalInfo), '("mnemonic-activate", Gtk.WidgetMnemonicActivateSignalInfo), '("motion-notify-event", Gtk.WidgetMotionNotifyEventSignalInfo), '("mouse-target-changed", WebViewMouseTargetChangedSignalInfo), '("move-focus", Gtk.WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", Gtk.WidgetParentSetSignalInfo), '("permission-request", WebViewPermissionRequestSignalInfo), '("popup-menu", Gtk.WidgetPopupMenuSignalInfo), '("print", WebViewPrintSignalInfo), '("property-notify-event", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", Gtk.WidgetProximityInEventSignalInfo), '("proximity-out-event", Gtk.WidgetProximityOutEventSignalInfo), '("query-tooltip", Gtk.WidgetQueryTooltipSignalInfo), '("ready-to-show", WebViewReadyToShowSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("resource-load-started", WebViewResourceLoadStartedSignalInfo), '("run-as-modal", WebViewRunAsModalSignalInfo), '("run-color-chooser", WebViewRunColorChooserSignalInfo), '("run-file-chooser", WebViewRunFileChooserSignalInfo), '("screen-changed", Gtk.WidgetScreenChangedSignalInfo), '("script-dialog", WebViewScriptDialogSignalInfo), '("scroll-event", Gtk.WidgetScrollEventSignalInfo), '("selection-clear-event", Gtk.WidgetSelectionClearEventSignalInfo), '("selection-get", Gtk.WidgetSelectionGetSignalInfo), '("selection-notify-event", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selection-received", Gtk.WidgetSelectionReceivedSignalInfo), '("selection-request-event", Gtk.WidgetSelectionRequestEventSignalInfo), '("set-focus-child", Gtk.ContainerSetFocusChildSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("show-help", Gtk.WidgetShowHelpSignalInfo), '("show-notification", WebViewShowNotificationSignalInfo), '("size-allocate", Gtk.WidgetSizeAllocateSignalInfo), '("state-changed", Gtk.WidgetStateChangedSignalInfo), '("state-flags-changed", Gtk.WidgetStateFlagsChangedSignalInfo), '("style-set", Gtk.WidgetStyleSetSignalInfo), '("style-updated", Gtk.WidgetStyleUpdatedSignalInfo), '("submit-form", WebViewSubmitFormSignalInfo), '("touch-event", Gtk.WidgetTouchEventSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmap-event", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("visibility-notify-event", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("web-process-crashed", WebViewWebProcessCrashedSignalInfo), '("window-state-event", Gtk.WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method WebView::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit2" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_new" webkit_web_view_new ::
IO (Ptr WebView)
webViewNew ::
(MonadIO m) =>
m WebView
webViewNew = liftIO $ do
result <- webkit_web_view_new
checkUnexpectedReturnNULL "webkit_web_view_new" result
result' <- (newObject WebView) result
return result'
-- method WebView::new_with_context
-- method type : Constructor
-- Args : [Arg {argName = "context", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "context", argType = TInterface "WebKit2" "WebContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_new_with_context" webkit_web_view_new_with_context ::
Ptr WebContext -> -- context : TInterface "WebKit2" "WebContext"
IO (Ptr WebView)
webViewNewWithContext ::
(MonadIO m, WebContextK a) =>
a -> -- context
m WebView
webViewNewWithContext context = liftIO $ do
let context' = unsafeManagedPtrCastPtr context
result <- webkit_web_view_new_with_context context'
checkUnexpectedReturnNULL "webkit_web_view_new_with_context" result
result' <- (newObject WebView) result
touchManagedPtr context
return result'
-- method WebView::new_with_settings
-- method type : Constructor
-- Args : [Arg {argName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_new_with_settings" webkit_web_view_new_with_settings ::
Ptr Settings -> -- settings : TInterface "WebKit2" "Settings"
IO (Ptr WebView)
webViewNewWithSettings ::
(MonadIO m, SettingsK a) =>
a -> -- settings
m WebView
webViewNewWithSettings settings = liftIO $ do
let settings' = unsafeManagedPtrCastPtr settings
result <- webkit_web_view_new_with_settings settings'
checkUnexpectedReturnNULL "webkit_web_view_new_with_settings" result
result' <- (newObject WebView) result
touchManagedPtr settings
return result'
-- method WebView::new_with_user_content_manager
-- method type : Constructor
-- Args : [Arg {argName = "user_content_manager", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "user_content_manager", argType = TInterface "WebKit2" "UserContentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_new_with_user_content_manager" webkit_web_view_new_with_user_content_manager ::
Ptr UserContentManager -> -- user_content_manager : TInterface "WebKit2" "UserContentManager"
IO (Ptr WebView)
webViewNewWithUserContentManager ::
(MonadIO m, UserContentManagerK a) =>
a -> -- user_content_manager
m WebView
webViewNewWithUserContentManager user_content_manager = liftIO $ do
let user_content_manager' = unsafeManagedPtrCastPtr user_content_manager
result <- webkit_web_view_new_with_user_content_manager user_content_manager'
checkUnexpectedReturnNULL "webkit_web_view_new_with_user_content_manager" result
result' <- (newObject WebView) result
touchManagedPtr user_content_manager
return result'
-- method WebView::can_execute_editing_command
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_execute_editing_command" webkit_web_view_can_execute_editing_command ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- command : TBasicType TUTF8
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
webViewCanExecuteEditingCommand ::
(MonadIO m, WebViewK a, Gio.CancellableK b) =>
a -> -- _obj
T.Text -> -- command
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
webViewCanExecuteEditingCommand _obj command cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
command' <- textToCString command
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
webkit_web_view_can_execute_editing_command _obj' command' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
freeMem command'
return ()
-- method WebView::can_execute_editing_command_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "webkit_web_view_can_execute_editing_command_finish" webkit_web_view_can_execute_editing_command_finish ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO CInt
webViewCanExecuteEditingCommandFinish ::
(MonadIO m, WebViewK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- result
m ()
webViewCanExecuteEditingCommandFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
onException (do
_ <- propagateGError $ webkit_web_view_can_execute_editing_command_finish _obj' result_'
touchManagedPtr _obj
touchManagedPtr result_
return ()
) (do
return ()
)
-- method WebView::can_go_back
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CInt
webViewCanGoBack ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanGoBack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_go_back _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_go_forward
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CInt
webViewCanGoForward ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanGoForward _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_go_forward _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_show_mime_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- mime_type : TBasicType TUTF8
IO CInt
webViewCanShowMimeType ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- mime_type
m Bool
webViewCanShowMimeType _obj mime_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mime_type' <- textToCString mime_type
result <- webkit_web_view_can_show_mime_type _obj' mime_type'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem mime_type'
return result'
-- method WebView::download_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "Download"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_download_uri" webkit_web_view_download_uri ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- uri : TBasicType TUTF8
IO (Ptr Download)
webViewDownloadUri ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- uri
m Download
webViewDownloadUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
result <- webkit_web_view_download_uri _obj' uri'
checkUnexpectedReturnNULL "webkit_web_view_download_uri" result
result' <- (wrapObject Download) result
touchManagedPtr _obj
freeMem uri'
return result'
-- method WebView::execute_editing_command
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_execute_editing_command" webkit_web_view_execute_editing_command ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- command : TBasicType TUTF8
IO ()
webViewExecuteEditingCommand ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- command
m ()
webViewExecuteEditingCommand _obj command = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
command' <- textToCString command
webkit_web_view_execute_editing_command _obj' command'
touchManagedPtr _obj
freeMem command'
return ()
-- method WebView::get_back_forward_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "BackForwardList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr BackForwardList)
webViewGetBackForwardList ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m BackForwardList
webViewGetBackForwardList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_back_forward_list _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_back_forward_list" result
result' <- (newObject BackForwardList) result
touchManagedPtr _obj
return result'
-- method WebView::get_background_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_background_color" webkit_web_view_get_background_color ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO ()
webViewGetBackgroundColor ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m (Gdk.RGBA)
webViewGetBackgroundColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rgba <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA)
webkit_web_view_get_background_color _obj' rgba
rgba' <- (wrapBoxed Gdk.RGBA) rgba
touchManagedPtr _obj
return rgba'
-- method WebView::get_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "WebContext"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_context" webkit_web_view_get_context ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr WebContext)
webViewGetContext ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebContext
webViewGetContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_context _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_context" result
result' <- (newObject WebContext) result
touchManagedPtr _obj
return result'
-- method WebView::get_custom_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_custom_charset" webkit_web_view_get_custom_charset ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CString
webViewGetCustomCharset ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m T.Text
webViewGetCustomCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_custom_charset _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_custom_charset" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebView::get_estimated_load_progress
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_estimated_load_progress" webkit_web_view_get_estimated_load_progress ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CDouble
webViewGetEstimatedLoadProgress ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Double
webViewGetEstimatedLoadProgress _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_estimated_load_progress _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method WebView::get_favicon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_favicon" webkit_web_view_get_favicon ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr Cairo.Surface)
webViewGetFavicon ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Cairo.Surface
webViewGetFavicon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_favicon _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_favicon" result
result' <- (newBoxed Cairo.Surface) result
touchManagedPtr _obj
return result'
-- method WebView::get_find_controller
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "FindController"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_find_controller" webkit_web_view_get_find_controller ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr FindController)
webViewGetFindController ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m FindController
webViewGetFindController _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_find_controller _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_find_controller" result
result' <- (newObject FindController) result
touchManagedPtr _obj
return result'
-- method WebView::get_inspector
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "WebInspector"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr WebInspector)
webViewGetInspector ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebInspector
webViewGetInspector _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_inspector _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_inspector" result
result' <- (newObject WebInspector) result
touchManagedPtr _obj
return result'
-- method WebView::get_javascript_global_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "JavaScriptCore" "GlobalContext"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_javascript_global_context" webkit_web_view_get_javascript_global_context ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr JavaScriptCore.GlobalContext)
webViewGetJavascriptGlobalContext ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m JavaScriptCore.GlobalContext
webViewGetJavascriptGlobalContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_javascript_global_context _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_javascript_global_context" result
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> JavaScriptCore.GlobalContext <$> newForeignPtr_ x) result
touchManagedPtr _obj
return result'
-- method WebView::get_main_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "WebResource"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_main_resource" webkit_web_view_get_main_resource ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr WebResource)
webViewGetMainResource ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebResource
webViewGetMainResource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_main_resource _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_main_resource" result
result' <- (newObject WebResource) result
touchManagedPtr _obj
return result'
-- method WebView::get_page_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_page_id" webkit_web_view_get_page_id ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO Word64
webViewGetPageId ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Word64
webViewGetPageId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_page_id _obj'
touchManagedPtr _obj
return result
-- method WebView::get_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "Settings"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr Settings)
webViewGetSettings ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Settings
webViewGetSettings _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_settings _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_settings" result
result' <- (newObject Settings) result
touchManagedPtr _obj
return result'
-- method WebView::get_snapshot
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "WebKit2" "SnapshotRegion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "WebKit2" "SnapshotOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "WebKit2" "SnapshotRegion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "WebKit2" "SnapshotOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CUInt -> -- region : TInterface "WebKit2" "SnapshotRegion"
CUInt -> -- options : TInterface "WebKit2" "SnapshotOptions"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
webViewGetSnapshot ::
(MonadIO m, WebViewK a, Gio.CancellableK b) =>
a -> -- _obj
SnapshotRegion -> -- region
[SnapshotOptions] -> -- options
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
webViewGetSnapshot _obj region options cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = (fromIntegral . fromEnum) region
let options' = gflagsToWord options
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
webkit_web_view_get_snapshot _obj' region' options' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
return ()
-- method WebView::get_snapshot_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_web_view_get_snapshot_finish" webkit_web_view_get_snapshot_finish ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO (Ptr Cairo.Surface)
webViewGetSnapshotFinish ::
(MonadIO m, WebViewK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- result
m Cairo.Surface
webViewGetSnapshotFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ webkit_web_view_get_snapshot_finish _obj' result_'
checkUnexpectedReturnNULL "webkit_web_view_get_snapshot_finish" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
touchManagedPtr result_
return result'
) (do
return ()
)
-- method WebView::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CString
webViewGetTitle ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m T.Text
webViewGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_title _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebView::get_tls_info
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_tls_info" webkit_web_view_get_tls_info ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr (Ptr Gio.TlsCertificate) -> -- certificate : TInterface "Gio" "TlsCertificate"
Ptr CUInt -> -- errors : TInterface "Gio" "TlsCertificateFlags"
IO CInt
webViewGetTlsInfo ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])
webViewGetTlsInfo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate))
errors <- allocMem :: IO (Ptr CUInt)
result <- webkit_web_view_get_tls_info _obj' certificate errors
let result' = (/= 0) result
certificate' <- peek certificate
certificate'' <- (newObject Gio.TlsCertificate) certificate'
errors' <- peek errors
let errors'' = wordToGFlags errors'
touchManagedPtr _obj
freeMem certificate
freeMem errors
return (result', certificate'', errors'')
-- method WebView::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_uri" webkit_web_view_get_uri ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CString
webViewGetUri ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m T.Text
webViewGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_uri _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebView::get_user_content_manager
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "UserContentManager"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_user_content_manager" webkit_web_view_get_user_content_manager ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr UserContentManager)
webViewGetUserContentManager ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m UserContentManager
webViewGetUserContentManager _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_user_content_manager _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_user_content_manager" result
result' <- (newObject UserContentManager) result
touchManagedPtr _obj
return result'
-- method WebView::get_window_properties
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "WindowProperties"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_window_properties" webkit_web_view_get_window_properties ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr WindowProperties)
webViewGetWindowProperties ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WindowProperties
webViewGetWindowProperties _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_window_properties _obj'
checkUnexpectedReturnNULL "webkit_web_view_get_window_properties" result
result' <- (newObject WindowProperties) result
touchManagedPtr _obj
return result'
-- method WebView::get_zoom_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CDouble
webViewGetZoomLevel ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Double
webViewGetZoomLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_zoom_level _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method WebView::go_back
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO ()
webViewGoBack ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewGoBack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_go_back _obj'
touchManagedPtr _obj
return ()
-- method WebView::go_forward
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO ()
webViewGoForward ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewGoForward _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_go_forward _obj'
touchManagedPtr _obj
return ()
-- method WebView::go_to_back_forward_list_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list_item", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list_item", argType = TInterface "WebKit2" "BackForwardListItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_go_to_back_forward_list_item" webkit_web_view_go_to_back_forward_list_item ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr BackForwardListItem -> -- list_item : TInterface "WebKit2" "BackForwardListItem"
IO ()
webViewGoToBackForwardListItem ::
(MonadIO m, WebViewK a, BackForwardListItemK b) =>
a -> -- _obj
b -> -- list_item
m ()
webViewGoToBackForwardListItem _obj list_item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let list_item' = unsafeManagedPtrCastPtr list_item
webkit_web_view_go_to_back_forward_list_item _obj' list_item'
touchManagedPtr _obj
touchManagedPtr list_item
return ()
-- method WebView::is_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_is_editable" webkit_web_view_is_editable ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CInt
webViewIsEditable ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewIsEditable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_is_editable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::is_loading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_is_loading" webkit_web_view_is_loading ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CInt
webViewIsLoading ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewIsLoading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_is_loading _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::is_playing_audio
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_is_playing_audio" webkit_web_view_is_playing_audio ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO CInt
webViewIsPlayingAudio ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewIsPlayingAudio _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_is_playing_audio _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::load_alternate_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_alternate_html" webkit_web_view_load_alternate_html ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- content : TBasicType TUTF8
CString -> -- content_uri : TBasicType TUTF8
CString -> -- base_uri : TBasicType TUTF8
IO ()
webViewLoadAlternateHtml ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- content
T.Text -> -- content_uri
Maybe (T.Text) -> -- base_uri
m ()
webViewLoadAlternateHtml _obj content content_uri base_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
content_uri' <- textToCString content_uri
maybeBase_uri <- case base_uri of
Nothing -> return nullPtr
Just jBase_uri -> do
jBase_uri' <- textToCString jBase_uri
return jBase_uri'
webkit_web_view_load_alternate_html _obj' content' content_uri' maybeBase_uri
touchManagedPtr _obj
freeMem content'
freeMem content_uri'
freeMem maybeBase_uri
return ()
-- method WebView::load_bytes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_bytes" webkit_web_view_load_bytes ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes"
CString -> -- mime_type : TBasicType TUTF8
CString -> -- encoding : TBasicType TUTF8
CString -> -- base_uri : TBasicType TUTF8
IO ()
webViewLoadBytes ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
GLib.Bytes -> -- bytes
Maybe (T.Text) -> -- mime_type
Maybe (T.Text) -> -- encoding
Maybe (T.Text) -> -- base_uri
m ()
webViewLoadBytes _obj bytes mime_type encoding base_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let bytes' = unsafeManagedPtrGetPtr bytes
maybeMime_type <- case mime_type of
Nothing -> return nullPtr
Just jMime_type -> do
jMime_type' <- textToCString jMime_type
return jMime_type'
maybeEncoding <- case encoding of
Nothing -> return nullPtr
Just jEncoding -> do
jEncoding' <- textToCString jEncoding
return jEncoding'
maybeBase_uri <- case base_uri of
Nothing -> return nullPtr
Just jBase_uri -> do
jBase_uri' <- textToCString jBase_uri
return jBase_uri'
webkit_web_view_load_bytes _obj' bytes' maybeMime_type maybeEncoding maybeBase_uri
touchManagedPtr _obj
touchManagedPtr bytes
freeMem maybeMime_type
freeMem maybeEncoding
freeMem maybeBase_uri
return ()
-- method WebView::load_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_html" webkit_web_view_load_html ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- content : TBasicType TUTF8
CString -> -- base_uri : TBasicType TUTF8
IO ()
webViewLoadHtml ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- content
Maybe (T.Text) -> -- base_uri
m ()
webViewLoadHtml _obj content base_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
maybeBase_uri <- case base_uri of
Nothing -> return nullPtr
Just jBase_uri -> do
jBase_uri' <- textToCString jBase_uri
return jBase_uri'
webkit_web_view_load_html _obj' content' maybeBase_uri
touchManagedPtr _obj
freeMem content'
freeMem maybeBase_uri
return ()
-- method WebView::load_plain_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plain_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "plain_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_plain_text" webkit_web_view_load_plain_text ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- plain_text : TBasicType TUTF8
IO ()
webViewLoadPlainText ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- plain_text
m ()
webViewLoadPlainText _obj plain_text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
plain_text' <- textToCString plain_text
webkit_web_view_load_plain_text _obj' plain_text'
touchManagedPtr _obj
freeMem plain_text'
return ()
-- method WebView::load_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit2" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr URIRequest -> -- request : TInterface "WebKit2" "URIRequest"
IO ()
webViewLoadRequest ::
(MonadIO m, WebViewK a, URIRequestK b) =>
a -> -- _obj
b -> -- request
m ()
webViewLoadRequest _obj request = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let request' = unsafeManagedPtrCastPtr request
webkit_web_view_load_request _obj' request'
touchManagedPtr _obj
touchManagedPtr request
return ()
-- method WebView::load_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- uri : TBasicType TUTF8
IO ()
webViewLoadUri ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
webViewLoadUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
webkit_web_view_load_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- method WebView::new_with_related_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_new_with_related_view" webkit_web_view_new_with_related_view ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO (Ptr Gtk.Widget)
webViewNewWithRelatedView ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Gtk.Widget
webViewNewWithRelatedView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_new_with_related_view _obj'
checkUnexpectedReturnNULL "webkit_web_view_new_with_related_view" result
result' <- (wrapObject Gtk.Widget) result
touchManagedPtr _obj
return result'
-- method WebView::reload
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_reload" webkit_web_view_reload ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO ()
webViewReload ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewReload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_reload _obj'
touchManagedPtr _obj
return ()
-- method WebView::reload_bypass_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO ()
webViewReloadBypassCache ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewReloadBypassCache _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_reload_bypass_cache _obj'
touchManagedPtr _obj
return ()
-- method WebView::run_javascript
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_run_javascript" webkit_web_view_run_javascript ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- script : TBasicType TUTF8
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
webViewRunJavascript ::
(MonadIO m, WebViewK a, Gio.CancellableK b) =>
a -> -- _obj
T.Text -> -- script
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
webViewRunJavascript _obj script cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
script' <- textToCString script
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
webkit_web_view_run_javascript _obj' script' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
freeMem script'
return ()
-- method WebView::run_javascript_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "JavascriptResult"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_web_view_run_javascript_finish" webkit_web_view_run_javascript_finish ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO (Ptr JavascriptResult)
webViewRunJavascriptFinish ::
(MonadIO m, WebViewK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- result
m JavascriptResult
webViewRunJavascriptFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ webkit_web_view_run_javascript_finish _obj' result_'
checkUnexpectedReturnNULL "webkit_web_view_run_javascript_finish" result
result' <- (wrapBoxed JavascriptResult) result
touchManagedPtr _obj
touchManagedPtr result_
return result'
) (do
return ()
)
-- method WebView::run_javascript_from_gresource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_run_javascript_from_gresource" webkit_web_view_run_javascript_from_gresource ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- resource : TBasicType TUTF8
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
webViewRunJavascriptFromGresource ::
(MonadIO m, WebViewK a, Gio.CancellableK b) =>
a -> -- _obj
T.Text -> -- resource
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
webViewRunJavascriptFromGresource _obj resource cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
resource' <- textToCString resource
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
webkit_web_view_run_javascript_from_gresource _obj' resource' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
freeMem resource'
return ()
-- method WebView::run_javascript_from_gresource_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit2" "JavascriptResult"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_web_view_run_javascript_from_gresource_finish" webkit_web_view_run_javascript_from_gresource_finish ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO (Ptr JavascriptResult)
webViewRunJavascriptFromGresourceFinish ::
(MonadIO m, WebViewK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- result
m JavascriptResult
webViewRunJavascriptFromGresourceFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ webkit_web_view_run_javascript_from_gresource_finish _obj' result_'
checkUnexpectedReturnNULL "webkit_web_view_run_javascript_from_gresource_finish" result
result' <- (wrapBoxed JavascriptResult) result
touchManagedPtr _obj
touchManagedPtr result_
return result'
) (do
return ()
)
-- method WebView::save
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_mode", argType = TInterface "WebKit2" "SaveMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_mode", argType = TInterface "WebKit2" "SaveMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_save" webkit_web_view_save ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CUInt -> -- save_mode : TInterface "WebKit2" "SaveMode"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
webViewSave ::
(MonadIO m, WebViewK a, Gio.CancellableK b) =>
a -> -- _obj
SaveMode -> -- save_mode
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
webViewSave _obj save_mode cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let save_mode' = (fromIntegral . fromEnum) save_mode
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
webkit_web_view_save _obj' save_mode' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
return ()
-- method WebView::save_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "InputStream"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_web_view_save_finish" webkit_web_view_save_finish ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO (Ptr Gio.InputStream)
webViewSaveFinish ::
(MonadIO m, WebViewK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- result
m Gio.InputStream
webViewSaveFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ webkit_web_view_save_finish _obj' result_'
checkUnexpectedReturnNULL "webkit_web_view_save_finish" result
result' <- (wrapObject Gio.InputStream) result
touchManagedPtr _obj
touchManagedPtr result_
return result'
) (do
return ()
)
-- method WebView::save_to_file
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_mode", argType = TInterface "WebKit2" "SaveMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_mode", argType = TInterface "WebKit2" "SaveMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_save_to_file" webkit_web_view_save_to_file ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gio.File -> -- file : TInterface "Gio" "File"
CUInt -> -- save_mode : TInterface "WebKit2" "SaveMode"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
webViewSaveToFile ::
(MonadIO m, WebViewK a, Gio.FileK b, Gio.CancellableK c) =>
a -> -- _obj
b -> -- file
SaveMode -> -- save_mode
Maybe (c) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
webViewSaveToFile _obj file save_mode cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let file' = unsafeManagedPtrCastPtr file
let save_mode' = (fromIntegral . fromEnum) save_mode
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
webkit_web_view_save_to_file _obj' file' save_mode' maybeCancellable maybeCallback user_data
touchManagedPtr _obj
touchManagedPtr file
whenJust cancellable touchManagedPtr
return ()
-- method WebView::save_to_file_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "webkit_web_view_save_to_file_finish" webkit_web_view_save_to_file_finish ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO CInt
webViewSaveToFileFinish ::
(MonadIO m, WebViewK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- result
m ()
webViewSaveToFileFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
onException (do
_ <- propagateGError $ webkit_web_view_save_to_file_finish _obj' result_'
touchManagedPtr _obj
touchManagedPtr result_
return ()
) (do
return ()
)
-- method WebView::set_background_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_background_color" webkit_web_view_set_background_color ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Gdk.RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO ()
webViewSetBackgroundColor ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Gdk.RGBA -> -- rgba
m ()
webViewSetBackgroundColor _obj rgba = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let rgba' = unsafeManagedPtrGetPtr rgba
webkit_web_view_set_background_color _obj' rgba'
touchManagedPtr _obj
touchManagedPtr rgba
return ()
-- method WebView::set_custom_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_custom_charset" webkit_web_view_set_custom_charset ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CString -> -- charset : TBasicType TUTF8
IO ()
webViewSetCustomCharset ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Maybe (T.Text) -> -- charset
m ()
webViewSetCustomCharset _obj charset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCharset <- case charset of
Nothing -> return nullPtr
Just jCharset -> do
jCharset' <- textToCString jCharset
return jCharset'
webkit_web_view_set_custom_charset _obj' maybeCharset
touchManagedPtr _obj
freeMem maybeCharset
return ()
-- method WebView::set_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CInt -> -- editable : TBasicType TBoolean
IO ()
webViewSetEditable ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Bool -> -- editable
m ()
webViewSetEditable _obj editable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let editable' = (fromIntegral . fromEnum) editable
webkit_web_view_set_editable _obj' editable'
touchManagedPtr _obj
return ()
-- method WebView::set_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "WebKit2" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
Ptr Settings -> -- settings : TInterface "WebKit2" "Settings"
IO ()
webViewSetSettings ::
(MonadIO m, WebViewK a, SettingsK b) =>
a -> -- _obj
b -> -- settings
m ()
webViewSetSettings _obj settings = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let settings' = unsafeManagedPtrCastPtr settings
webkit_web_view_set_settings _obj' settings'
touchManagedPtr _obj
touchManagedPtr settings
return ()
-- method WebView::set_zoom_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_zoom_level" webkit_web_view_set_zoom_level ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
CDouble -> -- zoom_level : TBasicType TDouble
IO ()
webViewSetZoomLevel ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Double -> -- zoom_level
m ()
webViewSetZoomLevel _obj zoom_level = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let zoom_level' = realToFrac zoom_level
webkit_web_view_set_zoom_level _obj' zoom_level'
touchManagedPtr _obj
return ()
-- method WebView::stop_loading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading ::
Ptr WebView -> -- _obj : TInterface "WebKit2" "WebView"
IO ()
webViewStopLoading ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewStopLoading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_stop_loading _obj'
touchManagedPtr _obj
return ()