{- | 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.WebKit.Objects.DOMDOMWindow ( -- * Exported types DOMDOMWindow(..) , DOMDOMWindowK , toDOMDOMWindow , noDOMDOMWindow , -- * Methods -- ** dOMDOMWindowAlert dOMDOMWindowAlert , -- ** dOMDOMWindowAtob dOMDOMWindowAtob , -- ** dOMDOMWindowBlur dOMDOMWindowBlur , -- ** dOMDOMWindowBtoa dOMDOMWindowBtoa , -- ** dOMDOMWindowCancelAnimationFrame dOMDOMWindowCancelAnimationFrame , -- ** dOMDOMWindowCaptureEvents dOMDOMWindowCaptureEvents , -- ** dOMDOMWindowClearInterval dOMDOMWindowClearInterval , -- ** dOMDOMWindowClearTimeout dOMDOMWindowClearTimeout , -- ** dOMDOMWindowClose dOMDOMWindowClose , -- ** dOMDOMWindowConfirm dOMDOMWindowConfirm , -- ** dOMDOMWindowDispatchEvent dOMDOMWindowDispatchEvent , -- ** dOMDOMWindowFind dOMDOMWindowFind , -- ** dOMDOMWindowFocus dOMDOMWindowFocus , -- ** dOMDOMWindowGetApplicationCache dOMDOMWindowGetApplicationCache , -- ** dOMDOMWindowGetClientInformation dOMDOMWindowGetClientInformation , -- ** dOMDOMWindowGetClosed dOMDOMWindowGetClosed , -- ** dOMDOMWindowGetComputedStyle dOMDOMWindowGetComputedStyle , -- ** dOMDOMWindowGetConsole dOMDOMWindowGetConsole , -- ** dOMDOMWindowGetCss dOMDOMWindowGetCss , -- ** dOMDOMWindowGetDefaultStatus dOMDOMWindowGetDefaultStatus , -- ** dOMDOMWindowGetDevicePixelRatio dOMDOMWindowGetDevicePixelRatio , -- ** dOMDOMWindowGetDocument dOMDOMWindowGetDocument , -- ** dOMDOMWindowGetFrameElement dOMDOMWindowGetFrameElement , -- ** dOMDOMWindowGetFrames dOMDOMWindowGetFrames , -- ** dOMDOMWindowGetHistory dOMDOMWindowGetHistory , -- ** dOMDOMWindowGetInnerHeight dOMDOMWindowGetInnerHeight , -- ** dOMDOMWindowGetInnerWidth dOMDOMWindowGetInnerWidth , -- ** dOMDOMWindowGetLength dOMDOMWindowGetLength , -- ** dOMDOMWindowGetLocalStorage dOMDOMWindowGetLocalStorage , -- ** dOMDOMWindowGetLocationbar dOMDOMWindowGetLocationbar , -- ** dOMDOMWindowGetMenubar dOMDOMWindowGetMenubar , -- ** dOMDOMWindowGetName dOMDOMWindowGetName , -- ** dOMDOMWindowGetNavigator dOMDOMWindowGetNavigator , -- ** dOMDOMWindowGetOffscreenBuffering dOMDOMWindowGetOffscreenBuffering , -- ** dOMDOMWindowGetOpener dOMDOMWindowGetOpener , -- ** dOMDOMWindowGetOuterHeight dOMDOMWindowGetOuterHeight , -- ** dOMDOMWindowGetOuterWidth dOMDOMWindowGetOuterWidth , -- ** dOMDOMWindowGetPageXOffset dOMDOMWindowGetPageXOffset , -- ** dOMDOMWindowGetPageYOffset dOMDOMWindowGetPageYOffset , -- ** dOMDOMWindowGetParent dOMDOMWindowGetParent , -- ** dOMDOMWindowGetPerformance dOMDOMWindowGetPerformance , -- ** dOMDOMWindowGetPersonalbar dOMDOMWindowGetPersonalbar , -- ** dOMDOMWindowGetScreen dOMDOMWindowGetScreen , -- ** dOMDOMWindowGetScreenLeft dOMDOMWindowGetScreenLeft , -- ** dOMDOMWindowGetScreenTop dOMDOMWindowGetScreenTop , -- ** dOMDOMWindowGetScreenX dOMDOMWindowGetScreenX , -- ** dOMDOMWindowGetScreenY dOMDOMWindowGetScreenY , -- ** dOMDOMWindowGetScrollX dOMDOMWindowGetScrollX , -- ** dOMDOMWindowGetScrollY dOMDOMWindowGetScrollY , -- ** dOMDOMWindowGetScrollbars dOMDOMWindowGetScrollbars , -- ** dOMDOMWindowGetSelection dOMDOMWindowGetSelection , -- ** dOMDOMWindowGetSelf dOMDOMWindowGetSelf , -- ** dOMDOMWindowGetSessionStorage dOMDOMWindowGetSessionStorage , -- ** dOMDOMWindowGetStatus dOMDOMWindowGetStatus , -- ** dOMDOMWindowGetStatusbar dOMDOMWindowGetStatusbar , -- ** dOMDOMWindowGetStyleMedia dOMDOMWindowGetStyleMedia , -- ** dOMDOMWindowGetToolbar dOMDOMWindowGetToolbar , -- ** dOMDOMWindowGetTop dOMDOMWindowGetTop , -- ** dOMDOMWindowGetWebkitStorageInfo dOMDOMWindowGetWebkitStorageInfo , -- ** dOMDOMWindowGetWindow dOMDOMWindowGetWindow , -- ** dOMDOMWindowMatchMedia dOMDOMWindowMatchMedia , -- ** dOMDOMWindowMoveBy dOMDOMWindowMoveBy , -- ** dOMDOMWindowMoveTo dOMDOMWindowMoveTo , -- ** dOMDOMWindowPrint dOMDOMWindowPrint , -- ** dOMDOMWindowPrompt dOMDOMWindowPrompt , -- ** dOMDOMWindowReleaseEvents dOMDOMWindowReleaseEvents , -- ** dOMDOMWindowResizeBy dOMDOMWindowResizeBy , -- ** dOMDOMWindowResizeTo dOMDOMWindowResizeTo , -- ** dOMDOMWindowScroll dOMDOMWindowScroll , -- ** dOMDOMWindowScrollBy dOMDOMWindowScrollBy , -- ** dOMDOMWindowScrollTo dOMDOMWindowScrollTo , -- ** dOMDOMWindowSetDefaultStatus dOMDOMWindowSetDefaultStatus , -- ** dOMDOMWindowSetName dOMDOMWindowSetName , -- ** dOMDOMWindowSetStatus dOMDOMWindowSetStatus , -- ** dOMDOMWindowStop dOMDOMWindowStop , -- ** dOMDOMWindowWebkitCancelAnimationFrame dOMDOMWindowWebkitCancelAnimationFrame , -- ** dOMDOMWindowWebkitCancelRequestAnimationFrame dOMDOMWindowWebkitCancelRequestAnimationFrame, -- ** dOMDOMWindowWebkitConvertPointFromNodeToPage dOMDOMWindowWebkitConvertPointFromNodeToPage, -- ** dOMDOMWindowWebkitConvertPointFromPageToNode dOMDOMWindowWebkitConvertPointFromPageToNode, -- * Properties -- ** ApplicationCache DOMDOMWindowApplicationCachePropertyInfo, getDOMDOMWindowApplicationCache , -- ** ClientInformation DOMDOMWindowClientInformationPropertyInfo, getDOMDOMWindowClientInformation , -- ** Closed DOMDOMWindowClosedPropertyInfo , getDOMDOMWindowClosed , -- ** Console DOMDOMWindowConsolePropertyInfo , getDOMDOMWindowConsole , -- ** Css DOMDOMWindowCssPropertyInfo , getDOMDOMWindowCss , -- ** DefaultStatus DOMDOMWindowDefaultStatusPropertyInfo , constructDOMDOMWindowDefaultStatus , getDOMDOMWindowDefaultStatus , setDOMDOMWindowDefaultStatus , -- ** DevicePixelRatio DOMDOMWindowDevicePixelRatioPropertyInfo, getDOMDOMWindowDevicePixelRatio , -- ** Document DOMDOMWindowDocumentPropertyInfo , getDOMDOMWindowDocument , -- ** FrameElement DOMDOMWindowFrameElementPropertyInfo , getDOMDOMWindowFrameElement , -- ** Frames DOMDOMWindowFramesPropertyInfo , getDOMDOMWindowFrames , -- ** History DOMDOMWindowHistoryPropertyInfo , getDOMDOMWindowHistory , -- ** InnerHeight DOMDOMWindowInnerHeightPropertyInfo , getDOMDOMWindowInnerHeight , -- ** InnerWidth DOMDOMWindowInnerWidthPropertyInfo , getDOMDOMWindowInnerWidth , -- ** Length DOMDOMWindowLengthPropertyInfo , getDOMDOMWindowLength , -- ** LocalStorage DOMDOMWindowLocalStoragePropertyInfo , getDOMDOMWindowLocalStorage , -- ** Locationbar DOMDOMWindowLocationbarPropertyInfo , getDOMDOMWindowLocationbar , -- ** Menubar DOMDOMWindowMenubarPropertyInfo , getDOMDOMWindowMenubar , -- ** Name DOMDOMWindowNamePropertyInfo , constructDOMDOMWindowName , getDOMDOMWindowName , setDOMDOMWindowName , -- ** Navigator DOMDOMWindowNavigatorPropertyInfo , getDOMDOMWindowNavigator , -- ** OffscreenBuffering DOMDOMWindowOffscreenBufferingPropertyInfo, getDOMDOMWindowOffscreenBuffering , -- ** Opener DOMDOMWindowOpenerPropertyInfo , getDOMDOMWindowOpener , -- ** OuterHeight DOMDOMWindowOuterHeightPropertyInfo , getDOMDOMWindowOuterHeight , -- ** OuterWidth DOMDOMWindowOuterWidthPropertyInfo , getDOMDOMWindowOuterWidth , -- ** PageXOffset DOMDOMWindowPageXOffsetPropertyInfo , getDOMDOMWindowPageXOffset , -- ** PageYOffset DOMDOMWindowPageYOffsetPropertyInfo , getDOMDOMWindowPageYOffset , -- ** Parent DOMDOMWindowParentPropertyInfo , getDOMDOMWindowParent , -- ** Performance DOMDOMWindowPerformancePropertyInfo , getDOMDOMWindowPerformance , -- ** Personalbar DOMDOMWindowPersonalbarPropertyInfo , getDOMDOMWindowPersonalbar , -- ** Screen DOMDOMWindowScreenPropertyInfo , getDOMDOMWindowScreen , -- ** ScreenLeft DOMDOMWindowScreenLeftPropertyInfo , getDOMDOMWindowScreenLeft , -- ** ScreenTop DOMDOMWindowScreenTopPropertyInfo , getDOMDOMWindowScreenTop , -- ** ScreenX DOMDOMWindowScreenXPropertyInfo , getDOMDOMWindowScreenX , -- ** ScreenY DOMDOMWindowScreenYPropertyInfo , getDOMDOMWindowScreenY , -- ** ScrollX DOMDOMWindowScrollXPropertyInfo , getDOMDOMWindowScrollX , -- ** ScrollY DOMDOMWindowScrollYPropertyInfo , getDOMDOMWindowScrollY , -- ** Scrollbars DOMDOMWindowScrollbarsPropertyInfo , getDOMDOMWindowScrollbars , -- ** Self DOMDOMWindowSelfPropertyInfo , getDOMDOMWindowSelf , -- ** SessionStorage DOMDOMWindowSessionStoragePropertyInfo , getDOMDOMWindowSessionStorage , -- ** Status DOMDOMWindowStatusPropertyInfo , constructDOMDOMWindowStatus , getDOMDOMWindowStatus , setDOMDOMWindowStatus , -- ** Statusbar DOMDOMWindowStatusbarPropertyInfo , getDOMDOMWindowStatusbar , -- ** StyleMedia DOMDOMWindowStyleMediaPropertyInfo , getDOMDOMWindowStyleMedia , -- ** Toolbar DOMDOMWindowToolbarPropertyInfo , getDOMDOMWindowToolbar , -- ** Top DOMDOMWindowTopPropertyInfo , getDOMDOMWindowTop , -- ** WebkitStorageInfo DOMDOMWindowWebkitStorageInfoPropertyInfo, getDOMDOMWindowWebkitStorageInfo , -- ** Window DOMDOMWindowWindowPropertyInfo , getDOMDOMWindowWindow , ) where import Prelude () import Data.GI.Base.ShortPrelude import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.WebKit.Types import GI.WebKit.Callbacks import qualified GI.GObject as GObject newtype DOMDOMWindow = DOMDOMWindow (ForeignPtr DOMDOMWindow) foreign import ccall "webkit_dom_dom_window_get_type" c_webkit_dom_dom_window_get_type :: IO GType type instance ParentTypes DOMDOMWindow = DOMDOMWindowParentTypes type DOMDOMWindowParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] instance GObject DOMDOMWindow where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_webkit_dom_dom_window_get_type class GObject o => DOMDOMWindowK o instance (GObject o, IsDescendantOf DOMDOMWindow o) => DOMDOMWindowK o toDOMDOMWindow :: DOMDOMWindowK o => o -> IO DOMDOMWindow toDOMDOMWindow = unsafeCastTo DOMDOMWindow noDOMDOMWindow :: Maybe DOMDOMWindow noDOMDOMWindow = Nothing -- VVV Prop "application-cache" -- Type: TInterface "WebKit" "DOMDOMApplicationCache" -- Flags: [PropertyReadable] getDOMDOMWindowApplicationCache :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMApplicationCache getDOMDOMWindowApplicationCache obj = liftIO $ getObjectPropertyObject obj "application-cache" DOMDOMApplicationCache data DOMDOMWindowApplicationCachePropertyInfo instance AttrInfo DOMDOMWindowApplicationCachePropertyInfo where type AttrAllowedOps DOMDOMWindowApplicationCachePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowApplicationCachePropertyInfo = DOMDOMApplicationCache type AttrLabel DOMDOMWindowApplicationCachePropertyInfo = "DOMDOMWindow::application-cache" attrGet _ = getDOMDOMWindowApplicationCache attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "client-information" -- Type: TInterface "WebKit" "DOMNavigator" -- Flags: [PropertyReadable] getDOMDOMWindowClientInformation :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator getDOMDOMWindowClientInformation obj = liftIO $ getObjectPropertyObject obj "client-information" DOMNavigator data DOMDOMWindowClientInformationPropertyInfo instance AttrInfo DOMDOMWindowClientInformationPropertyInfo where type AttrAllowedOps DOMDOMWindowClientInformationPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowClientInformationPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowClientInformationPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowClientInformationPropertyInfo = DOMNavigator type AttrLabel DOMDOMWindowClientInformationPropertyInfo = "DOMDOMWindow::client-information" attrGet _ = getDOMDOMWindowClientInformation attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "closed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] getDOMDOMWindowClosed :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool getDOMDOMWindowClosed obj = liftIO $ getObjectPropertyBool obj "closed" data DOMDOMWindowClosedPropertyInfo instance AttrInfo DOMDOMWindowClosedPropertyInfo where type AttrAllowedOps DOMDOMWindowClosedPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowClosedPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowClosedPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowClosedPropertyInfo = Bool type AttrLabel DOMDOMWindowClosedPropertyInfo = "DOMDOMWindow::closed" attrGet _ = getDOMDOMWindowClosed attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "console" -- Type: TInterface "WebKit" "DOMConsole" -- Flags: [PropertyReadable] getDOMDOMWindowConsole :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMConsole getDOMDOMWindowConsole obj = liftIO $ getObjectPropertyObject obj "console" DOMConsole data DOMDOMWindowConsolePropertyInfo instance AttrInfo DOMDOMWindowConsolePropertyInfo where type AttrAllowedOps DOMDOMWindowConsolePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowConsolePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowConsolePropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowConsolePropertyInfo = DOMConsole type AttrLabel DOMDOMWindowConsolePropertyInfo = "DOMDOMWindow::console" attrGet _ = getDOMDOMWindowConsole attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "css" -- Type: TInterface "WebKit" "DOMDOMWindowCSS" -- Flags: [PropertyReadable] getDOMDOMWindowCss :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindowCSS getDOMDOMWindowCss obj = liftIO $ getObjectPropertyObject obj "css" DOMDOMWindowCSS data DOMDOMWindowCssPropertyInfo instance AttrInfo DOMDOMWindowCssPropertyInfo where type AttrAllowedOps DOMDOMWindowCssPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowCssPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowCssPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowCssPropertyInfo = DOMDOMWindowCSS type AttrLabel DOMDOMWindowCssPropertyInfo = "DOMDOMWindow::css" attrGet _ = getDOMDOMWindowCss attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "default-status" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] getDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text getDOMDOMWindowDefaultStatus obj = liftIO $ getObjectPropertyString obj "default-status" setDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () setDOMDOMWindowDefaultStatus obj val = liftIO $ setObjectPropertyString obj "default-status" val constructDOMDOMWindowDefaultStatus :: T.Text -> IO ([Char], GValue) constructDOMDOMWindowDefaultStatus val = constructObjectPropertyString "default-status" val data DOMDOMWindowDefaultStatusPropertyInfo instance AttrInfo DOMDOMWindowDefaultStatusPropertyInfo where type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowDefaultStatusPropertyInfo = T.Text type AttrLabel DOMDOMWindowDefaultStatusPropertyInfo = "DOMDOMWindow::default-status" attrGet _ = getDOMDOMWindowDefaultStatus attrSet _ = setDOMDOMWindowDefaultStatus attrConstruct _ = constructDOMDOMWindowDefaultStatus -- VVV Prop "device-pixel-ratio" -- Type: TBasicType TDouble -- Flags: [PropertyReadable] getDOMDOMWindowDevicePixelRatio :: (MonadIO m, DOMDOMWindowK o) => o -> m Double getDOMDOMWindowDevicePixelRatio obj = liftIO $ getObjectPropertyDouble obj "device-pixel-ratio" data DOMDOMWindowDevicePixelRatioPropertyInfo instance AttrInfo DOMDOMWindowDevicePixelRatioPropertyInfo where type AttrAllowedOps DOMDOMWindowDevicePixelRatioPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowDevicePixelRatioPropertyInfo = Double type AttrLabel DOMDOMWindowDevicePixelRatioPropertyInfo = "DOMDOMWindow::device-pixel-ratio" attrGet _ = getDOMDOMWindowDevicePixelRatio attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "document" -- Type: TInterface "WebKit" "DOMDocument" -- Flags: [PropertyReadable] getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDocument getDOMDOMWindowDocument obj = liftIO $ getObjectPropertyObject obj "document" DOMDocument data DOMDOMWindowDocumentPropertyInfo instance AttrInfo DOMDOMWindowDocumentPropertyInfo where type AttrAllowedOps DOMDOMWindowDocumentPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowDocumentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowDocumentPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowDocumentPropertyInfo = DOMDocument type AttrLabel DOMDOMWindowDocumentPropertyInfo = "DOMDOMWindow::document" attrGet _ = getDOMDOMWindowDocument attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "frame-element" -- Type: TInterface "WebKit" "DOMElement" -- Flags: [PropertyReadable] getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMElement getDOMDOMWindowFrameElement obj = liftIO $ getObjectPropertyObject obj "frame-element" DOMElement data DOMDOMWindowFrameElementPropertyInfo instance AttrInfo DOMDOMWindowFrameElementPropertyInfo where type AttrAllowedOps DOMDOMWindowFrameElementPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowFrameElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowFrameElementPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowFrameElementPropertyInfo = DOMElement type AttrLabel DOMDOMWindowFrameElementPropertyInfo = "DOMDOMWindow::frame-element" attrGet _ = getDOMDOMWindowFrameElement attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "frames" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] getDOMDOMWindowFrames :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow getDOMDOMWindowFrames obj = liftIO $ getObjectPropertyObject obj "frames" DOMDOMWindow data DOMDOMWindowFramesPropertyInfo instance AttrInfo DOMDOMWindowFramesPropertyInfo where type AttrAllowedOps DOMDOMWindowFramesPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowFramesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowFramesPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowFramesPropertyInfo = DOMDOMWindow type AttrLabel DOMDOMWindowFramesPropertyInfo = "DOMDOMWindow::frames" attrGet _ = getDOMDOMWindowFrames attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "history" -- Type: TInterface "WebKit" "DOMHistory" -- Flags: [PropertyReadable] getDOMDOMWindowHistory :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMHistory getDOMDOMWindowHistory obj = liftIO $ getObjectPropertyObject obj "history" DOMHistory data DOMDOMWindowHistoryPropertyInfo instance AttrInfo DOMDOMWindowHistoryPropertyInfo where type AttrAllowedOps DOMDOMWindowHistoryPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowHistoryPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowHistoryPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowHistoryPropertyInfo = DOMHistory type AttrLabel DOMDOMWindowHistoryPropertyInfo = "DOMDOMWindow::history" attrGet _ = getDOMDOMWindowHistory attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "inner-height" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowInnerHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowInnerHeight obj = liftIO $ getObjectPropertyInt64 obj "inner-height" data DOMDOMWindowInnerHeightPropertyInfo instance AttrInfo DOMDOMWindowInnerHeightPropertyInfo where type AttrAllowedOps DOMDOMWindowInnerHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowInnerHeightPropertyInfo = Int64 type AttrLabel DOMDOMWindowInnerHeightPropertyInfo = "DOMDOMWindow::inner-height" attrGet _ = getDOMDOMWindowInnerHeight attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "inner-width" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowInnerWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowInnerWidth obj = liftIO $ getObjectPropertyInt64 obj "inner-width" data DOMDOMWindowInnerWidthPropertyInfo instance AttrInfo DOMDOMWindowInnerWidthPropertyInfo where type AttrAllowedOps DOMDOMWindowInnerWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowInnerWidthPropertyInfo = Int64 type AttrLabel DOMDOMWindowInnerWidthPropertyInfo = "DOMDOMWindow::inner-width" attrGet _ = getDOMDOMWindowInnerWidth attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "length" -- Type: TBasicType TUInt64 -- Flags: [PropertyReadable] getDOMDOMWindowLength :: (MonadIO m, DOMDOMWindowK o) => o -> m Word64 getDOMDOMWindowLength obj = liftIO $ getObjectPropertyUInt64 obj "length" data DOMDOMWindowLengthPropertyInfo instance AttrInfo DOMDOMWindowLengthPropertyInfo where type AttrAllowedOps DOMDOMWindowLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowLengthPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowLengthPropertyInfo = Word64 type AttrLabel DOMDOMWindowLengthPropertyInfo = "DOMDOMWindow::length" attrGet _ = getDOMDOMWindowLength attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "local-storage" -- Type: TInterface "WebKit" "DOMStorage" -- Flags: [PropertyReadable] getDOMDOMWindowLocalStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage getDOMDOMWindowLocalStorage obj = liftIO $ getObjectPropertyObject obj "local-storage" DOMStorage data DOMDOMWindowLocalStoragePropertyInfo instance AttrInfo DOMDOMWindowLocalStoragePropertyInfo where type AttrAllowedOps DOMDOMWindowLocalStoragePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowLocalStoragePropertyInfo = DOMStorage type AttrLabel DOMDOMWindowLocalStoragePropertyInfo = "DOMDOMWindow::local-storage" attrGet _ = getDOMDOMWindowLocalStorage attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "locationbar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] getDOMDOMWindowLocationbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp getDOMDOMWindowLocationbar obj = liftIO $ getObjectPropertyObject obj "locationbar" DOMBarProp data DOMDOMWindowLocationbarPropertyInfo instance AttrInfo DOMDOMWindowLocationbarPropertyInfo where type AttrAllowedOps DOMDOMWindowLocationbarPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowLocationbarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowLocationbarPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowLocationbarPropertyInfo = DOMBarProp type AttrLabel DOMDOMWindowLocationbarPropertyInfo = "DOMDOMWindow::locationbar" attrGet _ = getDOMDOMWindowLocationbar attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "menubar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] getDOMDOMWindowMenubar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp getDOMDOMWindowMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" DOMBarProp data DOMDOMWindowMenubarPropertyInfo instance AttrInfo DOMDOMWindowMenubarPropertyInfo where type AttrAllowedOps DOMDOMWindowMenubarPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowMenubarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowMenubarPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowMenubarPropertyInfo = DOMBarProp type AttrLabel DOMDOMWindowMenubarPropertyInfo = "DOMDOMWindow::menubar" attrGet _ = getDOMDOMWindowMenubar attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] getDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text getDOMDOMWindowName obj = liftIO $ getObjectPropertyString obj "name" setDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () setDOMDOMWindowName obj val = liftIO $ setObjectPropertyString obj "name" val constructDOMDOMWindowName :: T.Text -> IO ([Char], GValue) constructDOMDOMWindowName val = constructObjectPropertyString "name" val data DOMDOMWindowNamePropertyInfo instance AttrInfo DOMDOMWindowNamePropertyInfo where type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDOMWindowNamePropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowNamePropertyInfo = T.Text type AttrLabel DOMDOMWindowNamePropertyInfo = "DOMDOMWindow::name" attrGet _ = getDOMDOMWindowName attrSet _ = setDOMDOMWindowName attrConstruct _ = constructDOMDOMWindowName -- VVV Prop "navigator" -- Type: TInterface "WebKit" "DOMNavigator" -- Flags: [PropertyReadable] getDOMDOMWindowNavigator :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator getDOMDOMWindowNavigator obj = liftIO $ getObjectPropertyObject obj "navigator" DOMNavigator data DOMDOMWindowNavigatorPropertyInfo instance AttrInfo DOMDOMWindowNavigatorPropertyInfo where type AttrAllowedOps DOMDOMWindowNavigatorPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowNavigatorPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowNavigatorPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowNavigatorPropertyInfo = DOMNavigator type AttrLabel DOMDOMWindowNavigatorPropertyInfo = "DOMDOMWindow::navigator" attrGet _ = getDOMDOMWindowNavigator attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "offscreen-buffering" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] getDOMDOMWindowOffscreenBuffering :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool getDOMDOMWindowOffscreenBuffering obj = liftIO $ getObjectPropertyBool obj "offscreen-buffering" data DOMDOMWindowOffscreenBufferingPropertyInfo instance AttrInfo DOMDOMWindowOffscreenBufferingPropertyInfo where type AttrAllowedOps DOMDOMWindowOffscreenBufferingPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowOffscreenBufferingPropertyInfo = Bool type AttrLabel DOMDOMWindowOffscreenBufferingPropertyInfo = "DOMDOMWindow::offscreen-buffering" attrGet _ = getDOMDOMWindowOffscreenBuffering attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "opener" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] getDOMDOMWindowOpener :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow getDOMDOMWindowOpener obj = liftIO $ getObjectPropertyObject obj "opener" DOMDOMWindow data DOMDOMWindowOpenerPropertyInfo instance AttrInfo DOMDOMWindowOpenerPropertyInfo where type AttrAllowedOps DOMDOMWindowOpenerPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowOpenerPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowOpenerPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowOpenerPropertyInfo = DOMDOMWindow type AttrLabel DOMDOMWindowOpenerPropertyInfo = "DOMDOMWindow::opener" attrGet _ = getDOMDOMWindowOpener attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "outer-height" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowOuterHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowOuterHeight obj = liftIO $ getObjectPropertyInt64 obj "outer-height" data DOMDOMWindowOuterHeightPropertyInfo instance AttrInfo DOMDOMWindowOuterHeightPropertyInfo where type AttrAllowedOps DOMDOMWindowOuterHeightPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowOuterHeightPropertyInfo = Int64 type AttrLabel DOMDOMWindowOuterHeightPropertyInfo = "DOMDOMWindow::outer-height" attrGet _ = getDOMDOMWindowOuterHeight attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "outer-width" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowOuterWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowOuterWidth obj = liftIO $ getObjectPropertyInt64 obj "outer-width" data DOMDOMWindowOuterWidthPropertyInfo instance AttrInfo DOMDOMWindowOuterWidthPropertyInfo where type AttrAllowedOps DOMDOMWindowOuterWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowOuterWidthPropertyInfo = Int64 type AttrLabel DOMDOMWindowOuterWidthPropertyInfo = "DOMDOMWindow::outer-width" attrGet _ = getDOMDOMWindowOuterWidth attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "page-x-offset" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowPageXOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowPageXOffset obj = liftIO $ getObjectPropertyInt64 obj "page-x-offset" data DOMDOMWindowPageXOffsetPropertyInfo instance AttrInfo DOMDOMWindowPageXOffsetPropertyInfo where type AttrAllowedOps DOMDOMWindowPageXOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowPageXOffsetPropertyInfo = Int64 type AttrLabel DOMDOMWindowPageXOffsetPropertyInfo = "DOMDOMWindow::page-x-offset" attrGet _ = getDOMDOMWindowPageXOffset attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "page-y-offset" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowPageYOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowPageYOffset obj = liftIO $ getObjectPropertyInt64 obj "page-y-offset" data DOMDOMWindowPageYOffsetPropertyInfo instance AttrInfo DOMDOMWindowPageYOffsetPropertyInfo where type AttrAllowedOps DOMDOMWindowPageYOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowPageYOffsetPropertyInfo = Int64 type AttrLabel DOMDOMWindowPageYOffsetPropertyInfo = "DOMDOMWindow::page-y-offset" attrGet _ = getDOMDOMWindowPageYOffset attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "parent" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] getDOMDOMWindowParent :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow getDOMDOMWindowParent obj = liftIO $ getObjectPropertyObject obj "parent" DOMDOMWindow data DOMDOMWindowParentPropertyInfo instance AttrInfo DOMDOMWindowParentPropertyInfo where type AttrAllowedOps DOMDOMWindowParentPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowParentPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowParentPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowParentPropertyInfo = DOMDOMWindow type AttrLabel DOMDOMWindowParentPropertyInfo = "DOMDOMWindow::parent" attrGet _ = getDOMDOMWindowParent attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "performance" -- Type: TInterface "WebKit" "DOMPerformance" -- Flags: [PropertyReadable] getDOMDOMWindowPerformance :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMPerformance getDOMDOMWindowPerformance obj = liftIO $ getObjectPropertyObject obj "performance" DOMPerformance data DOMDOMWindowPerformancePropertyInfo instance AttrInfo DOMDOMWindowPerformancePropertyInfo where type AttrAllowedOps DOMDOMWindowPerformancePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowPerformancePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowPerformancePropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowPerformancePropertyInfo = DOMPerformance type AttrLabel DOMDOMWindowPerformancePropertyInfo = "DOMDOMWindow::performance" attrGet _ = getDOMDOMWindowPerformance attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "personalbar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] getDOMDOMWindowPersonalbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp getDOMDOMWindowPersonalbar obj = liftIO $ getObjectPropertyObject obj "personalbar" DOMBarProp data DOMDOMWindowPersonalbarPropertyInfo instance AttrInfo DOMDOMWindowPersonalbarPropertyInfo where type AttrAllowedOps DOMDOMWindowPersonalbarPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowPersonalbarPropertyInfo = DOMBarProp type AttrLabel DOMDOMWindowPersonalbarPropertyInfo = "DOMDOMWindow::personalbar" attrGet _ = getDOMDOMWindowPersonalbar attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "screen" -- Type: TInterface "WebKit" "DOMScreen" -- Flags: [PropertyReadable] getDOMDOMWindowScreen :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMScreen getDOMDOMWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" DOMScreen data DOMDOMWindowScreenPropertyInfo instance AttrInfo DOMDOMWindowScreenPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowScreenPropertyInfo = DOMScreen type AttrLabel DOMDOMWindowScreenPropertyInfo = "DOMDOMWindow::screen" attrGet _ = getDOMDOMWindowScreen attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "screen-left" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowScreenLeft :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowScreenLeft obj = liftIO $ getObjectPropertyInt64 obj "screen-left" data DOMDOMWindowScreenLeftPropertyInfo instance AttrInfo DOMDOMWindowScreenLeftPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenLeftPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowScreenLeftPropertyInfo = Int64 type AttrLabel DOMDOMWindowScreenLeftPropertyInfo = "DOMDOMWindow::screen-left" attrGet _ = getDOMDOMWindowScreenLeft attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "screen-top" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowScreenTop :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowScreenTop obj = liftIO $ getObjectPropertyInt64 obj "screen-top" data DOMDOMWindowScreenTopPropertyInfo instance AttrInfo DOMDOMWindowScreenTopPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenTopPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenTopPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenTopPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowScreenTopPropertyInfo = Int64 type AttrLabel DOMDOMWindowScreenTopPropertyInfo = "DOMDOMWindow::screen-top" attrGet _ = getDOMDOMWindowScreenTop attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "screen-x" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowScreenX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" data DOMDOMWindowScreenXPropertyInfo instance AttrInfo DOMDOMWindowScreenXPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenXPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowScreenXPropertyInfo = Int64 type AttrLabel DOMDOMWindowScreenXPropertyInfo = "DOMDOMWindow::screen-x" attrGet _ = getDOMDOMWindowScreenX attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "screen-y" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowScreenY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" data DOMDOMWindowScreenYPropertyInfo instance AttrInfo DOMDOMWindowScreenYPropertyInfo where type AttrAllowedOps DOMDOMWindowScreenYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScreenYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScreenYPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowScreenYPropertyInfo = Int64 type AttrLabel DOMDOMWindowScreenYPropertyInfo = "DOMDOMWindow::screen-y" attrGet _ = getDOMDOMWindowScreenY attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "scroll-x" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowScrollX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowScrollX obj = liftIO $ getObjectPropertyInt64 obj "scroll-x" data DOMDOMWindowScrollXPropertyInfo instance AttrInfo DOMDOMWindowScrollXPropertyInfo where type AttrAllowedOps DOMDOMWindowScrollXPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScrollXPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScrollXPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowScrollXPropertyInfo = Int64 type AttrLabel DOMDOMWindowScrollXPropertyInfo = "DOMDOMWindow::scroll-x" attrGet _ = getDOMDOMWindowScrollX attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "scroll-y" -- Type: TBasicType TInt64 -- Flags: [PropertyReadable] getDOMDOMWindowScrollY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 getDOMDOMWindowScrollY obj = liftIO $ getObjectPropertyInt64 obj "scroll-y" data DOMDOMWindowScrollYPropertyInfo instance AttrInfo DOMDOMWindowScrollYPropertyInfo where type AttrAllowedOps DOMDOMWindowScrollYPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScrollYPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScrollYPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowScrollYPropertyInfo = Int64 type AttrLabel DOMDOMWindowScrollYPropertyInfo = "DOMDOMWindow::scroll-y" attrGet _ = getDOMDOMWindowScrollY attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "scrollbars" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] getDOMDOMWindowScrollbars :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp getDOMDOMWindowScrollbars obj = liftIO $ getObjectPropertyObject obj "scrollbars" DOMBarProp data DOMDOMWindowScrollbarsPropertyInfo instance AttrInfo DOMDOMWindowScrollbarsPropertyInfo where type AttrAllowedOps DOMDOMWindowScrollbarsPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowScrollbarsPropertyInfo = DOMBarProp type AttrLabel DOMDOMWindowScrollbarsPropertyInfo = "DOMDOMWindow::scrollbars" attrGet _ = getDOMDOMWindowScrollbars attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "self" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] getDOMDOMWindowSelf :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow getDOMDOMWindowSelf obj = liftIO $ getObjectPropertyObject obj "self" DOMDOMWindow data DOMDOMWindowSelfPropertyInfo instance AttrInfo DOMDOMWindowSelfPropertyInfo where type AttrAllowedOps DOMDOMWindowSelfPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowSelfPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowSelfPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowSelfPropertyInfo = DOMDOMWindow type AttrLabel DOMDOMWindowSelfPropertyInfo = "DOMDOMWindow::self" attrGet _ = getDOMDOMWindowSelf attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "session-storage" -- Type: TInterface "WebKit" "DOMStorage" -- Flags: [PropertyReadable] getDOMDOMWindowSessionStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage getDOMDOMWindowSessionStorage obj = liftIO $ getObjectPropertyObject obj "session-storage" DOMStorage data DOMDOMWindowSessionStoragePropertyInfo instance AttrInfo DOMDOMWindowSessionStoragePropertyInfo where type AttrAllowedOps DOMDOMWindowSessionStoragePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowSessionStoragePropertyInfo = DOMStorage type AttrLabel DOMDOMWindowSessionStoragePropertyInfo = "DOMDOMWindow::session-storage" attrGet _ = getDOMDOMWindowSessionStorage attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "status" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] getDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text getDOMDOMWindowStatus obj = liftIO $ getObjectPropertyString obj "status" setDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () setDOMDOMWindowStatus obj val = liftIO $ setObjectPropertyString obj "status" val constructDOMDOMWindowStatus :: T.Text -> IO ([Char], GValue) constructDOMDOMWindowStatus val = constructObjectPropertyString "status" val data DOMDOMWindowStatusPropertyInfo instance AttrInfo DOMDOMWindowStatusPropertyInfo where type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowStatusPropertyInfo = (~) T.Text type AttrBaseTypeConstraint DOMDOMWindowStatusPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowStatusPropertyInfo = T.Text type AttrLabel DOMDOMWindowStatusPropertyInfo = "DOMDOMWindow::status" attrGet _ = getDOMDOMWindowStatus attrSet _ = setDOMDOMWindowStatus attrConstruct _ = constructDOMDOMWindowStatus -- VVV Prop "statusbar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] getDOMDOMWindowStatusbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp getDOMDOMWindowStatusbar obj = liftIO $ getObjectPropertyObject obj "statusbar" DOMBarProp data DOMDOMWindowStatusbarPropertyInfo instance AttrInfo DOMDOMWindowStatusbarPropertyInfo where type AttrAllowedOps DOMDOMWindowStatusbarPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowStatusbarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowStatusbarPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowStatusbarPropertyInfo = DOMBarProp type AttrLabel DOMDOMWindowStatusbarPropertyInfo = "DOMDOMWindow::statusbar" attrGet _ = getDOMDOMWindowStatusbar attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "style-media" -- Type: TInterface "WebKit" "DOMStyleMedia" -- Flags: [PropertyReadable] getDOMDOMWindowStyleMedia :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStyleMedia getDOMDOMWindowStyleMedia obj = liftIO $ getObjectPropertyObject obj "style-media" DOMStyleMedia data DOMDOMWindowStyleMediaPropertyInfo instance AttrInfo DOMDOMWindowStyleMediaPropertyInfo where type AttrAllowedOps DOMDOMWindowStyleMediaPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowStyleMediaPropertyInfo = DOMStyleMedia type AttrLabel DOMDOMWindowStyleMediaPropertyInfo = "DOMDOMWindow::style-media" attrGet _ = getDOMDOMWindowStyleMedia attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "toolbar" -- Type: TInterface "WebKit" "DOMBarProp" -- Flags: [PropertyReadable] getDOMDOMWindowToolbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp getDOMDOMWindowToolbar obj = liftIO $ getObjectPropertyObject obj "toolbar" DOMBarProp data DOMDOMWindowToolbarPropertyInfo instance AttrInfo DOMDOMWindowToolbarPropertyInfo where type AttrAllowedOps DOMDOMWindowToolbarPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowToolbarPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowToolbarPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowToolbarPropertyInfo = DOMBarProp type AttrLabel DOMDOMWindowToolbarPropertyInfo = "DOMDOMWindow::toolbar" attrGet _ = getDOMDOMWindowToolbar attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "top" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] getDOMDOMWindowTop :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow getDOMDOMWindowTop obj = liftIO $ getObjectPropertyObject obj "top" DOMDOMWindow data DOMDOMWindowTopPropertyInfo instance AttrInfo DOMDOMWindowTopPropertyInfo where type AttrAllowedOps DOMDOMWindowTopPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowTopPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowTopPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowTopPropertyInfo = DOMDOMWindow type AttrLabel DOMDOMWindowTopPropertyInfo = "DOMDOMWindow::top" attrGet _ = getDOMDOMWindowTop attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "webkit-storage-info" -- Type: TInterface "WebKit" "DOMStorageInfo" -- Flags: [PropertyReadable] getDOMDOMWindowWebkitStorageInfo :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorageInfo getDOMDOMWindowWebkitStorageInfo obj = liftIO $ getObjectPropertyObject obj "webkit-storage-info" DOMStorageInfo data DOMDOMWindowWebkitStorageInfoPropertyInfo instance AttrInfo DOMDOMWindowWebkitStorageInfoPropertyInfo where type AttrAllowedOps DOMDOMWindowWebkitStorageInfoPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMStorageInfo type AttrLabel DOMDOMWindowWebkitStorageInfoPropertyInfo = "DOMDOMWindow::webkit-storage-info" attrGet _ = getDOMDOMWindowWebkitStorageInfo attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "window" -- Type: TInterface "WebKit" "DOMDOMWindow" -- Flags: [PropertyReadable] getDOMDOMWindowWindow :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow getDOMDOMWindowWindow obj = liftIO $ getObjectPropertyObject obj "window" DOMDOMWindow data DOMDOMWindowWindowPropertyInfo instance AttrInfo DOMDOMWindowWindowPropertyInfo where type AttrAllowedOps DOMDOMWindowWindowPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMDOMWindowWindowPropertyInfo = (~) () type AttrBaseTypeConstraint DOMDOMWindowWindowPropertyInfo = DOMDOMWindowK type AttrGetType DOMDOMWindowWindowPropertyInfo = DOMDOMWindow type AttrLabel DOMDOMWindowWindowPropertyInfo = "DOMDOMWindow::window" attrGet _ = getDOMDOMWindowWindow attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList DOMDOMWindow = DOMDOMWindowAttributeList type DOMDOMWindowAttributeList = ('[ '("application-cache", DOMDOMWindowApplicationCachePropertyInfo), '("client-information", DOMDOMWindowClientInformationPropertyInfo), '("closed", DOMDOMWindowClosedPropertyInfo), '("console", DOMDOMWindowConsolePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("css", DOMDOMWindowCssPropertyInfo), '("default-status", DOMDOMWindowDefaultStatusPropertyInfo), '("device-pixel-ratio", DOMDOMWindowDevicePixelRatioPropertyInfo), '("document", DOMDOMWindowDocumentPropertyInfo), '("frame-element", DOMDOMWindowFrameElementPropertyInfo), '("frames", DOMDOMWindowFramesPropertyInfo), '("history", DOMDOMWindowHistoryPropertyInfo), '("inner-height", DOMDOMWindowInnerHeightPropertyInfo), '("inner-width", DOMDOMWindowInnerWidthPropertyInfo), '("length", DOMDOMWindowLengthPropertyInfo), '("local-storage", DOMDOMWindowLocalStoragePropertyInfo), '("locationbar", DOMDOMWindowLocationbarPropertyInfo), '("menubar", DOMDOMWindowMenubarPropertyInfo), '("name", DOMDOMWindowNamePropertyInfo), '("navigator", DOMDOMWindowNavigatorPropertyInfo), '("offscreen-buffering", DOMDOMWindowOffscreenBufferingPropertyInfo), '("opener", DOMDOMWindowOpenerPropertyInfo), '("outer-height", DOMDOMWindowOuterHeightPropertyInfo), '("outer-width", DOMDOMWindowOuterWidthPropertyInfo), '("page-x-offset", DOMDOMWindowPageXOffsetPropertyInfo), '("page-y-offset", DOMDOMWindowPageYOffsetPropertyInfo), '("parent", DOMDOMWindowParentPropertyInfo), '("performance", DOMDOMWindowPerformancePropertyInfo), '("personalbar", DOMDOMWindowPersonalbarPropertyInfo), '("screen", DOMDOMWindowScreenPropertyInfo), '("screen-left", DOMDOMWindowScreenLeftPropertyInfo), '("screen-top", DOMDOMWindowScreenTopPropertyInfo), '("screen-x", DOMDOMWindowScreenXPropertyInfo), '("screen-y", DOMDOMWindowScreenYPropertyInfo), '("scroll-x", DOMDOMWindowScrollXPropertyInfo), '("scroll-y", DOMDOMWindowScrollYPropertyInfo), '("scrollbars", DOMDOMWindowScrollbarsPropertyInfo), '("self", DOMDOMWindowSelfPropertyInfo), '("session-storage", DOMDOMWindowSessionStoragePropertyInfo), '("status", DOMDOMWindowStatusPropertyInfo), '("statusbar", DOMDOMWindowStatusbarPropertyInfo), '("style-media", DOMDOMWindowStyleMediaPropertyInfo), '("toolbar", DOMDOMWindowToolbarPropertyInfo), '("top", DOMDOMWindowTopPropertyInfo), '("webkit-storage-info", DOMDOMWindowWebkitStorageInfoPropertyInfo), '("window", DOMDOMWindowWindowPropertyInfo)] :: [(Symbol, *)]) type instance SignalList DOMDOMWindow = DOMDOMWindowSignalList type DOMDOMWindowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMDOMWindow::alert -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", 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_dom_dom_window_alert" webkit_dom_dom_window_alert :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- message : TBasicType TUTF8 IO () dOMDOMWindowAlert :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- message m () dOMDOMWindowAlert _obj message = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj message' <- textToCString message webkit_dom_dom_window_alert _obj' message' touchManagedPtr _obj freeMem message' return () -- method DOMDOMWindow::atob -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_window_atob" webkit_dom_dom_window_atob :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- string : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO CString dOMDOMWindowAtob :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- string m T.Text dOMDOMWindowAtob _obj string = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj string' <- textToCString string onException (do result <- propagateGError $ webkit_dom_dom_window_atob _obj' string' checkUnexpectedReturnNULL "webkit_dom_dom_window_atob" result result' <- cstringToText result freeMem result touchManagedPtr _obj freeMem string' return result' ) (do freeMem string' ) -- method DOMDOMWindow::blur -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_blur" webkit_dom_dom_window_blur :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO () dOMDOMWindowBlur :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m () dOMDOMWindowBlur _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_blur _obj' touchManagedPtr _obj return () -- method DOMDOMWindow::btoa -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_window_btoa" webkit_dom_dom_window_btoa :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- string : TBasicType TUTF8 Ptr (Ptr GError) -> -- error IO CString dOMDOMWindowBtoa :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- string m T.Text dOMDOMWindowBtoa _obj string = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj string' <- textToCString string onException (do result <- propagateGError $ webkit_dom_dom_window_btoa _obj' string' checkUnexpectedReturnNULL "webkit_dom_dom_window_btoa" result result' <- cstringToText result freeMem result touchManagedPtr _obj freeMem string' return result' ) (do freeMem string' ) -- method DOMDOMWindow::cancel_animation_frame -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_cancel_animation_frame" webkit_dom_dom_window_cancel_animation_frame :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Int64 -> -- id : TBasicType TInt64 IO () dOMDOMWindowCancelAnimationFrame :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Int64 -> -- id m () dOMDOMWindowCancelAnimationFrame _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_cancel_animation_frame _obj' id touchManagedPtr _obj return () -- method DOMDOMWindow::capture_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_capture_events" webkit_dom_dom_window_capture_events :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO () dOMDOMWindowCaptureEvents :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m () dOMDOMWindowCaptureEvents _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_capture_events _obj' touchManagedPtr _obj return () -- method DOMDOMWindow::clear_interval -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_clear_interval" webkit_dom_dom_window_clear_interval :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Int64 -> -- handle : TBasicType TInt64 IO () dOMDOMWindowClearInterval :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Int64 -> -- handle m () dOMDOMWindowClearInterval _obj handle = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_clear_interval _obj' handle touchManagedPtr _obj return () -- method DOMDOMWindow::clear_timeout -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handle", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_clear_timeout" webkit_dom_dom_window_clear_timeout :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Int64 -> -- handle : TBasicType TInt64 IO () dOMDOMWindowClearTimeout :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Int64 -> -- handle m () dOMDOMWindowClearTimeout _obj handle = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_clear_timeout _obj' handle touchManagedPtr _obj return () -- method DOMDOMWindow::close -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_close" webkit_dom_dom_window_close :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO () dOMDOMWindowClose :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m () dOMDOMWindowClose _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_close _obj' touchManagedPtr _obj return () -- method DOMDOMWindow::confirm -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", 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_dom_dom_window_confirm" webkit_dom_dom_window_confirm :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- message : TBasicType TUTF8 IO CInt dOMDOMWindowConfirm :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- message m Bool dOMDOMWindowConfirm _obj message = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj message' <- textToCString message result <- webkit_dom_dom_window_confirm _obj' message' let result' = (/= 0) result touchManagedPtr _obj freeMem message' return result' -- method DOMDOMWindow::dispatch_event -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_window_dispatch_event" webkit_dom_dom_window_dispatch_event :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" Ptr (Ptr GError) -> -- error IO CInt {-# DEPRECATED dOMDOMWindowDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} dOMDOMWindowDispatchEvent :: (MonadIO m, DOMDOMWindowK a, DOMEventK b) => a -> -- _obj b -> -- evt m () dOMDOMWindowDispatchEvent _obj evt = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let evt' = unsafeManagedPtrCastPtr evt onException (do _ <- propagateGError $ webkit_dom_dom_window_dispatch_event _obj' evt' touchManagedPtr _obj touchManagedPtr evt return () ) (do return () ) -- method DOMDOMWindow::find -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caseSensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wholeWord", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "searchInFrames", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "showDialog", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "caseSensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "backwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wholeWord", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "searchInFrames", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "showDialog", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_find" webkit_dom_dom_window_find :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- string : TBasicType TUTF8 CInt -> -- caseSensitive : TBasicType TBoolean CInt -> -- backwards : TBasicType TBoolean CInt -> -- wrap : TBasicType TBoolean CInt -> -- wholeWord : TBasicType TBoolean CInt -> -- searchInFrames : TBasicType TBoolean CInt -> -- showDialog : TBasicType TBoolean IO CInt dOMDOMWindowFind :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- string Bool -> -- caseSensitive Bool -> -- backwards Bool -> -- wrap Bool -> -- wholeWord Bool -> -- searchInFrames Bool -> -- showDialog m Bool dOMDOMWindowFind _obj string caseSensitive backwards wrap wholeWord searchInFrames showDialog = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj string' <- textToCString string let caseSensitive' = (fromIntegral . fromEnum) caseSensitive let backwards' = (fromIntegral . fromEnum) backwards let wrap' = (fromIntegral . fromEnum) wrap let wholeWord' = (fromIntegral . fromEnum) wholeWord let searchInFrames' = (fromIntegral . fromEnum) searchInFrames let showDialog' = (fromIntegral . fromEnum) showDialog result <- webkit_dom_dom_window_find _obj' string' caseSensitive' backwards' wrap' wholeWord' searchInFrames' showDialog' let result' = (/= 0) result touchManagedPtr _obj freeMem string' return result' -- method DOMDOMWindow::focus -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_focus" webkit_dom_dom_window_focus :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO () dOMDOMWindowFocus :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m () dOMDOMWindowFocus _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_focus _obj' touchManagedPtr _obj return () -- method DOMDOMWindow::get_application_cache -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMApplicationCache" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_application_cache" webkit_dom_dom_window_get_application_cache :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMApplicationCache) dOMDOMWindowGetApplicationCache :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMApplicationCache dOMDOMWindowGetApplicationCache _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_application_cache _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_application_cache" result result' <- (wrapObject DOMDOMApplicationCache) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_client_information -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMNavigator" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_client_information" webkit_dom_dom_window_get_client_information :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMNavigator) dOMDOMWindowGetClientInformation :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMNavigator dOMDOMWindowGetClientInformation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_client_information _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_client_information" result result' <- (wrapObject DOMNavigator) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_closed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_closed" webkit_dom_dom_window_get_closed :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO CInt dOMDOMWindowGetClosed :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Bool dOMDOMWindowGetClosed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_closed _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_computed_style -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pseudoElement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_computed_style" webkit_dom_dom_window_get_computed_style :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Ptr DOMElement -> -- element : TInterface "WebKit" "DOMElement" CString -> -- pseudoElement : TBasicType TUTF8 IO (Ptr DOMCSSStyleDeclaration) dOMDOMWindowGetComputedStyle :: (MonadIO m, DOMDOMWindowK a, DOMElementK b) => a -> -- _obj b -> -- element Maybe (T.Text) -> -- pseudoElement m DOMCSSStyleDeclaration dOMDOMWindowGetComputedStyle _obj element pseudoElement = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let element' = unsafeManagedPtrCastPtr element maybePseudoElement <- case pseudoElement of Nothing -> return nullPtr Just jPseudoElement -> do jPseudoElement' <- textToCString jPseudoElement return jPseudoElement' result <- webkit_dom_dom_window_get_computed_style _obj' element' maybePseudoElement checkUnexpectedReturnNULL "webkit_dom_dom_window_get_computed_style" result result' <- (wrapObject DOMCSSStyleDeclaration) result touchManagedPtr _obj touchManagedPtr element freeMem maybePseudoElement return result' -- method DOMDOMWindow::get_console -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMConsole" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_console" webkit_dom_dom_window_get_console :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMConsole) dOMDOMWindowGetConsole :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMConsole dOMDOMWindowGetConsole _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_console _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_console" result result' <- (newObject DOMConsole) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_css -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMWindowCSS" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_css" webkit_dom_dom_window_get_css :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMWindowCSS) dOMDOMWindowGetCss :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMWindowCSS dOMDOMWindowGetCss _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_css _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_css" result result' <- (wrapObject DOMDOMWindowCSS) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_default_status -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_default_status" webkit_dom_dom_window_get_default_status :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO CString dOMDOMWindowGetDefaultStatus :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m T.Text dOMDOMWindowGetDefaultStatus _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_default_status _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_default_status" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_device_pixel_ratio -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_device_pixel_ratio" webkit_dom_dom_window_get_device_pixel_ratio :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO CDouble dOMDOMWindowGetDevicePixelRatio :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Double dOMDOMWindowGetDevicePixelRatio _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_device_pixel_ratio _obj' let result' = realToFrac result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_document -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDocument" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_document" webkit_dom_dom_window_get_document :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDocument) dOMDOMWindowGetDocument :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDocument dOMDOMWindowGetDocument _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_document _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_document" result result' <- (newObject DOMDocument) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_frame_element -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMElement" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_frame_element" webkit_dom_dom_window_get_frame_element :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMElement) dOMDOMWindowGetFrameElement :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMElement dOMDOMWindowGetFrameElement _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_frame_element _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_frame_element" result result' <- (newObject DOMElement) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_frames -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMWindow" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_frames" webkit_dom_dom_window_get_frames :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMWindow) dOMDOMWindowGetFrames :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMWindow dOMDOMWindowGetFrames _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_frames _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_frames" result result' <- (wrapObject DOMDOMWindow) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_history -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMHistory" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_history" webkit_dom_dom_window_get_history :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMHistory) dOMDOMWindowGetHistory :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMHistory dOMDOMWindowGetHistory _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_history _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_history" result result' <- (wrapObject DOMHistory) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_inner_height -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_inner_height" webkit_dom_dom_window_get_inner_height :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetInnerHeight :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetInnerHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_inner_height _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_inner_width -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_inner_width" webkit_dom_dom_window_get_inner_width :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetInnerWidth :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetInnerWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_inner_width _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_length -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_length" webkit_dom_dom_window_get_length :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Word64 dOMDOMWindowGetLength :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Word64 dOMDOMWindowGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_length _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_local_storage -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMStorage" -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_local_storage" webkit_dom_dom_window_get_local_storage :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Ptr (Ptr GError) -> -- error IO (Ptr DOMStorage) dOMDOMWindowGetLocalStorage :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMStorage dOMDOMWindowGetLocalStorage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do result <- propagateGError $ webkit_dom_dom_window_get_local_storage _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_local_storage" result result' <- (wrapObject DOMStorage) result touchManagedPtr _obj return result' ) (do return () ) -- method DOMDOMWindow::get_locationbar -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMBarProp" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_locationbar" webkit_dom_dom_window_get_locationbar :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMBarProp) dOMDOMWindowGetLocationbar :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMBarProp dOMDOMWindowGetLocationbar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_locationbar _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_locationbar" result result' <- (wrapObject DOMBarProp) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_menubar -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMBarProp" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_menubar" webkit_dom_dom_window_get_menubar :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMBarProp) dOMDOMWindowGetMenubar :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMBarProp dOMDOMWindowGetMenubar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_menubar _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_menubar" result result' <- (wrapObject DOMBarProp) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_name" webkit_dom_dom_window_get_name :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO CString dOMDOMWindowGetName :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m T.Text dOMDOMWindowGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_name _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_name" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_navigator -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMNavigator" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_navigator" webkit_dom_dom_window_get_navigator :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMNavigator) dOMDOMWindowGetNavigator :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMNavigator dOMDOMWindowGetNavigator _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_navigator _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_navigator" result result' <- (wrapObject DOMNavigator) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_offscreen_buffering -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_offscreen_buffering" webkit_dom_dom_window_get_offscreen_buffering :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO CInt dOMDOMWindowGetOffscreenBuffering :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Bool dOMDOMWindowGetOffscreenBuffering _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_offscreen_buffering _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_opener -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMWindow" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_opener" webkit_dom_dom_window_get_opener :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMWindow) dOMDOMWindowGetOpener :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMWindow dOMDOMWindowGetOpener _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_opener _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_opener" result result' <- (wrapObject DOMDOMWindow) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_outer_height -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_outer_height" webkit_dom_dom_window_get_outer_height :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetOuterHeight :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetOuterHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_outer_height _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_outer_width -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_outer_width" webkit_dom_dom_window_get_outer_width :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetOuterWidth :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetOuterWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_outer_width _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_page_x_offset -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_page_x_offset" webkit_dom_dom_window_get_page_x_offset :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetPageXOffset :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetPageXOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_page_x_offset _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_page_y_offset -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_page_y_offset" webkit_dom_dom_window_get_page_y_offset :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetPageYOffset :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetPageYOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_page_y_offset _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMWindow" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_parent" webkit_dom_dom_window_get_parent :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMWindow) dOMDOMWindowGetParent :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMWindow dOMDOMWindowGetParent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_parent _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_parent" result result' <- (wrapObject DOMDOMWindow) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_performance -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMPerformance" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_performance" webkit_dom_dom_window_get_performance :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMPerformance) dOMDOMWindowGetPerformance :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMPerformance dOMDOMWindowGetPerformance _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_performance _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_performance" result result' <- (wrapObject DOMPerformance) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_personalbar -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMBarProp" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_personalbar" webkit_dom_dom_window_get_personalbar :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMBarProp) dOMDOMWindowGetPersonalbar :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMBarProp dOMDOMWindowGetPersonalbar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_personalbar _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_personalbar" result result' <- (wrapObject DOMBarProp) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMScreen" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen" webkit_dom_dom_window_get_screen :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMScreen) dOMDOMWindowGetScreen :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMScreen dOMDOMWindowGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_screen" result result' <- (wrapObject DOMScreen) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_screen_left -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen_left" webkit_dom_dom_window_get_screen_left :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetScreenLeft :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetScreenLeft _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen_left _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_screen_top -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen_top" webkit_dom_dom_window_get_screen_top :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetScreenTop :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetScreenTop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen_top _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_screen_x -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen_x" webkit_dom_dom_window_get_screen_x :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetScreenX :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetScreenX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen_x _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_screen_y -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_screen_y" webkit_dom_dom_window_get_screen_y :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetScreenY :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetScreenY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_screen_y _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_scroll_x -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_scroll_x" webkit_dom_dom_window_get_scroll_x :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetScrollX :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetScrollX _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_scroll_x _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_scroll_y -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_scroll_y" webkit_dom_dom_window_get_scroll_y :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO Int64 dOMDOMWindowGetScrollY :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m Int64 dOMDOMWindowGetScrollY _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_scroll_y _obj' touchManagedPtr _obj return result -- method DOMDOMWindow::get_scrollbars -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMBarProp" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_scrollbars" webkit_dom_dom_window_get_scrollbars :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMBarProp) dOMDOMWindowGetScrollbars :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMBarProp dOMDOMWindowGetScrollbars _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_scrollbars _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_scrollbars" result result' <- (wrapObject DOMBarProp) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_selection -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMSelection" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_selection" webkit_dom_dom_window_get_selection :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMSelection) dOMDOMWindowGetSelection :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMSelection dOMDOMWindowGetSelection _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_selection _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_selection" result result' <- (wrapObject DOMDOMSelection) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_self -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMWindow" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_self" webkit_dom_dom_window_get_self :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMWindow) dOMDOMWindowGetSelf :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMWindow dOMDOMWindowGetSelf _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_self _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_self" result result' <- (wrapObject DOMDOMWindow) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_session_storage -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMStorage" -- throws : True -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_session_storage" webkit_dom_dom_window_get_session_storage :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Ptr (Ptr GError) -> -- error IO (Ptr DOMStorage) dOMDOMWindowGetSessionStorage :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMStorage dOMDOMWindowGetSessionStorage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do result <- propagateGError $ webkit_dom_dom_window_get_session_storage _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_session_storage" result result' <- (wrapObject DOMStorage) result touchManagedPtr _obj return result' ) (do return () ) -- method DOMDOMWindow::get_status -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_status" webkit_dom_dom_window_get_status :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO CString dOMDOMWindowGetStatus :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m T.Text dOMDOMWindowGetStatus _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_status _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_status" result result' <- cstringToText result freeMem result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_statusbar -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMBarProp" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_statusbar" webkit_dom_dom_window_get_statusbar :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMBarProp) dOMDOMWindowGetStatusbar :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMBarProp dOMDOMWindowGetStatusbar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_statusbar _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_statusbar" result result' <- (wrapObject DOMBarProp) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_style_media -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMStyleMedia" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_style_media" webkit_dom_dom_window_get_style_media :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMStyleMedia) dOMDOMWindowGetStyleMedia :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMStyleMedia dOMDOMWindowGetStyleMedia _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_style_media _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_style_media" result result' <- (wrapObject DOMStyleMedia) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_toolbar -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMBarProp" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_toolbar" webkit_dom_dom_window_get_toolbar :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMBarProp) dOMDOMWindowGetToolbar :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMBarProp dOMDOMWindowGetToolbar _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_toolbar _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_toolbar" result result' <- (wrapObject DOMBarProp) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_top -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMWindow" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_top" webkit_dom_dom_window_get_top :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMWindow) dOMDOMWindowGetTop :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMWindow dOMDOMWindowGetTop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_top _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_top" result result' <- (wrapObject DOMDOMWindow) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_webkit_storage_info -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMStorageInfo" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_webkit_storage_info" webkit_dom_dom_window_get_webkit_storage_info :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMStorageInfo) dOMDOMWindowGetWebkitStorageInfo :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMStorageInfo dOMDOMWindowGetWebkitStorageInfo _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_webkit_storage_info _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_webkit_storage_info" result result' <- (newObject DOMStorageInfo) result touchManagedPtr _obj return result' -- method DOMDOMWindow::get_window -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMDOMWindow" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_get_window" webkit_dom_dom_window_get_window :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO (Ptr DOMDOMWindow) dOMDOMWindowGetWindow :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m DOMDOMWindow dOMDOMWindowGetWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_dom_window_get_window _obj' checkUnexpectedReturnNULL "webkit_dom_dom_window_get_window" result result' <- (wrapObject DOMDOMWindow) result touchManagedPtr _obj return result' -- method DOMDOMWindow::match_media -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMMediaQueryList" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_match_media" webkit_dom_dom_window_match_media :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- query : TBasicType TUTF8 IO (Ptr DOMMediaQueryList) dOMDOMWindowMatchMedia :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- query m DOMMediaQueryList dOMDOMWindowMatchMedia _obj query = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj query' <- textToCString query result <- webkit_dom_dom_window_match_media _obj' query' checkUnexpectedReturnNULL "webkit_dom_dom_window_match_media" result result' <- (wrapObject DOMMediaQueryList) result touchManagedPtr _obj freeMem query' return result' -- method DOMDOMWindow::move_by -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_move_by" webkit_dom_dom_window_move_by :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CFloat -> -- x : TBasicType TFloat CFloat -> -- y : TBasicType TFloat IO () dOMDOMWindowMoveBy :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Float -> -- x Float -> -- y m () dOMDOMWindowMoveBy _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let x' = realToFrac x let y' = realToFrac y webkit_dom_dom_window_move_by _obj' x' y' touchManagedPtr _obj return () -- method DOMDOMWindow::move_to -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_move_to" webkit_dom_dom_window_move_to :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CFloat -> -- x : TBasicType TFloat CFloat -> -- y : TBasicType TFloat IO () dOMDOMWindowMoveTo :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Float -> -- x Float -> -- y m () dOMDOMWindowMoveTo _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let x' = realToFrac x let y' = realToFrac y webkit_dom_dom_window_move_to _obj' x' y' touchManagedPtr _obj return () -- method DOMDOMWindow::print -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_print" webkit_dom_dom_window_print :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO () dOMDOMWindowPrint :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m () dOMDOMWindowPrint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_print _obj' touchManagedPtr _obj return () -- method DOMDOMWindow::prompt -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "defaultValue", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "defaultValue", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_prompt" webkit_dom_dom_window_prompt :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- message : TBasicType TUTF8 CString -> -- defaultValue : TBasicType TUTF8 IO CString dOMDOMWindowPrompt :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- message T.Text -> -- defaultValue m T.Text dOMDOMWindowPrompt _obj message defaultValue = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj message' <- textToCString message defaultValue' <- textToCString defaultValue result <- webkit_dom_dom_window_prompt _obj' message' defaultValue' checkUnexpectedReturnNULL "webkit_dom_dom_window_prompt" result result' <- cstringToText result freeMem result touchManagedPtr _obj freeMem message' freeMem defaultValue' return result' -- method DOMDOMWindow::release_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_release_events" webkit_dom_dom_window_release_events :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO () dOMDOMWindowReleaseEvents :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m () dOMDOMWindowReleaseEvents _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_release_events _obj' touchManagedPtr _obj return () -- method DOMDOMWindow::resize_by -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_resize_by" webkit_dom_dom_window_resize_by :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CFloat -> -- x : TBasicType TFloat CFloat -> -- y : TBasicType TFloat IO () dOMDOMWindowResizeBy :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Float -> -- x Float -> -- y m () dOMDOMWindowResizeBy _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let x' = realToFrac x let y' = realToFrac y webkit_dom_dom_window_resize_by _obj' x' y' touchManagedPtr _obj return () -- method DOMDOMWindow::resize_to -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_resize_to" webkit_dom_dom_window_resize_to :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CFloat -> -- width : TBasicType TFloat CFloat -> -- height : TBasicType TFloat IO () dOMDOMWindowResizeTo :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Float -> -- width Float -> -- height m () dOMDOMWindowResizeTo _obj width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let width' = realToFrac width let height' = realToFrac height webkit_dom_dom_window_resize_to _obj' width' height' touchManagedPtr _obj return () -- method DOMDOMWindow::scroll -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_scroll" webkit_dom_dom_window_scroll :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Int64 -> -- x : TBasicType TInt64 Int64 -> -- y : TBasicType TInt64 IO () dOMDOMWindowScroll :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Int64 -> -- x Int64 -> -- y m () dOMDOMWindowScroll _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_scroll _obj' x y touchManagedPtr _obj return () -- method DOMDOMWindow::scroll_by -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_scroll_by" webkit_dom_dom_window_scroll_by :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Int64 -> -- x : TBasicType TInt64 Int64 -> -- y : TBasicType TInt64 IO () dOMDOMWindowScrollBy :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Int64 -> -- x Int64 -> -- y m () dOMDOMWindowScrollBy _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_scroll_by _obj' x y touchManagedPtr _obj return () -- method DOMDOMWindow::scroll_to -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_scroll_to" webkit_dom_dom_window_scroll_to :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Int64 -> -- x : TBasicType TInt64 Int64 -> -- y : TBasicType TInt64 IO () dOMDOMWindowScrollTo :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Int64 -> -- x Int64 -> -- y m () dOMDOMWindowScrollTo _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_scroll_to _obj' x y touchManagedPtr _obj return () -- method DOMDOMWindow::set_default_status -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_dom_dom_window_set_default_status" webkit_dom_dom_window_set_default_status :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- value : TBasicType TUTF8 IO () dOMDOMWindowSetDefaultStatus :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- value m () dOMDOMWindowSetDefaultStatus _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value webkit_dom_dom_window_set_default_status _obj' value' touchManagedPtr _obj freeMem value' return () -- method DOMDOMWindow::set_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_dom_dom_window_set_name" webkit_dom_dom_window_set_name :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- value : TBasicType TUTF8 IO () dOMDOMWindowSetName :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- value m () dOMDOMWindowSetName _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value webkit_dom_dom_window_set_name _obj' value' touchManagedPtr _obj freeMem value' return () -- method DOMDOMWindow::set_status -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_dom_dom_window_set_status" webkit_dom_dom_window_set_status :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" CString -> -- value : TBasicType TUTF8 IO () dOMDOMWindowSetStatus :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj T.Text -> -- value m () dOMDOMWindowSetStatus _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj value' <- textToCString value webkit_dom_dom_window_set_status _obj' value' touchManagedPtr _obj freeMem value' return () -- method DOMDOMWindow::stop -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_stop" webkit_dom_dom_window_stop :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" IO () dOMDOMWindowStop :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj m () dOMDOMWindowStop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_stop _obj' touchManagedPtr _obj return () -- method DOMDOMWindow::webkit_cancel_animation_frame -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_webkit_cancel_animation_frame" webkit_dom_dom_window_webkit_cancel_animation_frame :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Int64 -> -- id : TBasicType TInt64 IO () dOMDOMWindowWebkitCancelAnimationFrame :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Int64 -> -- id m () dOMDOMWindowWebkitCancelAnimationFrame _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_webkit_cancel_animation_frame _obj' id touchManagedPtr _obj return () -- method DOMDOMWindow::webkit_cancel_request_animation_frame -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_webkit_cancel_request_animation_frame" webkit_dom_dom_window_webkit_cancel_request_animation_frame :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Int64 -> -- id : TBasicType TInt64 IO () dOMDOMWindowWebkitCancelRequestAnimationFrame :: (MonadIO m, DOMDOMWindowK a) => a -> -- _obj Int64 -> -- id m () dOMDOMWindowWebkitCancelRequestAnimationFrame _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_dom_window_webkit_cancel_request_animation_frame _obj' id touchManagedPtr _obj return () -- method DOMDOMWindow::webkit_convert_point_from_node_to_page -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMWebKitPoint" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_webkit_convert_point_from_node_to_page" webkit_dom_dom_window_webkit_convert_point_from_node_to_page :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" Ptr DOMWebKitPoint -> -- p : TInterface "WebKit" "DOMWebKitPoint" IO (Ptr DOMWebKitPoint) dOMDOMWindowWebkitConvertPointFromNodeToPage :: (MonadIO m, DOMDOMWindowK a, DOMNodeK b, DOMWebKitPointK c) => a -> -- _obj b -> -- node c -> -- p m DOMWebKitPoint dOMDOMWindowWebkitConvertPointFromNodeToPage _obj node p = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let node' = unsafeManagedPtrCastPtr node let p' = unsafeManagedPtrCastPtr p result <- webkit_dom_dom_window_webkit_convert_point_from_node_to_page _obj' node' p' checkUnexpectedReturnNULL "webkit_dom_dom_window_webkit_convert_point_from_node_to_page" result result' <- (wrapObject DOMWebKitPoint) result touchManagedPtr _obj touchManagedPtr node touchManagedPtr p return result' -- method DOMDOMWindow::webkit_convert_point_from_page_to_node -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMWebKitPoint" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_dom_window_webkit_convert_point_from_page_to_node" webkit_dom_dom_window_webkit_convert_point_from_page_to_node :: Ptr DOMDOMWindow -> -- _obj : TInterface "WebKit" "DOMDOMWindow" Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode" Ptr DOMWebKitPoint -> -- p : TInterface "WebKit" "DOMWebKitPoint" IO (Ptr DOMWebKitPoint) dOMDOMWindowWebkitConvertPointFromPageToNode :: (MonadIO m, DOMDOMWindowK a, DOMNodeK b, DOMWebKitPointK c) => a -> -- _obj b -> -- node c -> -- p m DOMWebKitPoint dOMDOMWindowWebkitConvertPointFromPageToNode _obj node p = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let node' = unsafeManagedPtrCastPtr node let p' = unsafeManagedPtrCastPtr p result <- webkit_dom_dom_window_webkit_convert_point_from_page_to_node _obj' node' p' checkUnexpectedReturnNULL "webkit_dom_dom_window_webkit_convert_point_from_page_to_node" result result' <- (wrapObject DOMWebKitPoint) result touchManagedPtr _obj touchManagedPtr node touchManagedPtr p return result'