module GI.WebKit.Objects.DOMDOMWindow
(
DOMDOMWindow(..) ,
DOMDOMWindowK ,
toDOMDOMWindow ,
noDOMDOMWindow ,
dOMDOMWindowAlert ,
dOMDOMWindowAtob ,
dOMDOMWindowBlur ,
dOMDOMWindowBtoa ,
dOMDOMWindowCancelAnimationFrame ,
dOMDOMWindowCaptureEvents ,
dOMDOMWindowClearInterval ,
dOMDOMWindowClearTimeout ,
dOMDOMWindowClose ,
dOMDOMWindowConfirm ,
dOMDOMWindowDispatchEvent ,
dOMDOMWindowFind ,
dOMDOMWindowFocus ,
dOMDOMWindowGetApplicationCache ,
dOMDOMWindowGetClientInformation ,
dOMDOMWindowGetClosed ,
dOMDOMWindowGetComputedStyle ,
dOMDOMWindowGetConsole ,
dOMDOMWindowGetCss ,
dOMDOMWindowGetDefaultStatus ,
dOMDOMWindowGetDevicePixelRatio ,
dOMDOMWindowGetDocument ,
dOMDOMWindowGetFrameElement ,
dOMDOMWindowGetFrames ,
dOMDOMWindowGetHistory ,
dOMDOMWindowGetInnerHeight ,
dOMDOMWindowGetInnerWidth ,
dOMDOMWindowGetLength ,
dOMDOMWindowGetLocalStorage ,
dOMDOMWindowGetLocationbar ,
dOMDOMWindowGetMenubar ,
dOMDOMWindowGetName ,
dOMDOMWindowGetNavigator ,
dOMDOMWindowGetOffscreenBuffering ,
dOMDOMWindowGetOpener ,
dOMDOMWindowGetOuterHeight ,
dOMDOMWindowGetOuterWidth ,
dOMDOMWindowGetPageXOffset ,
dOMDOMWindowGetPageYOffset ,
dOMDOMWindowGetParent ,
dOMDOMWindowGetPerformance ,
dOMDOMWindowGetPersonalbar ,
dOMDOMWindowGetScreen ,
dOMDOMWindowGetScreenLeft ,
dOMDOMWindowGetScreenTop ,
dOMDOMWindowGetScreenX ,
dOMDOMWindowGetScreenY ,
dOMDOMWindowGetScrollX ,
dOMDOMWindowGetScrollY ,
dOMDOMWindowGetScrollbars ,
dOMDOMWindowGetSelection ,
dOMDOMWindowGetSelf ,
dOMDOMWindowGetSessionStorage ,
dOMDOMWindowGetStatus ,
dOMDOMWindowGetStatusbar ,
dOMDOMWindowGetStyleMedia ,
dOMDOMWindowGetToolbar ,
dOMDOMWindowGetTop ,
dOMDOMWindowGetWebkitStorageInfo ,
dOMDOMWindowGetWindow ,
dOMDOMWindowMatchMedia ,
dOMDOMWindowMoveBy ,
dOMDOMWindowMoveTo ,
dOMDOMWindowPrint ,
dOMDOMWindowPrompt ,
dOMDOMWindowReleaseEvents ,
dOMDOMWindowResizeBy ,
dOMDOMWindowResizeTo ,
dOMDOMWindowScroll ,
dOMDOMWindowScrollBy ,
dOMDOMWindowScrollTo ,
dOMDOMWindowSetDefaultStatus ,
dOMDOMWindowSetName ,
dOMDOMWindowSetStatus ,
dOMDOMWindowStop ,
dOMDOMWindowWebkitCancelAnimationFrame ,
dOMDOMWindowWebkitCancelRequestAnimationFrame,
dOMDOMWindowWebkitConvertPointFromNodeToPage,
dOMDOMWindowWebkitConvertPointFromPageToNode,
DOMDOMWindowApplicationCachePropertyInfo,
getDOMDOMWindowApplicationCache ,
DOMDOMWindowClientInformationPropertyInfo,
getDOMDOMWindowClientInformation ,
DOMDOMWindowClosedPropertyInfo ,
getDOMDOMWindowClosed ,
DOMDOMWindowConsolePropertyInfo ,
getDOMDOMWindowConsole ,
DOMDOMWindowCssPropertyInfo ,
getDOMDOMWindowCss ,
DOMDOMWindowDefaultStatusPropertyInfo ,
constructDOMDOMWindowDefaultStatus ,
getDOMDOMWindowDefaultStatus ,
setDOMDOMWindowDefaultStatus ,
DOMDOMWindowDevicePixelRatioPropertyInfo,
getDOMDOMWindowDevicePixelRatio ,
DOMDOMWindowDocumentPropertyInfo ,
getDOMDOMWindowDocument ,
DOMDOMWindowFrameElementPropertyInfo ,
getDOMDOMWindowFrameElement ,
DOMDOMWindowFramesPropertyInfo ,
getDOMDOMWindowFrames ,
DOMDOMWindowHistoryPropertyInfo ,
getDOMDOMWindowHistory ,
DOMDOMWindowInnerHeightPropertyInfo ,
getDOMDOMWindowInnerHeight ,
DOMDOMWindowInnerWidthPropertyInfo ,
getDOMDOMWindowInnerWidth ,
DOMDOMWindowLengthPropertyInfo ,
getDOMDOMWindowLength ,
DOMDOMWindowLocalStoragePropertyInfo ,
getDOMDOMWindowLocalStorage ,
DOMDOMWindowLocationbarPropertyInfo ,
getDOMDOMWindowLocationbar ,
DOMDOMWindowMenubarPropertyInfo ,
getDOMDOMWindowMenubar ,
DOMDOMWindowNamePropertyInfo ,
constructDOMDOMWindowName ,
getDOMDOMWindowName ,
setDOMDOMWindowName ,
DOMDOMWindowNavigatorPropertyInfo ,
getDOMDOMWindowNavigator ,
DOMDOMWindowOffscreenBufferingPropertyInfo,
getDOMDOMWindowOffscreenBuffering ,
DOMDOMWindowOpenerPropertyInfo ,
getDOMDOMWindowOpener ,
DOMDOMWindowOuterHeightPropertyInfo ,
getDOMDOMWindowOuterHeight ,
DOMDOMWindowOuterWidthPropertyInfo ,
getDOMDOMWindowOuterWidth ,
DOMDOMWindowPageXOffsetPropertyInfo ,
getDOMDOMWindowPageXOffset ,
DOMDOMWindowPageYOffsetPropertyInfo ,
getDOMDOMWindowPageYOffset ,
DOMDOMWindowParentPropertyInfo ,
getDOMDOMWindowParent ,
DOMDOMWindowPerformancePropertyInfo ,
getDOMDOMWindowPerformance ,
DOMDOMWindowPersonalbarPropertyInfo ,
getDOMDOMWindowPersonalbar ,
DOMDOMWindowScreenPropertyInfo ,
getDOMDOMWindowScreen ,
DOMDOMWindowScreenLeftPropertyInfo ,
getDOMDOMWindowScreenLeft ,
DOMDOMWindowScreenTopPropertyInfo ,
getDOMDOMWindowScreenTop ,
DOMDOMWindowScreenXPropertyInfo ,
getDOMDOMWindowScreenX ,
DOMDOMWindowScreenYPropertyInfo ,
getDOMDOMWindowScreenY ,
DOMDOMWindowScrollXPropertyInfo ,
getDOMDOMWindowScrollX ,
DOMDOMWindowScrollYPropertyInfo ,
getDOMDOMWindowScrollY ,
DOMDOMWindowScrollbarsPropertyInfo ,
getDOMDOMWindowScrollbars ,
DOMDOMWindowSelfPropertyInfo ,
getDOMDOMWindowSelf ,
DOMDOMWindowSessionStoragePropertyInfo ,
getDOMDOMWindowSessionStorage ,
DOMDOMWindowStatusPropertyInfo ,
constructDOMDOMWindowStatus ,
getDOMDOMWindowStatus ,
setDOMDOMWindowStatus ,
DOMDOMWindowStatusbarPropertyInfo ,
getDOMDOMWindowStatusbar ,
DOMDOMWindowStyleMediaPropertyInfo ,
getDOMDOMWindowStyleMedia ,
DOMDOMWindowToolbarPropertyInfo ,
getDOMDOMWindowToolbar ,
DOMDOMWindowTopPropertyInfo ,
getDOMDOMWindowTop ,
DOMDOMWindowWebkitStorageInfoPropertyInfo,
getDOMDOMWindowWebkitStorageInfo ,
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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, *)])
foreign import ccall "webkit_dom_dom_window_alert" webkit_dom_dom_window_alert ::
Ptr DOMDOMWindow ->
CString ->
IO ()
dOMDOMWindowAlert ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
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 ()
foreign import ccall "webkit_dom_dom_window_atob" webkit_dom_dom_window_atob ::
Ptr DOMDOMWindow ->
CString ->
Ptr (Ptr GError) ->
IO CString
dOMDOMWindowAtob ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
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'
)
foreign import ccall "webkit_dom_dom_window_blur" webkit_dom_dom_window_blur ::
Ptr DOMDOMWindow ->
IO ()
dOMDOMWindowBlur ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m ()
dOMDOMWindowBlur _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_blur _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_btoa" webkit_dom_dom_window_btoa ::
Ptr DOMDOMWindow ->
CString ->
Ptr (Ptr GError) ->
IO CString
dOMDOMWindowBtoa ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
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'
)
foreign import ccall "webkit_dom_dom_window_cancel_animation_frame" webkit_dom_dom_window_cancel_animation_frame ::
Ptr DOMDOMWindow ->
Int64 ->
IO ()
dOMDOMWindowCancelAnimationFrame ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Int64 ->
m ()
dOMDOMWindowCancelAnimationFrame _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_cancel_animation_frame _obj' id
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_capture_events" webkit_dom_dom_window_capture_events ::
Ptr DOMDOMWindow ->
IO ()
dOMDOMWindowCaptureEvents ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m ()
dOMDOMWindowCaptureEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_capture_events _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_clear_interval" webkit_dom_dom_window_clear_interval ::
Ptr DOMDOMWindow ->
Int64 ->
IO ()
dOMDOMWindowClearInterval ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Int64 ->
m ()
dOMDOMWindowClearInterval _obj handle = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_clear_interval _obj' handle
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_clear_timeout" webkit_dom_dom_window_clear_timeout ::
Ptr DOMDOMWindow ->
Int64 ->
IO ()
dOMDOMWindowClearTimeout ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Int64 ->
m ()
dOMDOMWindowClearTimeout _obj handle = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_clear_timeout _obj' handle
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_close" webkit_dom_dom_window_close ::
Ptr DOMDOMWindow ->
IO ()
dOMDOMWindowClose ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m ()
dOMDOMWindowClose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_close _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_confirm" webkit_dom_dom_window_confirm ::
Ptr DOMDOMWindow ->
CString ->
IO CInt
dOMDOMWindowConfirm ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
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'
foreign import ccall "webkit_dom_dom_window_dispatch_event" webkit_dom_dom_window_dispatch_event ::
Ptr DOMDOMWindow ->
Ptr DOMEvent ->
Ptr (Ptr GError) ->
IO CInt
dOMDOMWindowDispatchEvent ::
(MonadIO m, DOMDOMWindowK a, DOMEventK b) =>
a ->
b ->
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 ()
)
foreign import ccall "webkit_dom_dom_window_find" webkit_dom_dom_window_find ::
Ptr DOMDOMWindow ->
CString ->
CInt ->
CInt ->
CInt ->
CInt ->
CInt ->
CInt ->
IO CInt
dOMDOMWindowFind ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
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'
foreign import ccall "webkit_dom_dom_window_focus" webkit_dom_dom_window_focus ::
Ptr DOMDOMWindow ->
IO ()
dOMDOMWindowFocus ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m ()
dOMDOMWindowFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_focus _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_get_application_cache" webkit_dom_dom_window_get_application_cache ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMApplicationCache)
dOMDOMWindowGetApplicationCache ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_client_information" webkit_dom_dom_window_get_client_information ::
Ptr DOMDOMWindow ->
IO (Ptr DOMNavigator)
dOMDOMWindowGetClientInformation ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_closed" webkit_dom_dom_window_get_closed ::
Ptr DOMDOMWindow ->
IO CInt
dOMDOMWindowGetClosed ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_computed_style" webkit_dom_dom_window_get_computed_style ::
Ptr DOMDOMWindow ->
Ptr DOMElement ->
CString ->
IO (Ptr DOMCSSStyleDeclaration)
dOMDOMWindowGetComputedStyle ::
(MonadIO m, DOMDOMWindowK a, DOMElementK b) =>
a ->
b ->
Maybe (T.Text) ->
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'
foreign import ccall "webkit_dom_dom_window_get_console" webkit_dom_dom_window_get_console ::
Ptr DOMDOMWindow ->
IO (Ptr DOMConsole)
dOMDOMWindowGetConsole ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_css" webkit_dom_dom_window_get_css ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMWindowCSS)
dOMDOMWindowGetCss ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_default_status" webkit_dom_dom_window_get_default_status ::
Ptr DOMDOMWindow ->
IO CString
dOMDOMWindowGetDefaultStatus ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_device_pixel_ratio" webkit_dom_dom_window_get_device_pixel_ratio ::
Ptr DOMDOMWindow ->
IO CDouble
dOMDOMWindowGetDevicePixelRatio ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_document" webkit_dom_dom_window_get_document ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDocument)
dOMDOMWindowGetDocument ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_frame_element" webkit_dom_dom_window_get_frame_element ::
Ptr DOMDOMWindow ->
IO (Ptr DOMElement)
dOMDOMWindowGetFrameElement ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_frames" webkit_dom_dom_window_get_frames ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMWindow)
dOMDOMWindowGetFrames ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_history" webkit_dom_dom_window_get_history ::
Ptr DOMDOMWindow ->
IO (Ptr DOMHistory)
dOMDOMWindowGetHistory ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_inner_height" webkit_dom_dom_window_get_inner_height ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetInnerHeight ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetInnerHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_inner_height _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_inner_width" webkit_dom_dom_window_get_inner_width ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetInnerWidth ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetInnerWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_inner_width _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_length" webkit_dom_dom_window_get_length ::
Ptr DOMDOMWindow ->
IO Word64
dOMDOMWindowGetLength ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Word64
dOMDOMWindowGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_local_storage" webkit_dom_dom_window_get_local_storage ::
Ptr DOMDOMWindow ->
Ptr (Ptr GError) ->
IO (Ptr DOMStorage)
dOMDOMWindowGetLocalStorage ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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 ()
)
foreign import ccall "webkit_dom_dom_window_get_locationbar" webkit_dom_dom_window_get_locationbar ::
Ptr DOMDOMWindow ->
IO (Ptr DOMBarProp)
dOMDOMWindowGetLocationbar ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_menubar" webkit_dom_dom_window_get_menubar ::
Ptr DOMDOMWindow ->
IO (Ptr DOMBarProp)
dOMDOMWindowGetMenubar ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_name" webkit_dom_dom_window_get_name ::
Ptr DOMDOMWindow ->
IO CString
dOMDOMWindowGetName ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_navigator" webkit_dom_dom_window_get_navigator ::
Ptr DOMDOMWindow ->
IO (Ptr DOMNavigator)
dOMDOMWindowGetNavigator ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_offscreen_buffering" webkit_dom_dom_window_get_offscreen_buffering ::
Ptr DOMDOMWindow ->
IO CInt
dOMDOMWindowGetOffscreenBuffering ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_opener" webkit_dom_dom_window_get_opener ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMWindow)
dOMDOMWindowGetOpener ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_outer_height" webkit_dom_dom_window_get_outer_height ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetOuterHeight ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetOuterHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_outer_height _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_outer_width" webkit_dom_dom_window_get_outer_width ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetOuterWidth ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetOuterWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_outer_width _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_page_x_offset" webkit_dom_dom_window_get_page_x_offset ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetPageXOffset ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetPageXOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_page_x_offset _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_page_y_offset" webkit_dom_dom_window_get_page_y_offset ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetPageYOffset ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetPageYOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_page_y_offset _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_parent" webkit_dom_dom_window_get_parent ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMWindow)
dOMDOMWindowGetParent ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_performance" webkit_dom_dom_window_get_performance ::
Ptr DOMDOMWindow ->
IO (Ptr DOMPerformance)
dOMDOMWindowGetPerformance ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_personalbar" webkit_dom_dom_window_get_personalbar ::
Ptr DOMDOMWindow ->
IO (Ptr DOMBarProp)
dOMDOMWindowGetPersonalbar ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_screen" webkit_dom_dom_window_get_screen ::
Ptr DOMDOMWindow ->
IO (Ptr DOMScreen)
dOMDOMWindowGetScreen ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_screen_left" webkit_dom_dom_window_get_screen_left ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetScreenLeft ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetScreenLeft _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_screen_left _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_screen_top" webkit_dom_dom_window_get_screen_top ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetScreenTop ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetScreenTop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_screen_top _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_screen_x" webkit_dom_dom_window_get_screen_x ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetScreenX ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetScreenX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_screen_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_screen_y" webkit_dom_dom_window_get_screen_y ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetScreenY ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetScreenY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_screen_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_scroll_x" webkit_dom_dom_window_get_scroll_x ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetScrollX ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetScrollX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_scroll_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_scroll_y" webkit_dom_dom_window_get_scroll_y ::
Ptr DOMDOMWindow ->
IO Int64
dOMDOMWindowGetScrollY ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m Int64
dOMDOMWindowGetScrollY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_window_get_scroll_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_window_get_scrollbars" webkit_dom_dom_window_get_scrollbars ::
Ptr DOMDOMWindow ->
IO (Ptr DOMBarProp)
dOMDOMWindowGetScrollbars ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_selection" webkit_dom_dom_window_get_selection ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMSelection)
dOMDOMWindowGetSelection ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_self" webkit_dom_dom_window_get_self ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMWindow)
dOMDOMWindowGetSelf ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_session_storage" webkit_dom_dom_window_get_session_storage ::
Ptr DOMDOMWindow ->
Ptr (Ptr GError) ->
IO (Ptr DOMStorage)
dOMDOMWindowGetSessionStorage ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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 ()
)
foreign import ccall "webkit_dom_dom_window_get_status" webkit_dom_dom_window_get_status ::
Ptr DOMDOMWindow ->
IO CString
dOMDOMWindowGetStatus ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_statusbar" webkit_dom_dom_window_get_statusbar ::
Ptr DOMDOMWindow ->
IO (Ptr DOMBarProp)
dOMDOMWindowGetStatusbar ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_style_media" webkit_dom_dom_window_get_style_media ::
Ptr DOMDOMWindow ->
IO (Ptr DOMStyleMedia)
dOMDOMWindowGetStyleMedia ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_toolbar" webkit_dom_dom_window_get_toolbar ::
Ptr DOMDOMWindow ->
IO (Ptr DOMBarProp)
dOMDOMWindowGetToolbar ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_top" webkit_dom_dom_window_get_top ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMWindow)
dOMDOMWindowGetTop ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_webkit_storage_info" webkit_dom_dom_window_get_webkit_storage_info ::
Ptr DOMDOMWindow ->
IO (Ptr DOMStorageInfo)
dOMDOMWindowGetWebkitStorageInfo ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_get_window" webkit_dom_dom_window_get_window ::
Ptr DOMDOMWindow ->
IO (Ptr DOMDOMWindow)
dOMDOMWindowGetWindow ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
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'
foreign import ccall "webkit_dom_dom_window_match_media" webkit_dom_dom_window_match_media ::
Ptr DOMDOMWindow ->
CString ->
IO (Ptr DOMMediaQueryList)
dOMDOMWindowMatchMedia ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
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'
foreign import ccall "webkit_dom_dom_window_move_by" webkit_dom_dom_window_move_by ::
Ptr DOMDOMWindow ->
CFloat ->
CFloat ->
IO ()
dOMDOMWindowMoveBy ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Float ->
Float ->
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 ()
foreign import ccall "webkit_dom_dom_window_move_to" webkit_dom_dom_window_move_to ::
Ptr DOMDOMWindow ->
CFloat ->
CFloat ->
IO ()
dOMDOMWindowMoveTo ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Float ->
Float ->
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 ()
foreign import ccall "webkit_dom_dom_window_print" webkit_dom_dom_window_print ::
Ptr DOMDOMWindow ->
IO ()
dOMDOMWindowPrint ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m ()
dOMDOMWindowPrint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_print _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_prompt" webkit_dom_dom_window_prompt ::
Ptr DOMDOMWindow ->
CString ->
CString ->
IO CString
dOMDOMWindowPrompt ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
T.Text ->
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'
foreign import ccall "webkit_dom_dom_window_release_events" webkit_dom_dom_window_release_events ::
Ptr DOMDOMWindow ->
IO ()
dOMDOMWindowReleaseEvents ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m ()
dOMDOMWindowReleaseEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_release_events _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_resize_by" webkit_dom_dom_window_resize_by ::
Ptr DOMDOMWindow ->
CFloat ->
CFloat ->
IO ()
dOMDOMWindowResizeBy ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Float ->
Float ->
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 ()
foreign import ccall "webkit_dom_dom_window_resize_to" webkit_dom_dom_window_resize_to ::
Ptr DOMDOMWindow ->
CFloat ->
CFloat ->
IO ()
dOMDOMWindowResizeTo ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Float ->
Float ->
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 ()
foreign import ccall "webkit_dom_dom_window_scroll" webkit_dom_dom_window_scroll ::
Ptr DOMDOMWindow ->
Int64 ->
Int64 ->
IO ()
dOMDOMWindowScroll ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Int64 ->
Int64 ->
m ()
dOMDOMWindowScroll _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_scroll _obj' x y
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_scroll_by" webkit_dom_dom_window_scroll_by ::
Ptr DOMDOMWindow ->
Int64 ->
Int64 ->
IO ()
dOMDOMWindowScrollBy ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Int64 ->
Int64 ->
m ()
dOMDOMWindowScrollBy _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_scroll_by _obj' x y
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_scroll_to" webkit_dom_dom_window_scroll_to ::
Ptr DOMDOMWindow ->
Int64 ->
Int64 ->
IO ()
dOMDOMWindowScrollTo ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Int64 ->
Int64 ->
m ()
dOMDOMWindowScrollTo _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_scroll_to _obj' x y
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_set_default_status" webkit_dom_dom_window_set_default_status ::
Ptr DOMDOMWindow ->
CString ->
IO ()
dOMDOMWindowSetDefaultStatus ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
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 ()
foreign import ccall "webkit_dom_dom_window_set_name" webkit_dom_dom_window_set_name ::
Ptr DOMDOMWindow ->
CString ->
IO ()
dOMDOMWindowSetName ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
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 ()
foreign import ccall "webkit_dom_dom_window_set_status" webkit_dom_dom_window_set_status ::
Ptr DOMDOMWindow ->
CString ->
IO ()
dOMDOMWindowSetStatus ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
T.Text ->
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 ()
foreign import ccall "webkit_dom_dom_window_stop" webkit_dom_dom_window_stop ::
Ptr DOMDOMWindow ->
IO ()
dOMDOMWindowStop ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
m ()
dOMDOMWindowStop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_stop _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_webkit_cancel_animation_frame" webkit_dom_dom_window_webkit_cancel_animation_frame ::
Ptr DOMDOMWindow ->
Int64 ->
IO ()
dOMDOMWindowWebkitCancelAnimationFrame ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Int64 ->
m ()
dOMDOMWindowWebkitCancelAnimationFrame _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_webkit_cancel_animation_frame _obj' id
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_dom_window_webkit_cancel_request_animation_frame" webkit_dom_dom_window_webkit_cancel_request_animation_frame ::
Ptr DOMDOMWindow ->
Int64 ->
IO ()
dOMDOMWindowWebkitCancelRequestAnimationFrame ::
(MonadIO m, DOMDOMWindowK a) =>
a ->
Int64 ->
m ()
dOMDOMWindowWebkitCancelRequestAnimationFrame _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_window_webkit_cancel_request_animation_frame _obj' id
touchManagedPtr _obj
return ()
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 ->
Ptr DOMNode ->
Ptr DOMWebKitPoint ->
IO (Ptr DOMWebKitPoint)
dOMDOMWindowWebkitConvertPointFromNodeToPage ::
(MonadIO m, DOMDOMWindowK a, DOMNodeK b, DOMWebKitPointK c) =>
a ->
b ->
c ->
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'
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 ->
Ptr DOMNode ->
Ptr DOMWebKitPoint ->
IO (Ptr DOMWebKitPoint)
dOMDOMWindowWebkitConvertPointFromPageToNode ::
(MonadIO m, DOMDOMWindowK a, DOMNodeK b, DOMWebKitPointK c) =>
a ->
b ->
c ->
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'