gi-webkit-0.2.4.8: GI/WebKit.hs
-- Generated code.
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,
TypeFamilies, MultiParamTypeClasses, KindSignatures,
FlexibleInstances, UndecidableInstances, DataKinds,
OverloadedStrings, NegativeLiterals, FlexibleContexts #-}
module GI.WebKit where
import Prelude ()
import Data.GI.Base.ShortPrelude
import Data.Char
import Data.Int
import Data.Word
import qualified Data.ByteString.Char8 as B
import Data.ByteString.Char8 (ByteString)
import qualified Data.Map as Map
import Foreign.C
import Foreign.Ptr
import Foreign.ForeignPtr
import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)
import Foreign.Storable (peek, poke, sizeOf)
import Control.Applicative ((<$>))
import Control.Exception (onException)
import Control.Monad.IO.Class
import qualified Data.Text as T
import Data.GI.Base.Attributes hiding (get, set)
import Data.GI.Base.BasicTypes
import Data.GI.Base.BasicConversions
import Data.GI.Base.Closure
import Data.GI.Base.GError
import Data.GI.Base.GHashTable
import Data.GI.Base.GParamSpec
import Data.GI.Base.GVariant
import Data.GI.Base.GValue
import Data.GI.Base.ManagedPtr
import Data.GI.Base.Overloading
import Data.GI.Base.Properties hiding (new)
import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)
import Data.GI.Base.Utils
import qualified GI.Atk as Atk
import qualified GI.AtkAttributes as AtkA
import qualified GI.GLib as GLib
import qualified GI.GLibAttributes as GLibA
import qualified GI.GObject as GObject
import qualified GI.GObjectAttributes as GObjectA
import qualified GI.Gdk as Gdk
import qualified GI.GdkAttributes as GdkA
import qualified GI.GdkPixbuf as GdkPixbuf
import qualified GI.GdkPixbufAttributes as GdkPixbufA
import qualified GI.Gio as Gio
import qualified GI.GioAttributes as GioA
import qualified GI.Gtk as Gtk
import qualified GI.GtkAttributes as GtkA
import qualified GI.JavaScriptCore as JavaScriptCore
import qualified GI.JavaScriptCoreAttributes as JavaScriptCoreA
import qualified GI.Soup as Soup
import qualified GI.SoupAttributes as SoupA
import qualified GI.Cairo as Cairo
import qualified GI.CairoAttributes as CairoA
-- Enum CacheModel
data CacheModel =
CacheModelDefault
| CacheModelDocumentViewer
| CacheModelWebBrowser
| CacheModelDocumentBrowser
| AnotherCacheModel Int
deriving (Show, Eq)
instance Enum CacheModel where
fromEnum CacheModelDefault = 0
fromEnum CacheModelDocumentViewer = 1
fromEnum CacheModelWebBrowser = 2
fromEnum CacheModelDocumentBrowser = 3
fromEnum (AnotherCacheModel k) = k
toEnum 0 = CacheModelDefault
toEnum 1 = CacheModelDocumentViewer
toEnum 2 = CacheModelWebBrowser
toEnum 3 = CacheModelDocumentBrowser
toEnum k = AnotherCacheModel k
foreign import ccall "webkit_cache_model_get_type" c_webkit_cache_model_get_type ::
IO GType
instance BoxedEnum CacheModel where
boxedEnumType _ = c_webkit_cache_model_get_type
-- Enum ContextMenuAction
data ContextMenuAction =
ContextMenuActionNoAction
| ContextMenuActionOpenLink
| ContextMenuActionOpenLinkInNewWindow
| ContextMenuActionDownloadLinkToDisk
| ContextMenuActionCopyLinkToClipboard
| ContextMenuActionOpenImageInNewWindow
| ContextMenuActionDownloadImageToDisk
| ContextMenuActionCopyImageToClipboard
| ContextMenuActionCopyImageUrlToClipboard
| ContextMenuActionOpenFrameInNewWindow
| ContextMenuActionGoBack
| ContextMenuActionGoForward
| ContextMenuActionStop
| ContextMenuActionReload
| ContextMenuActionCopy
| ContextMenuActionCut
| ContextMenuActionPaste
| ContextMenuActionDelete
| ContextMenuActionSelectAll
| ContextMenuActionInputMethods
| ContextMenuActionUnicode
| ContextMenuActionSpellingGuess
| ContextMenuActionNoGuessesFound
| ContextMenuActionIgnoreSpelling
| ContextMenuActionLearnSpelling
| ContextMenuActionIgnoreGrammar
| ContextMenuActionFontMenu
| ContextMenuActionBold
| ContextMenuActionItalic
| ContextMenuActionUnderline
| ContextMenuActionOutline
| ContextMenuActionInspectElement
| ContextMenuActionOpenMediaInNewWindow
| ContextMenuActionCopyMediaLinkToClipboard
| ContextMenuActionToggleMediaControls
| ContextMenuActionToggleMediaLoop
| ContextMenuActionEnterVideoFullscreen
| ContextMenuActionMediaPlayPause
| ContextMenuActionMediaMute
| AnotherContextMenuAction Int
deriving (Show, Eq)
instance Enum ContextMenuAction where
fromEnum ContextMenuActionNoAction = 0
fromEnum ContextMenuActionOpenLink = 1
fromEnum ContextMenuActionOpenLinkInNewWindow = 2
fromEnum ContextMenuActionDownloadLinkToDisk = 3
fromEnum ContextMenuActionCopyLinkToClipboard = 4
fromEnum ContextMenuActionOpenImageInNewWindow = 5
fromEnum ContextMenuActionDownloadImageToDisk = 6
fromEnum ContextMenuActionCopyImageToClipboard = 7
fromEnum ContextMenuActionCopyImageUrlToClipboard = 8
fromEnum ContextMenuActionOpenFrameInNewWindow = 9
fromEnum ContextMenuActionGoBack = 10
fromEnum ContextMenuActionGoForward = 11
fromEnum ContextMenuActionStop = 12
fromEnum ContextMenuActionReload = 13
fromEnum ContextMenuActionCopy = 14
fromEnum ContextMenuActionCut = 15
fromEnum ContextMenuActionPaste = 16
fromEnum ContextMenuActionDelete = 17
fromEnum ContextMenuActionSelectAll = 18
fromEnum ContextMenuActionInputMethods = 19
fromEnum ContextMenuActionUnicode = 20
fromEnum ContextMenuActionSpellingGuess = 21
fromEnum ContextMenuActionNoGuessesFound = 22
fromEnum ContextMenuActionIgnoreSpelling = 23
fromEnum ContextMenuActionLearnSpelling = 24
fromEnum ContextMenuActionIgnoreGrammar = 25
fromEnum ContextMenuActionFontMenu = 26
fromEnum ContextMenuActionBold = 27
fromEnum ContextMenuActionItalic = 28
fromEnum ContextMenuActionUnderline = 29
fromEnum ContextMenuActionOutline = 30
fromEnum ContextMenuActionInspectElement = 31
fromEnum ContextMenuActionOpenMediaInNewWindow = 32
fromEnum ContextMenuActionCopyMediaLinkToClipboard = 33
fromEnum ContextMenuActionToggleMediaControls = 34
fromEnum ContextMenuActionToggleMediaLoop = 35
fromEnum ContextMenuActionEnterVideoFullscreen = 36
fromEnum ContextMenuActionMediaPlayPause = 37
fromEnum ContextMenuActionMediaMute = 38
fromEnum (AnotherContextMenuAction k) = k
toEnum 0 = ContextMenuActionNoAction
toEnum 1 = ContextMenuActionOpenLink
toEnum 2 = ContextMenuActionOpenLinkInNewWindow
toEnum 3 = ContextMenuActionDownloadLinkToDisk
toEnum 4 = ContextMenuActionCopyLinkToClipboard
toEnum 5 = ContextMenuActionOpenImageInNewWindow
toEnum 6 = ContextMenuActionDownloadImageToDisk
toEnum 7 = ContextMenuActionCopyImageToClipboard
toEnum 8 = ContextMenuActionCopyImageUrlToClipboard
toEnum 9 = ContextMenuActionOpenFrameInNewWindow
toEnum 10 = ContextMenuActionGoBack
toEnum 11 = ContextMenuActionGoForward
toEnum 12 = ContextMenuActionStop
toEnum 13 = ContextMenuActionReload
toEnum 14 = ContextMenuActionCopy
toEnum 15 = ContextMenuActionCut
toEnum 16 = ContextMenuActionPaste
toEnum 17 = ContextMenuActionDelete
toEnum 18 = ContextMenuActionSelectAll
toEnum 19 = ContextMenuActionInputMethods
toEnum 20 = ContextMenuActionUnicode
toEnum 21 = ContextMenuActionSpellingGuess
toEnum 22 = ContextMenuActionNoGuessesFound
toEnum 23 = ContextMenuActionIgnoreSpelling
toEnum 24 = ContextMenuActionLearnSpelling
toEnum 25 = ContextMenuActionIgnoreGrammar
toEnum 26 = ContextMenuActionFontMenu
toEnum 27 = ContextMenuActionBold
toEnum 28 = ContextMenuActionItalic
toEnum 29 = ContextMenuActionUnderline
toEnum 30 = ContextMenuActionOutline
toEnum 31 = ContextMenuActionInspectElement
toEnum 32 = ContextMenuActionOpenMediaInNewWindow
toEnum 33 = ContextMenuActionCopyMediaLinkToClipboard
toEnum 34 = ContextMenuActionToggleMediaControls
toEnum 35 = ContextMenuActionToggleMediaLoop
toEnum 36 = ContextMenuActionEnterVideoFullscreen
toEnum 37 = ContextMenuActionMediaPlayPause
toEnum 38 = ContextMenuActionMediaMute
toEnum k = AnotherContextMenuAction k
foreign import ccall "webkit_context_menu_action_get_type" c_webkit_context_menu_action_get_type ::
IO GType
instance BoxedEnum ContextMenuAction where
boxedEnumType _ = c_webkit_context_menu_action_get_type
-- object DOMAttr
newtype DOMAttr = DOMAttr (ForeignPtr DOMAttr)
noDOMAttr :: Maybe DOMAttr
noDOMAttr = Nothing
foreign import ccall "webkit_dom_attr_get_type"
c_webkit_dom_attr_get_type :: IO GType
type instance ParentTypes DOMAttr = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMAttr where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_attr_get_type
class GObject o => DOMAttrK o
instance (GObject o, IsDescendantOf DOMAttr o) => DOMAttrK o
toDOMAttr :: DOMAttrK o => o -> IO DOMAttr
toDOMAttr = unsafeCastTo DOMAttr
-- method DOMAttr::get_is_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", 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_attr_get_is_id" webkit_dom_attr_get_is_id ::
Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr"
IO CInt
dOMAttrGetIsId ::
(MonadIO m, DOMAttrK a) =>
a -> -- _obj
m Bool
dOMAttrGetIsId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_attr_get_is_id _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMAttr::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", 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_attr_get_name" webkit_dom_attr_get_name ::
Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr"
IO CString
dOMAttrGetName ::
(MonadIO m, DOMAttrK a) =>
a -> -- _obj
m T.Text
dOMAttrGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_attr_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMAttr::get_owner_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", 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_attr_get_owner_element" webkit_dom_attr_get_owner_element ::
Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr"
IO (Ptr DOMElement)
dOMAttrGetOwnerElement ::
(MonadIO m, DOMAttrK a) =>
a -> -- _obj
m DOMElement
dOMAttrGetOwnerElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_attr_get_owner_element _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMAttr::get_specified
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", 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_attr_get_specified" webkit_dom_attr_get_specified ::
Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr"
IO CInt
dOMAttrGetSpecified ::
(MonadIO m, DOMAttrK a) =>
a -> -- _obj
m Bool
dOMAttrGetSpecified _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_attr_get_specified _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMAttr::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", 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_attr_get_value" webkit_dom_attr_get_value ::
Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr"
IO CString
dOMAttrGetValue ::
(MonadIO m, DOMAttrK a) =>
a -> -- _obj
m T.Text
dOMAttrGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_attr_get_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMAttr::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAttr", 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" "DOMAttr", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_attr_set_value" webkit_dom_attr_set_value ::
Ptr DOMAttr -> -- _obj : TInterface "WebKit" "DOMAttr"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMAttrSetValue ::
(MonadIO m, DOMAttrK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMAttrSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_attr_set_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- object DOMAudioTrack
newtype DOMAudioTrack = DOMAudioTrack (ForeignPtr DOMAudioTrack)
noDOMAudioTrack :: Maybe DOMAudioTrack
noDOMAudioTrack = Nothing
foreign import ccall "webkit_dom_audio_track_get_type"
c_webkit_dom_audio_track_get_type :: IO GType
type instance ParentTypes DOMAudioTrack = '[DOMObject, GObject.Object]
instance GObject DOMAudioTrack where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_audio_track_get_type
class GObject o => DOMAudioTrackK o
instance (GObject o, IsDescendantOf DOMAudioTrack o) => DOMAudioTrackK o
toDOMAudioTrack :: DOMAudioTrackK o => o -> IO DOMAudioTrack
toDOMAudioTrack = unsafeCastTo DOMAudioTrack
-- method DOMAudioTrack::get_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", 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_audio_track_get_enabled" webkit_dom_audio_track_get_enabled ::
Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack"
IO CInt
dOMAudioTrackGetEnabled ::
(MonadIO m, DOMAudioTrackK a) =>
a -> -- _obj
m Bool
dOMAudioTrackGetEnabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_enabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMAudioTrack::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", 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_audio_track_get_id" webkit_dom_audio_track_get_id ::
Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack"
IO CString
dOMAudioTrackGetId ::
(MonadIO m, DOMAudioTrackK a) =>
a -> -- _obj
m T.Text
dOMAudioTrackGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMAudioTrack::get_kind
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", 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_audio_track_get_kind" webkit_dom_audio_track_get_kind ::
Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack"
IO CString
dOMAudioTrackGetKind ::
(MonadIO m, DOMAudioTrackK a) =>
a -> -- _obj
m T.Text
dOMAudioTrackGetKind _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_kind _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMAudioTrack::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", 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_audio_track_get_label" webkit_dom_audio_track_get_label ::
Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack"
IO CString
dOMAudioTrackGetLabel ::
(MonadIO m, DOMAudioTrackK a) =>
a -> -- _obj
m T.Text
dOMAudioTrackGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_label _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMAudioTrack::get_language
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", 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_audio_track_get_language" webkit_dom_audio_track_get_language ::
Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack"
IO CString
dOMAudioTrackGetLanguage ::
(MonadIO m, DOMAudioTrackK a) =>
a -> -- _obj
m T.Text
dOMAudioTrackGetLanguage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_language _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMAudioTrack::set_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_audio_track_set_enabled" webkit_dom_audio_track_set_enabled ::
Ptr DOMAudioTrack -> -- _obj : TInterface "WebKit" "DOMAudioTrack"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMAudioTrackSetEnabled ::
(MonadIO m, DOMAudioTrackK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMAudioTrackSetEnabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_audio_track_set_enabled _obj' value'
touchManagedPtr _obj
return ()
-- object DOMAudioTrackList
newtype DOMAudioTrackList = DOMAudioTrackList (ForeignPtr DOMAudioTrackList)
noDOMAudioTrackList :: Maybe DOMAudioTrackList
noDOMAudioTrackList = Nothing
foreign import ccall "webkit_dom_audio_track_list_get_type"
c_webkit_dom_audio_track_list_get_type :: IO GType
type instance ParentTypes DOMAudioTrackList = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMAudioTrackList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_audio_track_list_get_type
class GObject o => DOMAudioTrackListK o
instance (GObject o, IsDescendantOf DOMAudioTrackList o) => DOMAudioTrackListK o
toDOMAudioTrackList :: DOMAudioTrackListK o => o -> IO DOMAudioTrackList
toDOMAudioTrackList = unsafeCastTo DOMAudioTrackList
-- method DOMAudioTrackList::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", 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" "DOMAudioTrackList", 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_audio_track_list_dispatch_event" webkit_dom_audio_track_list_dispatch_event ::
Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList"
Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMAudioTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMAudioTrackListDispatchEvent ::
(MonadIO m, DOMAudioTrackListK a, DOMEventK b) =>
a -> -- _obj
b -> -- evt
m ()
dOMAudioTrackListDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_audio_track_list_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
-- method DOMAudioTrackList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", 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_audio_track_list_get_length" webkit_dom_audio_track_list_get_length ::
Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList"
IO Word64
dOMAudioTrackListGetLength ::
(MonadIO m, DOMAudioTrackListK a) =>
a -> -- _obj
m Word64
dOMAudioTrackListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMAudioTrackList::get_track_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAudioTrack"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_audio_track_list_get_track_by_id" webkit_dom_audio_track_list_get_track_by_id ::
Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList"
CString -> -- id : TBasicType TUTF8
IO (Ptr DOMAudioTrack)
dOMAudioTrackListGetTrackById ::
(MonadIO m, DOMAudioTrackListK a) =>
a -> -- _obj
T.Text -> -- id
m DOMAudioTrack
dOMAudioTrackListGetTrackById _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
id' <- textToCString id
result <- webkit_dom_audio_track_list_get_track_by_id _obj' id'
result' <- (wrapObject DOMAudioTrack) result
touchManagedPtr _obj
freeMem id'
return result'
-- method DOMAudioTrackList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAudioTrack"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_audio_track_list_item" webkit_dom_audio_track_list_item ::
Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMAudioTrack)
dOMAudioTrackListItem ::
(MonadIO m, DOMAudioTrackListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMAudioTrack
dOMAudioTrackListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_list_item _obj' index
result' <- (wrapObject DOMAudioTrack) result
touchManagedPtr _obj
return result'
-- object DOMBarInfo
newtype DOMBarInfo = DOMBarInfo (ForeignPtr DOMBarInfo)
noDOMBarInfo :: Maybe DOMBarInfo
noDOMBarInfo = Nothing
foreign import ccall "webkit_dom_bar_info_get_type"
c_webkit_dom_bar_info_get_type :: IO GType
type instance ParentTypes DOMBarInfo = '[DOMObject, GObject.Object]
instance GObject DOMBarInfo where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_bar_info_get_type
class GObject o => DOMBarInfoK o
instance (GObject o, IsDescendantOf DOMBarInfo o) => DOMBarInfoK o
toDOMBarInfo :: DOMBarInfoK o => o -> IO DOMBarInfo
toDOMBarInfo = unsafeCastTo DOMBarInfo
-- method DOMBarInfo::get_visible
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, 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_bar_info_get_visible" webkit_dom_bar_info_get_visible ::
Ptr () -> -- self : TBasicType TVoid
IO CInt
{-# DEPRECATED dOMBarInfoGetVisible ["(Since version 2.2)"]#-}
dOMBarInfoGetVisible ::
(MonadIO m) =>
Ptr () -> -- self
m Bool
dOMBarInfoGetVisible self = liftIO $ do
result <- webkit_dom_bar_info_get_visible self
let result' = (/= 0) result
return result'
-- object DOMBarProp
newtype DOMBarProp = DOMBarProp (ForeignPtr DOMBarProp)
noDOMBarProp :: Maybe DOMBarProp
noDOMBarProp = Nothing
foreign import ccall "webkit_dom_bar_prop_get_type"
c_webkit_dom_bar_prop_get_type :: IO GType
type instance ParentTypes DOMBarProp = '[DOMObject, GObject.Object]
instance GObject DOMBarProp where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_bar_prop_get_type
class GObject o => DOMBarPropK o
instance (GObject o, IsDescendantOf DOMBarProp o) => DOMBarPropK o
toDOMBarProp :: DOMBarPropK o => o -> IO DOMBarProp
toDOMBarProp = unsafeCastTo DOMBarProp
-- method DOMBarProp::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBarProp", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBarProp", 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_bar_prop_get_visible" webkit_dom_bar_prop_get_visible ::
Ptr DOMBarProp -> -- _obj : TInterface "WebKit" "DOMBarProp"
IO CInt
dOMBarPropGetVisible ::
(MonadIO m, DOMBarPropK a) =>
a -> -- _obj
m Bool
dOMBarPropGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_bar_prop_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- object DOMBatteryManager
newtype DOMBatteryManager = DOMBatteryManager (ForeignPtr DOMBatteryManager)
noDOMBatteryManager :: Maybe DOMBatteryManager
noDOMBatteryManager = Nothing
foreign import ccall "webkit_dom_battery_manager_get_type"
c_webkit_dom_battery_manager_get_type :: IO GType
type instance ParentTypes DOMBatteryManager = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMBatteryManager where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_battery_manager_get_type
class GObject o => DOMBatteryManagerK o
instance (GObject o, IsDescendantOf DOMBatteryManager o) => DOMBatteryManagerK o
toDOMBatteryManager :: DOMBatteryManagerK o => o -> IO DOMBatteryManager
toDOMBatteryManager = unsafeCastTo DOMBatteryManager
-- method DOMBatteryManager::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", 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_battery_manager_dispatch_event" webkit_dom_battery_manager_dispatch_event ::
Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager"
Ptr DOMEvent -> -- event : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMBatteryManagerDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMBatteryManagerDispatchEvent ::
(MonadIO m, DOMBatteryManagerK a, DOMEventK b) =>
a -> -- _obj
b -> -- event
m ()
dOMBatteryManagerDispatchEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrCastPtr event
onException (do
_ <- propagateGError $ webkit_dom_battery_manager_dispatch_event _obj' event'
touchManagedPtr _obj
touchManagedPtr event
return ()
) (do
return ()
)
-- method DOMBatteryManager::get_charging
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", 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_battery_manager_get_charging" webkit_dom_battery_manager_get_charging ::
Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager"
IO CInt
dOMBatteryManagerGetCharging ::
(MonadIO m, DOMBatteryManagerK a) =>
a -> -- _obj
m Bool
dOMBatteryManagerGetCharging _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_battery_manager_get_charging _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMBatteryManager::get_charging_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", 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_battery_manager_get_charging_time" webkit_dom_battery_manager_get_charging_time ::
Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager"
IO CDouble
dOMBatteryManagerGetChargingTime ::
(MonadIO m, DOMBatteryManagerK a) =>
a -> -- _obj
m Double
dOMBatteryManagerGetChargingTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_battery_manager_get_charging_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMBatteryManager::get_discharging_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", 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_battery_manager_get_discharging_time" webkit_dom_battery_manager_get_discharging_time ::
Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager"
IO CDouble
dOMBatteryManagerGetDischargingTime ::
(MonadIO m, DOMBatteryManagerK a) =>
a -> -- _obj
m Double
dOMBatteryManagerGetDischargingTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_battery_manager_get_discharging_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMBatteryManager::get_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBatteryManager", 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_battery_manager_get_level" webkit_dom_battery_manager_get_level ::
Ptr DOMBatteryManager -> -- _obj : TInterface "WebKit" "DOMBatteryManager"
IO CDouble
dOMBatteryManagerGetLevel ::
(MonadIO m, DOMBatteryManagerK a) =>
a -> -- _obj
m Double
dOMBatteryManagerGetLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_battery_manager_get_level _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- object DOMBlob
newtype DOMBlob = DOMBlob (ForeignPtr DOMBlob)
noDOMBlob :: Maybe DOMBlob
noDOMBlob = Nothing
foreign import ccall "webkit_dom_blob_get_type"
c_webkit_dom_blob_get_type :: IO GType
type instance ParentTypes DOMBlob = '[DOMObject, GObject.Object]
instance GObject DOMBlob where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_blob_get_type
class GObject o => DOMBlobK o
instance (GObject o, IsDescendantOf DOMBlob o) => DOMBlobK o
toDOMBlob :: DOMBlobK o => o -> IO DOMBlob
toDOMBlob = unsafeCastTo DOMBlob
-- method DOMBlob::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", 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_blob_get_size" webkit_dom_blob_get_size ::
Ptr DOMBlob -> -- _obj : TInterface "WebKit" "DOMBlob"
IO Word64
dOMBlobGetSize ::
(MonadIO m, DOMBlobK a) =>
a -> -- _obj
m Word64
dOMBlobGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_blob_get_size _obj'
touchManagedPtr _obj
return result
-- method DOMBlob::slice
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contentType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contentType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMBlob"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_blob_slice" webkit_dom_blob_slice ::
Ptr DOMBlob -> -- _obj : TInterface "WebKit" "DOMBlob"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- end : TBasicType TInt64
CString -> -- contentType : TBasicType TUTF8
IO (Ptr DOMBlob)
dOMBlobSlice ::
(MonadIO m, DOMBlobK a) =>
a -> -- _obj
Int64 -> -- start
Int64 -> -- end
T.Text -> -- contentType
m DOMBlob
dOMBlobSlice _obj start end contentType = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
contentType' <- textToCString contentType
result <- webkit_dom_blob_slice _obj' start end contentType'
result' <- (wrapObject DOMBlob) result
touchManagedPtr _obj
freeMem contentType'
return result'
-- method DOMBlob::webkit_slice
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMBlob"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_blob_webkit_slice" webkit_dom_blob_webkit_slice ::
Ptr DOMBlob -> -- _obj : TInterface "WebKit" "DOMBlob"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- end : TBasicType TInt64
CString -> -- content_type : TBasicType TUTF8
IO (Ptr DOMBlob)
{-# DEPRECATED dOMBlobWebkitSlice ["(Since version 1.10)","Use webkit_dom_blob_slice() instead."]#-}
dOMBlobWebkitSlice ::
(MonadIO m, DOMBlobK a) =>
a -> -- _obj
Int64 -> -- start
Int64 -> -- end
T.Text -> -- content_type
m DOMBlob
dOMBlobWebkitSlice _obj start end content_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content_type' <- textToCString content_type
result <- webkit_dom_blob_webkit_slice _obj' start end content_type'
result' <- (newObject DOMBlob) result
touchManagedPtr _obj
freeMem content_type'
return result'
-- object DOMCDATASection
newtype DOMCDATASection = DOMCDATASection (ForeignPtr DOMCDATASection)
noDOMCDATASection :: Maybe DOMCDATASection
noDOMCDATASection = Nothing
foreign import ccall "webkit_dom_cdata_section_get_type"
c_webkit_dom_cdata_section_get_type :: IO GType
type instance ParentTypes DOMCDATASection = '[DOMText, DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMCDATASection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_cdata_section_get_type
class GObject o => DOMCDATASectionK o
instance (GObject o, IsDescendantOf DOMCDATASection o) => DOMCDATASectionK o
toDOMCDATASection :: DOMCDATASectionK o => o -> IO DOMCDATASection
toDOMCDATASection = unsafeCastTo DOMCDATASection
-- object DOMCSSRule
newtype DOMCSSRule = DOMCSSRule (ForeignPtr DOMCSSRule)
noDOMCSSRule :: Maybe DOMCSSRule
noDOMCSSRule = Nothing
foreign import ccall "webkit_dom_css_rule_get_type"
c_webkit_dom_css_rule_get_type :: IO GType
type instance ParentTypes DOMCSSRule = '[DOMObject, GObject.Object]
instance GObject DOMCSSRule where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_css_rule_get_type
class GObject o => DOMCSSRuleK o
instance (GObject o, IsDescendantOf DOMCSSRule o) => DOMCSSRuleK o
toDOMCSSRule :: DOMCSSRuleK o => o -> IO DOMCSSRule
toDOMCSSRule = unsafeCastTo DOMCSSRule
-- method DOMCSSRule::get_css_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", 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_css_rule_get_css_text" webkit_dom_css_rule_get_css_text ::
Ptr DOMCSSRule -> -- _obj : TInterface "WebKit" "DOMCSSRule"
IO CString
dOMCSSRuleGetCssText ::
(MonadIO m, DOMCSSRuleK a) =>
a -> -- _obj
m T.Text
dOMCSSRuleGetCssText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_get_css_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMCSSRule::get_parent_rule
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSRule"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_rule_get_parent_rule" webkit_dom_css_rule_get_parent_rule ::
Ptr DOMCSSRule -> -- _obj : TInterface "WebKit" "DOMCSSRule"
IO (Ptr DOMCSSRule)
dOMCSSRuleGetParentRule ::
(MonadIO m, DOMCSSRuleK a) =>
a -> -- _obj
m DOMCSSRule
dOMCSSRuleGetParentRule _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_get_parent_rule _obj'
result' <- (wrapObject DOMCSSRule) result
touchManagedPtr _obj
return result'
-- method DOMCSSRule::get_parent_style_sheet
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSStyleSheet"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_rule_get_parent_style_sheet" webkit_dom_css_rule_get_parent_style_sheet ::
Ptr DOMCSSRule -> -- _obj : TInterface "WebKit" "DOMCSSRule"
IO (Ptr DOMCSSStyleSheet)
dOMCSSRuleGetParentStyleSheet ::
(MonadIO m, DOMCSSRuleK a) =>
a -> -- _obj
m DOMCSSStyleSheet
dOMCSSRuleGetParentStyleSheet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_get_parent_style_sheet _obj'
result' <- (wrapObject DOMCSSStyleSheet) result
touchManagedPtr _obj
return result'
-- method DOMCSSRule::set_css_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRule", 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" "DOMCSSRule", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_css_rule_set_css_text" webkit_dom_css_rule_set_css_text ::
Ptr DOMCSSRule -> -- _obj : TInterface "WebKit" "DOMCSSRule"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCSSRuleSetCssText ::
(MonadIO m, DOMCSSRuleK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMCSSRuleSetCssText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_css_rule_set_css_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- object DOMCSSRuleList
newtype DOMCSSRuleList = DOMCSSRuleList (ForeignPtr DOMCSSRuleList)
noDOMCSSRuleList :: Maybe DOMCSSRuleList
noDOMCSSRuleList = Nothing
foreign import ccall "webkit_dom_css_rule_list_get_type"
c_webkit_dom_css_rule_list_get_type :: IO GType
type instance ParentTypes DOMCSSRuleList = '[DOMObject, GObject.Object]
instance GObject DOMCSSRuleList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_css_rule_list_get_type
class GObject o => DOMCSSRuleListK o
instance (GObject o, IsDescendantOf DOMCSSRuleList o) => DOMCSSRuleListK o
toDOMCSSRuleList :: DOMCSSRuleListK o => o -> IO DOMCSSRuleList
toDOMCSSRuleList = unsafeCastTo DOMCSSRuleList
-- method DOMCSSRuleList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", 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_css_rule_list_get_length" webkit_dom_css_rule_list_get_length ::
Ptr DOMCSSRuleList -> -- _obj : TInterface "WebKit" "DOMCSSRuleList"
IO Word64
dOMCSSRuleListGetLength ::
(MonadIO m, DOMCSSRuleListK a) =>
a -> -- _obj
m Word64
dOMCSSRuleListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMCSSRuleList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSRule"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_rule_list_item" webkit_dom_css_rule_list_item ::
Ptr DOMCSSRuleList -> -- _obj : TInterface "WebKit" "DOMCSSRuleList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMCSSRule)
dOMCSSRuleListItem ::
(MonadIO m, DOMCSSRuleListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMCSSRule
dOMCSSRuleListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_list_item _obj' index
result' <- (wrapObject DOMCSSRule) result
touchManagedPtr _obj
return result'
-- object DOMCSSStyleDeclaration
newtype DOMCSSStyleDeclaration = DOMCSSStyleDeclaration (ForeignPtr DOMCSSStyleDeclaration)
noDOMCSSStyleDeclaration :: Maybe DOMCSSStyleDeclaration
noDOMCSSStyleDeclaration = Nothing
foreign import ccall "webkit_dom_css_style_declaration_get_type"
c_webkit_dom_css_style_declaration_get_type :: IO GType
type instance ParentTypes DOMCSSStyleDeclaration = '[DOMObject, GObject.Object]
instance GObject DOMCSSStyleDeclaration where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_css_style_declaration_get_type
class GObject o => DOMCSSStyleDeclarationK o
instance (GObject o, IsDescendantOf DOMCSSStyleDeclaration o) => DOMCSSStyleDeclarationK o
toDOMCSSStyleDeclaration :: DOMCSSStyleDeclarationK o => o -> IO DOMCSSStyleDeclaration
toDOMCSSStyleDeclaration = unsafeCastTo DOMCSSStyleDeclaration
-- method DOMCSSStyleDeclaration::get_css_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", 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_css_style_declaration_get_css_text" webkit_dom_css_style_declaration_get_css_text ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
IO CString
dOMCSSStyleDeclarationGetCssText ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
m T.Text
dOMCSSStyleDeclarationGetCssText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_style_declaration_get_css_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMCSSStyleDeclaration::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", 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_css_style_declaration_get_length" webkit_dom_css_style_declaration_get_length ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
IO Word64
dOMCSSStyleDeclarationGetLength ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
m Word64
dOMCSSStyleDeclarationGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_style_declaration_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMCSSStyleDeclaration::get_parent_rule
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSRule"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_style_declaration_get_parent_rule" webkit_dom_css_style_declaration_get_parent_rule ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
IO (Ptr DOMCSSRule)
dOMCSSStyleDeclarationGetParentRule ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
m DOMCSSRule
dOMCSSStyleDeclarationGetParentRule _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_style_declaration_get_parent_rule _obj'
result' <- (wrapObject DOMCSSRule) result
touchManagedPtr _obj
return result'
-- method DOMCSSStyleDeclaration::get_property_css_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSValue"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_style_declaration_get_property_css_value" webkit_dom_css_style_declaration_get_property_css_value ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
CString -> -- propertyName : TBasicType TUTF8
IO (Ptr DOMCSSValue)
{-# DEPRECATED dOMCSSStyleDeclarationGetPropertyCssValue ["(Since version 2.2)"]#-}
dOMCSSStyleDeclarationGetPropertyCssValue ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
T.Text -> -- propertyName
m DOMCSSValue
dOMCSSStyleDeclarationGetPropertyCssValue _obj propertyName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_get_property_css_value _obj' propertyName'
result' <- (newObject DOMCSSValue) result
touchManagedPtr _obj
freeMem propertyName'
return result'
-- method DOMCSSStyleDeclaration::get_property_priority
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", 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_css_style_declaration_get_property_priority" webkit_dom_css_style_declaration_get_property_priority ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
CString -> -- propertyName : TBasicType TUTF8
IO CString
dOMCSSStyleDeclarationGetPropertyPriority ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
T.Text -> -- propertyName
m T.Text
dOMCSSStyleDeclarationGetPropertyPriority _obj propertyName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_get_property_priority _obj' propertyName'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem propertyName'
return result'
-- method DOMCSSStyleDeclaration::get_property_shorthand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", 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_css_style_declaration_get_property_shorthand" webkit_dom_css_style_declaration_get_property_shorthand ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
CString -> -- propertyName : TBasicType TUTF8
IO CString
dOMCSSStyleDeclarationGetPropertyShorthand ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
T.Text -> -- propertyName
m T.Text
dOMCSSStyleDeclarationGetPropertyShorthand _obj propertyName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_get_property_shorthand _obj' propertyName'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem propertyName'
return result'
-- method DOMCSSStyleDeclaration::get_property_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", 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_css_style_declaration_get_property_value" webkit_dom_css_style_declaration_get_property_value ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
CString -> -- propertyName : TBasicType TUTF8
IO CString
dOMCSSStyleDeclarationGetPropertyValue ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
T.Text -> -- propertyName
m T.Text
dOMCSSStyleDeclarationGetPropertyValue _obj propertyName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_get_property_value _obj' propertyName'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem propertyName'
return result'
-- method DOMCSSStyleDeclaration::is_property_implicit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", 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_css_style_declaration_is_property_implicit" webkit_dom_css_style_declaration_is_property_implicit ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
CString -> -- propertyName : TBasicType TUTF8
IO CInt
dOMCSSStyleDeclarationIsPropertyImplicit ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
T.Text -> -- propertyName
m Bool
dOMCSSStyleDeclarationIsPropertyImplicit _obj propertyName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_is_property_implicit _obj' propertyName'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem propertyName'
return result'
-- method DOMCSSStyleDeclaration::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, 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_css_style_declaration_item" webkit_dom_css_style_declaration_item ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
Word64 -> -- index : TBasicType TUInt64
IO CString
dOMCSSStyleDeclarationItem ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
Word64 -> -- index
m T.Text
dOMCSSStyleDeclarationItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_style_declaration_item _obj' index
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMCSSStyleDeclaration::remove_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", 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_css_style_declaration_remove_property" webkit_dom_css_style_declaration_remove_property ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
CString -> -- propertyName : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CString
dOMCSSStyleDeclarationRemoveProperty ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
T.Text -> -- propertyName
m T.Text
dOMCSSStyleDeclarationRemoveProperty _obj propertyName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
propertyName' <- textToCString propertyName
onException (do
result <- propagateGError $ webkit_dom_css_style_declaration_remove_property _obj' propertyName'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem propertyName'
return result'
) (do
freeMem propertyName'
)
-- method DOMCSSStyleDeclaration::set_css_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", 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" "DOMCSSStyleDeclaration", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_css_style_declaration_set_css_text" webkit_dom_css_style_declaration_set_css_text ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCSSStyleDeclarationSetCssText ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMCSSStyleDeclarationSetCssText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_css_style_declaration_set_css_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMCSSStyleDeclaration::set_property
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, 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},Arg {argName = "priority", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "propertyName", argType = TBasicType TUTF8, 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},Arg {argName = "priority", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_css_style_declaration_set_property" webkit_dom_css_style_declaration_set_property ::
Ptr DOMCSSStyleDeclaration -> -- _obj : TInterface "WebKit" "DOMCSSStyleDeclaration"
CString -> -- propertyName : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
CString -> -- priority : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCSSStyleDeclarationSetProperty ::
(MonadIO m, DOMCSSStyleDeclarationK a) =>
a -> -- _obj
T.Text -> -- propertyName
T.Text -> -- value
T.Text -> -- priority
m ()
dOMCSSStyleDeclarationSetProperty _obj propertyName value priority = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
propertyName' <- textToCString propertyName
value' <- textToCString value
priority' <- textToCString priority
onException (do
propagateGError $ webkit_dom_css_style_declaration_set_property _obj' propertyName' value' priority'
touchManagedPtr _obj
freeMem propertyName'
freeMem value'
freeMem priority'
return ()
) (do
freeMem propertyName'
freeMem value'
freeMem priority'
)
-- object DOMCSSStyleSheet
newtype DOMCSSStyleSheet = DOMCSSStyleSheet (ForeignPtr DOMCSSStyleSheet)
noDOMCSSStyleSheet :: Maybe DOMCSSStyleSheet
noDOMCSSStyleSheet = Nothing
foreign import ccall "webkit_dom_css_style_sheet_get_type"
c_webkit_dom_css_style_sheet_get_type :: IO GType
type instance ParentTypes DOMCSSStyleSheet = '[DOMStyleSheet, DOMObject, GObject.Object]
instance GObject DOMCSSStyleSheet where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_css_style_sheet_get_type
class GObject o => DOMCSSStyleSheetK o
instance (GObject o, IsDescendantOf DOMCSSStyleSheet o) => DOMCSSStyleSheetK o
toDOMCSSStyleSheet :: DOMCSSStyleSheetK o => o -> IO DOMCSSStyleSheet
toDOMCSSStyleSheet = unsafeCastTo DOMCSSStyleSheet
-- method DOMCSSStyleSheet::add_rule
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selector", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selector", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_css_style_sheet_add_rule" webkit_dom_css_style_sheet_add_rule ::
Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet"
CString -> -- selector : TBasicType TUTF8
CString -> -- style : TBasicType TUTF8
Word64 -> -- index : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO Int64
dOMCSSStyleSheetAddRule ::
(MonadIO m, DOMCSSStyleSheetK a) =>
a -> -- _obj
T.Text -> -- selector
T.Text -> -- style
Word64 -> -- index
m Int64
dOMCSSStyleSheetAddRule _obj selector style index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
selector' <- textToCString selector
style' <- textToCString style
onException (do
result <- propagateGError $ webkit_dom_css_style_sheet_add_rule _obj' selector' style' index
touchManagedPtr _obj
freeMem selector'
freeMem style'
return result
) (do
freeMem selector'
freeMem style'
)
-- method DOMCSSStyleSheet::delete_rule
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_css_style_sheet_delete_rule" webkit_dom_css_style_sheet_delete_rule ::
Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet"
Word64 -> -- index : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMCSSStyleSheetDeleteRule ::
(MonadIO m, DOMCSSStyleSheetK a) =>
a -> -- _obj
Word64 -> -- index
m ()
dOMCSSStyleSheetDeleteRule _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_css_style_sheet_delete_rule _obj' index
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMCSSStyleSheet::get_css_rules
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSRuleList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_style_sheet_get_css_rules" webkit_dom_css_style_sheet_get_css_rules ::
Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet"
IO (Ptr DOMCSSRuleList)
dOMCSSStyleSheetGetCssRules ::
(MonadIO m, DOMCSSStyleSheetK a) =>
a -> -- _obj
m DOMCSSRuleList
dOMCSSStyleSheetGetCssRules _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_style_sheet_get_css_rules _obj'
result' <- (wrapObject DOMCSSRuleList) result
touchManagedPtr _obj
return result'
-- method DOMCSSStyleSheet::get_owner_rule
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSRule"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_style_sheet_get_owner_rule" webkit_dom_css_style_sheet_get_owner_rule ::
Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet"
IO (Ptr DOMCSSRule)
dOMCSSStyleSheetGetOwnerRule ::
(MonadIO m, DOMCSSStyleSheetK a) =>
a -> -- _obj
m DOMCSSRule
dOMCSSStyleSheetGetOwnerRule _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_style_sheet_get_owner_rule _obj'
result' <- (wrapObject DOMCSSRule) result
touchManagedPtr _obj
return result'
-- method DOMCSSStyleSheet::get_rules
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSRuleList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_style_sheet_get_rules" webkit_dom_css_style_sheet_get_rules ::
Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet"
IO (Ptr DOMCSSRuleList)
dOMCSSStyleSheetGetRules ::
(MonadIO m, DOMCSSStyleSheetK a) =>
a -> -- _obj
m DOMCSSRuleList
dOMCSSStyleSheetGetRules _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_style_sheet_get_rules _obj'
result' <- (wrapObject DOMCSSRuleList) result
touchManagedPtr _obj
return result'
-- method DOMCSSStyleSheet::insert_rule
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rule", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rule", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_css_style_sheet_insert_rule" webkit_dom_css_style_sheet_insert_rule ::
Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet"
CString -> -- rule : TBasicType TUTF8
Word64 -> -- index : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO Word64
dOMCSSStyleSheetInsertRule ::
(MonadIO m, DOMCSSStyleSheetK a) =>
a -> -- _obj
T.Text -> -- rule
Word64 -> -- index
m Word64
dOMCSSStyleSheetInsertRule _obj rule index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rule' <- textToCString rule
onException (do
result <- propagateGError $ webkit_dom_css_style_sheet_insert_rule _obj' rule' index
touchManagedPtr _obj
freeMem rule'
return result
) (do
freeMem rule'
)
-- method DOMCSSStyleSheet::remove_rule
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_css_style_sheet_remove_rule" webkit_dom_css_style_sheet_remove_rule ::
Ptr DOMCSSStyleSheet -> -- _obj : TInterface "WebKit" "DOMCSSStyleSheet"
Word64 -> -- index : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMCSSStyleSheetRemoveRule ::
(MonadIO m, DOMCSSStyleSheetK a) =>
a -> -- _obj
Word64 -> -- index
m ()
dOMCSSStyleSheetRemoveRule _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_css_style_sheet_remove_rule _obj' index
touchManagedPtr _obj
return ()
) (do
return ()
)
-- object DOMCSSValue
newtype DOMCSSValue = DOMCSSValue (ForeignPtr DOMCSSValue)
noDOMCSSValue :: Maybe DOMCSSValue
noDOMCSSValue = Nothing
foreign import ccall "webkit_dom_css_value_get_type"
c_webkit_dom_css_value_get_type :: IO GType
type instance ParentTypes DOMCSSValue = '[DOMObject, GObject.Object]
instance GObject DOMCSSValue where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_css_value_get_type
class GObject o => DOMCSSValueK o
instance (GObject o, IsDescendantOf DOMCSSValue o) => DOMCSSValueK o
toDOMCSSValue :: DOMCSSValueK o => o -> IO DOMCSSValue
toDOMCSSValue = unsafeCastTo DOMCSSValue
-- method DOMCSSValue::get_css_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", 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_css_value_get_css_text" webkit_dom_css_value_get_css_text ::
Ptr DOMCSSValue -> -- _obj : TInterface "WebKit" "DOMCSSValue"
IO CString
dOMCSSValueGetCssText ::
(MonadIO m, DOMCSSValueK a) =>
a -> -- _obj
m T.Text
dOMCSSValueGetCssText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_value_get_css_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMCSSValue::get_css_value_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_css_value_get_css_value_type" webkit_dom_css_value_get_css_value_type ::
Ptr DOMCSSValue -> -- _obj : TInterface "WebKit" "DOMCSSValue"
IO Word16
dOMCSSValueGetCssValueType ::
(MonadIO m, DOMCSSValueK a) =>
a -> -- _obj
m Word16
dOMCSSValueGetCssValueType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_value_get_css_value_type _obj'
touchManagedPtr _obj
return result
-- method DOMCSSValue::set_css_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCSSValue", 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" "DOMCSSValue", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_css_value_set_css_text" webkit_dom_css_value_set_css_text ::
Ptr DOMCSSValue -> -- _obj : TInterface "WebKit" "DOMCSSValue"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCSSValueSetCssText ::
(MonadIO m, DOMCSSValueK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMCSSValueSetCssText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_css_value_set_css_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- object DOMCharacterData
newtype DOMCharacterData = DOMCharacterData (ForeignPtr DOMCharacterData)
noDOMCharacterData :: Maybe DOMCharacterData
noDOMCharacterData = Nothing
foreign import ccall "webkit_dom_character_data_get_type"
c_webkit_dom_character_data_get_type :: IO GType
type instance ParentTypes DOMCharacterData = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMCharacterData where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_character_data_get_type
class GObject o => DOMCharacterDataK o
instance (GObject o, IsDescendantOf DOMCharacterData o) => DOMCharacterDataK o
toDOMCharacterData :: DOMCharacterDataK o => o -> IO DOMCharacterData
toDOMCharacterData = unsafeCastTo DOMCharacterData
-- method DOMCharacterData::append_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_append_data" webkit_dom_character_data_append_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataAppendData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
T.Text -> -- data
m ()
dOMCharacterDataAppendData _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
onException (do
propagateGError $ webkit_dom_character_data_append_data _obj' data_'
touchManagedPtr _obj
freeMem data_'
return ()
) (do
freeMem data_'
)
-- method DOMCharacterData::delete_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_delete_data" webkit_dom_character_data_delete_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
Word64 -> -- offset : TBasicType TUInt64
Word64 -> -- length : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataDeleteData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
Word64 -> -- offset
Word64 -> -- length
m ()
dOMCharacterDataDeleteData _obj offset length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_character_data_delete_data _obj' offset length_
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMCharacterData::get_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", 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_character_data_get_data" webkit_dom_character_data_get_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
IO CString
dOMCharacterDataGetData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
m T.Text
dOMCharacterDataGetData _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_character_data_get_data _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMCharacterData::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", 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_character_data_get_length" webkit_dom_character_data_get_length ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
IO Word64
dOMCharacterDataGetLength ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
m Word64
dOMCharacterDataGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_character_data_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMCharacterData::insert_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_insert_data" webkit_dom_character_data_insert_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
Word64 -> -- offset : TBasicType TUInt64
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataInsertData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
Word64 -> -- offset
T.Text -> -- data
m ()
dOMCharacterDataInsertData _obj offset data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
onException (do
propagateGError $ webkit_dom_character_data_insert_data _obj' offset data_'
touchManagedPtr _obj
freeMem data_'
return ()
) (do
freeMem data_'
)
-- method DOMCharacterData::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_remove" webkit_dom_character_data_remove ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataRemove ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
m ()
dOMCharacterDataRemove _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_character_data_remove _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMCharacterData::replace_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_replace_data" webkit_dom_character_data_replace_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
Word64 -> -- offset : TBasicType TUInt64
Word64 -> -- length : TBasicType TUInt64
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataReplaceData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
Word64 -> -- offset
Word64 -> -- length
T.Text -> -- data
m ()
dOMCharacterDataReplaceData _obj offset length_ data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
onException (do
propagateGError $ webkit_dom_character_data_replace_data _obj' offset length_ data_'
touchManagedPtr _obj
freeMem data_'
return ()
) (do
freeMem data_'
)
-- method DOMCharacterData::set_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", 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" "DOMCharacterData", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_character_data_set_data" webkit_dom_character_data_set_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMCharacterDataSetData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMCharacterDataSetData _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_character_data_set_data _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMCharacterData::substring_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, 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_character_data_substring_data" webkit_dom_character_data_substring_data ::
Ptr DOMCharacterData -> -- _obj : TInterface "WebKit" "DOMCharacterData"
Word64 -> -- offset : TBasicType TUInt64
Word64 -> -- length : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO CString
dOMCharacterDataSubstringData ::
(MonadIO m, DOMCharacterDataK a) =>
a -> -- _obj
Word64 -> -- offset
Word64 -> -- length
m T.Text
dOMCharacterDataSubstringData _obj offset length_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_character_data_substring_data _obj' offset length_
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- object DOMComment
newtype DOMComment = DOMComment (ForeignPtr DOMComment)
noDOMComment :: Maybe DOMComment
noDOMComment = Nothing
foreign import ccall "webkit_dom_comment_get_type"
c_webkit_dom_comment_get_type :: IO GType
type instance ParentTypes DOMComment = '[DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMComment where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_comment_get_type
class GObject o => DOMCommentK o
instance (GObject o, IsDescendantOf DOMComment o) => DOMCommentK o
toDOMComment :: DOMCommentK o => o -> IO DOMComment
toDOMComment = unsafeCastTo DOMComment
-- object DOMConsole
newtype DOMConsole = DOMConsole (ForeignPtr DOMConsole)
noDOMConsole :: Maybe DOMConsole
noDOMConsole = Nothing
foreign import ccall "webkit_dom_console_get_type"
c_webkit_dom_console_get_type :: IO GType
type instance ParentTypes DOMConsole = '[DOMObject, GObject.Object]
instance GObject DOMConsole where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_console_get_type
class GObject o => DOMConsoleK o
instance (GObject o, IsDescendantOf DOMConsole o) => DOMConsoleK o
toDOMConsole :: DOMConsoleK o => o -> IO DOMConsole
toDOMConsole = unsafeCastTo DOMConsole
-- method DOMConsole::get_memory
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", 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_console_get_memory" webkit_dom_console_get_memory ::
Ptr DOMConsole -> -- _obj : TInterface "WebKit" "DOMConsole"
IO ()
{-# DEPRECATED dOMConsoleGetMemory ["(Since version 2.2)"]#-}
dOMConsoleGetMemory ::
(MonadIO m, DOMConsoleK a) =>
a -> -- _obj
m ()
dOMConsoleGetMemory _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_console_get_memory _obj'
touchManagedPtr _obj
return ()
-- method DOMConsole::group_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", 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_console_group_end" webkit_dom_console_group_end ::
Ptr DOMConsole -> -- _obj : TInterface "WebKit" "DOMConsole"
IO ()
dOMConsoleGroupEnd ::
(MonadIO m, DOMConsoleK a) =>
a -> -- _obj
m ()
dOMConsoleGroupEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_console_group_end _obj'
touchManagedPtr _obj
return ()
-- method DOMConsole::time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMConsole", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", 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_console_time" webkit_dom_console_time ::
Ptr DOMConsole -> -- _obj : TInterface "WebKit" "DOMConsole"
CString -> -- title : TBasicType TUTF8
IO ()
dOMConsoleTime ::
(MonadIO m, DOMConsoleK a) =>
a -> -- _obj
T.Text -> -- title
m ()
dOMConsoleTime _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
webkit_dom_console_time _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- object DOMDOMApplicationCache
newtype DOMDOMApplicationCache = DOMDOMApplicationCache (ForeignPtr DOMDOMApplicationCache)
noDOMDOMApplicationCache :: Maybe DOMDOMApplicationCache
noDOMDOMApplicationCache = Nothing
foreign import ccall "webkit_dom_dom_application_cache_get_type"
c_webkit_dom_dom_application_cache_get_type :: IO GType
type instance ParentTypes DOMDOMApplicationCache = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMDOMApplicationCache where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_application_cache_get_type
class GObject o => DOMDOMApplicationCacheK o
instance (GObject o, IsDescendantOf DOMDOMApplicationCache o) => DOMDOMApplicationCacheK o
toDOMDOMApplicationCache :: DOMDOMApplicationCacheK o => o -> IO DOMDOMApplicationCache
toDOMDOMApplicationCache = unsafeCastTo DOMDOMApplicationCache
-- method DOMDOMApplicationCache::abort
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", 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_application_cache_abort" webkit_dom_dom_application_cache_abort ::
Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache"
IO ()
dOMDOMApplicationCacheAbort ::
(MonadIO m, DOMDOMApplicationCacheK a) =>
a -> -- _obj
m ()
dOMDOMApplicationCacheAbort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_application_cache_abort _obj'
touchManagedPtr _obj
return ()
-- method DOMDOMApplicationCache::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", 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" "DOMDOMApplicationCache", 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_application_cache_dispatch_event" webkit_dom_dom_application_cache_dispatch_event ::
Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache"
Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMDOMApplicationCacheDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMDOMApplicationCacheDispatchEvent ::
(MonadIO m, DOMDOMApplicationCacheK a, DOMEventK b) =>
a -> -- _obj
b -> -- evt
m ()
dOMDOMApplicationCacheDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_dom_application_cache_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
-- method DOMDOMApplicationCache::get_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_application_cache_get_status" webkit_dom_dom_application_cache_get_status ::
Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache"
IO Word16
dOMDOMApplicationCacheGetStatus ::
(MonadIO m, DOMDOMApplicationCacheK a) =>
a -> -- _obj
m Word16
dOMDOMApplicationCacheGetStatus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_application_cache_get_status _obj'
touchManagedPtr _obj
return result
-- method DOMDOMApplicationCache::swap_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_application_cache_swap_cache" webkit_dom_dom_application_cache_swap_cache ::
Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache"
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMApplicationCacheSwapCache ::
(MonadIO m, DOMDOMApplicationCacheK a) =>
a -> -- _obj
m ()
dOMDOMApplicationCacheSwapCache _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_dom_application_cache_swap_cache _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMDOMApplicationCache::update
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMApplicationCache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_application_cache_update" webkit_dom_dom_application_cache_update ::
Ptr DOMDOMApplicationCache -> -- _obj : TInterface "WebKit" "DOMDOMApplicationCache"
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMApplicationCacheUpdate ::
(MonadIO m, DOMDOMApplicationCacheK a) =>
a -> -- _obj
m ()
dOMDOMApplicationCacheUpdate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_dom_application_cache_update _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- object DOMDOMImplementation
newtype DOMDOMImplementation = DOMDOMImplementation (ForeignPtr DOMDOMImplementation)
noDOMDOMImplementation :: Maybe DOMDOMImplementation
noDOMDOMImplementation = Nothing
foreign import ccall "webkit_dom_dom_implementation_get_type"
c_webkit_dom_dom_implementation_get_type :: IO GType
type instance ParentTypes DOMDOMImplementation = '[DOMObject, GObject.Object]
instance GObject DOMDOMImplementation where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_implementation_get_type
class GObject o => DOMDOMImplementationK o
instance (GObject o, IsDescendantOf DOMDOMImplementation o) => DOMDOMImplementationK o
toDOMDOMImplementation :: DOMDOMImplementationK o => o -> IO DOMDOMImplementation
toDOMDOMImplementation = unsafeCastTo DOMDOMImplementation
-- method DOMDOMImplementation::create_css_style_sheet
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSStyleSheet"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_implementation_create_css_style_sheet" webkit_dom_dom_implementation_create_css_style_sheet ::
Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation"
CString -> -- title : TBasicType TUTF8
CString -> -- media : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMCSSStyleSheet)
dOMDOMImplementationCreateCssStyleSheet ::
(MonadIO m, DOMDOMImplementationK a) =>
a -> -- _obj
T.Text -> -- title
T.Text -> -- media
m DOMCSSStyleSheet
dOMDOMImplementationCreateCssStyleSheet _obj title media = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
media' <- textToCString media
onException (do
result <- propagateGError $ webkit_dom_dom_implementation_create_css_style_sheet _obj' title' media'
result' <- (wrapObject DOMCSSStyleSheet) result
touchManagedPtr _obj
freeMem title'
freeMem media'
return result'
) (do
freeMem title'
freeMem media'
)
-- method DOMDOMImplementation::create_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "doctype", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "doctype", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDocument"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_implementation_create_document" webkit_dom_dom_implementation_create_document ::
Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- qualifiedName : TBasicType TUTF8
Ptr DOMDocumentType -> -- doctype : TInterface "WebKit" "DOMDocumentType"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMDocument)
dOMDOMImplementationCreateDocument ::
(MonadIO m, DOMDOMImplementationK a, DOMDocumentTypeK b) =>
a -> -- _obj
Maybe (T.Text) -> -- namespaceURI
T.Text -> -- qualifiedName
Maybe (b) -> -- doctype
m DOMDocument
dOMDOMImplementationCreateDocument _obj namespaceURI qualifiedName doctype = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeNamespaceURI <- case namespaceURI of
Nothing -> return nullPtr
Just jNamespaceURI -> do
jNamespaceURI' <- textToCString jNamespaceURI
return jNamespaceURI'
qualifiedName' <- textToCString qualifiedName
maybeDoctype <- case doctype of
Nothing -> return nullPtr
Just jDoctype -> do
let jDoctype' = unsafeManagedPtrCastPtr jDoctype
return jDoctype'
onException (do
result <- propagateGError $ webkit_dom_dom_implementation_create_document _obj' maybeNamespaceURI qualifiedName' maybeDoctype
result' <- (newObject DOMDocument) result
touchManagedPtr _obj
whenJust doctype touchManagedPtr
freeMem maybeNamespaceURI
freeMem qualifiedName'
return result'
) (do
freeMem maybeNamespaceURI
freeMem qualifiedName'
)
-- method DOMDOMImplementation::create_document_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "publicId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "systemId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "publicId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "systemId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDocumentType"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_implementation_create_document_type" webkit_dom_dom_implementation_create_document_type ::
Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation"
CString -> -- qualifiedName : TBasicType TUTF8
CString -> -- publicId : TBasicType TUTF8
CString -> -- systemId : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMDocumentType)
dOMDOMImplementationCreateDocumentType ::
(MonadIO m, DOMDOMImplementationK a) =>
a -> -- _obj
T.Text -> -- qualifiedName
T.Text -> -- publicId
T.Text -> -- systemId
m DOMDocumentType
dOMDOMImplementationCreateDocumentType _obj qualifiedName publicId systemId = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
qualifiedName' <- textToCString qualifiedName
publicId' <- textToCString publicId
systemId' <- textToCString systemId
onException (do
result <- propagateGError $ webkit_dom_dom_implementation_create_document_type _obj' qualifiedName' publicId' systemId'
result' <- (newObject DOMDocumentType) result
touchManagedPtr _obj
freeMem qualifiedName'
freeMem publicId'
freeMem systemId'
return result'
) (do
freeMem qualifiedName'
freeMem publicId'
freeMem systemId'
)
-- method DOMDOMImplementation::create_html_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLDocument"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_implementation_create_html_document" webkit_dom_dom_implementation_create_html_document ::
Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation"
CString -> -- title : TBasicType TUTF8
IO (Ptr DOMHTMLDocument)
dOMDOMImplementationCreateHtmlDocument ::
(MonadIO m, DOMDOMImplementationK a) =>
a -> -- _obj
T.Text -> -- title
m DOMHTMLDocument
dOMDOMImplementationCreateHtmlDocument _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
result <- webkit_dom_dom_implementation_create_html_document _obj' title'
result' <- (newObject DOMHTMLDocument) result
touchManagedPtr _obj
freeMem title'
return result'
-- method DOMDOMImplementation::has_feature
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMImplementation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", 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_implementation_has_feature" webkit_dom_dom_implementation_has_feature ::
Ptr DOMDOMImplementation -> -- _obj : TInterface "WebKit" "DOMDOMImplementation"
CString -> -- feature : TBasicType TUTF8
CString -> -- version : TBasicType TUTF8
IO CInt
dOMDOMImplementationHasFeature ::
(MonadIO m, DOMDOMImplementationK a) =>
a -> -- _obj
T.Text -> -- feature
T.Text -> -- version
m Bool
dOMDOMImplementationHasFeature _obj feature version = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
feature' <- textToCString feature
version' <- textToCString version
result <- webkit_dom_dom_implementation_has_feature _obj' feature' version'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem feature'
freeMem version'
return result'
-- object DOMDOMMimeType
newtype DOMDOMMimeType = DOMDOMMimeType (ForeignPtr DOMDOMMimeType)
noDOMDOMMimeType :: Maybe DOMDOMMimeType
noDOMDOMMimeType = Nothing
foreign import ccall "webkit_dom_dom_mime_type_get_type"
c_webkit_dom_dom_mime_type_get_type :: IO GType
type instance ParentTypes DOMDOMMimeType = '[DOMObject, GObject.Object]
instance GObject DOMDOMMimeType where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_mime_type_get_type
class GObject o => DOMDOMMimeTypeK o
instance (GObject o, IsDescendantOf DOMDOMMimeType o) => DOMDOMMimeTypeK o
toDOMDOMMimeType :: DOMDOMMimeTypeK o => o -> IO DOMDOMMimeType
toDOMDOMMimeType = unsafeCastTo DOMDOMMimeType
-- method DOMDOMMimeType::get_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", 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_mime_type_get_description" webkit_dom_dom_mime_type_get_description ::
Ptr DOMDOMMimeType -> -- _obj : TInterface "WebKit" "DOMDOMMimeType"
IO CString
dOMDOMMimeTypeGetDescription ::
(MonadIO m, DOMDOMMimeTypeK a) =>
a -> -- _obj
m T.Text
dOMDOMMimeTypeGetDescription _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_mime_type_get_description _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDOMMimeType::get_enabled_plugin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMPlugin"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_mime_type_get_enabled_plugin" webkit_dom_dom_mime_type_get_enabled_plugin ::
Ptr DOMDOMMimeType -> -- _obj : TInterface "WebKit" "DOMDOMMimeType"
IO (Ptr DOMDOMPlugin)
dOMDOMMimeTypeGetEnabledPlugin ::
(MonadIO m, DOMDOMMimeTypeK a) =>
a -> -- _obj
m DOMDOMPlugin
dOMDOMMimeTypeGetEnabledPlugin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_mime_type_get_enabled_plugin _obj'
result' <- (wrapObject DOMDOMPlugin) result
touchManagedPtr _obj
return result'
-- method DOMDOMMimeType::get_suffixes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeType", 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_mime_type_get_suffixes" webkit_dom_dom_mime_type_get_suffixes ::
Ptr DOMDOMMimeType -> -- _obj : TInterface "WebKit" "DOMDOMMimeType"
IO CString
dOMDOMMimeTypeGetSuffixes ::
(MonadIO m, DOMDOMMimeTypeK a) =>
a -> -- _obj
m T.Text
dOMDOMMimeTypeGetSuffixes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_mime_type_get_suffixes _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- object DOMDOMMimeTypeArray
newtype DOMDOMMimeTypeArray = DOMDOMMimeTypeArray (ForeignPtr DOMDOMMimeTypeArray)
noDOMDOMMimeTypeArray :: Maybe DOMDOMMimeTypeArray
noDOMDOMMimeTypeArray = Nothing
foreign import ccall "webkit_dom_dom_mime_type_array_get_type"
c_webkit_dom_dom_mime_type_array_get_type :: IO GType
type instance ParentTypes DOMDOMMimeTypeArray = '[DOMObject, GObject.Object]
instance GObject DOMDOMMimeTypeArray where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_mime_type_array_get_type
class GObject o => DOMDOMMimeTypeArrayK o
instance (GObject o, IsDescendantOf DOMDOMMimeTypeArray o) => DOMDOMMimeTypeArrayK o
toDOMDOMMimeTypeArray :: DOMDOMMimeTypeArrayK o => o -> IO DOMDOMMimeTypeArray
toDOMDOMMimeTypeArray = unsafeCastTo DOMDOMMimeTypeArray
-- method DOMDOMMimeTypeArray::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", 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_mime_type_array_get_length" webkit_dom_dom_mime_type_array_get_length ::
Ptr DOMDOMMimeTypeArray -> -- _obj : TInterface "WebKit" "DOMDOMMimeTypeArray"
IO Word64
dOMDOMMimeTypeArrayGetLength ::
(MonadIO m, DOMDOMMimeTypeArrayK a) =>
a -> -- _obj
m Word64
dOMDOMMimeTypeArrayGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_mime_type_array_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMDOMMimeTypeArray::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMMimeType"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_mime_type_array_item" webkit_dom_dom_mime_type_array_item ::
Ptr DOMDOMMimeTypeArray -> -- _obj : TInterface "WebKit" "DOMDOMMimeTypeArray"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMDOMMimeType)
dOMDOMMimeTypeArrayItem ::
(MonadIO m, DOMDOMMimeTypeArrayK a) =>
a -> -- _obj
Word64 -> -- index
m DOMDOMMimeType
dOMDOMMimeTypeArrayItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_mime_type_array_item _obj' index
result' <- (wrapObject DOMDOMMimeType) result
touchManagedPtr _obj
return result'
-- method DOMDOMMimeTypeArray::named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMMimeTypeArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMMimeType"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_mime_type_array_named_item" webkit_dom_dom_mime_type_array_named_item ::
Ptr DOMDOMMimeTypeArray -> -- _obj : TInterface "WebKit" "DOMDOMMimeTypeArray"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMDOMMimeType)
dOMDOMMimeTypeArrayNamedItem ::
(MonadIO m, DOMDOMMimeTypeArrayK a) =>
a -> -- _obj
T.Text -> -- name
m DOMDOMMimeType
dOMDOMMimeTypeArrayNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_dom_mime_type_array_named_item _obj' name'
result' <- (wrapObject DOMDOMMimeType) result
touchManagedPtr _obj
freeMem name'
return result'
-- object DOMDOMNamedFlowCollection
newtype DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollection (ForeignPtr DOMDOMNamedFlowCollection)
noDOMDOMNamedFlowCollection :: Maybe DOMDOMNamedFlowCollection
noDOMDOMNamedFlowCollection = Nothing
foreign import ccall "webkit_dom_dom_named_flow_collection_get_type"
c_webkit_dom_dom_named_flow_collection_get_type :: IO GType
type instance ParentTypes DOMDOMNamedFlowCollection = '[DOMObject, GObject.Object]
instance GObject DOMDOMNamedFlowCollection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_named_flow_collection_get_type
class GObject o => DOMDOMNamedFlowCollectionK o
instance (GObject o, IsDescendantOf DOMDOMNamedFlowCollection o) => DOMDOMNamedFlowCollectionK o
toDOMDOMNamedFlowCollection :: DOMDOMNamedFlowCollectionK o => o -> IO DOMDOMNamedFlowCollection
toDOMDOMNamedFlowCollection = unsafeCastTo DOMDOMNamedFlowCollection
-- method DOMDOMNamedFlowCollection::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", 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_named_flow_collection_get_length" webkit_dom_dom_named_flow_collection_get_length ::
Ptr DOMDOMNamedFlowCollection -> -- _obj : TInterface "WebKit" "DOMDOMNamedFlowCollection"
IO Word64
dOMDOMNamedFlowCollectionGetLength ::
(MonadIO m, DOMDOMNamedFlowCollectionK a) =>
a -> -- _obj
m Word64
dOMDOMNamedFlowCollectionGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_named_flow_collection_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMDOMNamedFlowCollection::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMWebKitNamedFlow"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_named_flow_collection_item" webkit_dom_dom_named_flow_collection_item ::
Ptr DOMDOMNamedFlowCollection -> -- _obj : TInterface "WebKit" "DOMDOMNamedFlowCollection"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMWebKitNamedFlow)
dOMDOMNamedFlowCollectionItem ::
(MonadIO m, DOMDOMNamedFlowCollectionK a) =>
a -> -- _obj
Word64 -> -- index
m DOMWebKitNamedFlow
dOMDOMNamedFlowCollectionItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_named_flow_collection_item _obj' index
result' <- (wrapObject DOMWebKitNamedFlow) result
touchManagedPtr _obj
return result'
-- method DOMDOMNamedFlowCollection::named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMNamedFlowCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMWebKitNamedFlow"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_named_flow_collection_named_item" webkit_dom_dom_named_flow_collection_named_item ::
Ptr DOMDOMNamedFlowCollection -> -- _obj : TInterface "WebKit" "DOMDOMNamedFlowCollection"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMWebKitNamedFlow)
dOMDOMNamedFlowCollectionNamedItem ::
(MonadIO m, DOMDOMNamedFlowCollectionK a) =>
a -> -- _obj
T.Text -> -- name
m DOMWebKitNamedFlow
dOMDOMNamedFlowCollectionNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_dom_named_flow_collection_named_item _obj' name'
result' <- (wrapObject DOMWebKitNamedFlow) result
touchManagedPtr _obj
freeMem name'
return result'
-- object DOMDOMPlugin
newtype DOMDOMPlugin = DOMDOMPlugin (ForeignPtr DOMDOMPlugin)
noDOMDOMPlugin :: Maybe DOMDOMPlugin
noDOMDOMPlugin = Nothing
foreign import ccall "webkit_dom_dom_plugin_get_type"
c_webkit_dom_dom_plugin_get_type :: IO GType
type instance ParentTypes DOMDOMPlugin = '[DOMObject, GObject.Object]
instance GObject DOMDOMPlugin where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_plugin_get_type
class GObject o => DOMDOMPluginK o
instance (GObject o, IsDescendantOf DOMDOMPlugin o) => DOMDOMPluginK o
toDOMDOMPlugin :: DOMDOMPluginK o => o -> IO DOMDOMPlugin
toDOMDOMPlugin = unsafeCastTo DOMDOMPlugin
-- method DOMDOMPlugin::get_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", 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_plugin_get_description" webkit_dom_dom_plugin_get_description ::
Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin"
IO CString
dOMDOMPluginGetDescription ::
(MonadIO m, DOMDOMPluginK a) =>
a -> -- _obj
m T.Text
dOMDOMPluginGetDescription _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_plugin_get_description _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDOMPlugin::get_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", 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_plugin_get_filename" webkit_dom_dom_plugin_get_filename ::
Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin"
IO CString
dOMDOMPluginGetFilename ::
(MonadIO m, DOMDOMPluginK a) =>
a -> -- _obj
m T.Text
dOMDOMPluginGetFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_plugin_get_filename _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDOMPlugin::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", 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_plugin_get_length" webkit_dom_dom_plugin_get_length ::
Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin"
IO Word64
dOMDOMPluginGetLength ::
(MonadIO m, DOMDOMPluginK a) =>
a -> -- _obj
m Word64
dOMDOMPluginGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_plugin_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMDOMPlugin::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", 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_plugin_get_name" webkit_dom_dom_plugin_get_name ::
Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin"
IO CString
dOMDOMPluginGetName ::
(MonadIO m, DOMDOMPluginK a) =>
a -> -- _obj
m T.Text
dOMDOMPluginGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_plugin_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDOMPlugin::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMMimeType"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_plugin_item" webkit_dom_dom_plugin_item ::
Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMDOMMimeType)
dOMDOMPluginItem ::
(MonadIO m, DOMDOMPluginK a) =>
a -> -- _obj
Word64 -> -- index
m DOMDOMMimeType
dOMDOMPluginItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_plugin_item _obj' index
result' <- (wrapObject DOMDOMMimeType) result
touchManagedPtr _obj
return result'
-- method DOMDOMPlugin::named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMMimeType"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_plugin_named_item" webkit_dom_dom_plugin_named_item ::
Ptr DOMDOMPlugin -> -- _obj : TInterface "WebKit" "DOMDOMPlugin"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMDOMMimeType)
dOMDOMPluginNamedItem ::
(MonadIO m, DOMDOMPluginK a) =>
a -> -- _obj
T.Text -> -- name
m DOMDOMMimeType
dOMDOMPluginNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_dom_plugin_named_item _obj' name'
result' <- (wrapObject DOMDOMMimeType) result
touchManagedPtr _obj
freeMem name'
return result'
-- object DOMDOMPluginArray
newtype DOMDOMPluginArray = DOMDOMPluginArray (ForeignPtr DOMDOMPluginArray)
noDOMDOMPluginArray :: Maybe DOMDOMPluginArray
noDOMDOMPluginArray = Nothing
foreign import ccall "webkit_dom_dom_plugin_array_get_type"
c_webkit_dom_dom_plugin_array_get_type :: IO GType
type instance ParentTypes DOMDOMPluginArray = '[DOMObject, GObject.Object]
instance GObject DOMDOMPluginArray where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_plugin_array_get_type
class GObject o => DOMDOMPluginArrayK o
instance (GObject o, IsDescendantOf DOMDOMPluginArray o) => DOMDOMPluginArrayK o
toDOMDOMPluginArray :: DOMDOMPluginArrayK o => o -> IO DOMDOMPluginArray
toDOMDOMPluginArray = unsafeCastTo DOMDOMPluginArray
-- method DOMDOMPluginArray::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", 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_plugin_array_get_length" webkit_dom_dom_plugin_array_get_length ::
Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray"
IO Word64
dOMDOMPluginArrayGetLength ::
(MonadIO m, DOMDOMPluginArrayK a) =>
a -> -- _obj
m Word64
dOMDOMPluginArrayGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_plugin_array_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMDOMPluginArray::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMPlugin"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_plugin_array_item" webkit_dom_dom_plugin_array_item ::
Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMDOMPlugin)
dOMDOMPluginArrayItem ::
(MonadIO m, DOMDOMPluginArrayK a) =>
a -> -- _obj
Word64 -> -- index
m DOMDOMPlugin
dOMDOMPluginArrayItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_plugin_array_item _obj' index
result' <- (wrapObject DOMDOMPlugin) result
touchManagedPtr _obj
return result'
-- method DOMDOMPluginArray::named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMPlugin"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_plugin_array_named_item" webkit_dom_dom_plugin_array_named_item ::
Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMDOMPlugin)
dOMDOMPluginArrayNamedItem ::
(MonadIO m, DOMDOMPluginArrayK a) =>
a -> -- _obj
T.Text -> -- name
m DOMDOMPlugin
dOMDOMPluginArrayNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_dom_plugin_array_named_item _obj' name'
result' <- (wrapObject DOMDOMPlugin) result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMDOMPluginArray::refresh
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reload", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMPluginArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reload", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_plugin_array_refresh" webkit_dom_dom_plugin_array_refresh ::
Ptr DOMDOMPluginArray -> -- _obj : TInterface "WebKit" "DOMDOMPluginArray"
CInt -> -- reload : TBasicType TBoolean
IO ()
dOMDOMPluginArrayRefresh ::
(MonadIO m, DOMDOMPluginArrayK a) =>
a -> -- _obj
Bool -> -- reload
m ()
dOMDOMPluginArrayRefresh _obj reload = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reload' = (fromIntegral . fromEnum) reload
webkit_dom_dom_plugin_array_refresh _obj' reload'
touchManagedPtr _obj
return ()
-- object DOMDOMSecurityPolicy
newtype DOMDOMSecurityPolicy = DOMDOMSecurityPolicy (ForeignPtr DOMDOMSecurityPolicy)
noDOMDOMSecurityPolicy :: Maybe DOMDOMSecurityPolicy
noDOMDOMSecurityPolicy = Nothing
foreign import ccall "webkit_dom_dom_security_policy_get_type"
c_webkit_dom_dom_security_policy_get_type :: IO GType
type instance ParentTypes DOMDOMSecurityPolicy = '[DOMObject, GObject.Object]
instance GObject DOMDOMSecurityPolicy where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_security_policy_get_type
class GObject o => DOMDOMSecurityPolicyK o
instance (GObject o, IsDescendantOf DOMDOMSecurityPolicy o) => DOMDOMSecurityPolicyK o
toDOMDOMSecurityPolicy :: DOMDOMSecurityPolicyK o => o -> IO DOMDOMSecurityPolicy
toDOMDOMSecurityPolicy = unsafeCastTo DOMDOMSecurityPolicy
-- method DOMDOMSecurityPolicy::allows_connection_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_connection_to" webkit_dom_dom_security_policy_allows_connection_to ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsConnectionTo ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsConnectionTo _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_connection_to _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::allows_font_from
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_font_from" webkit_dom_dom_security_policy_allows_font_from ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsFontFrom ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsFontFrom _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_font_from _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::allows_form_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_form_action" webkit_dom_dom_security_policy_allows_form_action ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsFormAction ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsFormAction _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_form_action _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::allows_frame_from
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_frame_from" webkit_dom_dom_security_policy_allows_frame_from ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsFrameFrom ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsFrameFrom _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_frame_from _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::allows_image_from
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_image_from" webkit_dom_dom_security_policy_allows_image_from ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsImageFrom ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsImageFrom _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_image_from _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::allows_media_from
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_media_from" webkit_dom_dom_security_policy_allows_media_from ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsMediaFrom ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsMediaFrom _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_media_from _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::allows_object_from
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_object_from" webkit_dom_dom_security_policy_allows_object_from ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsObjectFrom ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsObjectFrom _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_object_from _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::allows_plugin_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_security_policy_allows_plugin_type" webkit_dom_dom_security_policy_allows_plugin_type ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- type : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsPluginType ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- type
m Bool
dOMDOMSecurityPolicyAllowsPluginType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
result <- webkit_dom_dom_security_policy_allows_plugin_type _obj' type_'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem type_'
return result'
-- method DOMDOMSecurityPolicy::allows_script_from
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_script_from" webkit_dom_dom_security_policy_allows_script_from ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsScriptFrom ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsScriptFrom _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_script_from _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::allows_style_from
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_security_policy_allows_style_from" webkit_dom_dom_security_policy_allows_style_from ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
CString -> -- url : TBasicType TUTF8
IO CInt
dOMDOMSecurityPolicyAllowsStyleFrom ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
T.Text -> -- url
m Bool
dOMDOMSecurityPolicyAllowsStyleFrom _obj url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
url' <- textToCString url
result <- webkit_dom_dom_security_policy_allows_style_from _obj' url'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem url'
return result'
-- method DOMDOMSecurityPolicy::get_allows_eval
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", 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_security_policy_get_allows_eval" webkit_dom_dom_security_policy_get_allows_eval ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
IO CInt
dOMDOMSecurityPolicyGetAllowsEval ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
m Bool
dOMDOMSecurityPolicyGetAllowsEval _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_security_policy_get_allows_eval _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDOMSecurityPolicy::get_allows_inline_script
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", 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_security_policy_get_allows_inline_script" webkit_dom_dom_security_policy_get_allows_inline_script ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
IO CInt
dOMDOMSecurityPolicyGetAllowsInlineScript ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
m Bool
dOMDOMSecurityPolicyGetAllowsInlineScript _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_security_policy_get_allows_inline_script _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDOMSecurityPolicy::get_allows_inline_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", 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_security_policy_get_allows_inline_style" webkit_dom_dom_security_policy_get_allows_inline_style ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
IO CInt
dOMDOMSecurityPolicyGetAllowsInlineStyle ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
m Bool
dOMDOMSecurityPolicyGetAllowsInlineStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_security_policy_get_allows_inline_style _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDOMSecurityPolicy::get_is_active
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", 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_security_policy_get_is_active" webkit_dom_dom_security_policy_get_is_active ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
IO CInt
dOMDOMSecurityPolicyGetIsActive ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
m Bool
dOMDOMSecurityPolicyGetIsActive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_security_policy_get_is_active _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDOMSecurityPolicy::get_report_ur_is
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMStringList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_security_policy_get_report_ur_is" webkit_dom_dom_security_policy_get_report_ur_is ::
Ptr DOMDOMSecurityPolicy -> -- _obj : TInterface "WebKit" "DOMDOMSecurityPolicy"
IO (Ptr DOMDOMStringList)
dOMDOMSecurityPolicyGetReportUrIs ::
(MonadIO m, DOMDOMSecurityPolicyK a) =>
a -> -- _obj
m DOMDOMStringList
dOMDOMSecurityPolicyGetReportUrIs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_security_policy_get_report_ur_is _obj'
result' <- (wrapObject DOMDOMStringList) result
touchManagedPtr _obj
return result'
-- object DOMDOMSelection
newtype DOMDOMSelection = DOMDOMSelection (ForeignPtr DOMDOMSelection)
noDOMDOMSelection :: Maybe DOMDOMSelection
noDOMDOMSelection = Nothing
foreign import ccall "webkit_dom_dom_selection_get_type"
c_webkit_dom_dom_selection_get_type :: IO GType
type instance ParentTypes DOMDOMSelection = '[DOMObject, GObject.Object]
instance GObject DOMDOMSelection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_selection_get_type
class GObject o => DOMDOMSelectionK o
instance (GObject o, IsDescendantOf DOMDOMSelection o) => DOMDOMSelectionK o
toDOMDOMSelection :: DOMDOMSelectionK o => o -> IO DOMDOMSelection
toDOMDOMSelection = unsafeCastTo DOMDOMSelection
-- method DOMDOMSelection::add_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range", argType = TInterface "WebKit" "DOMRange", 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_selection_add_range" webkit_dom_dom_selection_add_range ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr DOMRange -> -- range : TInterface "WebKit" "DOMRange"
IO ()
dOMDOMSelectionAddRange ::
(MonadIO m, DOMDOMSelectionK a, DOMRangeK b) =>
a -> -- _obj
b -> -- range
m ()
dOMDOMSelectionAddRange _obj range = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let range' = unsafeManagedPtrCastPtr range
webkit_dom_dom_selection_add_range _obj' range'
touchManagedPtr _obj
touchManagedPtr range
return ()
-- method DOMDOMSelection::collapse
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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 = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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 = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_collapse" webkit_dom_dom_selection_collapse ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
Int64 -> -- index : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMSelectionCollapse ::
(MonadIO m, DOMDOMSelectionK a, DOMNodeK b) =>
a -> -- _obj
b -> -- node
Int64 -> -- index
m ()
dOMDOMSelectionCollapse _obj node index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
onException (do
propagateGError $ webkit_dom_dom_selection_collapse _obj' node' index
touchManagedPtr _obj
touchManagedPtr node
return ()
) (do
return ()
)
-- method DOMDOMSelection::collapse_to_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_collapse_to_end" webkit_dom_dom_selection_collapse_to_end ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMSelectionCollapseToEnd ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m ()
dOMDOMSelectionCollapseToEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_dom_selection_collapse_to_end _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMDOMSelection::collapse_to_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_collapse_to_start" webkit_dom_dom_selection_collapse_to_start ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMSelectionCollapseToStart ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m ()
dOMDOMSelectionCollapseToStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_dom_selection_collapse_to_start _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMDOMSelection::contains_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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 = "allowPartial", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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 = "allowPartial", 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_selection_contains_node" webkit_dom_dom_selection_contains_node ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
CInt -> -- allowPartial : TBasicType TBoolean
IO CInt
dOMDOMSelectionContainsNode ::
(MonadIO m, DOMDOMSelectionK a, DOMNodeK b) =>
a -> -- _obj
b -> -- node
Bool -> -- allowPartial
m Bool
dOMDOMSelectionContainsNode _obj node allowPartial = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
let allowPartial' = (fromIntegral . fromEnum) allowPartial
result <- webkit_dom_dom_selection_contains_node _obj' node' allowPartial'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr node
return result'
-- method DOMDOMSelection::delete_from_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_delete_from_document" webkit_dom_dom_selection_delete_from_document ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO ()
dOMDOMSelectionDeleteFromDocument ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m ()
dOMDOMSelectionDeleteFromDocument _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_selection_delete_from_document _obj'
touchManagedPtr _obj
return ()
-- method DOMDOMSelection::empty
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_empty" webkit_dom_dom_selection_empty ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO ()
dOMDOMSelectionEmpty ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m ()
dOMDOMSelectionEmpty _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_selection_empty _obj'
touchManagedPtr _obj
return ()
-- method DOMDOMSelection::extend
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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 = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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 = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_extend" webkit_dom_dom_selection_extend ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
Int64 -> -- offset : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMSelectionExtend ::
(MonadIO m, DOMDOMSelectionK a, DOMNodeK b) =>
a -> -- _obj
b -> -- node
Int64 -> -- offset
m ()
dOMDOMSelectionExtend _obj node offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
onException (do
propagateGError $ webkit_dom_dom_selection_extend _obj' node' offset
touchManagedPtr _obj
touchManagedPtr node
return ()
) (do
return ()
)
-- method DOMDOMSelection::get_anchor_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_get_anchor_node" webkit_dom_dom_selection_get_anchor_node ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO (Ptr DOMNode)
dOMDOMSelectionGetAnchorNode ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m DOMNode
dOMDOMSelectionGetAnchorNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_anchor_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMDOMSelection::get_anchor_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_get_anchor_offset" webkit_dom_dom_selection_get_anchor_offset ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO Int64
dOMDOMSelectionGetAnchorOffset ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m Int64
dOMDOMSelectionGetAnchorOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_anchor_offset _obj'
touchManagedPtr _obj
return result
-- method DOMDOMSelection::get_base_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_get_base_node" webkit_dom_dom_selection_get_base_node ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO (Ptr DOMNode)
dOMDOMSelectionGetBaseNode ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m DOMNode
dOMDOMSelectionGetBaseNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_base_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMDOMSelection::get_base_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_get_base_offset" webkit_dom_dom_selection_get_base_offset ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO Int64
dOMDOMSelectionGetBaseOffset ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m Int64
dOMDOMSelectionGetBaseOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_base_offset _obj'
touchManagedPtr _obj
return result
-- method DOMDOMSelection::get_extent_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_get_extent_node" webkit_dom_dom_selection_get_extent_node ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO (Ptr DOMNode)
dOMDOMSelectionGetExtentNode ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m DOMNode
dOMDOMSelectionGetExtentNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_extent_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMDOMSelection::get_extent_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_get_extent_offset" webkit_dom_dom_selection_get_extent_offset ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO Int64
dOMDOMSelectionGetExtentOffset ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m Int64
dOMDOMSelectionGetExtentOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_extent_offset _obj'
touchManagedPtr _obj
return result
-- method DOMDOMSelection::get_focus_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_get_focus_node" webkit_dom_dom_selection_get_focus_node ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO (Ptr DOMNode)
dOMDOMSelectionGetFocusNode ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m DOMNode
dOMDOMSelectionGetFocusNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_focus_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMDOMSelection::get_focus_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_get_focus_offset" webkit_dom_dom_selection_get_focus_offset ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO Int64
dOMDOMSelectionGetFocusOffset ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m Int64
dOMDOMSelectionGetFocusOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_focus_offset _obj'
touchManagedPtr _obj
return result
-- method DOMDOMSelection::get_is_collapsed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_get_is_collapsed" webkit_dom_dom_selection_get_is_collapsed ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO CInt
dOMDOMSelectionGetIsCollapsed ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m Bool
dOMDOMSelectionGetIsCollapsed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_is_collapsed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDOMSelection::get_range_at
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMRange"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_get_range_at" webkit_dom_dom_selection_get_range_at ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Int64 -> -- index : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO (Ptr DOMRange)
dOMDOMSelectionGetRangeAt ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
Int64 -> -- index
m DOMRange
dOMDOMSelectionGetRangeAt _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_dom_selection_get_range_at _obj' index
result' <- (wrapObject DOMRange) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMDOMSelection::get_range_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_get_range_count" webkit_dom_dom_selection_get_range_count ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO Int64
dOMDOMSelectionGetRangeCount ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m Int64
dOMDOMSelectionGetRangeCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_selection_get_range_count _obj'
touchManagedPtr _obj
return result
-- method DOMDOMSelection::modify
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alter", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alter", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "granularity", 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_selection_modify" webkit_dom_dom_selection_modify ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
CString -> -- alter : TBasicType TUTF8
CString -> -- direction : TBasicType TUTF8
CString -> -- granularity : TBasicType TUTF8
IO ()
dOMDOMSelectionModify ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
T.Text -> -- alter
T.Text -> -- direction
T.Text -> -- granularity
m ()
dOMDOMSelectionModify _obj alter direction granularity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
alter' <- textToCString alter
direction' <- textToCString direction
granularity' <- textToCString granularity
webkit_dom_dom_selection_modify _obj' alter' direction' granularity'
touchManagedPtr _obj
freeMem alter'
freeMem direction'
freeMem granularity'
return ()
-- method DOMDOMSelection::remove_all_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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_selection_remove_all_ranges" webkit_dom_dom_selection_remove_all_ranges ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
IO ()
dOMDOMSelectionRemoveAllRanges ::
(MonadIO m, DOMDOMSelectionK a) =>
a -> -- _obj
m ()
dOMDOMSelectionRemoveAllRanges _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_dom_selection_remove_all_ranges _obj'
touchManagedPtr _obj
return ()
-- method DOMDOMSelection::select_all_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_select_all_children" webkit_dom_dom_selection_select_all_children ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMSelectionSelectAllChildren ::
(MonadIO m, DOMDOMSelectionK a, DOMNodeK b) =>
a -> -- _obj
b -> -- node
m ()
dOMDOMSelectionSelectAllChildren _obj node = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
onException (do
propagateGError $ webkit_dom_dom_selection_select_all_children _obj' node'
touchManagedPtr _obj
touchManagedPtr node
return ()
) (do
return ()
)
-- method DOMDOMSelection::set_base_and_extent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extentOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extentOffset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_set_base_and_extent" webkit_dom_dom_selection_set_base_and_extent ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr DOMNode -> -- baseNode : TInterface "WebKit" "DOMNode"
Int64 -> -- baseOffset : TBasicType TInt64
Ptr DOMNode -> -- extentNode : TInterface "WebKit" "DOMNode"
Int64 -> -- extentOffset : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMSelectionSetBaseAndExtent ::
(MonadIO m, DOMDOMSelectionK a, DOMNodeK b, DOMNodeK c) =>
a -> -- _obj
b -> -- baseNode
Int64 -> -- baseOffset
c -> -- extentNode
Int64 -> -- extentOffset
m ()
dOMDOMSelectionSetBaseAndExtent _obj baseNode baseOffset extentNode extentOffset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let baseNode' = unsafeManagedPtrCastPtr baseNode
let extentNode' = unsafeManagedPtrCastPtr extentNode
onException (do
propagateGError $ webkit_dom_dom_selection_set_base_and_extent _obj' baseNode' baseOffset extentNode' extentOffset
touchManagedPtr _obj
touchManagedPtr baseNode
touchManagedPtr extentNode
return ()
) (do
return ()
)
-- method DOMDOMSelection::set_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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 = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSelection", 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 = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_selection_set_position" webkit_dom_dom_selection_set_position ::
Ptr DOMDOMSelection -> -- _obj : TInterface "WebKit" "DOMDOMSelection"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
Int64 -> -- offset : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMSelectionSetPosition ::
(MonadIO m, DOMDOMSelectionK a, DOMNodeK b) =>
a -> -- _obj
b -> -- node
Int64 -> -- offset
m ()
dOMDOMSelectionSetPosition _obj node offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
onException (do
propagateGError $ webkit_dom_dom_selection_set_position _obj' node' offset
touchManagedPtr _obj
touchManagedPtr node
return ()
) (do
return ()
)
-- object DOMDOMSettableTokenList
newtype DOMDOMSettableTokenList = DOMDOMSettableTokenList (ForeignPtr DOMDOMSettableTokenList)
noDOMDOMSettableTokenList :: Maybe DOMDOMSettableTokenList
noDOMDOMSettableTokenList = Nothing
foreign import ccall "webkit_dom_dom_settable_token_list_get_type"
c_webkit_dom_dom_settable_token_list_get_type :: IO GType
type instance ParentTypes DOMDOMSettableTokenList = '[DOMDOMTokenList, DOMObject, GObject.Object]
instance GObject DOMDOMSettableTokenList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_settable_token_list_get_type
class GObject o => DOMDOMSettableTokenListK o
instance (GObject o, IsDescendantOf DOMDOMSettableTokenList o) => DOMDOMSettableTokenListK o
toDOMDOMSettableTokenList :: DOMDOMSettableTokenListK o => o -> IO DOMDOMSettableTokenList
toDOMDOMSettableTokenList = unsafeCastTo DOMDOMSettableTokenList
-- method DOMDOMSettableTokenList::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", 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_settable_token_list_get_value" webkit_dom_dom_settable_token_list_get_value ::
Ptr DOMDOMSettableTokenList -> -- _obj : TInterface "WebKit" "DOMDOMSettableTokenList"
IO CString
dOMDOMSettableTokenListGetValue ::
(MonadIO m, DOMDOMSettableTokenListK a) =>
a -> -- _obj
m T.Text
dOMDOMSettableTokenListGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_settable_token_list_get_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDOMSettableTokenList::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMSettableTokenList", 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" "DOMDOMSettableTokenList", 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_settable_token_list_set_value" webkit_dom_dom_settable_token_list_set_value ::
Ptr DOMDOMSettableTokenList -> -- _obj : TInterface "WebKit" "DOMDOMSettableTokenList"
CString -> -- value : TBasicType TUTF8
IO ()
dOMDOMSettableTokenListSetValue ::
(MonadIO m, DOMDOMSettableTokenListK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMDOMSettableTokenListSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_dom_settable_token_list_set_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMDOMStringList
newtype DOMDOMStringList = DOMDOMStringList (ForeignPtr DOMDOMStringList)
noDOMDOMStringList :: Maybe DOMDOMStringList
noDOMDOMStringList = Nothing
foreign import ccall "webkit_dom_dom_string_list_get_type"
c_webkit_dom_dom_string_list_get_type :: IO GType
type instance ParentTypes DOMDOMStringList = '[DOMObject, GObject.Object]
instance GObject DOMDOMStringList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_string_list_get_type
class GObject o => DOMDOMStringListK o
instance (GObject o, IsDescendantOf DOMDOMStringList o) => DOMDOMStringListK o
toDOMDOMStringList :: DOMDOMStringListK o => o -> IO DOMDOMStringList
toDOMDOMStringList = unsafeCastTo DOMDOMStringList
-- method DOMDOMStringList::contains
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", 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" "DOMDOMStringList", 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 TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_string_list_contains" webkit_dom_dom_string_list_contains ::
Ptr DOMDOMStringList -> -- _obj : TInterface "WebKit" "DOMDOMStringList"
CString -> -- string : TBasicType TUTF8
IO CInt
dOMDOMStringListContains ::
(MonadIO m, DOMDOMStringListK a) =>
a -> -- _obj
T.Text -> -- string
m Bool
dOMDOMStringListContains _obj string = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
string' <- textToCString string
result <- webkit_dom_dom_string_list_contains _obj' string'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem string'
return result'
-- method DOMDOMStringList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", 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_string_list_get_length" webkit_dom_dom_string_list_get_length ::
Ptr DOMDOMStringList -> -- _obj : TInterface "WebKit" "DOMDOMStringList"
IO Word64
dOMDOMStringListGetLength ::
(MonadIO m, DOMDOMStringListK a) =>
a -> -- _obj
m Word64
dOMDOMStringListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_string_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMDOMStringList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMStringList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, 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_string_list_item" webkit_dom_dom_string_list_item ::
Ptr DOMDOMStringList -> -- _obj : TInterface "WebKit" "DOMDOMStringList"
Word64 -> -- index : TBasicType TUInt64
IO CString
dOMDOMStringListItem ::
(MonadIO m, DOMDOMStringListK a) =>
a -> -- _obj
Word64 -> -- index
m T.Text
dOMDOMStringListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_string_list_item _obj' index
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- object DOMDOMStringMap
newtype DOMDOMStringMap = DOMDOMStringMap (ForeignPtr DOMDOMStringMap)
noDOMDOMStringMap :: Maybe DOMDOMStringMap
noDOMDOMStringMap = Nothing
foreign import ccall "webkit_dom_dom_string_map_get_type"
c_webkit_dom_dom_string_map_get_type :: IO GType
type instance ParentTypes DOMDOMStringMap = '[DOMObject, GObject.Object]
instance GObject DOMDOMStringMap where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_string_map_get_type
class GObject o => DOMDOMStringMapK o
instance (GObject o, IsDescendantOf DOMDOMStringMap o) => DOMDOMStringMapK o
toDOMDOMStringMap :: DOMDOMStringMapK o => o -> IO DOMDOMStringMap
toDOMDOMStringMap = unsafeCastTo DOMDOMStringMap
-- object DOMDOMTokenList
newtype DOMDOMTokenList = DOMDOMTokenList (ForeignPtr DOMDOMTokenList)
noDOMDOMTokenList :: Maybe DOMDOMTokenList
noDOMDOMTokenList = Nothing
foreign import ccall "webkit_dom_dom_token_list_get_type"
c_webkit_dom_dom_token_list_get_type :: IO GType
type instance ParentTypes DOMDOMTokenList = '[DOMObject, GObject.Object]
instance GObject DOMDOMTokenList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_token_list_get_type
class GObject o => DOMDOMTokenListK o
instance (GObject o, IsDescendantOf DOMDOMTokenList o) => DOMDOMTokenListK o
toDOMDOMTokenList :: DOMDOMTokenListK o => o -> IO DOMDOMTokenList
toDOMDOMTokenList = unsafeCastTo DOMDOMTokenList
-- method DOMDOMTokenList::add
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_token_list_add" webkit_dom_dom_token_list_add ::
Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList"
CString -> -- tokens : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMTokenListAdd ::
(MonadIO m, DOMDOMTokenListK a) =>
a -> -- _obj
T.Text -> -- tokens
m ()
dOMDOMTokenListAdd _obj tokens = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tokens' <- textToCString tokens
onException (do
propagateGError $ webkit_dom_dom_token_list_add _obj' tokens'
touchManagedPtr _obj
freeMem tokens'
return ()
) (do
freeMem tokens'
)
-- method DOMDOMTokenList::contains
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, 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_token_list_contains" webkit_dom_dom_token_list_contains ::
Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList"
CString -> -- token : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
dOMDOMTokenListContains ::
(MonadIO m, DOMDOMTokenListK a) =>
a -> -- _obj
T.Text -> -- token
m ()
dOMDOMTokenListContains _obj token = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
token' <- textToCString token
onException (do
_ <- propagateGError $ webkit_dom_dom_token_list_contains _obj' token'
touchManagedPtr _obj
freeMem token'
return ()
) (do
freeMem token'
)
-- method DOMDOMTokenList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", 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_token_list_get_length" webkit_dom_dom_token_list_get_length ::
Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList"
IO Word64
dOMDOMTokenListGetLength ::
(MonadIO m, DOMDOMTokenListK a) =>
a -> -- _obj
m Word64
dOMDOMTokenListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_token_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMDOMTokenList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, 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_token_list_item" webkit_dom_dom_token_list_item ::
Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList"
Word64 -> -- index : TBasicType TUInt64
IO CString
dOMDOMTokenListItem ::
(MonadIO m, DOMDOMTokenListK a) =>
a -> -- _obj
Word64 -> -- index
m T.Text
dOMDOMTokenListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_token_list_item _obj' index
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDOMTokenList::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tokens", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_dom_token_list_remove" webkit_dom_dom_token_list_remove ::
Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList"
CString -> -- tokens : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMDOMTokenListRemove ::
(MonadIO m, DOMDOMTokenListK a) =>
a -> -- _obj
T.Text -> -- tokens
m ()
dOMDOMTokenListRemove _obj tokens = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tokens' <- textToCString tokens
onException (do
propagateGError $ webkit_dom_dom_token_list_remove _obj' tokens'
touchManagedPtr _obj
freeMem tokens'
return ()
) (do
freeMem tokens'
)
-- method DOMDOMTokenList::toggle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMTokenList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force", argType = TBasicType TBoolean, 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_token_list_toggle" webkit_dom_dom_token_list_toggle ::
Ptr DOMDOMTokenList -> -- _obj : TInterface "WebKit" "DOMDOMTokenList"
CString -> -- token : TBasicType TUTF8
CInt -> -- force : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO CInt
dOMDOMTokenListToggle ::
(MonadIO m, DOMDOMTokenListK a) =>
a -> -- _obj
T.Text -> -- token
Bool -> -- force
m ()
dOMDOMTokenListToggle _obj token force = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
token' <- textToCString token
let force' = (fromIntegral . fromEnum) force
onException (do
_ <- propagateGError $ webkit_dom_dom_token_list_toggle _obj' token' force'
touchManagedPtr _obj
freeMem token'
return ()
) (do
freeMem token'
)
-- object DOMDOMWindow
newtype DOMDOMWindow = DOMDOMWindow (ForeignPtr DOMDOMWindow)
noDOMDOMWindow :: Maybe DOMDOMWindow
noDOMDOMWindow = Nothing
foreign import ccall "webkit_dom_dom_window_get_type"
c_webkit_dom_dom_window_get_type :: IO GType
type instance ParentTypes DOMDOMWindow = '[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
-- 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'
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'
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'
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'
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
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
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'
result' <- (wrapObject DOMWebKitPoint) result
touchManagedPtr _obj
touchManagedPtr node
touchManagedPtr p
return result'
-- object DOMDOMWindowCSS
newtype DOMDOMWindowCSS = DOMDOMWindowCSS (ForeignPtr DOMDOMWindowCSS)
noDOMDOMWindowCSS :: Maybe DOMDOMWindowCSS
noDOMDOMWindowCSS = Nothing
foreign import ccall "webkit_dom_dom_window_css_get_type"
c_webkit_dom_dom_window_css_get_type :: IO GType
type instance ParentTypes DOMDOMWindowCSS = '[DOMObject, GObject.Object]
instance GObject DOMDOMWindowCSS where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_window_css_get_type
class GObject o => DOMDOMWindowCSSK o
instance (GObject o, IsDescendantOf DOMDOMWindowCSS o) => DOMDOMWindowCSSK o
toDOMDOMWindowCSS :: DOMDOMWindowCSSK o => o -> IO DOMDOMWindowCSS
toDOMDOMWindowCSS = unsafeCastTo DOMDOMWindowCSS
-- method DOMDOMWindowCSS::supports
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDOMWindowCSS", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, 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" "DOMDOMWindowCSS", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, 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 TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_dom_window_css_supports" webkit_dom_dom_window_css_supports ::
Ptr DOMDOMWindowCSS -> -- _obj : TInterface "WebKit" "DOMDOMWindowCSS"
CString -> -- property : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
IO CInt
dOMDOMWindowCSSSupports ::
(MonadIO m, DOMDOMWindowCSSK a) =>
a -> -- _obj
T.Text -> -- property
T.Text -> -- value
m Bool
dOMDOMWindowCSSSupports _obj property value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
property' <- textToCString property
value' <- textToCString value
result <- webkit_dom_dom_window_css_supports _obj' property' value'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem property'
freeMem value'
return result'
-- object DOMDatabase
newtype DOMDatabase = DOMDatabase (ForeignPtr DOMDatabase)
noDOMDatabase :: Maybe DOMDatabase
noDOMDatabase = Nothing
foreign import ccall "webkit_dom_database_get_type"
c_webkit_dom_database_get_type :: IO GType
type instance ParentTypes DOMDatabase = '[DOMObject, GObject.Object]
instance GObject DOMDatabase where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_database_get_type
class GObject o => DOMDatabaseK o
instance (GObject o, IsDescendantOf DOMDatabase o) => DOMDatabaseK o
toDOMDatabase :: DOMDatabaseK o => o -> IO DOMDatabase
toDOMDatabase = unsafeCastTo DOMDatabase
-- method DOMDatabase::get_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDatabase", 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_database_get_version" webkit_dom_database_get_version ::
Ptr DOMDatabase -> -- _obj : TInterface "WebKit" "DOMDatabase"
IO CString
dOMDatabaseGetVersion ::
(MonadIO m, DOMDatabaseK a) =>
a -> -- _obj
m T.Text
dOMDatabaseGetVersion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_database_get_version _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- object DOMDocument
newtype DOMDocument = DOMDocument (ForeignPtr DOMDocument)
noDOMDocument :: Maybe DOMDocument
noDOMDocument = Nothing
foreign import ccall "webkit_dom_document_get_type"
c_webkit_dom_document_get_type :: IO GType
type instance ParentTypes DOMDocument = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMDocument where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_document_get_type
class GObject o => DOMDocumentK o
instance (GObject o, IsDescendantOf DOMDocument o) => DOMDocumentK o
toDOMDocument :: DOMDocumentK o => o -> IO DOMDocument
toDOMDocument = unsafeCastTo DOMDocument
-- method DOMDocument::adopt_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_adopt_node" webkit_dom_document_adopt_node ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr DOMNode -> -- source : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMDocumentAdoptNode ::
(MonadIO m, DOMDocumentK a, DOMNodeK b) =>
a -> -- _obj
b -> -- source
m DOMNode
dOMDocumentAdoptNode _obj source = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let source' = unsafeManagedPtrCastPtr source
onException (do
result <- propagateGError $ webkit_dom_document_adopt_node _obj' source'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
touchManagedPtr source
return result'
) (do
return ()
)
-- method DOMDocument::caret_range_from_point
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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 : TInterface "WebKit" "DOMRange"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_caret_range_from_point" webkit_dom_document_caret_range_from_point ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Int64 -> -- x : TBasicType TInt64
Int64 -> -- y : TBasicType TInt64
IO (Ptr DOMRange)
dOMDocumentCaretRangeFromPoint ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
Int64 -> -- x
Int64 -> -- y
m DOMRange
dOMDocumentCaretRangeFromPoint _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_caret_range_from_point _obj' x y
result' <- (wrapObject DOMRange) result
touchManagedPtr _obj
return result'
-- method DOMDocument::create_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAttr"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_attribute" webkit_dom_document_create_attribute ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMAttr)
dOMDocumentCreateAttribute ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- name
m DOMAttr
dOMDocumentCreateAttribute _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
onException (do
result <- propagateGError $ webkit_dom_document_create_attribute _obj' name'
result' <- (newObject DOMAttr) result
touchManagedPtr _obj
freeMem name'
return result'
) (do
freeMem name'
)
-- method DOMDocument::create_attribute_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAttr"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_attribute_ns" webkit_dom_document_create_attribute_ns ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- qualifiedName : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMAttr)
dOMDocumentCreateAttributeNs ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
Maybe (T.Text) -> -- namespaceURI
T.Text -> -- qualifiedName
m DOMAttr
dOMDocumentCreateAttributeNs _obj namespaceURI qualifiedName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeNamespaceURI <- case namespaceURI of
Nothing -> return nullPtr
Just jNamespaceURI -> do
jNamespaceURI' <- textToCString jNamespaceURI
return jNamespaceURI'
qualifiedName' <- textToCString qualifiedName
onException (do
result <- propagateGError $ webkit_dom_document_create_attribute_ns _obj' maybeNamespaceURI qualifiedName'
result' <- (newObject DOMAttr) result
touchManagedPtr _obj
freeMem maybeNamespaceURI
freeMem qualifiedName'
return result'
) (do
freeMem maybeNamespaceURI
freeMem qualifiedName'
)
-- method DOMDocument::create_cdata_section
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCDATASection"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_cdata_section" webkit_dom_document_create_cdata_section ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMCDATASection)
dOMDocumentCreateCdataSection ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- data
m DOMCDATASection
dOMDocumentCreateCdataSection _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
onException (do
result <- propagateGError $ webkit_dom_document_create_cdata_section _obj' data_'
result' <- (newObject DOMCDATASection) result
touchManagedPtr _obj
freeMem data_'
return result'
) (do
freeMem data_'
)
-- method DOMDocument::create_comment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMComment"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_create_comment" webkit_dom_document_create_comment ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- data : TBasicType TUTF8
IO (Ptr DOMComment)
dOMDocumentCreateComment ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- data
m DOMComment
dOMDocumentCreateComment _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
result <- webkit_dom_document_create_comment _obj' data_'
result' <- (newObject DOMComment) result
touchManagedPtr _obj
freeMem data_'
return result'
-- method DOMDocument::create_css_style_declaration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_create_css_style_declaration" webkit_dom_document_create_css_style_declaration ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMCSSStyleDeclaration)
dOMDocumentCreateCssStyleDeclaration ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMCSSStyleDeclaration
dOMDocumentCreateCssStyleDeclaration _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_create_css_style_declaration _obj'
result' <- (wrapObject DOMCSSStyleDeclaration) result
touchManagedPtr _obj
return result'
-- method DOMDocument::create_document_fragment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDocumentFragment"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_create_document_fragment" webkit_dom_document_create_document_fragment ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMDocumentFragment)
dOMDocumentCreateDocumentFragment ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMDocumentFragment
dOMDocumentCreateDocumentFragment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_create_document_fragment _obj'
result' <- (newObject DOMDocumentFragment) result
touchManagedPtr _obj
return result'
-- method DOMDocument::create_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_element" webkit_dom_document_create_element ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- tagName : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMElement)
dOMDocumentCreateElement ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- tagName
m DOMElement
dOMDocumentCreateElement _obj tagName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tagName' <- textToCString tagName
onException (do
result <- propagateGError $ webkit_dom_document_create_element _obj' tagName'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
freeMem tagName'
return result'
) (do
freeMem tagName'
)
-- method DOMDocument::create_element_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_element_ns" webkit_dom_document_create_element_ns ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- qualifiedName : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMElement)
dOMDocumentCreateElementNs ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
Maybe (T.Text) -> -- namespaceURI
T.Text -> -- qualifiedName
m DOMElement
dOMDocumentCreateElementNs _obj namespaceURI qualifiedName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeNamespaceURI <- case namespaceURI of
Nothing -> return nullPtr
Just jNamespaceURI -> do
jNamespaceURI' <- textToCString jNamespaceURI
return jNamespaceURI'
qualifiedName' <- textToCString qualifiedName
onException (do
result <- propagateGError $ webkit_dom_document_create_element_ns _obj' maybeNamespaceURI qualifiedName'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
freeMem maybeNamespaceURI
freeMem qualifiedName'
return result'
) (do
freeMem maybeNamespaceURI
freeMem qualifiedName'
)
-- method DOMDocument::create_entity_reference
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMEntityReference"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_entity_reference" webkit_dom_document_create_entity_reference ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMEntityReference)
dOMDocumentCreateEntityReference ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
Maybe (T.Text) -> -- name
m DOMEntityReference
dOMDocumentCreateEntityReference _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
onException (do
result <- propagateGError $ webkit_dom_document_create_entity_reference _obj' maybeName
result' <- (newObject DOMEntityReference) result
touchManagedPtr _obj
freeMem maybeName
return result'
) (do
freeMem maybeName
)
-- method DOMDocument::create_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventType", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMEvent"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_event" webkit_dom_document_create_event ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- eventType : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMEvent)
dOMDocumentCreateEvent ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- eventType
m DOMEvent
dOMDocumentCreateEvent _obj eventType = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
eventType' <- textToCString eventType
onException (do
result <- propagateGError $ webkit_dom_document_create_event _obj' eventType'
result' <- (wrapObject DOMEvent) result
touchManagedPtr _obj
freeMem eventType'
return result'
) (do
freeMem eventType'
)
-- method DOMDocument::create_expression
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMXPathExpression"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_expression" webkit_dom_document_create_expression ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- expression : TBasicType TUTF8
Ptr DOMXPathNSResolver -> -- resolver : TInterface "WebKit" "DOMXPathNSResolver"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMXPathExpression)
dOMDocumentCreateExpression ::
(MonadIO m, DOMDocumentK a, DOMXPathNSResolverK b) =>
a -> -- _obj
T.Text -> -- expression
b -> -- resolver
m DOMXPathExpression
dOMDocumentCreateExpression _obj expression resolver = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
expression' <- textToCString expression
let resolver' = unsafeManagedPtrCastPtr resolver
onException (do
result <- propagateGError $ webkit_dom_document_create_expression _obj' expression' resolver'
result' <- (wrapObject DOMXPathExpression) result
touchManagedPtr _obj
touchManagedPtr resolver
freeMem expression'
return result'
) (do
freeMem expression'
)
-- method DOMDocument::create_node_iterator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeIterator"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_node_iterator" webkit_dom_document_create_node_iterator ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr DOMNode -> -- root : TInterface "WebKit" "DOMNode"
Word64 -> -- whatToShow : TBasicType TUInt64
Ptr DOMNodeFilter -> -- filter : TInterface "WebKit" "DOMNodeFilter"
CInt -> -- expandEntityReferences : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNodeIterator)
dOMDocumentCreateNodeIterator ::
(MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) =>
a -> -- _obj
b -> -- root
Word64 -> -- whatToShow
c -> -- filter
Bool -> -- expandEntityReferences
m DOMNodeIterator
dOMDocumentCreateNodeIterator _obj root whatToShow filter expandEntityReferences = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let root' = unsafeManagedPtrCastPtr root
let filter' = unsafeManagedPtrCastPtr filter
let expandEntityReferences' = (fromIntegral . fromEnum) expandEntityReferences
onException (do
result <- propagateGError $ webkit_dom_document_create_node_iterator _obj' root' whatToShow filter' expandEntityReferences'
result' <- (wrapObject DOMNodeIterator) result
touchManagedPtr _obj
touchManagedPtr root
touchManagedPtr filter
return result'
) (do
return ()
)
-- method DOMDocument::create_ns_resolver
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nodeResolver", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nodeResolver", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMXPathNSResolver"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_create_ns_resolver" webkit_dom_document_create_ns_resolver ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr DOMNode -> -- nodeResolver : TInterface "WebKit" "DOMNode"
IO (Ptr DOMXPathNSResolver)
dOMDocumentCreateNsResolver ::
(MonadIO m, DOMDocumentK a, DOMNodeK b) =>
a -> -- _obj
b -> -- nodeResolver
m DOMXPathNSResolver
dOMDocumentCreateNsResolver _obj nodeResolver = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let nodeResolver' = unsafeManagedPtrCastPtr nodeResolver
result <- webkit_dom_document_create_ns_resolver _obj' nodeResolver'
result' <- (wrapObject DOMXPathNSResolver) result
touchManagedPtr _obj
touchManagedPtr nodeResolver
return result'
-- method DOMDocument::create_processing_instruction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMProcessingInstruction"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_processing_instruction" webkit_dom_document_create_processing_instruction ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- target : TBasicType TUTF8
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMProcessingInstruction)
dOMDocumentCreateProcessingInstruction ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- target
T.Text -> -- data
m DOMProcessingInstruction
dOMDocumentCreateProcessingInstruction _obj target data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
target' <- textToCString target
data_' <- textToCString data_
onException (do
result <- propagateGError $ webkit_dom_document_create_processing_instruction _obj' target' data_'
result' <- (newObject DOMProcessingInstruction) result
touchManagedPtr _obj
freeMem target'
freeMem data_'
return result'
) (do
freeMem target'
freeMem data_'
)
-- method DOMDocument::create_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMRange"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_create_range" webkit_dom_document_create_range ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMRange)
dOMDocumentCreateRange ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMRange
dOMDocumentCreateRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_create_range _obj'
result' <- (wrapObject DOMRange) result
touchManagedPtr _obj
return result'
-- method DOMDocument::create_text_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMText"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_create_text_node" webkit_dom_document_create_text_node ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- data : TBasicType TUTF8
IO (Ptr DOMText)
dOMDocumentCreateTextNode ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- data
m DOMText
dOMDocumentCreateTextNode _obj data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_' <- textToCString data_
result <- webkit_dom_document_create_text_node _obj' data_'
result' <- (newObject DOMText) result
touchManagedPtr _obj
freeMem data_'
return result'
-- method DOMDocument::create_touch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pageX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pageY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRadiusX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRadiusY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRotationAngle", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitForce", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pageX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pageY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRadiusX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRadiusY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitRotationAngle", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "webkitForce", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTouch"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_touch" webkit_dom_document_create_touch ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr DOMDOMWindow -> -- window : TInterface "WebKit" "DOMDOMWindow"
Ptr DOMEventTarget -> -- target : TInterface "WebKit" "DOMEventTarget"
Int64 -> -- identifier : TBasicType TInt64
Int64 -> -- pageX : TBasicType TInt64
Int64 -> -- pageY : TBasicType TInt64
Int64 -> -- screenX : TBasicType TInt64
Int64 -> -- screenY : TBasicType TInt64
Int64 -> -- webkitRadiusX : TBasicType TInt64
Int64 -> -- webkitRadiusY : TBasicType TInt64
CFloat -> -- webkitRotationAngle : TBasicType TFloat
CFloat -> -- webkitForce : TBasicType TFloat
Ptr (Ptr GError) -> -- error
IO (Ptr DOMTouch)
dOMDocumentCreateTouch ::
(MonadIO m, DOMDocumentK a, DOMDOMWindowK b, DOMEventTargetK c) =>
a -> -- _obj
b -> -- window
c -> -- target
Int64 -> -- identifier
Int64 -> -- pageX
Int64 -> -- pageY
Int64 -> -- screenX
Int64 -> -- screenY
Int64 -> -- webkitRadiusX
Int64 -> -- webkitRadiusY
Float -> -- webkitRotationAngle
Float -> -- webkitForce
m DOMTouch
dOMDocumentCreateTouch _obj window target identifier pageX pageY screenX screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let window' = unsafeManagedPtrCastPtr window
let target' = unsafeManagedPtrCastPtr target
let webkitRotationAngle' = realToFrac webkitRotationAngle
let webkitForce' = realToFrac webkitForce
onException (do
result <- propagateGError $ webkit_dom_document_create_touch _obj' window' target' identifier pageX pageY screenX screenY webkitRadiusX webkitRadiusY webkitRotationAngle' webkitForce'
result' <- (wrapObject DOMTouch) result
touchManagedPtr _obj
touchManagedPtr window
touchManagedPtr target
return result'
) (do
return ()
)
-- method DOMDocument::create_tree_walker
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "whatToShow", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expandEntityReferences", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTreeWalker"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_create_tree_walker" webkit_dom_document_create_tree_walker ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr DOMNode -> -- root : TInterface "WebKit" "DOMNode"
Word64 -> -- whatToShow : TBasicType TUInt64
Ptr DOMNodeFilter -> -- filter : TInterface "WebKit" "DOMNodeFilter"
CInt -> -- expandEntityReferences : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr DOMTreeWalker)
dOMDocumentCreateTreeWalker ::
(MonadIO m, DOMDocumentK a, DOMNodeK b, DOMNodeFilterK c) =>
a -> -- _obj
b -> -- root
Word64 -> -- whatToShow
c -> -- filter
Bool -> -- expandEntityReferences
m DOMTreeWalker
dOMDocumentCreateTreeWalker _obj root whatToShow filter expandEntityReferences = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let root' = unsafeManagedPtrCastPtr root
let filter' = unsafeManagedPtrCastPtr filter
let expandEntityReferences' = (fromIntegral . fromEnum) expandEntityReferences
onException (do
result <- propagateGError $ webkit_dom_document_create_tree_walker _obj' root' whatToShow filter' expandEntityReferences'
result' <- (wrapObject DOMTreeWalker) result
touchManagedPtr _obj
touchManagedPtr root
touchManagedPtr filter
return result'
) (do
return ()
)
-- method DOMDocument::element_from_point
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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 : TInterface "WebKit" "DOMElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_element_from_point" webkit_dom_document_element_from_point ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Int64 -> -- x : TBasicType TInt64
Int64 -> -- y : TBasicType TInt64
IO (Ptr DOMElement)
dOMDocumentElementFromPoint ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
Int64 -> -- x
Int64 -> -- y
m DOMElement
dOMDocumentElementFromPoint _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_element_from_point _obj' x y
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMDocument::evaluate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMXPathResult"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_evaluate" webkit_dom_document_evaluate ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- expression : TBasicType TUTF8
Ptr DOMNode -> -- contextNode : TInterface "WebKit" "DOMNode"
Ptr DOMXPathNSResolver -> -- resolver : TInterface "WebKit" "DOMXPathNSResolver"
Word16 -> -- type : TBasicType TUInt16
Ptr DOMXPathResult -> -- inResult : TInterface "WebKit" "DOMXPathResult"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMXPathResult)
dOMDocumentEvaluate ::
(MonadIO m, DOMDocumentK a, DOMNodeK b, DOMXPathNSResolverK c, DOMXPathResultK d) =>
a -> -- _obj
T.Text -> -- expression
b -> -- contextNode
Maybe (c) -> -- resolver
Word16 -> -- type
Maybe (d) -> -- inResult
m DOMXPathResult
dOMDocumentEvaluate _obj expression contextNode resolver type_ inResult = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
expression' <- textToCString expression
let contextNode' = unsafeManagedPtrCastPtr contextNode
maybeResolver <- case resolver of
Nothing -> return nullPtr
Just jResolver -> do
let jResolver' = unsafeManagedPtrCastPtr jResolver
return jResolver'
maybeInResult <- case inResult of
Nothing -> return nullPtr
Just jInResult -> do
let jInResult' = unsafeManagedPtrCastPtr jInResult
return jInResult'
onException (do
result <- propagateGError $ webkit_dom_document_evaluate _obj' expression' contextNode' maybeResolver type_ maybeInResult
result' <- (wrapObject DOMXPathResult) result
touchManagedPtr _obj
touchManagedPtr contextNode
whenJust resolver touchManagedPtr
whenJust inResult touchManagedPtr
freeMem expression'
return result'
) (do
freeMem expression'
)
-- method DOMDocument::exec_command
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "userInterface", argType = TBasicType TBoolean, 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" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "userInterface", argType = TBasicType TBoolean, 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 TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_exec_command" webkit_dom_document_exec_command ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- command : TBasicType TUTF8
CInt -> -- userInterface : TBasicType TBoolean
CString -> -- value : TBasicType TUTF8
IO CInt
dOMDocumentExecCommand ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- command
Bool -> -- userInterface
T.Text -> -- value
m Bool
dOMDocumentExecCommand _obj command userInterface value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
command' <- textToCString command
let userInterface' = (fromIntegral . fromEnum) userInterface
value' <- textToCString value
result <- webkit_dom_document_exec_command _obj' command' userInterface' value'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem command'
freeMem value'
return result'
-- method DOMDocument::get_anchors
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_anchors" webkit_dom_document_get_anchors ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMHTMLCollection)
dOMDocumentGetAnchors ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMDocumentGetAnchors _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_anchors _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_applets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_applets" webkit_dom_document_get_applets ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMHTMLCollection)
dOMDocumentGetApplets ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMDocumentGetApplets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_applets _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_body
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_body" webkit_dom_document_get_body ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMHTMLElement)
dOMDocumentGetBody ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMHTMLElement
dOMDocumentGetBody _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_body _obj'
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_character_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_character_set" webkit_dom_document_get_character_set ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetCharacterSet ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetCharacterSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_character_set _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_charset" webkit_dom_document_get_charset ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetCharset ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_charset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_compat_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_compat_mode" webkit_dom_document_get_compat_mode ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetCompatMode ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetCompatMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_compat_mode _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_cookie
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_cookie" webkit_dom_document_get_cookie ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr (Ptr GError) -> -- error
IO CString
dOMDocumentGetCookie ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetCookie _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_document_get_cookie _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMDocument::get_current_script
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLScriptElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_current_script" webkit_dom_document_get_current_script ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMHTMLScriptElement)
dOMDocumentGetCurrentScript ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMHTMLScriptElement
dOMDocumentGetCurrentScript _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_current_script _obj'
result' <- (newObject DOMHTMLScriptElement) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_default_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_default_charset" webkit_dom_document_get_default_charset ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetDefaultCharset ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetDefaultCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_default_charset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_default_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_default_view" webkit_dom_document_get_default_view ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMDOMWindow)
dOMDocumentGetDefaultView ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMDOMWindow
dOMDocumentGetDefaultView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_default_view _obj'
result' <- (wrapObject DOMDOMWindow) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_doctype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDocumentType"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_doctype" webkit_dom_document_get_doctype ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMDocumentType)
dOMDocumentGetDoctype ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMDocumentType
dOMDocumentGetDoctype _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_doctype _obj'
result' <- (newObject DOMDocumentType) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_document_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_document_element" webkit_dom_document_get_document_element ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMElement)
dOMDocumentGetDocumentElement ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMElement
dOMDocumentGetDocumentElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_document_element _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_document_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_document_uri" webkit_dom_document_get_document_uri ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetDocumentUri ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetDocumentUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_document_uri _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_domain
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_domain" webkit_dom_document_get_domain ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetDomain ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetDomain _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_domain _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_element_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementId", argType = TBasicType TUTF8, 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_document_get_element_by_id" webkit_dom_document_get_element_by_id ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- elementId : TBasicType TUTF8
IO (Ptr DOMElement)
dOMDocumentGetElementById ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- elementId
m DOMElement
dOMDocumentGetElementById _obj elementId = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
elementId' <- textToCString elementId
result <- webkit_dom_document_get_element_by_id _obj' elementId'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
freeMem elementId'
return result'
-- method DOMDocument::get_elements_by_class_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_elements_by_class_name" webkit_dom_document_get_elements_by_class_name ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- tagname : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMDocumentGetElementsByClassName ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- tagname
m DOMNodeList
dOMDocumentGetElementsByClassName _obj tagname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tagname' <- textToCString tagname
result <- webkit_dom_document_get_elements_by_class_name _obj' tagname'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem tagname'
return result'
-- method DOMDocument::get_elements_by_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_elements_by_name" webkit_dom_document_get_elements_by_name ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- elementName : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMDocumentGetElementsByName ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- elementName
m DOMNodeList
dOMDocumentGetElementsByName _obj elementName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
elementName' <- textToCString elementName
result <- webkit_dom_document_get_elements_by_name _obj' elementName'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem elementName'
return result'
-- method DOMDocument::get_elements_by_tag_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_elements_by_tag_name" webkit_dom_document_get_elements_by_tag_name ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- tagname : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMDocumentGetElementsByTagName ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- tagname
m DOMNodeList
dOMDocumentGetElementsByTagName _obj tagname = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tagname' <- textToCString tagname
result <- webkit_dom_document_get_elements_by_tag_name _obj' tagname'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem tagname'
return result'
-- method DOMDocument::get_elements_by_tag_name_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_elements_by_tag_name_ns" webkit_dom_document_get_elements_by_tag_name_ns ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMDocumentGetElementsByTagNameNs ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m DOMNodeList
dOMDocumentGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
result <- webkit_dom_document_get_elements_by_tag_name_ns _obj' namespaceURI' localName'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
-- method DOMDocument::get_forms
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_forms" webkit_dom_document_get_forms ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMHTMLCollection)
dOMDocumentGetForms ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMDocumentGetForms _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_forms _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_head
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLHeadElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_head" webkit_dom_document_get_head ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMHTMLHeadElement)
dOMDocumentGetHead ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMHTMLHeadElement
dOMDocumentGetHead _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_head _obj'
result' <- (newObject DOMHTMLHeadElement) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_hidden" webkit_dom_document_get_hidden ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CInt
dOMDocumentGetHidden ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m Bool
dOMDocumentGetHidden _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_hidden _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_images
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_images" webkit_dom_document_get_images ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMHTMLCollection)
dOMDocumentGetImages ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMDocumentGetImages _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_images _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_implementation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMImplementation"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_implementation" webkit_dom_document_get_implementation ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMDOMImplementation)
dOMDocumentGetImplementation ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMDOMImplementation
dOMDocumentGetImplementation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_implementation _obj'
result' <- (wrapObject DOMDOMImplementation) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_input_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_input_encoding" webkit_dom_document_get_input_encoding ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetInputEncoding ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetInputEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_input_encoding _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_last_modified
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_last_modified" webkit_dom_document_get_last_modified ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetLastModified ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetLastModified _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_last_modified _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_links
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_links" webkit_dom_document_get_links ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMHTMLCollection)
dOMDocumentGetLinks ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMDocumentGetLinks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_links _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_override_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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_document_get_override_style" webkit_dom_document_get_override_style ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr DOMElement -> -- element : TInterface "WebKit" "DOMElement"
CString -> -- pseudoElement : TBasicType TUTF8
IO (Ptr DOMCSSStyleDeclaration)
dOMDocumentGetOverrideStyle ::
(MonadIO m, DOMDocumentK a, DOMElementK b) =>
a -> -- _obj
b -> -- element
Maybe (T.Text) -> -- pseudoElement
m DOMCSSStyleDeclaration
dOMDocumentGetOverrideStyle _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_document_get_override_style _obj' element' maybePseudoElement
result' <- (wrapObject DOMCSSStyleDeclaration) result
touchManagedPtr _obj
touchManagedPtr element
freeMem maybePseudoElement
return result'
-- method DOMDocument::get_preferred_stylesheet_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_preferred_stylesheet_set" webkit_dom_document_get_preferred_stylesheet_set ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetPreferredStylesheetSet ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetPreferredStylesheetSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_preferred_stylesheet_set _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_ready_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_ready_state" webkit_dom_document_get_ready_state ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetReadyState ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetReadyState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_ready_state _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_referrer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_referrer" webkit_dom_document_get_referrer ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetReferrer ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetReferrer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_referrer _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_security_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMSecurityPolicy"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_security_policy" webkit_dom_document_get_security_policy ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMDOMSecurityPolicy)
dOMDocumentGetSecurityPolicy ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMDOMSecurityPolicy
dOMDocumentGetSecurityPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_security_policy _obj'
result' <- (wrapObject DOMDOMSecurityPolicy) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_selected_stylesheet_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_selected_stylesheet_set" webkit_dom_document_get_selected_stylesheet_set ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetSelectedStylesheetSet ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetSelectedStylesheetSet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_selected_stylesheet_set _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_style_sheets
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMStyleSheetList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_get_style_sheets" webkit_dom_document_get_style_sheets ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMStyleSheetList)
dOMDocumentGetStyleSheets ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMStyleSheetList
dOMDocumentGetStyleSheets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_style_sheets _obj'
result' <- (newObject DOMStyleSheetList) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_title" webkit_dom_document_get_title ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetTitle ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_title _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_url
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_url" webkit_dom_document_get_url ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetUrl ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetUrl _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_url _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_visibility_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_visibility_state" webkit_dom_document_get_visibility_state ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetVisibilityState ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetVisibilityState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_visibility_state _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_webkit_current_full_screen_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_webkit_current_full_screen_element" webkit_dom_document_get_webkit_current_full_screen_element ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMElement)
dOMDocumentGetWebkitCurrentFullScreenElement ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMElement
dOMDocumentGetWebkitCurrentFullScreenElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_webkit_current_full_screen_element _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_webkit_full_screen_keyboard_input_allowed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_webkit_full_screen_keyboard_input_allowed" webkit_dom_document_get_webkit_full_screen_keyboard_input_allowed ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CInt
dOMDocumentGetWebkitFullScreenKeyboardInputAllowed ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m Bool
dOMDocumentGetWebkitFullScreenKeyboardInputAllowed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_webkit_full_screen_keyboard_input_allowed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_webkit_fullscreen_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_webkit_fullscreen_element" webkit_dom_document_get_webkit_fullscreen_element ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMElement)
dOMDocumentGetWebkitFullscreenElement ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMElement
dOMDocumentGetWebkitFullscreenElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_webkit_fullscreen_element _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_webkit_fullscreen_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_webkit_fullscreen_enabled" webkit_dom_document_get_webkit_fullscreen_enabled ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CInt
dOMDocumentGetWebkitFullscreenEnabled ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m Bool
dOMDocumentGetWebkitFullscreenEnabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_webkit_fullscreen_enabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_webkit_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_webkit_hidden" webkit_dom_document_get_webkit_hidden ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CInt
{-# DEPRECATED dOMDocumentGetWebkitHidden ["(Since version 2.2)"]#-}
dOMDocumentGetWebkitHidden ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m Bool
dOMDocumentGetWebkitHidden _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_webkit_hidden _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_webkit_is_full_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_webkit_is_full_screen" webkit_dom_document_get_webkit_is_full_screen ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CInt
dOMDocumentGetWebkitIsFullScreen ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m Bool
dOMDocumentGetWebkitIsFullScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_webkit_is_full_screen _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_webkit_pointer_lock_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_webkit_pointer_lock_element" webkit_dom_document_get_webkit_pointer_lock_element ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMElement)
dOMDocumentGetWebkitPointerLockElement ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMElement
dOMDocumentGetWebkitPointerLockElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_webkit_pointer_lock_element _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_webkit_visibility_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_webkit_visibility_state" webkit_dom_document_get_webkit_visibility_state ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
{-# DEPRECATED dOMDocumentGetWebkitVisibilityState ["(Since version 2.2)"]#-}
dOMDocumentGetWebkitVisibilityState ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetWebkitVisibilityState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_webkit_visibility_state _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_xml_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_xml_encoding" webkit_dom_document_get_xml_encoding ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetXmlEncoding ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetXmlEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_xml_encoding _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_xml_standalone
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_xml_standalone" webkit_dom_document_get_xml_standalone ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CInt
dOMDocumentGetXmlStandalone ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m Bool
dOMDocumentGetXmlStandalone _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_xml_standalone _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMDocument::get_xml_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_get_xml_version" webkit_dom_document_get_xml_version ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO CString
dOMDocumentGetXmlVersion ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m T.Text
dOMDocumentGetXmlVersion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_get_xml_version _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocument::import_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "importedNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "importedNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_import_node" webkit_dom_document_import_node ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr DOMNode -> -- importedNode : TInterface "WebKit" "DOMNode"
CInt -> -- deep : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMDocumentImportNode ::
(MonadIO m, DOMDocumentK a, DOMNodeK b) =>
a -> -- _obj
b -> -- importedNode
Bool -> -- deep
m DOMNode
dOMDocumentImportNode _obj importedNode deep = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let importedNode' = unsafeManagedPtrCastPtr importedNode
let deep' = (fromIntegral . fromEnum) deep
onException (do
result <- propagateGError $ webkit_dom_document_import_node _obj' importedNode' deep'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
touchManagedPtr importedNode
return result'
) (do
return ()
)
-- method DOMDocument::query_command_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_query_command_enabled" webkit_dom_document_query_command_enabled ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- command : TBasicType TUTF8
IO CInt
dOMDocumentQueryCommandEnabled ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- command
m Bool
dOMDocumentQueryCommandEnabled _obj command = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
command' <- textToCString command
result <- webkit_dom_document_query_command_enabled _obj' command'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem command'
return result'
-- method DOMDocument::query_command_indeterm
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_query_command_indeterm" webkit_dom_document_query_command_indeterm ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- command : TBasicType TUTF8
IO CInt
dOMDocumentQueryCommandIndeterm ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- command
m Bool
dOMDocumentQueryCommandIndeterm _obj command = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
command' <- textToCString command
result <- webkit_dom_document_query_command_indeterm _obj' command'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem command'
return result'
-- method DOMDocument::query_command_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_query_command_state" webkit_dom_document_query_command_state ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- command : TBasicType TUTF8
IO CInt
dOMDocumentQueryCommandState ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- command
m Bool
dOMDocumentQueryCommandState _obj command = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
command' <- textToCString command
result <- webkit_dom_document_query_command_state _obj' command'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem command'
return result'
-- method DOMDocument::query_command_supported
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_query_command_supported" webkit_dom_document_query_command_supported ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- command : TBasicType TUTF8
IO CInt
dOMDocumentQueryCommandSupported ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- command
m Bool
dOMDocumentQueryCommandSupported _obj command = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
command' <- textToCString command
result <- webkit_dom_document_query_command_supported _obj' command'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem command'
return result'
-- method DOMDocument::query_command_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "command", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_query_command_value" webkit_dom_document_query_command_value ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- command : TBasicType TUTF8
IO CString
dOMDocumentQueryCommandValue ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- command
m T.Text
dOMDocumentQueryCommandValue _obj command = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
command' <- textToCString command
result <- webkit_dom_document_query_command_value _obj' command'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem command'
return result'
-- method DOMDocument::query_selector
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_query_selector" webkit_dom_document_query_selector ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- selectors : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMElement)
dOMDocumentQuerySelector ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- selectors
m DOMElement
dOMDocumentQuerySelector _obj selectors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
selectors' <- textToCString selectors
onException (do
result <- propagateGError $ webkit_dom_document_query_selector _obj' selectors'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
freeMem selectors'
return result'
) (do
freeMem selectors'
)
-- method DOMDocument::query_selector_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_query_selector_all" webkit_dom_document_query_selector_all ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- selectors : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNodeList)
dOMDocumentQuerySelectorAll ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- selectors
m DOMNodeList
dOMDocumentQuerySelectorAll _obj selectors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
selectors' <- textToCString selectors
onException (do
result <- propagateGError $ webkit_dom_document_query_selector_all _obj' selectors'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem selectors'
return result'
) (do
freeMem selectors'
)
-- method DOMDocument::set_body
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_set_body" webkit_dom_document_set_body ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
Ptr DOMHTMLElement -> -- value : TInterface "WebKit" "DOMHTMLElement"
Ptr (Ptr GError) -> -- error
IO ()
dOMDocumentSetBody ::
(MonadIO m, DOMDocumentK a, DOMHTMLElementK b) =>
a -> -- _obj
b -> -- value
m ()
dOMDocumentSetBody _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = unsafeManagedPtrCastPtr value
onException (do
propagateGError $ webkit_dom_document_set_body _obj' value'
touchManagedPtr _obj
touchManagedPtr value
return ()
) (do
return ()
)
-- method DOMDocument::set_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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_document_set_charset" webkit_dom_document_set_charset ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMDocumentSetCharset ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMDocumentSetCharset _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_document_set_charset _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMDocument::set_cookie
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_document_set_cookie" webkit_dom_document_set_cookie ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMDocumentSetCookie ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMDocumentSetCookie _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_document_set_cookie _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMDocument::set_document_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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_document_set_document_uri" webkit_dom_document_set_document_uri ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMDocumentSetDocumentUri ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMDocumentSetDocumentUri _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_document_set_document_uri _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMDocument::set_selected_stylesheet_set
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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_document_set_selected_stylesheet_set" webkit_dom_document_set_selected_stylesheet_set ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMDocumentSetSelectedStylesheetSet ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMDocumentSetSelectedStylesheetSet _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_document_set_selected_stylesheet_set _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMDocument::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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_document_set_title" webkit_dom_document_set_title ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMDocumentSetTitle ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMDocumentSetTitle _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_document_set_title _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMDocument::set_xml_standalone
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_set_xml_standalone" webkit_dom_document_set_xml_standalone ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CInt -> -- value : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO ()
dOMDocumentSetXmlStandalone ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMDocumentSetXmlStandalone _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
onException (do
propagateGError $ webkit_dom_document_set_xml_standalone _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMDocument::set_xml_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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" "DOMDocument", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_document_set_xml_version" webkit_dom_document_set_xml_version ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMDocumentSetXmlVersion ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMDocumentSetXmlVersion _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_document_set_xml_version _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMDocument::webkit_cancel_full_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_webkit_cancel_full_screen" webkit_dom_document_webkit_cancel_full_screen ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO ()
dOMDocumentWebkitCancelFullScreen ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m ()
dOMDocumentWebkitCancelFullScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_document_webkit_cancel_full_screen _obj'
touchManagedPtr _obj
return ()
-- method DOMDocument::webkit_exit_fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_webkit_exit_fullscreen" webkit_dom_document_webkit_exit_fullscreen ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO ()
dOMDocumentWebkitExitFullscreen ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m ()
dOMDocumentWebkitExitFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_document_webkit_exit_fullscreen _obj'
touchManagedPtr _obj
return ()
-- method DOMDocument::webkit_exit_pointer_lock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", 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_document_webkit_exit_pointer_lock" webkit_dom_document_webkit_exit_pointer_lock ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO ()
dOMDocumentWebkitExitPointerLock ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m ()
dOMDocumentWebkitExitPointerLock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_document_webkit_exit_pointer_lock _obj'
touchManagedPtr _obj
return ()
-- method DOMDocument::webkit_get_named_flows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMNamedFlowCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_webkit_get_named_flows" webkit_dom_document_webkit_get_named_flows ::
Ptr DOMDocument -> -- _obj : TInterface "WebKit" "DOMDocument"
IO (Ptr DOMDOMNamedFlowCollection)
dOMDocumentWebkitGetNamedFlows ::
(MonadIO m, DOMDocumentK a) =>
a -> -- _obj
m DOMDOMNamedFlowCollection
dOMDocumentWebkitGetNamedFlows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_webkit_get_named_flows _obj'
result' <- (wrapObject DOMDOMNamedFlowCollection) result
touchManagedPtr _obj
return result'
-- object DOMDocumentFragment
newtype DOMDocumentFragment = DOMDocumentFragment (ForeignPtr DOMDocumentFragment)
noDOMDocumentFragment :: Maybe DOMDocumentFragment
noDOMDocumentFragment = Nothing
foreign import ccall "webkit_dom_document_fragment_get_type"
c_webkit_dom_document_fragment_get_type :: IO GType
type instance ParentTypes DOMDocumentFragment = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMDocumentFragment where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_document_fragment_get_type
class GObject o => DOMDocumentFragmentK o
instance (GObject o, IsDescendantOf DOMDocumentFragment o) => DOMDocumentFragmentK o
toDOMDocumentFragment :: DOMDocumentFragmentK o => o -> IO DOMDocumentFragment
toDOMDocumentFragment = unsafeCastTo DOMDocumentFragment
-- method DOMDocumentFragment::query_selector
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_fragment_query_selector" webkit_dom_document_fragment_query_selector ::
Ptr DOMDocumentFragment -> -- _obj : TInterface "WebKit" "DOMDocumentFragment"
CString -> -- selectors : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMElement)
dOMDocumentFragmentQuerySelector ::
(MonadIO m, DOMDocumentFragmentK a) =>
a -> -- _obj
T.Text -> -- selectors
m DOMElement
dOMDocumentFragmentQuerySelector _obj selectors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
selectors' <- textToCString selectors
onException (do
result <- propagateGError $ webkit_dom_document_fragment_query_selector _obj' selectors'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
freeMem selectors'
return result'
) (do
freeMem selectors'
)
-- method DOMDocumentFragment::query_selector_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentFragment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_fragment_query_selector_all" webkit_dom_document_fragment_query_selector_all ::
Ptr DOMDocumentFragment -> -- _obj : TInterface "WebKit" "DOMDocumentFragment"
CString -> -- selectors : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNodeList)
dOMDocumentFragmentQuerySelectorAll ::
(MonadIO m, DOMDocumentFragmentK a) =>
a -> -- _obj
T.Text -> -- selectors
m DOMNodeList
dOMDocumentFragmentQuerySelectorAll _obj selectors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
selectors' <- textToCString selectors
onException (do
result <- propagateGError $ webkit_dom_document_fragment_query_selector_all _obj' selectors'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem selectors'
return result'
) (do
freeMem selectors'
)
-- object DOMDocumentType
newtype DOMDocumentType = DOMDocumentType (ForeignPtr DOMDocumentType)
noDOMDocumentType :: Maybe DOMDocumentType
noDOMDocumentType = Nothing
foreign import ccall "webkit_dom_document_type_get_type"
c_webkit_dom_document_type_get_type :: IO GType
type instance ParentTypes DOMDocumentType = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMDocumentType where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_document_type_get_type
class GObject o => DOMDocumentTypeK o
instance (GObject o, IsDescendantOf DOMDocumentType o) => DOMDocumentTypeK o
toDOMDocumentType :: DOMDocumentTypeK o => o -> IO DOMDocumentType
toDOMDocumentType = unsafeCastTo DOMDocumentType
-- method DOMDocumentType::get_entities
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNamedNodeMap"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_type_get_entities" webkit_dom_document_type_get_entities ::
Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType"
IO (Ptr DOMNamedNodeMap)
dOMDocumentTypeGetEntities ::
(MonadIO m, DOMDocumentTypeK a) =>
a -> -- _obj
m DOMNamedNodeMap
dOMDocumentTypeGetEntities _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_entities _obj'
result' <- (wrapObject DOMNamedNodeMap) result
touchManagedPtr _obj
return result'
-- method DOMDocumentType::get_internal_subset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", 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_document_type_get_internal_subset" webkit_dom_document_type_get_internal_subset ::
Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType"
IO CString
dOMDocumentTypeGetInternalSubset ::
(MonadIO m, DOMDocumentTypeK a) =>
a -> -- _obj
m T.Text
dOMDocumentTypeGetInternalSubset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_internal_subset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocumentType::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", 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_document_type_get_name" webkit_dom_document_type_get_name ::
Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType"
IO CString
dOMDocumentTypeGetName ::
(MonadIO m, DOMDocumentTypeK a) =>
a -> -- _obj
m T.Text
dOMDocumentTypeGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocumentType::get_notations
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNamedNodeMap"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_document_type_get_notations" webkit_dom_document_type_get_notations ::
Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType"
IO (Ptr DOMNamedNodeMap)
dOMDocumentTypeGetNotations ::
(MonadIO m, DOMDocumentTypeK a) =>
a -> -- _obj
m DOMNamedNodeMap
dOMDocumentTypeGetNotations _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_notations _obj'
result' <- (wrapObject DOMNamedNodeMap) result
touchManagedPtr _obj
return result'
-- method DOMDocumentType::get_public_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", 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_document_type_get_public_id" webkit_dom_document_type_get_public_id ::
Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType"
IO CString
dOMDocumentTypeGetPublicId ::
(MonadIO m, DOMDocumentTypeK a) =>
a -> -- _obj
m T.Text
dOMDocumentTypeGetPublicId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_public_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocumentType::get_system_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", 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_document_type_get_system_id" webkit_dom_document_type_get_system_id ::
Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType"
IO CString
dOMDocumentTypeGetSystemId ::
(MonadIO m, DOMDocumentTypeK a) =>
a -> -- _obj
m T.Text
dOMDocumentTypeGetSystemId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_document_type_get_system_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMDocumentType::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_document_type_remove" webkit_dom_document_type_remove ::
Ptr DOMDocumentType -> -- _obj : TInterface "WebKit" "DOMDocumentType"
Ptr (Ptr GError) -> -- error
IO ()
dOMDocumentTypeRemove ::
(MonadIO m, DOMDocumentTypeK a) =>
a -> -- _obj
m ()
dOMDocumentTypeRemove _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_document_type_remove _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- object DOMElement
newtype DOMElement = DOMElement (ForeignPtr DOMElement)
noDOMElement :: Maybe DOMElement
noDOMElement = Nothing
foreign import ccall "webkit_dom_element_get_type"
c_webkit_dom_element_get_type :: IO GType
type instance ParentTypes DOMElement = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_element_get_type
class GObject o => DOMElementK o
instance (GObject o, IsDescendantOf DOMElement o) => DOMElementK o
toDOMElement :: DOMElementK o => o -> IO DOMElement
toDOMElement = unsafeCastTo DOMElement
-- method DOMElement::blur
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_blur" webkit_dom_element_blur ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO ()
dOMElementBlur ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m ()
dOMElementBlur _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_blur _obj'
touchManagedPtr _obj
return ()
-- method DOMElement::focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_focus" webkit_dom_element_focus ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO ()
dOMElementFocus ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m ()
dOMElementFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_focus _obj'
touchManagedPtr _obj
return ()
-- method DOMElement::get_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", 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_element_get_attribute" webkit_dom_element_get_attribute ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- name : TBasicType TUTF8
IO CString
dOMElementGetAttribute ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- name
m T.Text
dOMElementGetAttribute _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_element_get_attribute _obj' name'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMElement::get_attribute_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAttr"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_get_attribute_node" webkit_dom_element_get_attribute_node ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMAttr)
dOMElementGetAttributeNode ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- name
m DOMAttr
dOMElementGetAttributeNode _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_element_get_attribute_node _obj' name'
result' <- (newObject DOMAttr) result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMElement::get_attribute_node_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAttr"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_get_attribute_node_ns" webkit_dom_element_get_attribute_node_ns ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
IO (Ptr DOMAttr)
dOMElementGetAttributeNodeNs ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m DOMAttr
dOMElementGetAttributeNodeNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
result <- webkit_dom_element_get_attribute_node_ns _obj' namespaceURI' localName'
result' <- (newObject DOMAttr) result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
-- method DOMElement::get_attribute_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", 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_element_get_attribute_ns" webkit_dom_element_get_attribute_ns ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
IO CString
dOMElementGetAttributeNs ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m T.Text
dOMElementGetAttributeNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
result <- webkit_dom_element_get_attribute_ns _obj' namespaceURI' localName'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
-- method DOMElement::get_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNamedNodeMap"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_get_attributes" webkit_dom_element_get_attributes ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO (Ptr DOMNamedNodeMap)
dOMElementGetAttributes ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m DOMNamedNodeMap
dOMElementGetAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_attributes _obj'
result' <- (wrapObject DOMNamedNodeMap) result
touchManagedPtr _obj
return result'
-- method DOMElement::get_child_element_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_child_element_count" webkit_dom_element_get_child_element_count ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Word64
dOMElementGetChildElementCount ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Word64
dOMElementGetChildElementCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_child_element_count _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_class_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMTokenList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_get_class_list" webkit_dom_element_get_class_list ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO (Ptr DOMDOMTokenList)
dOMElementGetClassList ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m DOMDOMTokenList
dOMElementGetClassList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_class_list _obj'
result' <- (wrapObject DOMDOMTokenList) result
touchManagedPtr _obj
return result'
-- method DOMElement::get_class_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_class_name" webkit_dom_element_get_class_name ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO CString
dOMElementGetClassName ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m T.Text
dOMElementGetClassName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_class_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMElement::get_client_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_client_height" webkit_dom_element_get_client_height ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetClientHeight ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetClientHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_client_height _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_client_left
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_client_left" webkit_dom_element_get_client_left ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetClientLeft ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetClientLeft _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_client_left _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_client_top
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_client_top" webkit_dom_element_get_client_top ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetClientTop ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetClientTop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_client_top _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_client_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_client_width" webkit_dom_element_get_client_width ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetClientWidth ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetClientWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_client_width _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_elements_by_class_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_get_elements_by_class_name" webkit_dom_element_get_elements_by_class_name ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMElementGetElementsByClassName ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- name
m DOMNodeList
dOMElementGetElementsByClassName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_element_get_elements_by_class_name _obj' name'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMElement::get_elements_by_tag_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_get_elements_by_tag_name" webkit_dom_element_get_elements_by_tag_name ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMElementGetElementsByTagName ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- name
m DOMNodeList
dOMElementGetElementsByTagName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_element_get_elements_by_tag_name _obj' name'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMElement::get_elements_by_tag_name_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_get_elements_by_tag_name_ns" webkit_dom_element_get_elements_by_tag_name_ns ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMElementGetElementsByTagNameNs ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m DOMNodeList
dOMElementGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
result <- webkit_dom_element_get_elements_by_tag_name_ns _obj' namespaceURI' localName'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
-- method DOMElement::get_first_element_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_first_element_child" webkit_dom_element_get_first_element_child ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO (Ptr DOMElement)
dOMElementGetFirstElementChild ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m DOMElement
dOMElementGetFirstElementChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_first_element_child _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMElement::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_id" webkit_dom_element_get_id ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO CString
dOMElementGetId ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m T.Text
dOMElementGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMElement::get_last_element_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_last_element_child" webkit_dom_element_get_last_element_child ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO (Ptr DOMElement)
dOMElementGetLastElementChild ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m DOMElement
dOMElementGetLastElementChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_last_element_child _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMElement::get_next_element_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_next_element_sibling" webkit_dom_element_get_next_element_sibling ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO (Ptr DOMElement)
dOMElementGetNextElementSibling ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m DOMElement
dOMElementGetNextElementSibling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_next_element_sibling _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMElement::get_offset_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_offset_height" webkit_dom_element_get_offset_height ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetOffsetHeight ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetOffsetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_offset_height _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_offset_left
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_offset_left" webkit_dom_element_get_offset_left ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetOffsetLeft ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetOffsetLeft _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_offset_left _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_offset_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_offset_parent" webkit_dom_element_get_offset_parent ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO (Ptr DOMElement)
dOMElementGetOffsetParent ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m DOMElement
dOMElementGetOffsetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_offset_parent _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMElement::get_offset_top
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_offset_top" webkit_dom_element_get_offset_top ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetOffsetTop ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetOffsetTop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_offset_top _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_offset_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_offset_width" webkit_dom_element_get_offset_width ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetOffsetWidth ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetOffsetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_offset_width _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_previous_element_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_previous_element_sibling" webkit_dom_element_get_previous_element_sibling ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO (Ptr DOMElement)
dOMElementGetPreviousElementSibling ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m DOMElement
dOMElementGetPreviousElementSibling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_previous_element_sibling _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMElement::get_scroll_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_scroll_height" webkit_dom_element_get_scroll_height ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetScrollHeight ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetScrollHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_scroll_height _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_scroll_left
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_scroll_left" webkit_dom_element_get_scroll_left ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetScrollLeft ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetScrollLeft _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_scroll_left _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_scroll_top
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_scroll_top" webkit_dom_element_get_scroll_top ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetScrollTop ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetScrollTop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_scroll_top _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_scroll_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_scroll_width" webkit_dom_element_get_scroll_width ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO Int64
dOMElementGetScrollWidth ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Int64
dOMElementGetScrollWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_scroll_width _obj'
touchManagedPtr _obj
return result
-- method DOMElement::get_style
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMCSSStyleDeclaration"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_get_style" webkit_dom_element_get_style ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO (Ptr DOMCSSStyleDeclaration)
dOMElementGetStyle ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m DOMCSSStyleDeclaration
dOMElementGetStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_style _obj'
result' <- (wrapObject DOMCSSStyleDeclaration) result
touchManagedPtr _obj
return result'
-- method DOMElement::get_tag_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_tag_name" webkit_dom_element_get_tag_name ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO CString
dOMElementGetTagName ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m T.Text
dOMElementGetTagName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_tag_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMElement::get_webkit_region_overflow
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_webkit_region_overflow" webkit_dom_element_get_webkit_region_overflow ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO CString
{-# DEPRECATED dOMElementGetWebkitRegionOverflow ["(Since version 1.10)","Use webkit_dom_element_get_webkit_region_overset() instead."]#-}
dOMElementGetWebkitRegionOverflow ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m T.Text
dOMElementGetWebkitRegionOverflow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_webkit_region_overflow _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMElement::get_webkit_region_overset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_get_webkit_region_overset" webkit_dom_element_get_webkit_region_overset ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO CString
dOMElementGetWebkitRegionOverset ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m T.Text
dOMElementGetWebkitRegionOverset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_get_webkit_region_overset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMElement::has_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", 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_element_has_attribute" webkit_dom_element_has_attribute ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- name : TBasicType TUTF8
IO CInt
dOMElementHasAttribute ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- name
m Bool
dOMElementHasAttribute _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_element_has_attribute _obj' name'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMElement::has_attribute_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", 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_element_has_attribute_ns" webkit_dom_element_has_attribute_ns ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
IO CInt
dOMElementHasAttributeNs ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m Bool
dOMElementHasAttributeNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
result <- webkit_dom_element_has_attribute_ns _obj' namespaceURI' localName'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
-- method DOMElement::has_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_has_attributes" webkit_dom_element_has_attributes ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO CInt
dOMElementHasAttributes ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m Bool
dOMElementHasAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_element_has_attributes _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMElement::query_selector
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_element_query_selector" webkit_dom_element_query_selector ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- selectors : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMElement)
dOMElementQuerySelector ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- selectors
m DOMElement
dOMElementQuerySelector _obj selectors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
selectors' <- textToCString selectors
onException (do
result <- propagateGError $ webkit_dom_element_query_selector _obj' selectors'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
freeMem selectors'
return result'
) (do
freeMem selectors'
)
-- method DOMElement::query_selector_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_element_query_selector_all" webkit_dom_element_query_selector_all ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- selectors : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNodeList)
dOMElementQuerySelectorAll ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- selectors
m DOMNodeList
dOMElementQuerySelectorAll _obj selectors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
selectors' <- textToCString selectors
onException (do
result <- propagateGError $ webkit_dom_element_query_selector_all _obj' selectors'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem selectors'
return result'
) (do
freeMem selectors'
)
-- method DOMElement::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_element_remove" webkit_dom_element_remove ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Ptr (Ptr GError) -> -- error
IO ()
dOMElementRemove ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m ()
dOMElementRemove _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_element_remove _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMElement::remove_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", 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_element_remove_attribute" webkit_dom_element_remove_attribute ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- name : TBasicType TUTF8
IO ()
dOMElementRemoveAttribute ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- name
m ()
dOMElementRemoveAttribute _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
webkit_dom_element_remove_attribute _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method DOMElement::remove_attribute_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAttr"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_element_remove_attribute_node" webkit_dom_element_remove_attribute_node ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Ptr DOMAttr -> -- oldAttr : TInterface "WebKit" "DOMAttr"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMAttr)
dOMElementRemoveAttributeNode ::
(MonadIO m, DOMElementK a, DOMAttrK b) =>
a -> -- _obj
b -> -- oldAttr
m DOMAttr
dOMElementRemoveAttributeNode _obj oldAttr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let oldAttr' = unsafeManagedPtrCastPtr oldAttr
onException (do
result <- propagateGError $ webkit_dom_element_remove_attribute_node _obj' oldAttr'
result' <- (newObject DOMAttr) result
touchManagedPtr _obj
touchManagedPtr oldAttr
return result'
) (do
return ()
)
-- method DOMElement::remove_attribute_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", 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_element_remove_attribute_ns" webkit_dom_element_remove_attribute_ns ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
IO ()
dOMElementRemoveAttributeNs ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m ()
dOMElementRemoveAttributeNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
webkit_dom_element_remove_attribute_ns _obj' namespaceURI' localName'
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return ()
-- method DOMElement::scroll_by_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", 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_element_scroll_by_lines" webkit_dom_element_scroll_by_lines ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Int64 -> -- lines : TBasicType TInt64
IO ()
dOMElementScrollByLines ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
Int64 -> -- lines
m ()
dOMElementScrollByLines _obj lines = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_scroll_by_lines _obj' lines
touchManagedPtr _obj
return ()
-- method DOMElement::scroll_by_pages
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", 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_element_scroll_by_pages" webkit_dom_element_scroll_by_pages ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Int64 -> -- pages : TBasicType TInt64
IO ()
dOMElementScrollByPages ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
Int64 -> -- pages
m ()
dOMElementScrollByPages _obj pages = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_scroll_by_pages _obj' pages
touchManagedPtr _obj
return ()
-- method DOMElement::scroll_into_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignWithTop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignWithTop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_scroll_into_view" webkit_dom_element_scroll_into_view ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CInt -> -- alignWithTop : TBasicType TBoolean
IO ()
dOMElementScrollIntoView ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
Bool -> -- alignWithTop
m ()
dOMElementScrollIntoView _obj alignWithTop = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let alignWithTop' = (fromIntegral . fromEnum) alignWithTop
webkit_dom_element_scroll_into_view _obj' alignWithTop'
touchManagedPtr _obj
return ()
-- method DOMElement::scroll_into_view_if_needed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "centerIfNeeded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "centerIfNeeded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_element_scroll_into_view_if_needed" webkit_dom_element_scroll_into_view_if_needed ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CInt -> -- centerIfNeeded : TBasicType TBoolean
IO ()
dOMElementScrollIntoViewIfNeeded ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
Bool -> -- centerIfNeeded
m ()
dOMElementScrollIntoViewIfNeeded _obj centerIfNeeded = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let centerIfNeeded' = (fromIntegral . fromEnum) centerIfNeeded
webkit_dom_element_scroll_into_view_if_needed _obj' centerIfNeeded'
touchManagedPtr _obj
return ()
-- method DOMElement::set_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, 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" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_element_set_attribute" webkit_dom_element_set_attribute ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- name : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMElementSetAttribute ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- name
T.Text -> -- value
m ()
dOMElementSetAttribute _obj name value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_element_set_attribute _obj' name' value'
touchManagedPtr _obj
freeMem name'
freeMem value'
return ()
) (do
freeMem name'
freeMem value'
)
-- method DOMElement::set_attribute_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAttr"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_element_set_attribute_node" webkit_dom_element_set_attribute_node ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Ptr DOMAttr -> -- newAttr : TInterface "WebKit" "DOMAttr"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMAttr)
dOMElementSetAttributeNode ::
(MonadIO m, DOMElementK a, DOMAttrK b) =>
a -> -- _obj
b -> -- newAttr
m DOMAttr
dOMElementSetAttributeNode _obj newAttr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let newAttr' = unsafeManagedPtrCastPtr newAttr
onException (do
result <- propagateGError $ webkit_dom_element_set_attribute_node _obj' newAttr'
result' <- (newObject DOMAttr) result
touchManagedPtr _obj
touchManagedPtr newAttr
return result'
) (do
return ()
)
-- method DOMElement::set_attribute_node_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAttr"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_element_set_attribute_node_ns" webkit_dom_element_set_attribute_node_ns ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Ptr DOMAttr -> -- newAttr : TInterface "WebKit" "DOMAttr"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMAttr)
dOMElementSetAttributeNodeNs ::
(MonadIO m, DOMElementK a, DOMAttrK b) =>
a -> -- _obj
b -> -- newAttr
m DOMAttr
dOMElementSetAttributeNodeNs _obj newAttr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let newAttr' = unsafeManagedPtrCastPtr newAttr
onException (do
result <- propagateGError $ webkit_dom_element_set_attribute_node_ns _obj' newAttr'
result' <- (newObject DOMAttr) result
touchManagedPtr _obj
touchManagedPtr newAttr
return result'
) (do
return ()
)
-- method DOMElement::set_attribute_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, 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" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qualifiedName", argType = TBasicType TUTF8, 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_element_set_attribute_ns" webkit_dom_element_set_attribute_ns ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- qualifiedName : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMElementSetAttributeNs ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
Maybe (T.Text) -> -- namespaceURI
T.Text -> -- qualifiedName
T.Text -> -- value
m ()
dOMElementSetAttributeNs _obj namespaceURI qualifiedName value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeNamespaceURI <- case namespaceURI of
Nothing -> return nullPtr
Just jNamespaceURI -> do
jNamespaceURI' <- textToCString jNamespaceURI
return jNamespaceURI'
qualifiedName' <- textToCString qualifiedName
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_element_set_attribute_ns _obj' maybeNamespaceURI qualifiedName' value'
touchManagedPtr _obj
freeMem maybeNamespaceURI
freeMem qualifiedName'
freeMem value'
return ()
) (do
freeMem maybeNamespaceURI
freeMem qualifiedName'
freeMem value'
)
-- method DOMElement::set_class_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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" "DOMElement", 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_element_set_class_name" webkit_dom_element_set_class_name ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMElementSetClassName ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMElementSetClassName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_element_set_class_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMElement::set_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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" "DOMElement", 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_element_set_id" webkit_dom_element_set_id ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMElementSetId ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMElementSetId _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_element_set_id _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMElement::set_scroll_left
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_element_set_scroll_left" webkit_dom_element_set_scroll_left ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMElementSetScrollLeft ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMElementSetScrollLeft _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_set_scroll_left _obj' value
touchManagedPtr _obj
return ()
-- method DOMElement::set_scroll_top
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_element_set_scroll_top" webkit_dom_element_set_scroll_top ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMElementSetScrollTop ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMElementSetScrollTop _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_set_scroll_top _obj' value
touchManagedPtr _obj
return ()
-- method DOMElement::webkit_matches_selector
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectors", argType = TBasicType TUTF8, 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_element_webkit_matches_selector" webkit_dom_element_webkit_matches_selector ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
CString -> -- selectors : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
dOMElementWebkitMatchesSelector ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
T.Text -> -- selectors
m ()
dOMElementWebkitMatchesSelector _obj selectors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
selectors' <- textToCString selectors
onException (do
_ <- propagateGError $ webkit_dom_element_webkit_matches_selector _obj' selectors'
touchManagedPtr _obj
freeMem selectors'
return ()
) (do
freeMem selectors'
)
-- method DOMElement::webkit_request_full_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt16, 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_element_webkit_request_full_screen" webkit_dom_element_webkit_request_full_screen ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
Word16 -> -- flags : TBasicType TUInt16
IO ()
dOMElementWebkitRequestFullScreen ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
Word16 -> -- flags
m ()
dOMElementWebkitRequestFullScreen _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_webkit_request_full_screen _obj' flags
touchManagedPtr _obj
return ()
-- method DOMElement::webkit_request_fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_webkit_request_fullscreen" webkit_dom_element_webkit_request_fullscreen ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO ()
dOMElementWebkitRequestFullscreen ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m ()
dOMElementWebkitRequestFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_webkit_request_fullscreen _obj'
touchManagedPtr _obj
return ()
-- method DOMElement::webkit_request_pointer_lock
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMElement", 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_element_webkit_request_pointer_lock" webkit_dom_element_webkit_request_pointer_lock ::
Ptr DOMElement -> -- _obj : TInterface "WebKit" "DOMElement"
IO ()
dOMElementWebkitRequestPointerLock ::
(MonadIO m, DOMElementK a) =>
a -> -- _obj
m ()
dOMElementWebkitRequestPointerLock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_element_webkit_request_pointer_lock _obj'
touchManagedPtr _obj
return ()
-- object DOMEntityReference
newtype DOMEntityReference = DOMEntityReference (ForeignPtr DOMEntityReference)
noDOMEntityReference :: Maybe DOMEntityReference
noDOMEntityReference = Nothing
foreign import ccall "webkit_dom_entity_reference_get_type"
c_webkit_dom_entity_reference_get_type :: IO GType
type instance ParentTypes DOMEntityReference = '[DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMEntityReference where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_entity_reference_get_type
class GObject o => DOMEntityReferenceK o
instance (GObject o, IsDescendantOf DOMEntityReference o) => DOMEntityReferenceK o
toDOMEntityReference :: DOMEntityReferenceK o => o -> IO DOMEntityReference
toDOMEntityReference = unsafeCastTo DOMEntityReference
-- object DOMEvent
newtype DOMEvent = DOMEvent (ForeignPtr DOMEvent)
noDOMEvent :: Maybe DOMEvent
noDOMEvent = Nothing
foreign import ccall "webkit_dom_event_get_type"
c_webkit_dom_event_get_type :: IO GType
type instance ParentTypes DOMEvent = '[DOMObject, GObject.Object]
instance GObject DOMEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_event_get_type
class GObject o => DOMEventK o
instance (GObject o, IsDescendantOf DOMEvent o) => DOMEventK o
toDOMEvent :: DOMEventK o => o -> IO DOMEvent
toDOMEvent = unsafeCastTo DOMEvent
-- method DOMEvent::get_bubbles
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", 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_event_get_bubbles" webkit_dom_event_get_bubbles ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO CInt
dOMEventGetBubbles ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m Bool
dOMEventGetBubbles _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_bubbles _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMEvent::get_cancel_bubble
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", 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_event_get_cancel_bubble" webkit_dom_event_get_cancel_bubble ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO CInt
dOMEventGetCancelBubble ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m Bool
dOMEventGetCancelBubble _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_cancel_bubble _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMEvent::get_cancelable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", 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_event_get_cancelable" webkit_dom_event_get_cancelable ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO CInt
dOMEventGetCancelable ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m Bool
dOMEventGetCancelable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_cancelable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMEvent::get_current_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMEventTarget"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_event_get_current_target" webkit_dom_event_get_current_target ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO (Ptr DOMEventTarget)
dOMEventGetCurrentTarget ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m DOMEventTarget
dOMEventGetCurrentTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_current_target _obj'
result' <- (wrapObject DOMEventTarget) result
touchManagedPtr _obj
return result'
-- method DOMEvent::get_default_prevented
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", 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_event_get_default_prevented" webkit_dom_event_get_default_prevented ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO CInt
dOMEventGetDefaultPrevented ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m Bool
dOMEventGetDefaultPrevented _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_default_prevented _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMEvent::get_event_phase
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_event_get_event_phase" webkit_dom_event_get_event_phase ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO Word16
dOMEventGetEventPhase ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m Word16
dOMEventGetEventPhase _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_event_phase _obj'
touchManagedPtr _obj
return result
-- method DOMEvent::get_return_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", 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_event_get_return_value" webkit_dom_event_get_return_value ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO CInt
dOMEventGetReturnValue ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m Bool
dOMEventGetReturnValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_return_value _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMEvent::get_src_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMEventTarget"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_event_get_src_element" webkit_dom_event_get_src_element ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO (Ptr DOMEventTarget)
dOMEventGetSrcElement ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m DOMEventTarget
dOMEventGetSrcElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_src_element _obj'
result' <- (wrapObject DOMEventTarget) result
touchManagedPtr _obj
return result'
-- method DOMEvent::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMEventTarget"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_event_get_target" webkit_dom_event_get_target ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO (Ptr DOMEventTarget)
dOMEventGetTarget ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m DOMEventTarget
dOMEventGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_target _obj'
result' <- (wrapObject DOMEventTarget) result
touchManagedPtr _obj
return result'
-- method DOMEvent::get_time_stamp
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_event_get_time_stamp" webkit_dom_event_get_time_stamp ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO Word32
dOMEventGetTimeStamp ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m Word32
dOMEventGetTimeStamp _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_time_stamp _obj'
touchManagedPtr _obj
return result
-- method DOMEvent::init_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventTypeArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubbleArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelableArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventTypeArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubbleArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelableArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_event_init_event" webkit_dom_event_init_event ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
CString -> -- eventTypeArg : TBasicType TUTF8
CInt -> -- canBubbleArg : TBasicType TBoolean
CInt -> -- cancelableArg : TBasicType TBoolean
IO ()
dOMEventInitEvent ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
T.Text -> -- eventTypeArg
Bool -> -- canBubbleArg
Bool -> -- cancelableArg
m ()
dOMEventInitEvent _obj eventTypeArg canBubbleArg cancelableArg = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
eventTypeArg' <- textToCString eventTypeArg
let canBubbleArg' = (fromIntegral . fromEnum) canBubbleArg
let cancelableArg' = (fromIntegral . fromEnum) cancelableArg
webkit_dom_event_init_event _obj' eventTypeArg' canBubbleArg' cancelableArg'
touchManagedPtr _obj
freeMem eventTypeArg'
return ()
-- method DOMEvent::prevent_default
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", 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_event_prevent_default" webkit_dom_event_prevent_default ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO ()
dOMEventPreventDefault ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m ()
dOMEventPreventDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_event_prevent_default _obj'
touchManagedPtr _obj
return ()
-- method DOMEvent::set_cancel_bubble
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_event_set_cancel_bubble" webkit_dom_event_set_cancel_bubble ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMEventSetCancelBubble ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMEventSetCancelBubble _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_event_set_cancel_bubble _obj' value'
touchManagedPtr _obj
return ()
-- method DOMEvent::set_return_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_event_set_return_value" webkit_dom_event_set_return_value ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMEventSetReturnValue ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMEventSetReturnValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_event_set_return_value _obj' value'
touchManagedPtr _obj
return ()
-- method DOMEvent::stop_immediate_propagation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", 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_event_stop_immediate_propagation" webkit_dom_event_stop_immediate_propagation ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO ()
dOMEventStopImmediatePropagation ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m ()
dOMEventStopImmediatePropagation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_event_stop_immediate_propagation _obj'
touchManagedPtr _obj
return ()
-- method DOMEvent::stop_propagation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", 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_event_stop_propagation" webkit_dom_event_stop_propagation ::
Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent"
IO ()
dOMEventStopPropagation ::
(MonadIO m, DOMEventK a) =>
a -> -- _obj
m ()
dOMEventStopPropagation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_event_stop_propagation _obj'
touchManagedPtr _obj
return ()
-- interface DOMEventTarget
newtype DOMEventTarget = DOMEventTarget (ForeignPtr DOMEventTarget)
noDOMEventTarget :: Maybe DOMEventTarget
noDOMEventTarget = Nothing
foreign import ccall "webkit_dom_event_target_get_type"
c_webkit_dom_event_target_get_type :: IO GType
type instance ParentTypes DOMEventTarget = '[GObject.Object]
instance GObject DOMEventTarget where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_event_target_get_type
class GObject o => DOMEventTargetK o
instance (GObject o, IsDescendantOf DOMEventTarget o) => DOMEventTargetK o
toDOMEventTarget :: DOMEventTargetK o => o -> IO DOMEventTarget
toDOMEventTarget = unsafeCastTo DOMEventTarget
-- method DOMEventTarget::add_event_listener
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_capture", 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_event_target_add_event_listener_with_closure" webkit_dom_event_target_add_event_listener_with_closure ::
Ptr DOMEventTarget -> -- _obj : TInterface "WebKit" "DOMEventTarget"
CString -> -- event_name : TBasicType TUTF8
Ptr Closure -> -- handler : TInterface "GObject" "Closure"
CInt -> -- use_capture : TBasicType TBoolean
IO CInt
dOMEventTargetAddEventListener ::
(MonadIO m, DOMEventTargetK a) =>
a -> -- _obj
T.Text -> -- event_name
Closure -> -- handler
Bool -> -- use_capture
m Bool
dOMEventTargetAddEventListener _obj event_name handler use_capture = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
event_name' <- textToCString event_name
let handler' = unsafeManagedPtrGetPtr handler
let use_capture' = (fromIntegral . fromEnum) use_capture
result <- webkit_dom_event_target_add_event_listener_with_closure _obj' event_name' handler' use_capture'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr handler
freeMem event_name'
return result'
-- method DOMEventTarget::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", 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_event_target_dispatch_event" webkit_dom_event_target_dispatch_event ::
Ptr DOMEventTarget -> -- _obj : TInterface "WebKit" "DOMEventTarget"
Ptr DOMEvent -> -- event : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
dOMEventTargetDispatchEvent ::
(MonadIO m, DOMEventTargetK a, DOMEventK b) =>
a -> -- _obj
b -> -- event
m ()
dOMEventTargetDispatchEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrCastPtr event
onException (do
_ <- propagateGError $ webkit_dom_event_target_dispatch_event _obj' event'
touchManagedPtr _obj
touchManagedPtr event
return ()
) (do
return ()
)
-- method DOMEventTarget::remove_event_listener
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_capture", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_capture", 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_event_target_remove_event_listener_with_closure" webkit_dom_event_target_remove_event_listener_with_closure ::
Ptr DOMEventTarget -> -- _obj : TInterface "WebKit" "DOMEventTarget"
CString -> -- event_name : TBasicType TUTF8
Ptr Closure -> -- handler : TInterface "GObject" "Closure"
CInt -> -- use_capture : TBasicType TBoolean
IO CInt
dOMEventTargetRemoveEventListener ::
(MonadIO m, DOMEventTargetK a) =>
a -> -- _obj
T.Text -> -- event_name
Closure -> -- handler
Bool -> -- use_capture
m Bool
dOMEventTargetRemoveEventListener _obj event_name handler use_capture = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
event_name' <- textToCString event_name
let handler' = unsafeManagedPtrGetPtr handler
let use_capture' = (fromIntegral . fromEnum) use_capture
result <- webkit_dom_event_target_remove_event_listener_with_closure _obj' event_name' handler' use_capture'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr handler
freeMem event_name'
return result'
-- struct DOMEventTargetClass
newtype DOMEventTargetClass = DOMEventTargetClass (ForeignPtr DOMEventTargetClass)
noDOMEventTargetClass :: Maybe DOMEventTargetClass
noDOMEventTargetClass = Nothing
-- object DOMFile
newtype DOMFile = DOMFile (ForeignPtr DOMFile)
noDOMFile :: Maybe DOMFile
noDOMFile = Nothing
foreign import ccall "webkit_dom_file_get_type"
c_webkit_dom_file_get_type :: IO GType
type instance ParentTypes DOMFile = '[DOMBlob, DOMObject, GObject.Object]
instance GObject DOMFile where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_file_get_type
class GObject o => DOMFileK o
instance (GObject o, IsDescendantOf DOMFile o) => DOMFileK o
toDOMFile :: DOMFileK o => o -> IO DOMFile
toDOMFile = unsafeCastTo DOMFile
-- method DOMFile::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFile", 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_file_get_name" webkit_dom_file_get_name ::
Ptr DOMFile -> -- _obj : TInterface "WebKit" "DOMFile"
IO CString
dOMFileGetName ::
(MonadIO m, DOMFileK a) =>
a -> -- _obj
m T.Text
dOMFileGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_file_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMFile::get_webkit_relative_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFile", 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_file_get_webkit_relative_path" webkit_dom_file_get_webkit_relative_path ::
Ptr DOMFile -> -- _obj : TInterface "WebKit" "DOMFile"
IO CString
dOMFileGetWebkitRelativePath ::
(MonadIO m, DOMFileK a) =>
a -> -- _obj
m T.Text
dOMFileGetWebkitRelativePath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_file_get_webkit_relative_path _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- object DOMFileList
newtype DOMFileList = DOMFileList (ForeignPtr DOMFileList)
noDOMFileList :: Maybe DOMFileList
noDOMFileList = Nothing
foreign import ccall "webkit_dom_file_list_get_type"
c_webkit_dom_file_list_get_type :: IO GType
type instance ParentTypes DOMFileList = '[DOMObject, GObject.Object]
instance GObject DOMFileList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_file_list_get_type
class GObject o => DOMFileListK o
instance (GObject o, IsDescendantOf DOMFileList o) => DOMFileListK o
toDOMFileList :: DOMFileListK o => o -> IO DOMFileList
toDOMFileList = unsafeCastTo DOMFileList
-- method DOMFileList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFileList", 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_file_list_get_length" webkit_dom_file_list_get_length ::
Ptr DOMFileList -> -- _obj : TInterface "WebKit" "DOMFileList"
IO Word64
dOMFileListGetLength ::
(MonadIO m, DOMFileListK a) =>
a -> -- _obj
m Word64
dOMFileListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_file_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMFileList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMFile"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_file_list_item" webkit_dom_file_list_item ::
Ptr DOMFileList -> -- _obj : TInterface "WebKit" "DOMFileList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMFile)
dOMFileListItem ::
(MonadIO m, DOMFileListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMFile
dOMFileListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_file_list_item _obj' index
result' <- (wrapObject DOMFile) result
touchManagedPtr _obj
return result'
-- object DOMGamepad
newtype DOMGamepad = DOMGamepad (ForeignPtr DOMGamepad)
noDOMGamepad :: Maybe DOMGamepad
noDOMGamepad = Nothing
foreign import ccall "webkit_dom_gamepad_get_type"
c_webkit_dom_gamepad_get_type :: IO GType
type instance ParentTypes DOMGamepad = '[DOMObject, GObject.Object]
instance GObject DOMGamepad where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_gamepad_get_type
class GObject o => DOMGamepadK o
instance (GObject o, IsDescendantOf DOMGamepad o) => DOMGamepadK o
toDOMGamepad :: DOMGamepadK o => o -> IO DOMGamepad
toDOMGamepad = unsafeCastTo DOMGamepad
-- method DOMGamepad::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", 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_gamepad_get_id" webkit_dom_gamepad_get_id ::
Ptr DOMGamepad -> -- _obj : TInterface "WebKit" "DOMGamepad"
IO CString
dOMGamepadGetId ::
(MonadIO m, DOMGamepadK a) =>
a -> -- _obj
m T.Text
dOMGamepadGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_gamepad_get_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMGamepad::get_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", 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_gamepad_get_index" webkit_dom_gamepad_get_index ::
Ptr DOMGamepad -> -- _obj : TInterface "WebKit" "DOMGamepad"
IO Word64
dOMGamepadGetIndex ::
(MonadIO m, DOMGamepadK a) =>
a -> -- _obj
m Word64
dOMGamepadGetIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_gamepad_get_index _obj'
touchManagedPtr _obj
return result
-- method DOMGamepad::get_timestamp
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepad", 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_gamepad_get_timestamp" webkit_dom_gamepad_get_timestamp ::
Ptr DOMGamepad -> -- _obj : TInterface "WebKit" "DOMGamepad"
IO Word64
dOMGamepadGetTimestamp ::
(MonadIO m, DOMGamepadK a) =>
a -> -- _obj
m Word64
dOMGamepadGetTimestamp _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_gamepad_get_timestamp _obj'
touchManagedPtr _obj
return result
-- object DOMGamepadList
newtype DOMGamepadList = DOMGamepadList (ForeignPtr DOMGamepadList)
noDOMGamepadList :: Maybe DOMGamepadList
noDOMGamepadList = Nothing
foreign import ccall "webkit_dom_gamepad_list_get_type"
c_webkit_dom_gamepad_list_get_type :: IO GType
type instance ParentTypes DOMGamepadList = '[DOMObject, GObject.Object]
instance GObject DOMGamepadList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_gamepad_list_get_type
class GObject o => DOMGamepadListK o
instance (GObject o, IsDescendantOf DOMGamepadList o) => DOMGamepadListK o
toDOMGamepadList :: DOMGamepadListK o => o -> IO DOMGamepadList
toDOMGamepadList = unsafeCastTo DOMGamepadList
-- method DOMGamepadList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", 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_gamepad_list_get_length" webkit_dom_gamepad_list_get_length ::
Ptr DOMGamepadList -> -- _obj : TInterface "WebKit" "DOMGamepadList"
IO Word64
dOMGamepadListGetLength ::
(MonadIO m, DOMGamepadListK a) =>
a -> -- _obj
m Word64
dOMGamepadListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_gamepad_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMGamepadList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGamepadList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMGamepad"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_gamepad_list_item" webkit_dom_gamepad_list_item ::
Ptr DOMGamepadList -> -- _obj : TInterface "WebKit" "DOMGamepadList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMGamepad)
dOMGamepadListItem ::
(MonadIO m, DOMGamepadListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMGamepad
dOMGamepadListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_gamepad_list_item _obj' index
result' <- (wrapObject DOMGamepad) result
touchManagedPtr _obj
return result'
-- object DOMGeolocation
newtype DOMGeolocation = DOMGeolocation (ForeignPtr DOMGeolocation)
noDOMGeolocation :: Maybe DOMGeolocation
noDOMGeolocation = Nothing
foreign import ccall "webkit_dom_geolocation_get_type"
c_webkit_dom_geolocation_get_type :: IO GType
type instance ParentTypes DOMGeolocation = '[DOMObject, GObject.Object]
instance GObject DOMGeolocation where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_geolocation_get_type
class GObject o => DOMGeolocationK o
instance (GObject o, IsDescendantOf DOMGeolocation o) => DOMGeolocationK o
toDOMGeolocation :: DOMGeolocationK o => o -> IO DOMGeolocation
toDOMGeolocation = unsafeCastTo DOMGeolocation
-- method DOMGeolocation::clear_watch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGeolocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "watchID", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMGeolocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "watchID", 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_geolocation_clear_watch" webkit_dom_geolocation_clear_watch ::
Ptr DOMGeolocation -> -- _obj : TInterface "WebKit" "DOMGeolocation"
Int64 -> -- watchID : TBasicType TInt64
IO ()
dOMGeolocationClearWatch ::
(MonadIO m, DOMGeolocationK a) =>
a -> -- _obj
Int64 -> -- watchID
m ()
dOMGeolocationClearWatch _obj watchID = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_geolocation_clear_watch _obj' watchID
touchManagedPtr _obj
return ()
-- object DOMHTMLAnchorElement
newtype DOMHTMLAnchorElement = DOMHTMLAnchorElement (ForeignPtr DOMHTMLAnchorElement)
noDOMHTMLAnchorElement :: Maybe DOMHTMLAnchorElement
noDOMHTMLAnchorElement = Nothing
foreign import ccall "webkit_dom_html_anchor_element_get_type"
c_webkit_dom_html_anchor_element_get_type :: IO GType
type instance ParentTypes DOMHTMLAnchorElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLAnchorElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_anchor_element_get_type
class GObject o => DOMHTMLAnchorElementK o
instance (GObject o, IsDescendantOf DOMHTMLAnchorElement o) => DOMHTMLAnchorElementK o
toDOMHTMLAnchorElement :: DOMHTMLAnchorElementK o => o -> IO DOMHTMLAnchorElement
toDOMHTMLAnchorElement = unsafeCastTo DOMHTMLAnchorElement
-- method DOMHTMLAnchorElement::get_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_charset" webkit_dom_html_anchor_element_get_charset ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetCharset ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_charset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_coords" webkit_dom_html_anchor_element_get_coords ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetCoords ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetCoords _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_coords _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_download
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_download" webkit_dom_html_anchor_element_get_download ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetDownload ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetDownload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_download _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_hash
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_hash" webkit_dom_html_anchor_element_get_hash ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetHash ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetHash _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_hash _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_host
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_host" webkit_dom_html_anchor_element_get_host ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetHost ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetHost _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_host _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_hostname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_hostname" webkit_dom_html_anchor_element_get_hostname ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetHostname ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetHostname _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_hostname _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_href" webkit_dom_html_anchor_element_get_href ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetHref ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetHref _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_href _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_hreflang
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_hreflang" webkit_dom_html_anchor_element_get_hreflang ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetHreflang ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetHreflang _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_hreflang _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_name" webkit_dom_html_anchor_element_get_name ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetName ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_origin" webkit_dom_html_anchor_element_get_origin ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetOrigin ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_origin _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_pathname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_pathname" webkit_dom_html_anchor_element_get_pathname ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetPathname ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetPathname _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_pathname _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_ping
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_ping" webkit_dom_html_anchor_element_get_ping ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetPing ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetPing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_ping _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_port
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_port" webkit_dom_html_anchor_element_get_port ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetPort ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetPort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_port _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_protocol
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_protocol" webkit_dom_html_anchor_element_get_protocol ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetProtocol ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetProtocol _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_protocol _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_rel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_rel" webkit_dom_html_anchor_element_get_rel ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetRel ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetRel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_rel _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_rev
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_rev" webkit_dom_html_anchor_element_get_rev ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetRev ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetRev _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_rev _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_search" webkit_dom_html_anchor_element_get_search ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetSearch ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetSearch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_search _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_shape
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_shape" webkit_dom_html_anchor_element_get_shape ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetShape ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetShape _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_shape _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_target" webkit_dom_html_anchor_element_get_target ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetTarget ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_target _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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_html_anchor_element_get_text" webkit_dom_html_anchor_element_get_text ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
IO CString
dOMHTMLAnchorElementGetText ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAnchorElementGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_anchor_element_get_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAnchorElement::set_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_charset" webkit_dom_html_anchor_element_set_charset ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetCharset ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetCharset _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_charset _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_coords" webkit_dom_html_anchor_element_set_coords ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetCoords ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetCoords _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_coords _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_download
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_download" webkit_dom_html_anchor_element_set_download ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetDownload ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetDownload _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_download _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_hash
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_hash" webkit_dom_html_anchor_element_set_hash ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetHash ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetHash _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_hash _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_host
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_host" webkit_dom_html_anchor_element_set_host ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetHost ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetHost _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_host _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_hostname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_hostname" webkit_dom_html_anchor_element_set_hostname ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetHostname ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetHostname _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_hostname _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_href" webkit_dom_html_anchor_element_set_href ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetHref ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetHref _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_href _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_hreflang
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_hreflang" webkit_dom_html_anchor_element_set_hreflang ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetHreflang ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetHreflang _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_hreflang _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_name" webkit_dom_html_anchor_element_set_name ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetName ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_pathname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_pathname" webkit_dom_html_anchor_element_set_pathname ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetPathname ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetPathname _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_pathname _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_ping
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_ping" webkit_dom_html_anchor_element_set_ping ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetPing ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetPing _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_ping _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_port
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_port" webkit_dom_html_anchor_element_set_port ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetPort ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetPort _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_port _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_protocol
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_protocol" webkit_dom_html_anchor_element_set_protocol ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetProtocol ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetProtocol _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_protocol _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_rel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_rel" webkit_dom_html_anchor_element_set_rel ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetRel ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetRel _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_rel _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_rev
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_rev" webkit_dom_html_anchor_element_set_rev ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetRev ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetRev _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_rev _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_search" webkit_dom_html_anchor_element_set_search ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetSearch ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetSearch _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_search _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_shape
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_shape" webkit_dom_html_anchor_element_set_shape ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetShape ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetShape _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_shape _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAnchorElement::set_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAnchorElement", 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" "DOMHTMLAnchorElement", 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_html_anchor_element_set_target" webkit_dom_html_anchor_element_set_target ::
Ptr DOMHTMLAnchorElement -> -- _obj : TInterface "WebKit" "DOMHTMLAnchorElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAnchorElementSetTarget ::
(MonadIO m, DOMHTMLAnchorElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAnchorElementSetTarget _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_anchor_element_set_target _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLAppletElement
newtype DOMHTMLAppletElement = DOMHTMLAppletElement (ForeignPtr DOMHTMLAppletElement)
noDOMHTMLAppletElement :: Maybe DOMHTMLAppletElement
noDOMHTMLAppletElement = Nothing
foreign import ccall "webkit_dom_html_applet_element_get_type"
c_webkit_dom_html_applet_element_get_type :: IO GType
type instance ParentTypes DOMHTMLAppletElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLAppletElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_applet_element_get_type
class GObject o => DOMHTMLAppletElementK o
instance (GObject o, IsDescendantOf DOMHTMLAppletElement o) => DOMHTMLAppletElementK o
toDOMHTMLAppletElement :: DOMHTMLAppletElementK o => o -> IO DOMHTMLAppletElement
toDOMHTMLAppletElement = unsafeCastTo DOMHTMLAppletElement
-- method DOMHTMLAppletElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_align" webkit_dom_html_applet_element_get_align ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetAlign ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::get_alt
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_alt" webkit_dom_html_applet_element_get_alt ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetAlt ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetAlt _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_alt _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::get_archive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_archive" webkit_dom_html_applet_element_get_archive ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetArchive ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetArchive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_archive _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::get_code
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_code" webkit_dom_html_applet_element_get_code ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetCode ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetCode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_code _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::get_code_base
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_code_base" webkit_dom_html_applet_element_get_code_base ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetCodeBase ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetCodeBase _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_code_base _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_height" webkit_dom_html_applet_element_get_height ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetHeight ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_height _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::get_hspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_hspace" webkit_dom_html_applet_element_get_hspace ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO Int64
dOMHTMLAppletElementGetHspace ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m Int64
dOMHTMLAppletElementGetHspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_hspace _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLAppletElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_name" webkit_dom_html_applet_element_get_name ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetName ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::get_object
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_object" webkit_dom_html_applet_element_get_object ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetObject ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetObject _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_object _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::get_vspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_vspace" webkit_dom_html_applet_element_get_vspace ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO Int64
dOMHTMLAppletElementGetVspace ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m Int64
dOMHTMLAppletElementGetVspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_vspace _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLAppletElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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_html_applet_element_get_width" webkit_dom_html_applet_element_get_width ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
IO CString
dOMHTMLAppletElementGetWidth ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAppletElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_applet_element_get_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAppletElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_align" webkit_dom_html_applet_element_set_align ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetAlign ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAppletElement::set_alt
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_alt" webkit_dom_html_applet_element_set_alt ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetAlt ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetAlt _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_alt _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAppletElement::set_archive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_archive" webkit_dom_html_applet_element_set_archive ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetArchive ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetArchive _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_archive _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAppletElement::set_code
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_code" webkit_dom_html_applet_element_set_code ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetCode ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetCode _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_code _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAppletElement::set_code_base
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_code_base" webkit_dom_html_applet_element_set_code_base ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetCodeBase ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetCodeBase _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_code_base _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAppletElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_height" webkit_dom_html_applet_element_set_height ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetHeight ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_height _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAppletElement::set_hspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_applet_element_set_hspace" webkit_dom_html_applet_element_set_hspace ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLAppletElementSetHspace ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLAppletElementSetHspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_applet_element_set_hspace _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLAppletElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_name" webkit_dom_html_applet_element_set_name ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetName ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAppletElement::set_object
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_object" webkit_dom_html_applet_element_set_object ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetObject ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetObject _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_object _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAppletElement::set_vspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_applet_element_set_vspace" webkit_dom_html_applet_element_set_vspace ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLAppletElementSetVspace ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLAppletElementSetVspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_applet_element_set_vspace _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLAppletElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAppletElement", 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" "DOMHTMLAppletElement", 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_html_applet_element_set_width" webkit_dom_html_applet_element_set_width ::
Ptr DOMHTMLAppletElement -> -- _obj : TInterface "WebKit" "DOMHTMLAppletElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAppletElementSetWidth ::
(MonadIO m, DOMHTMLAppletElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAppletElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_applet_element_set_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLAreaElement
newtype DOMHTMLAreaElement = DOMHTMLAreaElement (ForeignPtr DOMHTMLAreaElement)
noDOMHTMLAreaElement :: Maybe DOMHTMLAreaElement
noDOMHTMLAreaElement = Nothing
foreign import ccall "webkit_dom_html_area_element_get_type"
c_webkit_dom_html_area_element_get_type :: IO GType
type instance ParentTypes DOMHTMLAreaElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLAreaElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_area_element_get_type
class GObject o => DOMHTMLAreaElementK o
instance (GObject o, IsDescendantOf DOMHTMLAreaElement o) => DOMHTMLAreaElementK o
toDOMHTMLAreaElement :: DOMHTMLAreaElementK o => o -> IO DOMHTMLAreaElement
toDOMHTMLAreaElement = unsafeCastTo DOMHTMLAreaElement
-- method DOMHTMLAreaElement::get_alt
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_alt" webkit_dom_html_area_element_get_alt ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetAlt ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetAlt _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_alt _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_coords" webkit_dom_html_area_element_get_coords ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetCoords ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetCoords _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_coords _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_hash
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_hash" webkit_dom_html_area_element_get_hash ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetHash ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetHash _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_hash _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_host
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_host" webkit_dom_html_area_element_get_host ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetHost ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetHost _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_host _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_hostname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_hostname" webkit_dom_html_area_element_get_hostname ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetHostname ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetHostname _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_hostname _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_href" webkit_dom_html_area_element_get_href ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetHref ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetHref _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_href _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_no_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_no_href" webkit_dom_html_area_element_get_no_href ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CInt
dOMHTMLAreaElementGetNoHref ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLAreaElementGetNoHref _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_no_href _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_pathname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_pathname" webkit_dom_html_area_element_get_pathname ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetPathname ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetPathname _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_pathname _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_ping
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_ping" webkit_dom_html_area_element_get_ping ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetPing ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetPing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_ping _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_port
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_port" webkit_dom_html_area_element_get_port ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetPort ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetPort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_port _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_protocol
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_protocol" webkit_dom_html_area_element_get_protocol ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetProtocol ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetProtocol _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_protocol _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_search" webkit_dom_html_area_element_get_search ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetSearch ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetSearch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_search _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_shape
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_shape" webkit_dom_html_area_element_get_shape ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetShape ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetShape _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_shape _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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_html_area_element_get_target" webkit_dom_html_area_element_get_target ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
IO CString
dOMHTMLAreaElementGetTarget ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLAreaElementGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_area_element_get_target _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLAreaElement::set_alt
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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" "DOMHTMLAreaElement", 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_html_area_element_set_alt" webkit_dom_html_area_element_set_alt ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAreaElementSetAlt ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAreaElementSetAlt _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_area_element_set_alt _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAreaElement::set_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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" "DOMHTMLAreaElement", 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_html_area_element_set_coords" webkit_dom_html_area_element_set_coords ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAreaElementSetCoords ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAreaElementSetCoords _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_area_element_set_coords _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAreaElement::set_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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" "DOMHTMLAreaElement", 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_html_area_element_set_href" webkit_dom_html_area_element_set_href ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAreaElementSetHref ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAreaElementSetHref _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_area_element_set_href _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAreaElement::set_no_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_area_element_set_no_href" webkit_dom_html_area_element_set_no_href ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLAreaElementSetNoHref ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLAreaElementSetNoHref _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_area_element_set_no_href _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLAreaElement::set_ping
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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" "DOMHTMLAreaElement", 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_html_area_element_set_ping" webkit_dom_html_area_element_set_ping ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAreaElementSetPing ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAreaElementSetPing _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_area_element_set_ping _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAreaElement::set_shape
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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" "DOMHTMLAreaElement", 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_html_area_element_set_shape" webkit_dom_html_area_element_set_shape ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAreaElementSetShape ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAreaElementSetShape _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_area_element_set_shape _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLAreaElement::set_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLAreaElement", 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" "DOMHTMLAreaElement", 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_html_area_element_set_target" webkit_dom_html_area_element_set_target ::
Ptr DOMHTMLAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLAreaElementSetTarget ::
(MonadIO m, DOMHTMLAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLAreaElementSetTarget _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_area_element_set_target _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLAudioElement
newtype DOMHTMLAudioElement = DOMHTMLAudioElement (ForeignPtr DOMHTMLAudioElement)
noDOMHTMLAudioElement :: Maybe DOMHTMLAudioElement
noDOMHTMLAudioElement = Nothing
foreign import ccall "webkit_dom_html_audio_element_get_type"
c_webkit_dom_html_audio_element_get_type :: IO GType
type instance ParentTypes DOMHTMLAudioElement = '[DOMHTMLMediaElement, DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLAudioElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_audio_element_get_type
class GObject o => DOMHTMLAudioElementK o
instance (GObject o, IsDescendantOf DOMHTMLAudioElement o) => DOMHTMLAudioElementK o
toDOMHTMLAudioElement :: DOMHTMLAudioElementK o => o -> IO DOMHTMLAudioElement
toDOMHTMLAudioElement = unsafeCastTo DOMHTMLAudioElement
-- object DOMHTMLBRElement
newtype DOMHTMLBRElement = DOMHTMLBRElement (ForeignPtr DOMHTMLBRElement)
noDOMHTMLBRElement :: Maybe DOMHTMLBRElement
noDOMHTMLBRElement = Nothing
foreign import ccall "webkit_dom_htmlbr_element_get_type"
c_webkit_dom_htmlbr_element_get_type :: IO GType
type instance ParentTypes DOMHTMLBRElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLBRElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_htmlbr_element_get_type
class GObject o => DOMHTMLBRElementK o
instance (GObject o, IsDescendantOf DOMHTMLBRElement o) => DOMHTMLBRElementK o
toDOMHTMLBRElement :: DOMHTMLBRElementK o => o -> IO DOMHTMLBRElement
toDOMHTMLBRElement = unsafeCastTo DOMHTMLBRElement
-- method DOMHTMLBRElement::get_clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", 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_htmlbr_element_get_clear" webkit_dom_htmlbr_element_get_clear ::
Ptr DOMHTMLBRElement -> -- _obj : TInterface "WebKit" "DOMHTMLBRElement"
IO CString
dOMHTMLBRElementGetClear ::
(MonadIO m, DOMHTMLBRElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBRElementGetClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlbr_element_get_clear _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBRElement::set_clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBRElement", 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" "DOMHTMLBRElement", 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_htmlbr_element_set_clear" webkit_dom_htmlbr_element_set_clear ::
Ptr DOMHTMLBRElement -> -- _obj : TInterface "WebKit" "DOMHTMLBRElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBRElementSetClear ::
(MonadIO m, DOMHTMLBRElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBRElementSetClear _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_htmlbr_element_set_clear _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLBaseElement
newtype DOMHTMLBaseElement = DOMHTMLBaseElement (ForeignPtr DOMHTMLBaseElement)
noDOMHTMLBaseElement :: Maybe DOMHTMLBaseElement
noDOMHTMLBaseElement = Nothing
foreign import ccall "webkit_dom_html_base_element_get_type"
c_webkit_dom_html_base_element_get_type :: IO GType
type instance ParentTypes DOMHTMLBaseElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLBaseElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_base_element_get_type
class GObject o => DOMHTMLBaseElementK o
instance (GObject o, IsDescendantOf DOMHTMLBaseElement o) => DOMHTMLBaseElementK o
toDOMHTMLBaseElement :: DOMHTMLBaseElementK o => o -> IO DOMHTMLBaseElement
toDOMHTMLBaseElement = unsafeCastTo DOMHTMLBaseElement
-- method DOMHTMLBaseElement::get_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", 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_html_base_element_get_href" webkit_dom_html_base_element_get_href ::
Ptr DOMHTMLBaseElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseElement"
IO CString
dOMHTMLBaseElementGetHref ::
(MonadIO m, DOMHTMLBaseElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBaseElementGetHref _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_base_element_get_href _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBaseElement::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", 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_html_base_element_get_target" webkit_dom_html_base_element_get_target ::
Ptr DOMHTMLBaseElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseElement"
IO CString
dOMHTMLBaseElementGetTarget ::
(MonadIO m, DOMHTMLBaseElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBaseElementGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_base_element_get_target _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBaseElement::set_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", 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" "DOMHTMLBaseElement", 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_html_base_element_set_href" webkit_dom_html_base_element_set_href ::
Ptr DOMHTMLBaseElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBaseElementSetHref ::
(MonadIO m, DOMHTMLBaseElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBaseElementSetHref _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_base_element_set_href _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLBaseElement::set_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseElement", 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" "DOMHTMLBaseElement", 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_html_base_element_set_target" webkit_dom_html_base_element_set_target ::
Ptr DOMHTMLBaseElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBaseElementSetTarget ::
(MonadIO m, DOMHTMLBaseElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBaseElementSetTarget _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_base_element_set_target _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLBaseFontElement
newtype DOMHTMLBaseFontElement = DOMHTMLBaseFontElement (ForeignPtr DOMHTMLBaseFontElement)
noDOMHTMLBaseFontElement :: Maybe DOMHTMLBaseFontElement
noDOMHTMLBaseFontElement = Nothing
foreign import ccall "webkit_dom_html_base_font_element_get_type"
c_webkit_dom_html_base_font_element_get_type :: IO GType
type instance ParentTypes DOMHTMLBaseFontElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLBaseFontElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_base_font_element_get_type
class GObject o => DOMHTMLBaseFontElementK o
instance (GObject o, IsDescendantOf DOMHTMLBaseFontElement o) => DOMHTMLBaseFontElementK o
toDOMHTMLBaseFontElement :: DOMHTMLBaseFontElementK o => o -> IO DOMHTMLBaseFontElement
toDOMHTMLBaseFontElement = unsafeCastTo DOMHTMLBaseFontElement
-- method DOMHTMLBaseFontElement::get_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", 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_html_base_font_element_get_color" webkit_dom_html_base_font_element_get_color ::
Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement"
IO CString
dOMHTMLBaseFontElementGetColor ::
(MonadIO m, DOMHTMLBaseFontElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBaseFontElementGetColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_base_font_element_get_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBaseFontElement::get_face
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", 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_html_base_font_element_get_face" webkit_dom_html_base_font_element_get_face ::
Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement"
IO CString
dOMHTMLBaseFontElementGetFace ::
(MonadIO m, DOMHTMLBaseFontElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBaseFontElementGetFace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_base_font_element_get_face _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBaseFontElement::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", 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_html_base_font_element_get_size" webkit_dom_html_base_font_element_get_size ::
Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement"
IO Int64
dOMHTMLBaseFontElementGetSize ::
(MonadIO m, DOMHTMLBaseFontElementK a) =>
a -> -- _obj
m Int64
dOMHTMLBaseFontElementGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_base_font_element_get_size _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLBaseFontElement::set_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", 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" "DOMHTMLBaseFontElement", 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_html_base_font_element_set_color" webkit_dom_html_base_font_element_set_color ::
Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBaseFontElementSetColor ::
(MonadIO m, DOMHTMLBaseFontElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBaseFontElementSetColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_base_font_element_set_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLBaseFontElement::set_face
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", 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" "DOMHTMLBaseFontElement", 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_html_base_font_element_set_face" webkit_dom_html_base_font_element_set_face ::
Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBaseFontElementSetFace ::
(MonadIO m, DOMHTMLBaseFontElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBaseFontElementSetFace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_base_font_element_set_face _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLBaseFontElement::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_base_font_element_set_size" webkit_dom_html_base_font_element_set_size ::
Ptr DOMHTMLBaseFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLBaseFontElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLBaseFontElementSetSize ::
(MonadIO m, DOMHTMLBaseFontElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLBaseFontElementSetSize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_base_font_element_set_size _obj' value
touchManagedPtr _obj
return ()
-- object DOMHTMLBodyElement
newtype DOMHTMLBodyElement = DOMHTMLBodyElement (ForeignPtr DOMHTMLBodyElement)
noDOMHTMLBodyElement :: Maybe DOMHTMLBodyElement
noDOMHTMLBodyElement = Nothing
foreign import ccall "webkit_dom_html_body_element_get_type"
c_webkit_dom_html_body_element_get_type :: IO GType
type instance ParentTypes DOMHTMLBodyElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLBodyElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_body_element_get_type
class GObject o => DOMHTMLBodyElementK o
instance (GObject o, IsDescendantOf DOMHTMLBodyElement o) => DOMHTMLBodyElementK o
toDOMHTMLBodyElement :: DOMHTMLBodyElementK o => o -> IO DOMHTMLBodyElement
toDOMHTMLBodyElement = unsafeCastTo DOMHTMLBodyElement
-- method DOMHTMLBodyElement::get_a_link
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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_html_body_element_get_a_link" webkit_dom_html_body_element_get_a_link ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
IO CString
dOMHTMLBodyElementGetALink ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBodyElementGetALink _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_body_element_get_a_link _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBodyElement::get_background
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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_html_body_element_get_background" webkit_dom_html_body_element_get_background ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
IO CString
dOMHTMLBodyElementGetBackground ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBodyElementGetBackground _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_body_element_get_background _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBodyElement::get_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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_html_body_element_get_bg_color" webkit_dom_html_body_element_get_bg_color ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
IO CString
dOMHTMLBodyElementGetBgColor ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBodyElementGetBgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_body_element_get_bg_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBodyElement::get_link
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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_html_body_element_get_link" webkit_dom_html_body_element_get_link ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
IO CString
dOMHTMLBodyElementGetLink ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBodyElementGetLink _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_body_element_get_link _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBodyElement::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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_html_body_element_get_text" webkit_dom_html_body_element_get_text ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
IO CString
dOMHTMLBodyElementGetText ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBodyElementGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_body_element_get_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBodyElement::get_v_link
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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_html_body_element_get_v_link" webkit_dom_html_body_element_get_v_link ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
IO CString
dOMHTMLBodyElementGetVLink ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLBodyElementGetVLink _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_body_element_get_v_link _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLBodyElement::set_a_link
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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" "DOMHTMLBodyElement", 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_html_body_element_set_a_link" webkit_dom_html_body_element_set_a_link ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBodyElementSetALink ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBodyElementSetALink _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_body_element_set_a_link _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLBodyElement::set_background
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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" "DOMHTMLBodyElement", 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_html_body_element_set_background" webkit_dom_html_body_element_set_background ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBodyElementSetBackground ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBodyElementSetBackground _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_body_element_set_background _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLBodyElement::set_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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" "DOMHTMLBodyElement", 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_html_body_element_set_bg_color" webkit_dom_html_body_element_set_bg_color ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBodyElementSetBgColor ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBodyElementSetBgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_body_element_set_bg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLBodyElement::set_link
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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" "DOMHTMLBodyElement", 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_html_body_element_set_link" webkit_dom_html_body_element_set_link ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBodyElementSetLink ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBodyElementSetLink _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_body_element_set_link _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLBodyElement::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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" "DOMHTMLBodyElement", 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_html_body_element_set_text" webkit_dom_html_body_element_set_text ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBodyElementSetText ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBodyElementSetText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_body_element_set_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLBodyElement::set_v_link
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLBodyElement", 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" "DOMHTMLBodyElement", 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_html_body_element_set_v_link" webkit_dom_html_body_element_set_v_link ::
Ptr DOMHTMLBodyElement -> -- _obj : TInterface "WebKit" "DOMHTMLBodyElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLBodyElementSetVLink ::
(MonadIO m, DOMHTMLBodyElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLBodyElementSetVLink _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_body_element_set_v_link _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLButtonElement
newtype DOMHTMLButtonElement = DOMHTMLButtonElement (ForeignPtr DOMHTMLButtonElement)
noDOMHTMLButtonElement :: Maybe DOMHTMLButtonElement
noDOMHTMLButtonElement = Nothing
foreign import ccall "webkit_dom_html_button_element_get_type"
c_webkit_dom_html_button_element_get_type :: IO GType
type instance ParentTypes DOMHTMLButtonElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLButtonElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_button_element_get_type
class GObject o => DOMHTMLButtonElementK o
instance (GObject o, IsDescendantOf DOMHTMLButtonElement o) => DOMHTMLButtonElementK o
toDOMHTMLButtonElement :: DOMHTMLButtonElementK o => o -> IO DOMHTMLButtonElement
toDOMHTMLButtonElement = unsafeCastTo DOMHTMLButtonElement
-- method DOMHTMLButtonElement::check_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_check_validity" webkit_dom_html_button_element_check_validity ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CInt
dOMHTMLButtonElementCheckValidity ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m Bool
dOMHTMLButtonElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_autofocus" webkit_dom_html_button_element_get_autofocus ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CInt
dOMHTMLButtonElementGetAutofocus ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m Bool
dOMHTMLButtonElementGetAutofocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_autofocus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_disabled" webkit_dom_html_button_element_get_disabled ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CInt
dOMHTMLButtonElementGetDisabled ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m Bool
dOMHTMLButtonElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_button_element_get_form" webkit_dom_html_button_element_get_form ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLButtonElementGetForm ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLButtonElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_form_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_form_action" webkit_dom_html_button_element_get_form_action ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CString
dOMHTMLButtonElementGetFormAction ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLButtonElementGetFormAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_form_action _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_form_enctype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_form_enctype" webkit_dom_html_button_element_get_form_enctype ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CString
dOMHTMLButtonElementGetFormEnctype ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLButtonElementGetFormEnctype _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_form_enctype _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_form_method
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_form_method" webkit_dom_html_button_element_get_form_method ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CString
dOMHTMLButtonElementGetFormMethod ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLButtonElementGetFormMethod _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_form_method _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_form_no_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_form_no_validate" webkit_dom_html_button_element_get_form_no_validate ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CInt
dOMHTMLButtonElementGetFormNoValidate ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m Bool
dOMHTMLButtonElementGetFormNoValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_form_no_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_form_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_form_target" webkit_dom_html_button_element_get_form_target ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CString
dOMHTMLButtonElementGetFormTarget ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLButtonElementGetFormTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_form_target _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_labels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_button_element_get_labels" webkit_dom_html_button_element_get_labels ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO (Ptr DOMNodeList)
dOMHTMLButtonElementGetLabels ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m DOMNodeList
dOMHTMLButtonElementGetLabels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_labels _obj'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_name" webkit_dom_html_button_element_get_name ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CString
dOMHTMLButtonElementGetName ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLButtonElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_validation_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_validation_message" webkit_dom_html_button_element_get_validation_message ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CString
dOMHTMLButtonElementGetValidationMessage ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLButtonElementGetValidationMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_validation_message _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMValidityState"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_button_element_get_validity" webkit_dom_html_button_element_get_validity ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO (Ptr DOMValidityState)
dOMHTMLButtonElementGetValidity ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m DOMValidityState
dOMHTMLButtonElementGetValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_validity _obj'
result' <- (wrapObject DOMValidityState) result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_value" webkit_dom_html_button_element_get_value ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CString
dOMHTMLButtonElementGetValue ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLButtonElementGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::get_will_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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_html_button_element_get_will_validate" webkit_dom_html_button_element_get_will_validate ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
IO CInt
dOMHTMLButtonElementGetWillValidate ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
m Bool
dOMHTMLButtonElementGetWillValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_button_element_get_will_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLButtonElement::set_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_button_element_set_autofocus" webkit_dom_html_button_element_set_autofocus ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLButtonElementSetAutofocus ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLButtonElementSetAutofocus _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_button_element_set_autofocus _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLButtonElement::set_custom_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", 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_html_button_element_set_custom_validity" webkit_dom_html_button_element_set_custom_validity ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CString -> -- error : TBasicType TUTF8
IO ()
dOMHTMLButtonElementSetCustomValidity ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
T.Text -> -- error
m ()
dOMHTMLButtonElementSetCustomValidity _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
error_' <- textToCString error_
webkit_dom_html_button_element_set_custom_validity _obj' error_'
touchManagedPtr _obj
freeMem error_'
return ()
-- method DOMHTMLButtonElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_button_element_set_disabled" webkit_dom_html_button_element_set_disabled ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLButtonElementSetDisabled ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLButtonElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_button_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLButtonElement::set_form_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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" "DOMHTMLButtonElement", 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_html_button_element_set_form_action" webkit_dom_html_button_element_set_form_action ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLButtonElementSetFormAction ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLButtonElementSetFormAction _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_button_element_set_form_action _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLButtonElement::set_form_enctype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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" "DOMHTMLButtonElement", 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_html_button_element_set_form_enctype" webkit_dom_html_button_element_set_form_enctype ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLButtonElementSetFormEnctype ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLButtonElementSetFormEnctype _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_button_element_set_form_enctype _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLButtonElement::set_form_method
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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" "DOMHTMLButtonElement", 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_html_button_element_set_form_method" webkit_dom_html_button_element_set_form_method ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLButtonElementSetFormMethod ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLButtonElementSetFormMethod _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_button_element_set_form_method _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLButtonElement::set_form_no_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_button_element_set_form_no_validate" webkit_dom_html_button_element_set_form_no_validate ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLButtonElementSetFormNoValidate ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLButtonElementSetFormNoValidate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_button_element_set_form_no_validate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLButtonElement::set_form_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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" "DOMHTMLButtonElement", 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_html_button_element_set_form_target" webkit_dom_html_button_element_set_form_target ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLButtonElementSetFormTarget ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLButtonElementSetFormTarget _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_button_element_set_form_target _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLButtonElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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" "DOMHTMLButtonElement", 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_html_button_element_set_name" webkit_dom_html_button_element_set_name ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLButtonElementSetName ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLButtonElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_button_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLButtonElement::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLButtonElement", 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" "DOMHTMLButtonElement", 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_html_button_element_set_value" webkit_dom_html_button_element_set_value ::
Ptr DOMHTMLButtonElement -> -- _obj : TInterface "WebKit" "DOMHTMLButtonElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLButtonElementSetValue ::
(MonadIO m, DOMHTMLButtonElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLButtonElementSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_button_element_set_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLCanvasElement
newtype DOMHTMLCanvasElement = DOMHTMLCanvasElement (ForeignPtr DOMHTMLCanvasElement)
noDOMHTMLCanvasElement :: Maybe DOMHTMLCanvasElement
noDOMHTMLCanvasElement = Nothing
foreign import ccall "webkit_dom_html_canvas_element_get_type"
c_webkit_dom_html_canvas_element_get_type :: IO GType
type instance ParentTypes DOMHTMLCanvasElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLCanvasElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_canvas_element_get_type
class GObject o => DOMHTMLCanvasElementK o
instance (GObject o, IsDescendantOf DOMHTMLCanvasElement o) => DOMHTMLCanvasElementK o
toDOMHTMLCanvasElement :: DOMHTMLCanvasElementK o => o -> IO DOMHTMLCanvasElement
toDOMHTMLCanvasElement = unsafeCastTo DOMHTMLCanvasElement
-- method DOMHTMLCanvasElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", 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_html_canvas_element_get_height" webkit_dom_html_canvas_element_get_height ::
Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement"
IO Int64
dOMHTMLCanvasElementGetHeight ::
(MonadIO m, DOMHTMLCanvasElementK a) =>
a -> -- _obj
m Int64
dOMHTMLCanvasElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_canvas_element_get_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLCanvasElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", 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_html_canvas_element_get_width" webkit_dom_html_canvas_element_get_width ::
Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement"
IO Int64
dOMHTMLCanvasElementGetWidth ::
(MonadIO m, DOMHTMLCanvasElementK a) =>
a -> -- _obj
m Int64
dOMHTMLCanvasElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_canvas_element_get_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLCanvasElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_canvas_element_set_height" webkit_dom_html_canvas_element_set_height ::
Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLCanvasElementSetHeight ::
(MonadIO m, DOMHTMLCanvasElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLCanvasElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_canvas_element_set_height _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLCanvasElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_canvas_element_set_width" webkit_dom_html_canvas_element_set_width ::
Ptr DOMHTMLCanvasElement -> -- _obj : TInterface "WebKit" "DOMHTMLCanvasElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLCanvasElementSetWidth ::
(MonadIO m, DOMHTMLCanvasElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLCanvasElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_canvas_element_set_width _obj' value
touchManagedPtr _obj
return ()
-- object DOMHTMLCollection
newtype DOMHTMLCollection = DOMHTMLCollection (ForeignPtr DOMHTMLCollection)
noDOMHTMLCollection :: Maybe DOMHTMLCollection
noDOMHTMLCollection = Nothing
foreign import ccall "webkit_dom_html_collection_get_type"
c_webkit_dom_html_collection_get_type :: IO GType
type instance ParentTypes DOMHTMLCollection = '[DOMObject, GObject.Object]
instance GObject DOMHTMLCollection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_collection_get_type
class GObject o => DOMHTMLCollectionK o
instance (GObject o, IsDescendantOf DOMHTMLCollection o) => DOMHTMLCollectionK o
toDOMHTMLCollection :: DOMHTMLCollectionK o => o -> IO DOMHTMLCollection
toDOMHTMLCollection = unsafeCastTo DOMHTMLCollection
-- method DOMHTMLCollection::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", 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_html_collection_get_length" webkit_dom_html_collection_get_length ::
Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit" "DOMHTMLCollection"
IO Word64
dOMHTMLCollectionGetLength ::
(MonadIO m, DOMHTMLCollectionK a) =>
a -> -- _obj
m Word64
dOMHTMLCollectionGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_collection_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLCollection::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_collection_item" webkit_dom_html_collection_item ::
Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit" "DOMHTMLCollection"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMNode)
dOMHTMLCollectionItem ::
(MonadIO m, DOMHTMLCollectionK a) =>
a -> -- _obj
Word64 -> -- index
m DOMNode
dOMHTMLCollectionItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_collection_item _obj' index
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMHTMLCollection::named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_collection_named_item" webkit_dom_html_collection_named_item ::
Ptr DOMHTMLCollection -> -- _obj : TInterface "WebKit" "DOMHTMLCollection"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMNode)
dOMHTMLCollectionNamedItem ::
(MonadIO m, DOMHTMLCollectionK a) =>
a -> -- _obj
T.Text -> -- name
m DOMNode
dOMHTMLCollectionNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_html_collection_named_item _obj' name'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
freeMem name'
return result'
-- object DOMHTMLDListElement
newtype DOMHTMLDListElement = DOMHTMLDListElement (ForeignPtr DOMHTMLDListElement)
noDOMHTMLDListElement :: Maybe DOMHTMLDListElement
noDOMHTMLDListElement = Nothing
foreign import ccall "webkit_dom_htmld_list_element_get_type"
c_webkit_dom_htmld_list_element_get_type :: IO GType
type instance ParentTypes DOMHTMLDListElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLDListElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_htmld_list_element_get_type
class GObject o => DOMHTMLDListElementK o
instance (GObject o, IsDescendantOf DOMHTMLDListElement o) => DOMHTMLDListElementK o
toDOMHTMLDListElement :: DOMHTMLDListElementK o => o -> IO DOMHTMLDListElement
toDOMHTMLDListElement = unsafeCastTo DOMHTMLDListElement
-- method DOMHTMLDListElement::get_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", 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_htmld_list_element_get_compact" webkit_dom_htmld_list_element_get_compact ::
Ptr DOMHTMLDListElement -> -- _obj : TInterface "WebKit" "DOMHTMLDListElement"
IO CInt
dOMHTMLDListElementGetCompact ::
(MonadIO m, DOMHTMLDListElementK a) =>
a -> -- _obj
m Bool
dOMHTMLDListElementGetCompact _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmld_list_element_get_compact _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLDListElement::set_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_htmld_list_element_set_compact" webkit_dom_htmld_list_element_set_compact ::
Ptr DOMHTMLDListElement -> -- _obj : TInterface "WebKit" "DOMHTMLDListElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLDListElementSetCompact ::
(MonadIO m, DOMHTMLDListElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLDListElementSetCompact _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_htmld_list_element_set_compact _obj' value'
touchManagedPtr _obj
return ()
-- object DOMHTMLDetailsElement
newtype DOMHTMLDetailsElement = DOMHTMLDetailsElement (ForeignPtr DOMHTMLDetailsElement)
noDOMHTMLDetailsElement :: Maybe DOMHTMLDetailsElement
noDOMHTMLDetailsElement = Nothing
foreign import ccall "webkit_dom_html_details_element_get_type"
c_webkit_dom_html_details_element_get_type :: IO GType
type instance ParentTypes DOMHTMLDetailsElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLDetailsElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_details_element_get_type
class GObject o => DOMHTMLDetailsElementK o
instance (GObject o, IsDescendantOf DOMHTMLDetailsElement o) => DOMHTMLDetailsElementK o
toDOMHTMLDetailsElement :: DOMHTMLDetailsElementK o => o -> IO DOMHTMLDetailsElement
toDOMHTMLDetailsElement = unsafeCastTo DOMHTMLDetailsElement
-- method DOMHTMLDetailsElement::get_open
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", 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_html_details_element_get_open" webkit_dom_html_details_element_get_open ::
Ptr DOMHTMLDetailsElement -> -- _obj : TInterface "WebKit" "DOMHTMLDetailsElement"
IO CInt
dOMHTMLDetailsElementGetOpen ::
(MonadIO m, DOMHTMLDetailsElementK a) =>
a -> -- _obj
m Bool
dOMHTMLDetailsElementGetOpen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_details_element_get_open _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLDetailsElement::set_open
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDetailsElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_details_element_set_open" webkit_dom_html_details_element_set_open ::
Ptr DOMHTMLDetailsElement -> -- _obj : TInterface "WebKit" "DOMHTMLDetailsElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLDetailsElementSetOpen ::
(MonadIO m, DOMHTMLDetailsElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLDetailsElementSetOpen _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_details_element_set_open _obj' value'
touchManagedPtr _obj
return ()
-- object DOMHTMLDirectoryElement
newtype DOMHTMLDirectoryElement = DOMHTMLDirectoryElement (ForeignPtr DOMHTMLDirectoryElement)
noDOMHTMLDirectoryElement :: Maybe DOMHTMLDirectoryElement
noDOMHTMLDirectoryElement = Nothing
foreign import ccall "webkit_dom_html_directory_element_get_type"
c_webkit_dom_html_directory_element_get_type :: IO GType
type instance ParentTypes DOMHTMLDirectoryElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLDirectoryElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_directory_element_get_type
class GObject o => DOMHTMLDirectoryElementK o
instance (GObject o, IsDescendantOf DOMHTMLDirectoryElement o) => DOMHTMLDirectoryElementK o
toDOMHTMLDirectoryElement :: DOMHTMLDirectoryElementK o => o -> IO DOMHTMLDirectoryElement
toDOMHTMLDirectoryElement = unsafeCastTo DOMHTMLDirectoryElement
-- method DOMHTMLDirectoryElement::get_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", 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_html_directory_element_get_compact" webkit_dom_html_directory_element_get_compact ::
Ptr DOMHTMLDirectoryElement -> -- _obj : TInterface "WebKit" "DOMHTMLDirectoryElement"
IO CInt
dOMHTMLDirectoryElementGetCompact ::
(MonadIO m, DOMHTMLDirectoryElementK a) =>
a -> -- _obj
m Bool
dOMHTMLDirectoryElementGetCompact _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_directory_element_get_compact _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLDirectoryElement::set_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_directory_element_set_compact" webkit_dom_html_directory_element_set_compact ::
Ptr DOMHTMLDirectoryElement -> -- _obj : TInterface "WebKit" "DOMHTMLDirectoryElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLDirectoryElementSetCompact ::
(MonadIO m, DOMHTMLDirectoryElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLDirectoryElementSetCompact _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_directory_element_set_compact _obj' value'
touchManagedPtr _obj
return ()
-- object DOMHTMLDivElement
newtype DOMHTMLDivElement = DOMHTMLDivElement (ForeignPtr DOMHTMLDivElement)
noDOMHTMLDivElement :: Maybe DOMHTMLDivElement
noDOMHTMLDivElement = Nothing
foreign import ccall "webkit_dom_html_div_element_get_type"
c_webkit_dom_html_div_element_get_type :: IO GType
type instance ParentTypes DOMHTMLDivElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLDivElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_div_element_get_type
class GObject o => DOMHTMLDivElementK o
instance (GObject o, IsDescendantOf DOMHTMLDivElement o) => DOMHTMLDivElementK o
toDOMHTMLDivElement :: DOMHTMLDivElementK o => o -> IO DOMHTMLDivElement
toDOMHTMLDivElement = unsafeCastTo DOMHTMLDivElement
-- method DOMHTMLDivElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", 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_html_div_element_get_align" webkit_dom_html_div_element_get_align ::
Ptr DOMHTMLDivElement -> -- _obj : TInterface "WebKit" "DOMHTMLDivElement"
IO CString
dOMHTMLDivElementGetAlign ::
(MonadIO m, DOMHTMLDivElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLDivElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_div_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDivElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDivElement", 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" "DOMHTMLDivElement", 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_html_div_element_set_align" webkit_dom_html_div_element_set_align ::
Ptr DOMHTMLDivElement -> -- _obj : TInterface "WebKit" "DOMHTMLDivElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLDivElementSetAlign ::
(MonadIO m, DOMHTMLDivElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLDivElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_div_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLDocument
newtype DOMHTMLDocument = DOMHTMLDocument (ForeignPtr DOMHTMLDocument)
noDOMHTMLDocument :: Maybe DOMHTMLDocument
noDOMHTMLDocument = Nothing
foreign import ccall "webkit_dom_html_document_get_type"
c_webkit_dom_html_document_get_type :: IO GType
type instance ParentTypes DOMHTMLDocument = '[DOMDocument, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLDocument where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_document_get_type
class GObject o => DOMHTMLDocumentK o
instance (GObject o, IsDescendantOf DOMHTMLDocument o) => DOMHTMLDocumentK o
toDOMHTMLDocument :: DOMHTMLDocumentK o => o -> IO DOMHTMLDocument
toDOMHTMLDocument = unsafeCastTo DOMHTMLDocument
-- method DOMHTMLDocument::capture_events
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_capture_events" webkit_dom_html_document_capture_events ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO ()
dOMHTMLDocumentCaptureEvents ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m ()
dOMHTMLDocumentCaptureEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_capture_events _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLDocument::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_clear" webkit_dom_html_document_clear ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO ()
dOMHTMLDocumentClear ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m ()
dOMHTMLDocumentClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_clear _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLDocument::close
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_close" webkit_dom_html_document_close ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO ()
dOMHTMLDocumentClose ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m ()
dOMHTMLDocumentClose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_close _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLDocument::get_active_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_active_element" webkit_dom_html_document_get_active_element ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO (Ptr DOMElement)
dOMHTMLDocumentGetActiveElement ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m DOMElement
dOMHTMLDocumentGetActiveElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_active_element _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_alink_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_alink_color" webkit_dom_html_document_get_alink_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CString
dOMHTMLDocumentGetAlinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m T.Text
dOMHTMLDocumentGetAlinkColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_alink_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_bg_color" webkit_dom_html_document_get_bg_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CString
dOMHTMLDocumentGetBgColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m T.Text
dOMHTMLDocumentGetBgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_bg_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_compat_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_compat_mode" webkit_dom_html_document_get_compat_mode ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CString
dOMHTMLDocumentGetCompatMode ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m T.Text
dOMHTMLDocumentGetCompatMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_compat_mode _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_design_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_design_mode" webkit_dom_html_document_get_design_mode ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CString
dOMHTMLDocumentGetDesignMode ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m T.Text
dOMHTMLDocumentGetDesignMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_design_mode _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_dir
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_dir" webkit_dom_html_document_get_dir ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CString
dOMHTMLDocumentGetDir ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m T.Text
dOMHTMLDocumentGetDir _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_dir _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_embeds
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_document_get_embeds" webkit_dom_html_document_get_embeds ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO (Ptr DOMHTMLCollection)
dOMHTMLDocumentGetEmbeds ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLDocumentGetEmbeds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_embeds _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_fg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_fg_color" webkit_dom_html_document_get_fg_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CString
dOMHTMLDocumentGetFgColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m T.Text
dOMHTMLDocumentGetFgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_fg_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_height" webkit_dom_html_document_get_height ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO Int64
dOMHTMLDocumentGetHeight ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m Int64
dOMHTMLDocumentGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLDocument::get_link_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_link_color" webkit_dom_html_document_get_link_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CString
dOMHTMLDocumentGetLinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m T.Text
dOMHTMLDocumentGetLinkColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_link_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_plugins
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_document_get_plugins" webkit_dom_html_document_get_plugins ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO (Ptr DOMHTMLCollection)
dOMHTMLDocumentGetPlugins ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLDocumentGetPlugins _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_plugins _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_scripts
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_document_get_scripts" webkit_dom_html_document_get_scripts ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO (Ptr DOMHTMLCollection)
dOMHTMLDocumentGetScripts ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLDocumentGetScripts _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_scripts _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_vlink_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_vlink_color" webkit_dom_html_document_get_vlink_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CString
dOMHTMLDocumentGetVlinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m T.Text
dOMHTMLDocumentGetVlinkColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_vlink_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_get_width" webkit_dom_html_document_get_width ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO Int64
dOMHTMLDocumentGetWidth ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m Int64
dOMHTMLDocumentGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLDocument::has_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_has_focus" webkit_dom_html_document_has_focus ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO CInt
dOMHTMLDocumentHasFocus ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m Bool
dOMHTMLDocumentHasFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_has_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLDocument::open
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_open" webkit_dom_html_document_open ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO ()
{-# DEPRECATED dOMHTMLDocumentOpen ["(Since version 2.2)"]#-}
dOMHTMLDocumentOpen ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m ()
dOMHTMLDocumentOpen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_open _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLDocument::release_events
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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_html_document_release_events" webkit_dom_html_document_release_events ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
IO ()
dOMHTMLDocumentReleaseEvents ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
m ()
dOMHTMLDocumentReleaseEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_release_events _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLDocument::set_alink_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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" "DOMHTMLDocument", 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_html_document_set_alink_color" webkit_dom_html_document_set_alink_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLDocumentSetAlinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLDocumentSetAlinkColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_alink_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLDocument::set_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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" "DOMHTMLDocument", 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_html_document_set_bg_color" webkit_dom_html_document_set_bg_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLDocumentSetBgColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLDocumentSetBgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_bg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLDocument::set_design_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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" "DOMHTMLDocument", 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_html_document_set_design_mode" webkit_dom_html_document_set_design_mode ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLDocumentSetDesignMode ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLDocumentSetDesignMode _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_design_mode _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLDocument::set_dir
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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" "DOMHTMLDocument", 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_html_document_set_dir" webkit_dom_html_document_set_dir ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLDocumentSetDir ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLDocumentSetDir _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_dir _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLDocument::set_fg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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" "DOMHTMLDocument", 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_html_document_set_fg_color" webkit_dom_html_document_set_fg_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLDocumentSetFgColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLDocumentSetFgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_fg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLDocument::set_link_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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" "DOMHTMLDocument", 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_html_document_set_link_color" webkit_dom_html_document_set_link_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLDocumentSetLinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLDocumentSetLinkColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_link_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLDocument::set_vlink_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLDocument", 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" "DOMHTMLDocument", 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_html_document_set_vlink_color" webkit_dom_html_document_set_vlink_color ::
Ptr DOMHTMLDocument -> -- _obj : TInterface "WebKit" "DOMHTMLDocument"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLDocumentSetVlinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLDocumentSetVlinkColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_vlink_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLElement
newtype DOMHTMLElement = DOMHTMLElement (ForeignPtr DOMHTMLElement)
noDOMHTMLElement :: Maybe DOMHTMLElement
noDOMHTMLElement = Nothing
foreign import ccall "webkit_dom_html_element_get_type"
c_webkit_dom_html_element_get_type :: IO GType
type instance ParentTypes DOMHTMLElement = '[DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_element_get_type
class GObject o => DOMHTMLElementK o
instance (GObject o, IsDescendantOf DOMHTMLElement o) => DOMHTMLElementK o
toDOMHTMLElement :: DOMHTMLElementK o => o -> IO DOMHTMLElement
toDOMHTMLElement = unsafeCastTo DOMHTMLElement
-- method DOMHTMLElement::click
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_click" webkit_dom_html_element_click ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO ()
dOMHTMLElementClick ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m ()
dOMHTMLElementClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_element_click _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLElement::get_access_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_access_key" webkit_dom_html_element_get_access_key ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetAccessKey ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetAccessKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_access_key _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_children
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_get_children" webkit_dom_html_element_get_children ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLElementGetChildren ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLElementGetChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_children _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_class_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMTokenList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_get_class_list" webkit_dom_html_element_get_class_list ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO (Ptr DOMDOMTokenList)
{-# DEPRECATED dOMHTMLElementGetClassList ["(Since version 1.10)","Use webkit_dom_element_get_class_list() instead."]#-}
dOMHTMLElementGetClassList ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m DOMDOMTokenList
dOMHTMLElementGetClassList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_class_list _obj'
result' <- (newObject DOMDOMTokenList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_class_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_class_name" webkit_dom_html_element_get_class_name ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
{-# DEPRECATED dOMHTMLElementGetClassName ["(Since version 1.10)","Use webkit_dom_element_get_class_name() instead."]#-}
dOMHTMLElementGetClassName ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetClassName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_class_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_content_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_content_editable" webkit_dom_html_element_get_content_editable ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetContentEditable ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetContentEditable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_content_editable _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_dir
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_dir" webkit_dom_html_element_get_dir ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetDir ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetDir _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_dir _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_draggable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_draggable" webkit_dom_html_element_get_draggable ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CInt
dOMHTMLElementGetDraggable ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m Bool
dOMHTMLElementGetDraggable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_draggable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_hidden" webkit_dom_html_element_get_hidden ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CInt
dOMHTMLElementGetHidden ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m Bool
dOMHTMLElementGetHidden _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_hidden _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_id" webkit_dom_html_element_get_id ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
{-# DEPRECATED dOMHTMLElementGetId ["(Since version 2.2)","Use webkit_dom_element_get_id() instead."]#-}
dOMHTMLElementGetId ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_inner_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_inner_html" webkit_dom_html_element_get_inner_html ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetInnerHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetInnerHtml _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_inner_html _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_inner_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_inner_text" webkit_dom_html_element_get_inner_text ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetInnerText ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetInnerText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_inner_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_is_content_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_is_content_editable" webkit_dom_html_element_get_is_content_editable ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CInt
dOMHTMLElementGetIsContentEditable ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m Bool
dOMHTMLElementGetIsContentEditable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_is_content_editable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_item_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_item_id" webkit_dom_html_element_get_item_id ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
{-# DEPRECATED dOMHTMLElementGetItemId ["(Since version 2.2)"]#-}
dOMHTMLElementGetItemId ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetItemId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_item_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_item_prop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMSettableTokenList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_get_item_prop" webkit_dom_html_element_get_item_prop ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO (Ptr DOMDOMSettableTokenList)
{-# DEPRECATED dOMHTMLElementGetItemProp ["(Since version 2.2)"]#-}
dOMHTMLElementGetItemProp ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m DOMDOMSettableTokenList
dOMHTMLElementGetItemProp _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_item_prop _obj'
result' <- (newObject DOMDOMSettableTokenList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_item_ref
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMSettableTokenList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_get_item_ref" webkit_dom_html_element_get_item_ref ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO (Ptr DOMDOMSettableTokenList)
{-# DEPRECATED dOMHTMLElementGetItemRef ["(Since version 2.2)"]#-}
dOMHTMLElementGetItemRef ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m DOMDOMSettableTokenList
dOMHTMLElementGetItemRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_item_ref _obj'
result' <- (newObject DOMDOMSettableTokenList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_item_scope
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_item_scope" webkit_dom_html_element_get_item_scope ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CInt
{-# DEPRECATED dOMHTMLElementGetItemScope ["(Since version 2.2)"]#-}
dOMHTMLElementGetItemScope ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m Bool
dOMHTMLElementGetItemScope _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_item_scope _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_item_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_item_type" webkit_dom_html_element_get_item_type ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO ()
{-# DEPRECATED dOMHTMLElementGetItemType ["(Since version 2.2)"]#-}
dOMHTMLElementGetItemType ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m ()
dOMHTMLElementGetItemType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_element_get_item_type _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLElement::get_lang
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_lang" webkit_dom_html_element_get_lang ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetLang ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetLang _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_lang _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_outer_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_outer_html" webkit_dom_html_element_get_outer_html ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetOuterHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetOuterHtml _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_outer_html _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_outer_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_outer_text" webkit_dom_html_element_get_outer_text ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetOuterText ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetOuterText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_outer_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_spellcheck
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_spellcheck" webkit_dom_html_element_get_spellcheck ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CInt
dOMHTMLElementGetSpellcheck ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m Bool
dOMHTMLElementGetSpellcheck _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_spellcheck _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_tab_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_tab_index" webkit_dom_html_element_get_tab_index ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO Int64
dOMHTMLElementGetTabIndex ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m Int64
dOMHTMLElementGetTabIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_tab_index _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLElement::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_title" webkit_dom_html_element_get_title ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetTitle ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_title _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_translate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_translate" webkit_dom_html_element_get_translate ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CInt
dOMHTMLElementGetTranslate ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m Bool
dOMHTMLElementGetTranslate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_translate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::get_webkitdropzone
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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_html_element_get_webkitdropzone" webkit_dom_html_element_get_webkitdropzone ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
IO CString
dOMHTMLElementGetWebkitdropzone ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLElementGetWebkitdropzone _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_webkitdropzone _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLElement::insert_adjacent_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, 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}]
-- returnType : TInterface "WebKit" "DOMElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_element_insert_adjacent_element" webkit_dom_html_element_insert_adjacent_element ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- where : TBasicType TUTF8
Ptr DOMElement -> -- element : TInterface "WebKit" "DOMElement"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMElement)
dOMHTMLElementInsertAdjacentElement ::
(MonadIO m, DOMHTMLElementK a, DOMElementK b) =>
a -> -- _obj
T.Text -> -- where
b -> -- element
m DOMElement
dOMHTMLElementInsertAdjacentElement _obj where_ element = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
where_' <- textToCString where_
let element' = unsafeManagedPtrCastPtr element
onException (do
result <- propagateGError $ webkit_dom_html_element_insert_adjacent_element _obj' where_' element'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
touchManagedPtr element
freeMem where_'
return result'
) (do
freeMem where_'
)
-- method DOMHTMLElement::insert_adjacent_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_element_insert_adjacent_html" webkit_dom_html_element_insert_adjacent_html ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- where : TBasicType TUTF8
CString -> -- html : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLElementInsertAdjacentHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- where
T.Text -> -- html
m ()
dOMHTMLElementInsertAdjacentHtml _obj where_ html = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
where_' <- textToCString where_
html' <- textToCString html
onException (do
propagateGError $ webkit_dom_html_element_insert_adjacent_html _obj' where_' html'
touchManagedPtr _obj
freeMem where_'
freeMem html'
return ()
) (do
freeMem where_'
freeMem html'
)
-- method DOMHTMLElement::insert_adjacent_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_element_insert_adjacent_text" webkit_dom_html_element_insert_adjacent_text ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- where : TBasicType TUTF8
CString -> -- text : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLElementInsertAdjacentText ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- where
T.Text -> -- text
m ()
dOMHTMLElementInsertAdjacentText _obj where_ text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
where_' <- textToCString where_
text' <- textToCString text
onException (do
propagateGError $ webkit_dom_html_element_insert_adjacent_text _obj' where_' text'
touchManagedPtr _obj
freeMem where_'
freeMem text'
return ()
) (do
freeMem where_'
freeMem text'
)
-- method DOMHTMLElement::set_access_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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_html_element_set_access_key" webkit_dom_html_element_set_access_key ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLElementSetAccessKey ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetAccessKey _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_access_key _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLElement::set_class_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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_html_element_set_class_name" webkit_dom_html_element_set_class_name ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
IO ()
{-# DEPRECATED dOMHTMLElementSetClassName ["(Since version 1.10)","Use webkit_dom_element_set_class_name() instead."]#-}
dOMHTMLElementSetClassName ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetClassName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_class_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLElement::set_content_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_content_editable" webkit_dom_html_element_set_content_editable ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLElementSetContentEditable ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetContentEditable _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_content_editable _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMHTMLElement::set_dir
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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_html_element_set_dir" webkit_dom_html_element_set_dir ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLElementSetDir ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetDir _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_dir _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLElement::set_draggable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_draggable" webkit_dom_html_element_set_draggable ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLElementSetDraggable ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLElementSetDraggable _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_draggable _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLElement::set_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_hidden" webkit_dom_html_element_set_hidden ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLElementSetHidden ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLElementSetHidden _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_hidden _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLElement::set_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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_html_element_set_id" webkit_dom_html_element_set_id ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
IO ()
{-# DEPRECATED dOMHTMLElementSetId ["(Since version 2.2)","Use webkit_dom_element_set_id() instead."]#-}
dOMHTMLElementSetId ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetId _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_id _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLElement::set_inner_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_inner_html" webkit_dom_html_element_set_inner_html ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLElementSetInnerHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetInnerHtml _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_inner_html _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMHTMLElement::set_inner_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_inner_text" webkit_dom_html_element_set_inner_text ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLElementSetInnerText ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetInnerText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_inner_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMHTMLElement::set_item_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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_html_element_set_item_id" webkit_dom_html_element_set_item_id ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
IO ()
{-# DEPRECATED dOMHTMLElementSetItemId ["(Since version 2.2)"]#-}
dOMHTMLElementSetItemId ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetItemId _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_item_id _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLElement::set_item_scope
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_item_scope" webkit_dom_html_element_set_item_scope ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CInt -> -- value : TBasicType TBoolean
IO ()
{-# DEPRECATED dOMHTMLElementSetItemScope ["(Since version 2.2)"]#-}
dOMHTMLElementSetItemScope ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLElementSetItemScope _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_item_scope _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLElement::set_lang
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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_html_element_set_lang" webkit_dom_html_element_set_lang ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLElementSetLang ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetLang _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_lang _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLElement::set_outer_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_outer_html" webkit_dom_html_element_set_outer_html ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLElementSetOuterHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetOuterHtml _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_outer_html _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMHTMLElement::set_outer_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_outer_text" webkit_dom_html_element_set_outer_text ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLElementSetOuterText ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetOuterText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_outer_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMHTMLElement::set_spellcheck
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_spellcheck" webkit_dom_html_element_set_spellcheck ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLElementSetSpellcheck ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLElementSetSpellcheck _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_spellcheck _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLElement::set_tab_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_element_set_tab_index" webkit_dom_html_element_set_tab_index ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLElementSetTabIndex ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLElementSetTabIndex _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_element_set_tab_index _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLElement::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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_html_element_set_title" webkit_dom_html_element_set_title ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLElementSetTitle ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetTitle _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_title _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLElement::set_translate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_element_set_translate" webkit_dom_html_element_set_translate ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLElementSetTranslate ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLElementSetTranslate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_translate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLElement::set_webkitdropzone
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLElement", 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" "DOMHTMLElement", 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_html_element_set_webkitdropzone" webkit_dom_html_element_set_webkitdropzone ::
Ptr DOMHTMLElement -> -- _obj : TInterface "WebKit" "DOMHTMLElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLElementSetWebkitdropzone ::
(MonadIO m, DOMHTMLElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLElementSetWebkitdropzone _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_webkitdropzone _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLEmbedElement
newtype DOMHTMLEmbedElement = DOMHTMLEmbedElement (ForeignPtr DOMHTMLEmbedElement)
noDOMHTMLEmbedElement :: Maybe DOMHTMLEmbedElement
noDOMHTMLEmbedElement = Nothing
foreign import ccall "webkit_dom_html_embed_element_get_type"
c_webkit_dom_html_embed_element_get_type :: IO GType
type instance ParentTypes DOMHTMLEmbedElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLEmbedElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_embed_element_get_type
class GObject o => DOMHTMLEmbedElementK o
instance (GObject o, IsDescendantOf DOMHTMLEmbedElement o) => DOMHTMLEmbedElementK o
toDOMHTMLEmbedElement :: DOMHTMLEmbedElementK o => o -> IO DOMHTMLEmbedElement
toDOMHTMLEmbedElement = unsafeCastTo DOMHTMLEmbedElement
-- method DOMHTMLEmbedElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", 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_html_embed_element_get_align" webkit_dom_html_embed_element_get_align ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
IO CString
dOMHTMLEmbedElementGetAlign ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLEmbedElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_embed_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLEmbedElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", 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_html_embed_element_get_height" webkit_dom_html_embed_element_get_height ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
IO Int64
dOMHTMLEmbedElementGetHeight ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
m Int64
dOMHTMLEmbedElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_embed_element_get_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLEmbedElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", 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_html_embed_element_get_name" webkit_dom_html_embed_element_get_name ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
IO CString
dOMHTMLEmbedElementGetName ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLEmbedElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_embed_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLEmbedElement::get_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", 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_html_embed_element_get_src" webkit_dom_html_embed_element_get_src ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
IO CString
dOMHTMLEmbedElementGetSrc ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLEmbedElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_embed_element_get_src _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLEmbedElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", 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_html_embed_element_get_width" webkit_dom_html_embed_element_get_width ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
IO Int64
dOMHTMLEmbedElementGetWidth ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
m Int64
dOMHTMLEmbedElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_embed_element_get_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLEmbedElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", 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" "DOMHTMLEmbedElement", 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_html_embed_element_set_align" webkit_dom_html_embed_element_set_align ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLEmbedElementSetAlign ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLEmbedElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_embed_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLEmbedElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_embed_element_set_height" webkit_dom_html_embed_element_set_height ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLEmbedElementSetHeight ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLEmbedElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_embed_element_set_height _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLEmbedElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", 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" "DOMHTMLEmbedElement", 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_html_embed_element_set_name" webkit_dom_html_embed_element_set_name ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLEmbedElementSetName ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLEmbedElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_embed_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLEmbedElement::set_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", 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" "DOMHTMLEmbedElement", 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_html_embed_element_set_src" webkit_dom_html_embed_element_set_src ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLEmbedElementSetSrc ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLEmbedElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_embed_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLEmbedElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_embed_element_set_width" webkit_dom_html_embed_element_set_width ::
Ptr DOMHTMLEmbedElement -> -- _obj : TInterface "WebKit" "DOMHTMLEmbedElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLEmbedElementSetWidth ::
(MonadIO m, DOMHTMLEmbedElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLEmbedElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_embed_element_set_width _obj' value
touchManagedPtr _obj
return ()
-- object DOMHTMLFieldSetElement
newtype DOMHTMLFieldSetElement = DOMHTMLFieldSetElement (ForeignPtr DOMHTMLFieldSetElement)
noDOMHTMLFieldSetElement :: Maybe DOMHTMLFieldSetElement
noDOMHTMLFieldSetElement = Nothing
foreign import ccall "webkit_dom_html_field_set_element_get_type"
c_webkit_dom_html_field_set_element_get_type :: IO GType
type instance ParentTypes DOMHTMLFieldSetElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLFieldSetElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_field_set_element_get_type
class GObject o => DOMHTMLFieldSetElementK o
instance (GObject o, IsDescendantOf DOMHTMLFieldSetElement o) => DOMHTMLFieldSetElementK o
toDOMHTMLFieldSetElement :: DOMHTMLFieldSetElementK o => o -> IO DOMHTMLFieldSetElement
toDOMHTMLFieldSetElement = unsafeCastTo DOMHTMLFieldSetElement
-- method DOMHTMLFieldSetElement::check_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", 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_html_field_set_element_check_validity" webkit_dom_html_field_set_element_check_validity ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
IO CInt
dOMHTMLFieldSetElementCheckValidity ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
m Bool
dOMHTMLFieldSetElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_field_set_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFieldSetElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", 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_html_field_set_element_get_disabled" webkit_dom_html_field_set_element_get_disabled ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
IO CInt
dOMHTMLFieldSetElementGetDisabled ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
m Bool
dOMHTMLFieldSetElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_field_set_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFieldSetElement::get_elements
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_field_set_element_get_elements" webkit_dom_html_field_set_element_get_elements ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLFieldSetElementGetElements ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLFieldSetElementGetElements _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_field_set_element_get_elements _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFieldSetElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_field_set_element_get_form" webkit_dom_html_field_set_element_get_form ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLFieldSetElementGetForm ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLFieldSetElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_field_set_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFieldSetElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", 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_html_field_set_element_get_name" webkit_dom_html_field_set_element_get_name ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
IO CString
dOMHTMLFieldSetElementGetName ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFieldSetElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_field_set_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFieldSetElement::get_validation_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", 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_html_field_set_element_get_validation_message" webkit_dom_html_field_set_element_get_validation_message ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
IO CString
dOMHTMLFieldSetElementGetValidationMessage ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFieldSetElementGetValidationMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_field_set_element_get_validation_message _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFieldSetElement::get_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMValidityState"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_field_set_element_get_validity" webkit_dom_html_field_set_element_get_validity ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
IO (Ptr DOMValidityState)
dOMHTMLFieldSetElementGetValidity ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
m DOMValidityState
dOMHTMLFieldSetElementGetValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_field_set_element_get_validity _obj'
result' <- (wrapObject DOMValidityState) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFieldSetElement::get_will_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", 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_html_field_set_element_get_will_validate" webkit_dom_html_field_set_element_get_will_validate ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
IO CInt
dOMHTMLFieldSetElementGetWillValidate ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
m Bool
dOMHTMLFieldSetElementGetWillValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_field_set_element_get_will_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFieldSetElement::set_custom_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", 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_html_field_set_element_set_custom_validity" webkit_dom_html_field_set_element_set_custom_validity ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
CString -> -- error : TBasicType TUTF8
IO ()
dOMHTMLFieldSetElementSetCustomValidity ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
T.Text -> -- error
m ()
dOMHTMLFieldSetElementSetCustomValidity _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
error_' <- textToCString error_
webkit_dom_html_field_set_element_set_custom_validity _obj' error_'
touchManagedPtr _obj
freeMem error_'
return ()
-- method DOMHTMLFieldSetElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_field_set_element_set_disabled" webkit_dom_html_field_set_element_set_disabled ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLFieldSetElementSetDisabled ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLFieldSetElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_field_set_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLFieldSetElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFieldSetElement", 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" "DOMHTMLFieldSetElement", 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_html_field_set_element_set_name" webkit_dom_html_field_set_element_set_name ::
Ptr DOMHTMLFieldSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFieldSetElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFieldSetElementSetName ::
(MonadIO m, DOMHTMLFieldSetElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFieldSetElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_field_set_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLFontElement
newtype DOMHTMLFontElement = DOMHTMLFontElement (ForeignPtr DOMHTMLFontElement)
noDOMHTMLFontElement :: Maybe DOMHTMLFontElement
noDOMHTMLFontElement = Nothing
foreign import ccall "webkit_dom_html_font_element_get_type"
c_webkit_dom_html_font_element_get_type :: IO GType
type instance ParentTypes DOMHTMLFontElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLFontElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_font_element_get_type
class GObject o => DOMHTMLFontElementK o
instance (GObject o, IsDescendantOf DOMHTMLFontElement o) => DOMHTMLFontElementK o
toDOMHTMLFontElement :: DOMHTMLFontElementK o => o -> IO DOMHTMLFontElement
toDOMHTMLFontElement = unsafeCastTo DOMHTMLFontElement
-- method DOMHTMLFontElement::get_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", 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_html_font_element_get_color" webkit_dom_html_font_element_get_color ::
Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement"
IO CString
dOMHTMLFontElementGetColor ::
(MonadIO m, DOMHTMLFontElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFontElementGetColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_font_element_get_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFontElement::get_face
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", 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_html_font_element_get_face" webkit_dom_html_font_element_get_face ::
Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement"
IO CString
dOMHTMLFontElementGetFace ::
(MonadIO m, DOMHTMLFontElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFontElementGetFace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_font_element_get_face _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFontElement::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", 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_html_font_element_get_size" webkit_dom_html_font_element_get_size ::
Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement"
IO CString
dOMHTMLFontElementGetSize ::
(MonadIO m, DOMHTMLFontElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFontElementGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_font_element_get_size _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFontElement::set_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", 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" "DOMHTMLFontElement", 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_html_font_element_set_color" webkit_dom_html_font_element_set_color ::
Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFontElementSetColor ::
(MonadIO m, DOMHTMLFontElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFontElementSetColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_font_element_set_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFontElement::set_face
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", 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" "DOMHTMLFontElement", 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_html_font_element_set_face" webkit_dom_html_font_element_set_face ::
Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFontElementSetFace ::
(MonadIO m, DOMHTMLFontElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFontElementSetFace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_font_element_set_face _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFontElement::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFontElement", 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" "DOMHTMLFontElement", 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_html_font_element_set_size" webkit_dom_html_font_element_set_size ::
Ptr DOMHTMLFontElement -> -- _obj : TInterface "WebKit" "DOMHTMLFontElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFontElementSetSize ::
(MonadIO m, DOMHTMLFontElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFontElementSetSize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_font_element_set_size _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLFormElement
newtype DOMHTMLFormElement = DOMHTMLFormElement (ForeignPtr DOMHTMLFormElement)
noDOMHTMLFormElement :: Maybe DOMHTMLFormElement
noDOMHTMLFormElement = Nothing
foreign import ccall "webkit_dom_html_form_element_get_type"
c_webkit_dom_html_form_element_get_type :: IO GType
type instance ParentTypes DOMHTMLFormElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLFormElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_form_element_get_type
class GObject o => DOMHTMLFormElementK o
instance (GObject o, IsDescendantOf DOMHTMLFormElement o) => DOMHTMLFormElementK o
toDOMHTMLFormElement :: DOMHTMLFormElementK o => o -> IO DOMHTMLFormElement
toDOMHTMLFormElement = unsafeCastTo DOMHTMLFormElement
-- method DOMHTMLFormElement::check_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_check_validity" webkit_dom_html_form_element_check_validity ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CInt
dOMHTMLFormElementCheckValidity ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m Bool
dOMHTMLFormElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::dispatch_form_change
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_dispatch_form_change" webkit_dom_html_form_element_dispatch_form_change ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO ()
{-# DEPRECATED dOMHTMLFormElementDispatchFormChange ["(Since version 1.6)"]#-}
dOMHTMLFormElementDispatchFormChange ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m ()
dOMHTMLFormElementDispatchFormChange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_form_element_dispatch_form_change _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLFormElement::dispatch_form_input
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_dispatch_form_input" webkit_dom_html_form_element_dispatch_form_input ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO ()
{-# DEPRECATED dOMHTMLFormElementDispatchFormInput ["(Since version 1.6)"]#-}
dOMHTMLFormElementDispatchFormInput ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m ()
dOMHTMLFormElementDispatchFormInput _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_form_element_dispatch_form_input _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLFormElement::get_accept_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_accept_charset" webkit_dom_html_form_element_get_accept_charset ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetAcceptCharset ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetAcceptCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_accept_charset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_action" webkit_dom_html_form_element_get_action ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetAction ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_action _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_autocapitalize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_autocapitalize" webkit_dom_html_form_element_get_autocapitalize ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetAutocapitalize ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetAutocapitalize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_autocapitalize _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_autocomplete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_autocomplete" webkit_dom_html_form_element_get_autocomplete ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetAutocomplete ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetAutocomplete _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_autocomplete _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_autocorrect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_autocorrect" webkit_dom_html_form_element_get_autocorrect ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CInt
dOMHTMLFormElementGetAutocorrect ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m Bool
dOMHTMLFormElementGetAutocorrect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_autocorrect _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_elements
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_form_element_get_elements" webkit_dom_html_form_element_get_elements ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLFormElementGetElements ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLFormElementGetElements _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_elements _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_encoding" webkit_dom_html_form_element_get_encoding ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetEncoding ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_encoding _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_enctype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_enctype" webkit_dom_html_form_element_get_enctype ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetEnctype ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetEnctype _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_enctype _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_length" webkit_dom_html_form_element_get_length ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO Int64
dOMHTMLFormElementGetLength ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m Int64
dOMHTMLFormElementGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLFormElement::get_method
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_method" webkit_dom_html_form_element_get_method ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetMethod ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetMethod _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_method _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_name" webkit_dom_html_form_element_get_name ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetName ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_no_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_no_validate" webkit_dom_html_form_element_get_no_validate ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CInt
dOMHTMLFormElementGetNoValidate ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m Bool
dOMHTMLFormElementGetNoValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_no_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_get_target" webkit_dom_html_form_element_get_target ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO CString
dOMHTMLFormElementGetTarget ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFormElementGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_form_element_get_target _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFormElement::reset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_reset" webkit_dom_html_form_element_reset ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO ()
dOMHTMLFormElementReset ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m ()
dOMHTMLFormElementReset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_form_element_reset _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLFormElement::set_accept_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_accept_charset" webkit_dom_html_form_element_set_accept_charset ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetAcceptCharset ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetAcceptCharset _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_accept_charset _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::set_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_action" webkit_dom_html_form_element_set_action ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetAction ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetAction _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_action _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::set_autocapitalize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_autocapitalize" webkit_dom_html_form_element_set_autocapitalize ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetAutocapitalize ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetAutocapitalize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_autocapitalize _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::set_autocomplete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_autocomplete" webkit_dom_html_form_element_set_autocomplete ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetAutocomplete ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetAutocomplete _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_autocomplete _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::set_autocorrect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_form_element_set_autocorrect" webkit_dom_html_form_element_set_autocorrect ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLFormElementSetAutocorrect ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLFormElementSetAutocorrect _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_form_element_set_autocorrect _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLFormElement::set_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_encoding" webkit_dom_html_form_element_set_encoding ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetEncoding ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetEncoding _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_encoding _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::set_enctype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_enctype" webkit_dom_html_form_element_set_enctype ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetEnctype ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetEnctype _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_enctype _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::set_method
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_method" webkit_dom_html_form_element_set_method ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetMethod ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetMethod _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_method _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_name" webkit_dom_html_form_element_set_name ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetName ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::set_no_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_form_element_set_no_validate" webkit_dom_html_form_element_set_no_validate ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLFormElementSetNoValidate ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLFormElementSetNoValidate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_form_element_set_no_validate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLFormElement::set_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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" "DOMHTMLFormElement", 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_html_form_element_set_target" webkit_dom_html_form_element_set_target ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFormElementSetTarget ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFormElementSetTarget _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_form_element_set_target _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFormElement::submit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFormElement", 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_html_form_element_submit" webkit_dom_html_form_element_submit ::
Ptr DOMHTMLFormElement -> -- _obj : TInterface "WebKit" "DOMHTMLFormElement"
IO ()
dOMHTMLFormElementSubmit ::
(MonadIO m, DOMHTMLFormElementK a) =>
a -> -- _obj
m ()
dOMHTMLFormElementSubmit _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_form_element_submit _obj'
touchManagedPtr _obj
return ()
-- object DOMHTMLFrameElement
newtype DOMHTMLFrameElement = DOMHTMLFrameElement (ForeignPtr DOMHTMLFrameElement)
noDOMHTMLFrameElement :: Maybe DOMHTMLFrameElement
noDOMHTMLFrameElement = Nothing
foreign import ccall "webkit_dom_html_frame_element_get_type"
c_webkit_dom_html_frame_element_get_type :: IO GType
type instance ParentTypes DOMHTMLFrameElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLFrameElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_frame_element_get_type
class GObject o => DOMHTMLFrameElementK o
instance (GObject o, IsDescendantOf DOMHTMLFrameElement o) => DOMHTMLFrameElementK o
toDOMHTMLFrameElement :: DOMHTMLFrameElementK o => o -> IO DOMHTMLFrameElement
toDOMHTMLFrameElement = unsafeCastTo DOMHTMLFrameElement
-- method DOMHTMLFrameElement::get_content_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_content_document" webkit_dom_html_frame_element_get_content_document ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO (Ptr DOMDocument)
dOMHTMLFrameElementGetContentDocument ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m DOMDocument
dOMHTMLFrameElementGetContentDocument _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_content_document _obj'
result' <- (newObject DOMDocument) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_content_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_content_window" webkit_dom_html_frame_element_get_content_window ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO (Ptr DOMDOMWindow)
dOMHTMLFrameElementGetContentWindow ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m DOMDOMWindow
dOMHTMLFrameElementGetContentWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_content_window _obj'
result' <- (wrapObject DOMDOMWindow) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_frame_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_frame_border" webkit_dom_html_frame_element_get_frame_border ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO CString
dOMHTMLFrameElementGetFrameBorder ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameElementGetFrameBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_frame_border _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_height" webkit_dom_html_frame_element_get_height ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO Int64
dOMHTMLFrameElementGetHeight ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m Int64
dOMHTMLFrameElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLFrameElement::get_long_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_long_desc" webkit_dom_html_frame_element_get_long_desc ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO CString
dOMHTMLFrameElementGetLongDesc ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameElementGetLongDesc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_long_desc _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_margin_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_margin_height" webkit_dom_html_frame_element_get_margin_height ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO CString
dOMHTMLFrameElementGetMarginHeight ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameElementGetMarginHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_margin_height _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_margin_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_margin_width" webkit_dom_html_frame_element_get_margin_width ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO CString
dOMHTMLFrameElementGetMarginWidth ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameElementGetMarginWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_margin_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_name" webkit_dom_html_frame_element_get_name ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO CString
dOMHTMLFrameElementGetName ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_no_resize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_no_resize" webkit_dom_html_frame_element_get_no_resize ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO CInt
dOMHTMLFrameElementGetNoResize ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m Bool
dOMHTMLFrameElementGetNoResize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_no_resize _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_scrolling" webkit_dom_html_frame_element_get_scrolling ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO CString
dOMHTMLFrameElementGetScrolling ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameElementGetScrolling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_scrolling _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_src" webkit_dom_html_frame_element_get_src ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO CString
dOMHTMLFrameElementGetSrc ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_src _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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_html_frame_element_get_width" webkit_dom_html_frame_element_get_width ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
IO Int64
dOMHTMLFrameElementGetWidth ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
m Int64
dOMHTMLFrameElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_element_get_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLFrameElement::set_frame_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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" "DOMHTMLFrameElement", 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_html_frame_element_set_frame_border" webkit_dom_html_frame_element_set_frame_border ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameElementSetFrameBorder ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameElementSetFrameBorder _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_element_set_frame_border _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFrameElement::set_long_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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" "DOMHTMLFrameElement", 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_html_frame_element_set_long_desc" webkit_dom_html_frame_element_set_long_desc ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameElementSetLongDesc ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameElementSetLongDesc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_element_set_long_desc _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFrameElement::set_margin_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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" "DOMHTMLFrameElement", 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_html_frame_element_set_margin_height" webkit_dom_html_frame_element_set_margin_height ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameElementSetMarginHeight ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameElementSetMarginHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_element_set_margin_height _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFrameElement::set_margin_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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" "DOMHTMLFrameElement", 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_html_frame_element_set_margin_width" webkit_dom_html_frame_element_set_margin_width ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameElementSetMarginWidth ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameElementSetMarginWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_element_set_margin_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFrameElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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" "DOMHTMLFrameElement", 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_html_frame_element_set_name" webkit_dom_html_frame_element_set_name ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameElementSetName ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFrameElement::set_no_resize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_frame_element_set_no_resize" webkit_dom_html_frame_element_set_no_resize ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLFrameElementSetNoResize ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLFrameElementSetNoResize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_frame_element_set_no_resize _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLFrameElement::set_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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" "DOMHTMLFrameElement", 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_html_frame_element_set_scrolling" webkit_dom_html_frame_element_set_scrolling ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameElementSetScrolling ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameElementSetScrolling _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_element_set_scrolling _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFrameElement::set_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameElement", 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" "DOMHTMLFrameElement", 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_html_frame_element_set_src" webkit_dom_html_frame_element_set_src ::
Ptr DOMHTMLFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameElementSetSrc ::
(MonadIO m, DOMHTMLFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLFrameSetElement
newtype DOMHTMLFrameSetElement = DOMHTMLFrameSetElement (ForeignPtr DOMHTMLFrameSetElement)
noDOMHTMLFrameSetElement :: Maybe DOMHTMLFrameSetElement
noDOMHTMLFrameSetElement = Nothing
foreign import ccall "webkit_dom_html_frame_set_element_get_type"
c_webkit_dom_html_frame_set_element_get_type :: IO GType
type instance ParentTypes DOMHTMLFrameSetElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLFrameSetElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_frame_set_element_get_type
class GObject o => DOMHTMLFrameSetElementK o
instance (GObject o, IsDescendantOf DOMHTMLFrameSetElement o) => DOMHTMLFrameSetElementK o
toDOMHTMLFrameSetElement :: DOMHTMLFrameSetElementK o => o -> IO DOMHTMLFrameSetElement
toDOMHTMLFrameSetElement = unsafeCastTo DOMHTMLFrameSetElement
-- method DOMHTMLFrameSetElement::get_cols
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", 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_html_frame_set_element_get_cols" webkit_dom_html_frame_set_element_get_cols ::
Ptr DOMHTMLFrameSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameSetElement"
IO CString
dOMHTMLFrameSetElementGetCols ::
(MonadIO m, DOMHTMLFrameSetElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameSetElementGetCols _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_set_element_get_cols _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameSetElement::get_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", 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_html_frame_set_element_get_rows" webkit_dom_html_frame_set_element_get_rows ::
Ptr DOMHTMLFrameSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameSetElement"
IO CString
dOMHTMLFrameSetElementGetRows ::
(MonadIO m, DOMHTMLFrameSetElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLFrameSetElementGetRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_frame_set_element_get_rows _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLFrameSetElement::set_cols
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", 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" "DOMHTMLFrameSetElement", 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_html_frame_set_element_set_cols" webkit_dom_html_frame_set_element_set_cols ::
Ptr DOMHTMLFrameSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameSetElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameSetElementSetCols ::
(MonadIO m, DOMHTMLFrameSetElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameSetElementSetCols _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_set_element_set_cols _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLFrameSetElement::set_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLFrameSetElement", 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" "DOMHTMLFrameSetElement", 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_html_frame_set_element_set_rows" webkit_dom_html_frame_set_element_set_rows ::
Ptr DOMHTMLFrameSetElement -> -- _obj : TInterface "WebKit" "DOMHTMLFrameSetElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLFrameSetElementSetRows ::
(MonadIO m, DOMHTMLFrameSetElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLFrameSetElementSetRows _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_frame_set_element_set_rows _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLHRElement
newtype DOMHTMLHRElement = DOMHTMLHRElement (ForeignPtr DOMHTMLHRElement)
noDOMHTMLHRElement :: Maybe DOMHTMLHRElement
noDOMHTMLHRElement = Nothing
foreign import ccall "webkit_dom_htmlhr_element_get_type"
c_webkit_dom_htmlhr_element_get_type :: IO GType
type instance ParentTypes DOMHTMLHRElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLHRElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_htmlhr_element_get_type
class GObject o => DOMHTMLHRElementK o
instance (GObject o, IsDescendantOf DOMHTMLHRElement o) => DOMHTMLHRElementK o
toDOMHTMLHRElement :: DOMHTMLHRElementK o => o -> IO DOMHTMLHRElement
toDOMHTMLHRElement = unsafeCastTo DOMHTMLHRElement
-- method DOMHTMLHRElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", 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_htmlhr_element_get_align" webkit_dom_htmlhr_element_get_align ::
Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement"
IO CString
dOMHTMLHRElementGetAlign ::
(MonadIO m, DOMHTMLHRElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLHRElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlhr_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLHRElement::get_no_shade
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", 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_htmlhr_element_get_no_shade" webkit_dom_htmlhr_element_get_no_shade ::
Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement"
IO CInt
dOMHTMLHRElementGetNoShade ::
(MonadIO m, DOMHTMLHRElementK a) =>
a -> -- _obj
m Bool
dOMHTMLHRElementGetNoShade _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlhr_element_get_no_shade _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLHRElement::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", 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_htmlhr_element_get_size" webkit_dom_htmlhr_element_get_size ::
Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement"
IO CString
dOMHTMLHRElementGetSize ::
(MonadIO m, DOMHTMLHRElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLHRElementGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlhr_element_get_size _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLHRElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", 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_htmlhr_element_get_width" webkit_dom_htmlhr_element_get_width ::
Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement"
IO CString
dOMHTMLHRElementGetWidth ::
(MonadIO m, DOMHTMLHRElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLHRElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlhr_element_get_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLHRElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", 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" "DOMHTMLHRElement", 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_htmlhr_element_set_align" webkit_dom_htmlhr_element_set_align ::
Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLHRElementSetAlign ::
(MonadIO m, DOMHTMLHRElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLHRElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_htmlhr_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLHRElement::set_no_shade
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_htmlhr_element_set_no_shade" webkit_dom_htmlhr_element_set_no_shade ::
Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLHRElementSetNoShade ::
(MonadIO m, DOMHTMLHRElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLHRElementSetNoShade _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_htmlhr_element_set_no_shade _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLHRElement::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", 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" "DOMHTMLHRElement", 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_htmlhr_element_set_size" webkit_dom_htmlhr_element_set_size ::
Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLHRElementSetSize ::
(MonadIO m, DOMHTMLHRElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLHRElementSetSize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_htmlhr_element_set_size _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLHRElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHRElement", 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" "DOMHTMLHRElement", 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_htmlhr_element_set_width" webkit_dom_htmlhr_element_set_width ::
Ptr DOMHTMLHRElement -> -- _obj : TInterface "WebKit" "DOMHTMLHRElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLHRElementSetWidth ::
(MonadIO m, DOMHTMLHRElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLHRElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_htmlhr_element_set_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLHeadElement
newtype DOMHTMLHeadElement = DOMHTMLHeadElement (ForeignPtr DOMHTMLHeadElement)
noDOMHTMLHeadElement :: Maybe DOMHTMLHeadElement
noDOMHTMLHeadElement = Nothing
foreign import ccall "webkit_dom_html_head_element_get_type"
c_webkit_dom_html_head_element_get_type :: IO GType
type instance ParentTypes DOMHTMLHeadElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLHeadElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_head_element_get_type
class GObject o => DOMHTMLHeadElementK o
instance (GObject o, IsDescendantOf DOMHTMLHeadElement o) => DOMHTMLHeadElementK o
toDOMHTMLHeadElement :: DOMHTMLHeadElementK o => o -> IO DOMHTMLHeadElement
toDOMHTMLHeadElement = unsafeCastTo DOMHTMLHeadElement
-- method DOMHTMLHeadElement::get_profile
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", 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_html_head_element_get_profile" webkit_dom_html_head_element_get_profile ::
Ptr DOMHTMLHeadElement -> -- _obj : TInterface "WebKit" "DOMHTMLHeadElement"
IO CString
dOMHTMLHeadElementGetProfile ::
(MonadIO m, DOMHTMLHeadElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLHeadElementGetProfile _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_head_element_get_profile _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLHeadElement::set_profile
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadElement", 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" "DOMHTMLHeadElement", 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_html_head_element_set_profile" webkit_dom_html_head_element_set_profile ::
Ptr DOMHTMLHeadElement -> -- _obj : TInterface "WebKit" "DOMHTMLHeadElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLHeadElementSetProfile ::
(MonadIO m, DOMHTMLHeadElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLHeadElementSetProfile _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_head_element_set_profile _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLHeadingElement
newtype DOMHTMLHeadingElement = DOMHTMLHeadingElement (ForeignPtr DOMHTMLHeadingElement)
noDOMHTMLHeadingElement :: Maybe DOMHTMLHeadingElement
noDOMHTMLHeadingElement = Nothing
foreign import ccall "webkit_dom_html_heading_element_get_type"
c_webkit_dom_html_heading_element_get_type :: IO GType
type instance ParentTypes DOMHTMLHeadingElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLHeadingElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_heading_element_get_type
class GObject o => DOMHTMLHeadingElementK o
instance (GObject o, IsDescendantOf DOMHTMLHeadingElement o) => DOMHTMLHeadingElementK o
toDOMHTMLHeadingElement :: DOMHTMLHeadingElementK o => o -> IO DOMHTMLHeadingElement
toDOMHTMLHeadingElement = unsafeCastTo DOMHTMLHeadingElement
-- method DOMHTMLHeadingElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", 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_html_heading_element_get_align" webkit_dom_html_heading_element_get_align ::
Ptr DOMHTMLHeadingElement -> -- _obj : TInterface "WebKit" "DOMHTMLHeadingElement"
IO CString
dOMHTMLHeadingElementGetAlign ::
(MonadIO m, DOMHTMLHeadingElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLHeadingElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_heading_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLHeadingElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHeadingElement", 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" "DOMHTMLHeadingElement", 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_html_heading_element_set_align" webkit_dom_html_heading_element_set_align ::
Ptr DOMHTMLHeadingElement -> -- _obj : TInterface "WebKit" "DOMHTMLHeadingElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLHeadingElementSetAlign ::
(MonadIO m, DOMHTMLHeadingElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLHeadingElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_heading_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLHtmlElement
newtype DOMHTMLHtmlElement = DOMHTMLHtmlElement (ForeignPtr DOMHTMLHtmlElement)
noDOMHTMLHtmlElement :: Maybe DOMHTMLHtmlElement
noDOMHTMLHtmlElement = Nothing
foreign import ccall "webkit_dom_html_html_element_get_type"
c_webkit_dom_html_html_element_get_type :: IO GType
type instance ParentTypes DOMHTMLHtmlElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLHtmlElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_html_element_get_type
class GObject o => DOMHTMLHtmlElementK o
instance (GObject o, IsDescendantOf DOMHTMLHtmlElement o) => DOMHTMLHtmlElementK o
toDOMHTMLHtmlElement :: DOMHTMLHtmlElementK o => o -> IO DOMHTMLHtmlElement
toDOMHTMLHtmlElement = unsafeCastTo DOMHTMLHtmlElement
-- method DOMHTMLHtmlElement::get_manifest
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", 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_html_html_element_get_manifest" webkit_dom_html_html_element_get_manifest ::
Ptr DOMHTMLHtmlElement -> -- _obj : TInterface "WebKit" "DOMHTMLHtmlElement"
IO CString
dOMHTMLHtmlElementGetManifest ::
(MonadIO m, DOMHTMLHtmlElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLHtmlElementGetManifest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_html_element_get_manifest _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLHtmlElement::get_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", 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_html_html_element_get_version" webkit_dom_html_html_element_get_version ::
Ptr DOMHTMLHtmlElement -> -- _obj : TInterface "WebKit" "DOMHTMLHtmlElement"
IO CString
dOMHTMLHtmlElementGetVersion ::
(MonadIO m, DOMHTMLHtmlElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLHtmlElementGetVersion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_html_element_get_version _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLHtmlElement::set_manifest
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", 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" "DOMHTMLHtmlElement", 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_html_html_element_set_manifest" webkit_dom_html_html_element_set_manifest ::
Ptr DOMHTMLHtmlElement -> -- _obj : TInterface "WebKit" "DOMHTMLHtmlElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLHtmlElementSetManifest ::
(MonadIO m, DOMHTMLHtmlElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLHtmlElementSetManifest _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_html_element_set_manifest _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLHtmlElement::set_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLHtmlElement", 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" "DOMHTMLHtmlElement", 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_html_html_element_set_version" webkit_dom_html_html_element_set_version ::
Ptr DOMHTMLHtmlElement -> -- _obj : TInterface "WebKit" "DOMHTMLHtmlElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLHtmlElementSetVersion ::
(MonadIO m, DOMHTMLHtmlElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLHtmlElementSetVersion _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_html_element_set_version _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLIFrameElement
newtype DOMHTMLIFrameElement = DOMHTMLIFrameElement (ForeignPtr DOMHTMLIFrameElement)
noDOMHTMLIFrameElement :: Maybe DOMHTMLIFrameElement
noDOMHTMLIFrameElement = Nothing
foreign import ccall "webkit_dom_html_iframe_element_get_type"
c_webkit_dom_html_iframe_element_get_type :: IO GType
type instance ParentTypes DOMHTMLIFrameElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLIFrameElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_iframe_element_get_type
class GObject o => DOMHTMLIFrameElementK o
instance (GObject o, IsDescendantOf DOMHTMLIFrameElement o) => DOMHTMLIFrameElementK o
toDOMHTMLIFrameElement :: DOMHTMLIFrameElementK o => o -> IO DOMHTMLIFrameElement
toDOMHTMLIFrameElement = unsafeCastTo DOMHTMLIFrameElement
-- method DOMHTMLIFrameElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_align" webkit_dom_html_iframe_element_get_align ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetAlign ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_content_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_content_document" webkit_dom_html_iframe_element_get_content_document ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO (Ptr DOMDocument)
dOMHTMLIFrameElementGetContentDocument ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m DOMDocument
dOMHTMLIFrameElementGetContentDocument _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_content_document _obj'
result' <- (newObject DOMDocument) result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_content_window
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_content_window" webkit_dom_html_iframe_element_get_content_window ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO (Ptr DOMDOMWindow)
dOMHTMLIFrameElementGetContentWindow ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m DOMDOMWindow
dOMHTMLIFrameElementGetContentWindow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_content_window _obj'
result' <- (wrapObject DOMDOMWindow) result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_frame_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_frame_border" webkit_dom_html_iframe_element_get_frame_border ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetFrameBorder ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetFrameBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_frame_border _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_height" webkit_dom_html_iframe_element_get_height ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetHeight ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_height _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_long_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_long_desc" webkit_dom_html_iframe_element_get_long_desc ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetLongDesc ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetLongDesc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_long_desc _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_margin_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_margin_height" webkit_dom_html_iframe_element_get_margin_height ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetMarginHeight ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetMarginHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_margin_height _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_margin_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_margin_width" webkit_dom_html_iframe_element_get_margin_width ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetMarginWidth ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetMarginWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_margin_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_name" webkit_dom_html_iframe_element_get_name ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetName ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_sandbox
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_sandbox" webkit_dom_html_iframe_element_get_sandbox ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetSandbox ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetSandbox _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_sandbox _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_scrolling" webkit_dom_html_iframe_element_get_scrolling ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetScrolling ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetScrolling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_scrolling _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_seamless
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_seamless" webkit_dom_html_iframe_element_get_seamless ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CInt
dOMHTMLIFrameElementGetSeamless ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m Bool
dOMHTMLIFrameElementGetSeamless _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_seamless _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_src" webkit_dom_html_iframe_element_get_src ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetSrc ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_src _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_srcdoc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_srcdoc" webkit_dom_html_iframe_element_get_srcdoc ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetSrcdoc ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetSrcdoc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_srcdoc _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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_html_iframe_element_get_width" webkit_dom_html_iframe_element_get_width ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
IO CString
dOMHTMLIFrameElementGetWidth ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLIFrameElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_iframe_element_get_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLIFrameElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_align" webkit_dom_html_iframe_element_set_align ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetAlign ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_frame_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_frame_border" webkit_dom_html_iframe_element_set_frame_border ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetFrameBorder ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetFrameBorder _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_frame_border _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_height" webkit_dom_html_iframe_element_set_height ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetHeight ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_height _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_long_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_long_desc" webkit_dom_html_iframe_element_set_long_desc ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetLongDesc ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetLongDesc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_long_desc _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_margin_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_margin_height" webkit_dom_html_iframe_element_set_margin_height ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetMarginHeight ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetMarginHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_margin_height _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_margin_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_margin_width" webkit_dom_html_iframe_element_set_margin_width ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetMarginWidth ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetMarginWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_margin_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_name" webkit_dom_html_iframe_element_set_name ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetName ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_sandbox
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_sandbox" webkit_dom_html_iframe_element_set_sandbox ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetSandbox ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetSandbox _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_sandbox _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_scrolling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_scrolling" webkit_dom_html_iframe_element_set_scrolling ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetScrolling ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetScrolling _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_scrolling _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_seamless
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_iframe_element_set_seamless" webkit_dom_html_iframe_element_set_seamless ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLIFrameElementSetSeamless ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLIFrameElementSetSeamless _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_iframe_element_set_seamless _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLIFrameElement::set_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_src" webkit_dom_html_iframe_element_set_src ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetSrc ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_srcdoc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_srcdoc" webkit_dom_html_iframe_element_set_srcdoc ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetSrcdoc ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetSrcdoc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_srcdoc _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLIFrameElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLIFrameElement", 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" "DOMHTMLIFrameElement", 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_html_iframe_element_set_width" webkit_dom_html_iframe_element_set_width ::
Ptr DOMHTMLIFrameElement -> -- _obj : TInterface "WebKit" "DOMHTMLIFrameElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLIFrameElementSetWidth ::
(MonadIO m, DOMHTMLIFrameElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLIFrameElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_iframe_element_set_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLImageElement
newtype DOMHTMLImageElement = DOMHTMLImageElement (ForeignPtr DOMHTMLImageElement)
noDOMHTMLImageElement :: Maybe DOMHTMLImageElement
noDOMHTMLImageElement = Nothing
foreign import ccall "webkit_dom_html_image_element_get_type"
c_webkit_dom_html_image_element_get_type :: IO GType
type instance ParentTypes DOMHTMLImageElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLImageElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_image_element_get_type
class GObject o => DOMHTMLImageElementK o
instance (GObject o, IsDescendantOf DOMHTMLImageElement o) => DOMHTMLImageElementK o
toDOMHTMLImageElement :: DOMHTMLImageElementK o => o -> IO DOMHTMLImageElement
toDOMHTMLImageElement = unsafeCastTo DOMHTMLImageElement
-- method DOMHTMLImageElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_align" webkit_dom_html_image_element_get_align ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetAlign ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_alt
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_alt" webkit_dom_html_image_element_get_alt ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetAlt ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetAlt _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_alt _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_border" webkit_dom_html_image_element_get_border ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetBorder ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_border _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_complete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_complete" webkit_dom_html_image_element_get_complete ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CInt
dOMHTMLImageElementGetComplete ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Bool
dOMHTMLImageElementGetComplete _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_complete _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_cross_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_cross_origin" webkit_dom_html_image_element_get_cross_origin ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetCrossOrigin ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetCrossOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_cross_origin _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_height" webkit_dom_html_image_element_get_height ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO Int64
dOMHTMLImageElementGetHeight ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Int64
dOMHTMLImageElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLImageElement::get_hspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_hspace" webkit_dom_html_image_element_get_hspace ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO Int64
dOMHTMLImageElementGetHspace ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Int64
dOMHTMLImageElementGetHspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_hspace _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLImageElement::get_is_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_is_map" webkit_dom_html_image_element_get_is_map ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CInt
dOMHTMLImageElementGetIsMap ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Bool
dOMHTMLImageElementGetIsMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_is_map _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_long_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_long_desc" webkit_dom_html_image_element_get_long_desc ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetLongDesc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetLongDesc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_long_desc _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_lowsrc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_lowsrc" webkit_dom_html_image_element_get_lowsrc ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetLowsrc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetLowsrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_lowsrc _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_name" webkit_dom_html_image_element_get_name ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetName ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_natural_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_natural_height" webkit_dom_html_image_element_get_natural_height ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO Int64
dOMHTMLImageElementGetNaturalHeight ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Int64
dOMHTMLImageElementGetNaturalHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_natural_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLImageElement::get_natural_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_natural_width" webkit_dom_html_image_element_get_natural_width ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO Int64
dOMHTMLImageElementGetNaturalWidth ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Int64
dOMHTMLImageElementGetNaturalWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_natural_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLImageElement::get_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_src" webkit_dom_html_image_element_get_src ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetSrc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_src _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_srcset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_srcset" webkit_dom_html_image_element_get_srcset ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetSrcset ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetSrcset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_srcset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_use_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_use_map" webkit_dom_html_image_element_get_use_map ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO CString
dOMHTMLImageElementGetUseMap ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLImageElementGetUseMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_use_map _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLImageElement::get_vspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_vspace" webkit_dom_html_image_element_get_vspace ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO Int64
dOMHTMLImageElementGetVspace ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Int64
dOMHTMLImageElementGetVspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_vspace _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLImageElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_width" webkit_dom_html_image_element_get_width ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO Int64
dOMHTMLImageElementGetWidth ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Int64
dOMHTMLImageElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLImageElement::get_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_x" webkit_dom_html_image_element_get_x ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO Int64
dOMHTMLImageElementGetX ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Int64
dOMHTMLImageElementGetX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_x _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLImageElement::get_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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_html_image_element_get_y" webkit_dom_html_image_element_get_y ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
IO Int64
dOMHTMLImageElementGetY ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
m Int64
dOMHTMLImageElementGetY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_y _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLImageElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_align" webkit_dom_html_image_element_set_align ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetAlign ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_alt
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_alt" webkit_dom_html_image_element_set_alt ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetAlt ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetAlt _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_alt _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_border" webkit_dom_html_image_element_set_border ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetBorder ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetBorder _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_border _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_cross_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_cross_origin" webkit_dom_html_image_element_set_cross_origin ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetCrossOrigin ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetCrossOrigin _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_cross_origin _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_image_element_set_height" webkit_dom_html_image_element_set_height ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLImageElementSetHeight ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLImageElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_image_element_set_height _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLImageElement::set_hspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_image_element_set_hspace" webkit_dom_html_image_element_set_hspace ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLImageElementSetHspace ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLImageElementSetHspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_image_element_set_hspace _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLImageElement::set_is_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_image_element_set_is_map" webkit_dom_html_image_element_set_is_map ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLImageElementSetIsMap ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLImageElementSetIsMap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_image_element_set_is_map _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLImageElement::set_long_desc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_long_desc" webkit_dom_html_image_element_set_long_desc ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetLongDesc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetLongDesc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_long_desc _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_lowsrc
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_lowsrc" webkit_dom_html_image_element_set_lowsrc ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetLowsrc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetLowsrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_lowsrc _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_name" webkit_dom_html_image_element_set_name ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetName ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_src" webkit_dom_html_image_element_set_src ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetSrc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_srcset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_srcset" webkit_dom_html_image_element_set_srcset ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetSrcset ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetSrcset _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_srcset _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_use_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", 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" "DOMHTMLImageElement", 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_html_image_element_set_use_map" webkit_dom_html_image_element_set_use_map ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLImageElementSetUseMap ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLImageElementSetUseMap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_use_map _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLImageElement::set_vspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_image_element_set_vspace" webkit_dom_html_image_element_set_vspace ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLImageElementSetVspace ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLImageElementSetVspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_image_element_set_vspace _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLImageElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_image_element_set_width" webkit_dom_html_image_element_set_width ::
Ptr DOMHTMLImageElement -> -- _obj : TInterface "WebKit" "DOMHTMLImageElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLImageElementSetWidth ::
(MonadIO m, DOMHTMLImageElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLImageElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_image_element_set_width _obj' value
touchManagedPtr _obj
return ()
-- object DOMHTMLInputElement
newtype DOMHTMLInputElement = DOMHTMLInputElement (ForeignPtr DOMHTMLInputElement)
noDOMHTMLInputElement :: Maybe DOMHTMLInputElement
noDOMHTMLInputElement = Nothing
foreign import ccall "webkit_dom_html_input_element_get_type"
c_webkit_dom_html_input_element_get_type :: IO GType
type instance ParentTypes DOMHTMLInputElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLInputElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_input_element_get_type
class GObject o => DOMHTMLInputElementK o
instance (GObject o, IsDescendantOf DOMHTMLInputElement o) => DOMHTMLInputElementK o
toDOMHTMLInputElement :: DOMHTMLInputElementK o => o -> IO DOMHTMLInputElement
toDOMHTMLInputElement = unsafeCastTo DOMHTMLInputElement
-- method DOMHTMLInputElement::check_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_check_validity" webkit_dom_html_input_element_check_validity ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementCheckValidity ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_accept
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_accept" webkit_dom_html_input_element_get_accept ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetAccept ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetAccept _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_accept _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_align" webkit_dom_html_input_element_get_align ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetAlign ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_alt
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_alt" webkit_dom_html_input_element_get_alt ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetAlt ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetAlt _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_alt _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_autocapitalize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_autocapitalize" webkit_dom_html_input_element_get_autocapitalize ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetAutocapitalize ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetAutocapitalize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_autocapitalize _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_autocomplete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_autocomplete" webkit_dom_html_input_element_get_autocomplete ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetAutocomplete ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetAutocomplete _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_autocomplete _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_autocorrect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_autocorrect" webkit_dom_html_input_element_get_autocorrect ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetAutocorrect ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetAutocorrect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_autocorrect _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_autofocus" webkit_dom_html_input_element_get_autofocus ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetAutofocus ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetAutofocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_autofocus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_capture
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_capture" webkit_dom_html_input_element_get_capture ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetCapture ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetCapture _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_capture _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_checked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_checked" webkit_dom_html_input_element_get_checked ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetChecked ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetChecked _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_checked _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_default_checked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_default_checked" webkit_dom_html_input_element_get_default_checked ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetDefaultChecked ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetDefaultChecked _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_default_checked _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_default_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_default_value" webkit_dom_html_input_element_get_default_value ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetDefaultValue ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetDefaultValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_default_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_dir_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_dir_name" webkit_dom_html_input_element_get_dir_name ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetDirName ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetDirName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_dir_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_disabled" webkit_dom_html_input_element_get_disabled ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetDisabled ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_files
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMFileList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_get_files" webkit_dom_html_input_element_get_files ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO (Ptr DOMFileList)
dOMHTMLInputElementGetFiles ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m DOMFileList
dOMHTMLInputElementGetFiles _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_files _obj'
result' <- (wrapObject DOMFileList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_get_form" webkit_dom_html_input_element_get_form ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLInputElementGetForm ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLInputElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_form_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_form_action" webkit_dom_html_input_element_get_form_action ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetFormAction ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetFormAction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_form_action _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_form_enctype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_form_enctype" webkit_dom_html_input_element_get_form_enctype ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetFormEnctype ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetFormEnctype _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_form_enctype _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_form_method
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_form_method" webkit_dom_html_input_element_get_form_method ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetFormMethod ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetFormMethod _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_form_method _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_form_no_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_form_no_validate" webkit_dom_html_input_element_get_form_no_validate ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetFormNoValidate ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetFormNoValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_form_no_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_form_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_form_target" webkit_dom_html_input_element_get_form_target ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetFormTarget ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetFormTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_form_target _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_height" webkit_dom_html_input_element_get_height ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO Word64
dOMHTMLInputElementGetHeight ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Word64
dOMHTMLInputElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLInputElement::get_incremental
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_incremental" webkit_dom_html_input_element_get_incremental ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetIncremental ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetIncremental _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_incremental _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_indeterminate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_indeterminate" webkit_dom_html_input_element_get_indeterminate ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetIndeterminate ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetIndeterminate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_indeterminate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_labels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_get_labels" webkit_dom_html_input_element_get_labels ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO (Ptr DOMNodeList)
dOMHTMLInputElementGetLabels ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m DOMNodeList
dOMHTMLInputElementGetLabels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_labels _obj'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_get_list" webkit_dom_html_input_element_get_list ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO (Ptr DOMHTMLElement)
dOMHTMLInputElementGetList ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m DOMHTMLElement
dOMHTMLInputElementGetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_list _obj'
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_max
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_max" webkit_dom_html_input_element_get_max ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetMax ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetMax _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_max _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_max_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_max_length" webkit_dom_html_input_element_get_max_length ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO Int64
dOMHTMLInputElementGetMaxLength ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Int64
dOMHTMLInputElementGetMaxLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_max_length _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLInputElement::get_min
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_min" webkit_dom_html_input_element_get_min ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetMin ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetMin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_min _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_multiple" webkit_dom_html_input_element_get_multiple ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetMultiple ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetMultiple _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_multiple _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_name" webkit_dom_html_input_element_get_name ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetName ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_pattern
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_pattern" webkit_dom_html_input_element_get_pattern ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetPattern ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetPattern _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_pattern _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_placeholder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_placeholder" webkit_dom_html_input_element_get_placeholder ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetPlaceholder ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetPlaceholder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_placeholder _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_read_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_read_only" webkit_dom_html_input_element_get_read_only ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetReadOnly ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetReadOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_read_only _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_required
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_required" webkit_dom_html_input_element_get_required ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetRequired ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetRequired _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_required _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_size" webkit_dom_html_input_element_get_size ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO Word64
dOMHTMLInputElementGetSize ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Word64
dOMHTMLInputElementGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_size _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLInputElement::get_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_src" webkit_dom_html_input_element_get_src ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetSrc ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_src _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_step
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_step" webkit_dom_html_input_element_get_step ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetStep ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetStep _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_step _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_use_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_use_map" webkit_dom_html_input_element_get_use_map ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetUseMap ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetUseMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_use_map _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_validation_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_validation_message" webkit_dom_html_input_element_get_validation_message ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetValidationMessage ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetValidationMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_validation_message _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMValidityState"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_get_validity" webkit_dom_html_input_element_get_validity ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO (Ptr DOMValidityState)
dOMHTMLInputElementGetValidity ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m DOMValidityState
dOMHTMLInputElementGetValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_validity _obj'
result' <- (wrapObject DOMValidityState) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_value" webkit_dom_html_input_element_get_value ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CString
dOMHTMLInputElementGetValue ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLInputElementGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_value_as_number
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_value_as_number" webkit_dom_html_input_element_get_value_as_number ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CDouble
dOMHTMLInputElementGetValueAsNumber ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Double
dOMHTMLInputElementGetValueAsNumber _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_value_as_number _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_webkit_grammar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_webkit_grammar" webkit_dom_html_input_element_get_webkit_grammar ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetWebkitGrammar ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetWebkitGrammar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_webkit_grammar _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_webkit_speech
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_webkit_speech" webkit_dom_html_input_element_get_webkit_speech ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetWebkitSpeech ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetWebkitSpeech _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_webkit_speech _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_webkitdirectory
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_webkitdirectory" webkit_dom_html_input_element_get_webkitdirectory ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetWebkitdirectory ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetWebkitdirectory _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_webkitdirectory _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_width" webkit_dom_html_input_element_get_width ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO Word64
dOMHTMLInputElementGetWidth ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Word64
dOMHTMLInputElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLInputElement::get_will_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_get_will_validate" webkit_dom_html_input_element_get_will_validate ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementGetWillValidate ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementGetWillValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_get_will_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::is_edited
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_is_edited" webkit_dom_html_input_element_is_edited ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO CInt
dOMHTMLInputElementIsEdited ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m Bool
dOMHTMLInputElementIsEdited _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_input_element_is_edited _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLInputElement::select
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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_html_input_element_select" webkit_dom_html_input_element_select ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
IO ()
dOMHTMLInputElementSelect ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
m ()
dOMHTMLInputElementSelect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_input_element_select _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_accept
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_accept" webkit_dom_html_input_element_set_accept ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetAccept ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetAccept _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_accept _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_align" webkit_dom_html_input_element_set_align ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetAlign ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_alt
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_alt" webkit_dom_html_input_element_set_alt ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetAlt ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetAlt _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_alt _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_autocapitalize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_autocapitalize" webkit_dom_html_input_element_set_autocapitalize ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetAutocapitalize ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetAutocapitalize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_autocapitalize _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_autocomplete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_autocomplete" webkit_dom_html_input_element_set_autocomplete ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetAutocomplete ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetAutocomplete _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_autocomplete _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_autocorrect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_autocorrect" webkit_dom_html_input_element_set_autocorrect ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetAutocorrect ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetAutocorrect _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_autocorrect _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_autofocus" webkit_dom_html_input_element_set_autofocus ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetAutofocus ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetAutofocus _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_autofocus _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_capture
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_capture" webkit_dom_html_input_element_set_capture ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetCapture ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetCapture _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_capture _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_checked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_checked" webkit_dom_html_input_element_set_checked ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetChecked ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetChecked _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_checked _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_custom_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", 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_html_input_element_set_custom_validity" webkit_dom_html_input_element_set_custom_validity ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- error : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetCustomValidity ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- error
m ()
dOMHTMLInputElementSetCustomValidity _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
error_' <- textToCString error_
webkit_dom_html_input_element_set_custom_validity _obj' error_'
touchManagedPtr _obj
freeMem error_'
return ()
-- method DOMHTMLInputElement::set_default_checked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_default_checked" webkit_dom_html_input_element_set_default_checked ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetDefaultChecked ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetDefaultChecked _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_default_checked _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_default_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_default_value" webkit_dom_html_input_element_set_default_value ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetDefaultValue ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetDefaultValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_default_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_dir_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_dir_name" webkit_dom_html_input_element_set_dir_name ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetDirName ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetDirName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_dir_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_disabled" webkit_dom_html_input_element_set_disabled ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetDisabled ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_files
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMFileList", 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_html_input_element_set_files" webkit_dom_html_input_element_set_files ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
Ptr DOMFileList -> -- value : TInterface "WebKit" "DOMFileList"
IO ()
dOMHTMLInputElementSetFiles ::
(MonadIO m, DOMHTMLInputElementK a, DOMFileListK b) =>
a -> -- _obj
b -> -- value
m ()
dOMHTMLInputElementSetFiles _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = unsafeManagedPtrCastPtr value
webkit_dom_html_input_element_set_files _obj' value'
touchManagedPtr _obj
touchManagedPtr value
return ()
-- method DOMHTMLInputElement::set_form_action
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_form_action" webkit_dom_html_input_element_set_form_action ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetFormAction ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetFormAction _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_form_action _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_form_enctype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_form_enctype" webkit_dom_html_input_element_set_form_enctype ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetFormEnctype ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetFormEnctype _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_form_enctype _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_form_method
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_form_method" webkit_dom_html_input_element_set_form_method ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetFormMethod ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetFormMethod _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_form_method _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_form_no_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_form_no_validate" webkit_dom_html_input_element_set_form_no_validate ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetFormNoValidate ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetFormNoValidate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_form_no_validate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_form_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_form_target" webkit_dom_html_input_element_set_form_target ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetFormTarget ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetFormTarget _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_form_target _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, 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_html_input_element_set_height" webkit_dom_html_input_element_set_height ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
Word64 -> -- value : TBasicType TUInt64
IO ()
dOMHTMLInputElementSetHeight ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Word64 -> -- value
m ()
dOMHTMLInputElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_input_element_set_height _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_incremental
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_incremental" webkit_dom_html_input_element_set_incremental ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetIncremental ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetIncremental _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_incremental _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_indeterminate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_indeterminate" webkit_dom_html_input_element_set_indeterminate ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetIndeterminate ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetIndeterminate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_indeterminate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_max
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_max" webkit_dom_html_input_element_set_max ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetMax ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetMax _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_max _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_max_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_max_length" webkit_dom_html_input_element_set_max_length ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
Int64 -> -- value : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLInputElementSetMaxLength ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLInputElementSetMaxLength _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_input_element_set_max_length _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLInputElement::set_min
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_min" webkit_dom_html_input_element_set_min ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetMin ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetMin _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_min _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_multiple" webkit_dom_html_input_element_set_multiple ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetMultiple ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetMultiple _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_multiple _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_name" webkit_dom_html_input_element_set_name ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetName ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_pattern
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_pattern" webkit_dom_html_input_element_set_pattern ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetPattern ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetPattern _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_pattern _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_placeholder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_placeholder" webkit_dom_html_input_element_set_placeholder ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetPlaceholder ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetPlaceholder _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_placeholder _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_range_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_range_text" webkit_dom_html_input_element_set_range_text ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- replacement : TBasicType TUTF8
Word64 -> -- start : TBasicType TUInt64
Word64 -> -- end : TBasicType TUInt64
CString -> -- selectionMode : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLInputElementSetRangeText ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- replacement
Word64 -> -- start
Word64 -> -- end
T.Text -> -- selectionMode
m ()
dOMHTMLInputElementSetRangeText _obj replacement start end selectionMode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
replacement' <- textToCString replacement
selectionMode' <- textToCString selectionMode
onException (do
propagateGError $ webkit_dom_html_input_element_set_range_text _obj' replacement' start end selectionMode'
touchManagedPtr _obj
freeMem replacement'
freeMem selectionMode'
return ()
) (do
freeMem replacement'
freeMem selectionMode'
)
-- method DOMHTMLInputElement::set_read_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_read_only" webkit_dom_html_input_element_set_read_only ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetReadOnly ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetReadOnly _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_read_only _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_required
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_required" webkit_dom_html_input_element_set_required ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetRequired ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetRequired _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_required _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_size" webkit_dom_html_input_element_set_size ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
Word64 -> -- value : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLInputElementSetSize ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Word64 -> -- value
m ()
dOMHTMLInputElementSetSize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_input_element_set_size _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLInputElement::set_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_src" webkit_dom_html_input_element_set_src ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetSrc ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_step
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_step" webkit_dom_html_input_element_set_step ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetStep ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetStep _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_step _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_use_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_use_map" webkit_dom_html_input_element_set_use_map ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetUseMap ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetUseMap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_use_map _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_value" webkit_dom_html_input_element_set_value ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetValue ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_value_as_number
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_value_as_number" webkit_dom_html_input_element_set_value_as_number ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CDouble -> -- value : TBasicType TDouble
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLInputElementSetValueAsNumber ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMHTMLInputElementSetValueAsNumber _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_html_input_element_set_value_as_number _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLInputElement::set_value_for_user
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", 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" "DOMHTMLInputElement", 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_html_input_element_set_value_for_user" webkit_dom_html_input_element_set_value_for_user ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLInputElementSetValueForUser ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLInputElementSetValueForUser _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_input_element_set_value_for_user _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLInputElement::set_webkit_grammar
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_webkit_grammar" webkit_dom_html_input_element_set_webkit_grammar ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetWebkitGrammar ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetWebkitGrammar _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_webkit_grammar _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_webkit_speech
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_webkit_speech" webkit_dom_html_input_element_set_webkit_speech ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetWebkitSpeech ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetWebkitSpeech _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_webkit_speech _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_webkitdirectory
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_set_webkitdirectory" webkit_dom_html_input_element_set_webkitdirectory ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLInputElementSetWebkitdirectory ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLInputElementSetWebkitdirectory _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_input_element_set_webkitdirectory _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, 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_html_input_element_set_width" webkit_dom_html_input_element_set_width ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
Word64 -> -- value : TBasicType TUInt64
IO ()
dOMHTMLInputElementSetWidth ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Word64 -> -- value
m ()
dOMHTMLInputElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_input_element_set_width _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLInputElement::step_down
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_step_down" webkit_dom_html_input_element_step_down ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
Int64 -> -- n : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLInputElementStepDown ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Int64 -> -- n
m ()
dOMHTMLInputElementStepDown _obj n = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_input_element_step_down _obj' n
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLInputElement::step_up
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_input_element_step_up" webkit_dom_html_input_element_step_up ::
Ptr DOMHTMLInputElement -> -- _obj : TInterface "WebKit" "DOMHTMLInputElement"
Int64 -> -- n : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLInputElementStepUp ::
(MonadIO m, DOMHTMLInputElementK a) =>
a -> -- _obj
Int64 -> -- n
m ()
dOMHTMLInputElementStepUp _obj n = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_input_element_step_up _obj' n
touchManagedPtr _obj
return ()
) (do
return ()
)
-- object DOMHTMLKeygenElement
newtype DOMHTMLKeygenElement = DOMHTMLKeygenElement (ForeignPtr DOMHTMLKeygenElement)
noDOMHTMLKeygenElement :: Maybe DOMHTMLKeygenElement
noDOMHTMLKeygenElement = Nothing
foreign import ccall "webkit_dom_html_keygen_element_get_type"
c_webkit_dom_html_keygen_element_get_type :: IO GType
type instance ParentTypes DOMHTMLKeygenElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLKeygenElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_keygen_element_get_type
class GObject o => DOMHTMLKeygenElementK o
instance (GObject o, IsDescendantOf DOMHTMLKeygenElement o) => DOMHTMLKeygenElementK o
toDOMHTMLKeygenElement :: DOMHTMLKeygenElementK o => o -> IO DOMHTMLKeygenElement
toDOMHTMLKeygenElement = unsafeCastTo DOMHTMLKeygenElement
-- method DOMHTMLKeygenElement::check_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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_html_keygen_element_check_validity" webkit_dom_html_keygen_element_check_validity ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO CInt
dOMHTMLKeygenElementCheckValidity ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m Bool
dOMHTMLKeygenElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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_html_keygen_element_get_autofocus" webkit_dom_html_keygen_element_get_autofocus ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO CInt
dOMHTMLKeygenElementGetAutofocus ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m Bool
dOMHTMLKeygenElementGetAutofocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_autofocus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_challenge
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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_html_keygen_element_get_challenge" webkit_dom_html_keygen_element_get_challenge ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO CString
dOMHTMLKeygenElementGetChallenge ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLKeygenElementGetChallenge _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_challenge _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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_html_keygen_element_get_disabled" webkit_dom_html_keygen_element_get_disabled ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO CInt
dOMHTMLKeygenElementGetDisabled ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m Bool
dOMHTMLKeygenElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_keygen_element_get_form" webkit_dom_html_keygen_element_get_form ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLKeygenElementGetForm ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLKeygenElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_keytype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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_html_keygen_element_get_keytype" webkit_dom_html_keygen_element_get_keytype ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO CString
dOMHTMLKeygenElementGetKeytype ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLKeygenElementGetKeytype _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_keytype _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_labels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_keygen_element_get_labels" webkit_dom_html_keygen_element_get_labels ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO (Ptr DOMNodeList)
dOMHTMLKeygenElementGetLabels ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m DOMNodeList
dOMHTMLKeygenElementGetLabels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_labels _obj'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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_html_keygen_element_get_name" webkit_dom_html_keygen_element_get_name ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO CString
dOMHTMLKeygenElementGetName ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLKeygenElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_validation_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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_html_keygen_element_get_validation_message" webkit_dom_html_keygen_element_get_validation_message ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO CString
dOMHTMLKeygenElementGetValidationMessage ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLKeygenElementGetValidationMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_validation_message _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMValidityState"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_keygen_element_get_validity" webkit_dom_html_keygen_element_get_validity ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO (Ptr DOMValidityState)
dOMHTMLKeygenElementGetValidity ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m DOMValidityState
dOMHTMLKeygenElementGetValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_validity _obj'
result' <- (wrapObject DOMValidityState) result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::get_will_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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_html_keygen_element_get_will_validate" webkit_dom_html_keygen_element_get_will_validate ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
IO CInt
dOMHTMLKeygenElementGetWillValidate ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
m Bool
dOMHTMLKeygenElementGetWillValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_will_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLKeygenElement::set_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_keygen_element_set_autofocus" webkit_dom_html_keygen_element_set_autofocus ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLKeygenElementSetAutofocus ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLKeygenElementSetAutofocus _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_keygen_element_set_autofocus _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLKeygenElement::set_challenge
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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" "DOMHTMLKeygenElement", 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_html_keygen_element_set_challenge" webkit_dom_html_keygen_element_set_challenge ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLKeygenElementSetChallenge ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLKeygenElementSetChallenge _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_keygen_element_set_challenge _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLKeygenElement::set_custom_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", 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_html_keygen_element_set_custom_validity" webkit_dom_html_keygen_element_set_custom_validity ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
CString -> -- error : TBasicType TUTF8
IO ()
dOMHTMLKeygenElementSetCustomValidity ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
T.Text -> -- error
m ()
dOMHTMLKeygenElementSetCustomValidity _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
error_' <- textToCString error_
webkit_dom_html_keygen_element_set_custom_validity _obj' error_'
touchManagedPtr _obj
freeMem error_'
return ()
-- method DOMHTMLKeygenElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_keygen_element_set_disabled" webkit_dom_html_keygen_element_set_disabled ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLKeygenElementSetDisabled ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLKeygenElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_keygen_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLKeygenElement::set_keytype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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" "DOMHTMLKeygenElement", 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_html_keygen_element_set_keytype" webkit_dom_html_keygen_element_set_keytype ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLKeygenElementSetKeytype ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLKeygenElementSetKeytype _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_keygen_element_set_keytype _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLKeygenElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLKeygenElement", 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" "DOMHTMLKeygenElement", 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_html_keygen_element_set_name" webkit_dom_html_keygen_element_set_name ::
Ptr DOMHTMLKeygenElement -> -- _obj : TInterface "WebKit" "DOMHTMLKeygenElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLKeygenElementSetName ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLKeygenElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_keygen_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLLIElement
newtype DOMHTMLLIElement = DOMHTMLLIElement (ForeignPtr DOMHTMLLIElement)
noDOMHTMLLIElement :: Maybe DOMHTMLLIElement
noDOMHTMLLIElement = Nothing
foreign import ccall "webkit_dom_htmlli_element_get_type"
c_webkit_dom_htmlli_element_get_type :: IO GType
type instance ParentTypes DOMHTMLLIElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLLIElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_htmlli_element_get_type
class GObject o => DOMHTMLLIElementK o
instance (GObject o, IsDescendantOf DOMHTMLLIElement o) => DOMHTMLLIElementK o
toDOMHTMLLIElement :: DOMHTMLLIElementK o => o -> IO DOMHTMLLIElement
toDOMHTMLLIElement = unsafeCastTo DOMHTMLLIElement
-- method DOMHTMLLIElement::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", 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_htmlli_element_get_value" webkit_dom_htmlli_element_get_value ::
Ptr DOMHTMLLIElement -> -- _obj : TInterface "WebKit" "DOMHTMLLIElement"
IO Int64
dOMHTMLLIElementGetValue ::
(MonadIO m, DOMHTMLLIElementK a) =>
a -> -- _obj
m Int64
dOMHTMLLIElementGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlli_element_get_value _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLLIElement::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_htmlli_element_set_value" webkit_dom_htmlli_element_set_value ::
Ptr DOMHTMLLIElement -> -- _obj : TInterface "WebKit" "DOMHTMLLIElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLLIElementSetValue ::
(MonadIO m, DOMHTMLLIElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLLIElementSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_htmlli_element_set_value _obj' value
touchManagedPtr _obj
return ()
-- object DOMHTMLLabelElement
newtype DOMHTMLLabelElement = DOMHTMLLabelElement (ForeignPtr DOMHTMLLabelElement)
noDOMHTMLLabelElement :: Maybe DOMHTMLLabelElement
noDOMHTMLLabelElement = Nothing
foreign import ccall "webkit_dom_html_label_element_get_type"
c_webkit_dom_html_label_element_get_type :: IO GType
type instance ParentTypes DOMHTMLLabelElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLLabelElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_label_element_get_type
class GObject o => DOMHTMLLabelElementK o
instance (GObject o, IsDescendantOf DOMHTMLLabelElement o) => DOMHTMLLabelElementK o
toDOMHTMLLabelElement :: DOMHTMLLabelElementK o => o -> IO DOMHTMLLabelElement
toDOMHTMLLabelElement = unsafeCastTo DOMHTMLLabelElement
-- method DOMHTMLLabelElement::get_control
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_label_element_get_control" webkit_dom_html_label_element_get_control ::
Ptr DOMHTMLLabelElement -> -- _obj : TInterface "WebKit" "DOMHTMLLabelElement"
IO (Ptr DOMHTMLElement)
dOMHTMLLabelElementGetControl ::
(MonadIO m, DOMHTMLLabelElementK a) =>
a -> -- _obj
m DOMHTMLElement
dOMHTMLLabelElementGetControl _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_label_element_get_control _obj'
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLLabelElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_label_element_get_form" webkit_dom_html_label_element_get_form ::
Ptr DOMHTMLLabelElement -> -- _obj : TInterface "WebKit" "DOMHTMLLabelElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLLabelElementGetForm ::
(MonadIO m, DOMHTMLLabelElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLLabelElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_label_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLLabelElement::get_html_for
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", 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_html_label_element_get_html_for" webkit_dom_html_label_element_get_html_for ::
Ptr DOMHTMLLabelElement -> -- _obj : TInterface "WebKit" "DOMHTMLLabelElement"
IO CString
dOMHTMLLabelElementGetHtmlFor ::
(MonadIO m, DOMHTMLLabelElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLabelElementGetHtmlFor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_label_element_get_html_for _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLabelElement::set_html_for
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLabelElement", 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" "DOMHTMLLabelElement", 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_html_label_element_set_html_for" webkit_dom_html_label_element_set_html_for ::
Ptr DOMHTMLLabelElement -> -- _obj : TInterface "WebKit" "DOMHTMLLabelElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLabelElementSetHtmlFor ::
(MonadIO m, DOMHTMLLabelElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLabelElementSetHtmlFor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_label_element_set_html_for _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLLegendElement
newtype DOMHTMLLegendElement = DOMHTMLLegendElement (ForeignPtr DOMHTMLLegendElement)
noDOMHTMLLegendElement :: Maybe DOMHTMLLegendElement
noDOMHTMLLegendElement = Nothing
foreign import ccall "webkit_dom_html_legend_element_get_type"
c_webkit_dom_html_legend_element_get_type :: IO GType
type instance ParentTypes DOMHTMLLegendElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLLegendElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_legend_element_get_type
class GObject o => DOMHTMLLegendElementK o
instance (GObject o, IsDescendantOf DOMHTMLLegendElement o) => DOMHTMLLegendElementK o
toDOMHTMLLegendElement :: DOMHTMLLegendElementK o => o -> IO DOMHTMLLegendElement
toDOMHTMLLegendElement = unsafeCastTo DOMHTMLLegendElement
-- method DOMHTMLLegendElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", 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_html_legend_element_get_align" webkit_dom_html_legend_element_get_align ::
Ptr DOMHTMLLegendElement -> -- _obj : TInterface "WebKit" "DOMHTMLLegendElement"
IO CString
dOMHTMLLegendElementGetAlign ::
(MonadIO m, DOMHTMLLegendElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLegendElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_legend_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLegendElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_legend_element_get_form" webkit_dom_html_legend_element_get_form ::
Ptr DOMHTMLLegendElement -> -- _obj : TInterface "WebKit" "DOMHTMLLegendElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLLegendElementGetForm ::
(MonadIO m, DOMHTMLLegendElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLLegendElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_legend_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLLegendElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLegendElement", 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" "DOMHTMLLegendElement", 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_html_legend_element_set_align" webkit_dom_html_legend_element_set_align ::
Ptr DOMHTMLLegendElement -> -- _obj : TInterface "WebKit" "DOMHTMLLegendElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLegendElementSetAlign ::
(MonadIO m, DOMHTMLLegendElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLegendElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_legend_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLLinkElement
newtype DOMHTMLLinkElement = DOMHTMLLinkElement (ForeignPtr DOMHTMLLinkElement)
noDOMHTMLLinkElement :: Maybe DOMHTMLLinkElement
noDOMHTMLLinkElement = Nothing
foreign import ccall "webkit_dom_html_link_element_get_type"
c_webkit_dom_html_link_element_get_type :: IO GType
type instance ParentTypes DOMHTMLLinkElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLLinkElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_link_element_get_type
class GObject o => DOMHTMLLinkElementK o
instance (GObject o, IsDescendantOf DOMHTMLLinkElement o) => DOMHTMLLinkElementK o
toDOMHTMLLinkElement :: DOMHTMLLinkElementK o => o -> IO DOMHTMLLinkElement
toDOMHTMLLinkElement = unsafeCastTo DOMHTMLLinkElement
-- method DOMHTMLLinkElement::get_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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_html_link_element_get_charset" webkit_dom_html_link_element_get_charset ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO CString
dOMHTMLLinkElementGetCharset ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLinkElementGetCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_charset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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_html_link_element_get_disabled" webkit_dom_html_link_element_get_disabled ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO CInt
dOMHTMLLinkElementGetDisabled ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m Bool
dOMHTMLLinkElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::get_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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_html_link_element_get_href" webkit_dom_html_link_element_get_href ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO CString
dOMHTMLLinkElementGetHref ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLinkElementGetHref _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_href _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::get_hreflang
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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_html_link_element_get_hreflang" webkit_dom_html_link_element_get_hreflang ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO CString
dOMHTMLLinkElementGetHreflang ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLinkElementGetHreflang _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_hreflang _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::get_media
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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_html_link_element_get_media" webkit_dom_html_link_element_get_media ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO CString
dOMHTMLLinkElementGetMedia ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLinkElementGetMedia _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_media _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::get_rel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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_html_link_element_get_rel" webkit_dom_html_link_element_get_rel ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO CString
dOMHTMLLinkElementGetRel ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLinkElementGetRel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_rel _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::get_rev
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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_html_link_element_get_rev" webkit_dom_html_link_element_get_rev ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO CString
dOMHTMLLinkElementGetRev ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLinkElementGetRev _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_rev _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::get_sheet
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMStyleSheet"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_link_element_get_sheet" webkit_dom_html_link_element_get_sheet ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO (Ptr DOMStyleSheet)
dOMHTMLLinkElementGetSheet ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m DOMStyleSheet
dOMHTMLLinkElementGetSheet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_sheet _obj'
result' <- (wrapObject DOMStyleSheet) result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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_html_link_element_get_target" webkit_dom_html_link_element_get_target ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
IO CString
dOMHTMLLinkElementGetTarget ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLLinkElementGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_link_element_get_target _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLLinkElement::set_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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" "DOMHTMLLinkElement", 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_html_link_element_set_charset" webkit_dom_html_link_element_set_charset ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLinkElementSetCharset ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLinkElementSetCharset _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_charset _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLLinkElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_link_element_set_disabled" webkit_dom_html_link_element_set_disabled ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLLinkElementSetDisabled ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLLinkElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_link_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLLinkElement::set_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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" "DOMHTMLLinkElement", 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_html_link_element_set_href" webkit_dom_html_link_element_set_href ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLinkElementSetHref ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLinkElementSetHref _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_href _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLLinkElement::set_hreflang
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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" "DOMHTMLLinkElement", 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_html_link_element_set_hreflang" webkit_dom_html_link_element_set_hreflang ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLinkElementSetHreflang ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLinkElementSetHreflang _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_hreflang _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLLinkElement::set_media
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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" "DOMHTMLLinkElement", 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_html_link_element_set_media" webkit_dom_html_link_element_set_media ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLinkElementSetMedia ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLinkElementSetMedia _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_media _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLLinkElement::set_rel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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" "DOMHTMLLinkElement", 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_html_link_element_set_rel" webkit_dom_html_link_element_set_rel ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLinkElementSetRel ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLinkElementSetRel _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_rel _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLLinkElement::set_rev
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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" "DOMHTMLLinkElement", 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_html_link_element_set_rev" webkit_dom_html_link_element_set_rev ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLinkElementSetRev ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLinkElementSetRev _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_rev _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLLinkElement::set_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLLinkElement", 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" "DOMHTMLLinkElement", 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_html_link_element_set_target" webkit_dom_html_link_element_set_target ::
Ptr DOMHTMLLinkElement -> -- _obj : TInterface "WebKit" "DOMHTMLLinkElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLLinkElementSetTarget ::
(MonadIO m, DOMHTMLLinkElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLLinkElementSetTarget _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_link_element_set_target _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLMapElement
newtype DOMHTMLMapElement = DOMHTMLMapElement (ForeignPtr DOMHTMLMapElement)
noDOMHTMLMapElement :: Maybe DOMHTMLMapElement
noDOMHTMLMapElement = Nothing
foreign import ccall "webkit_dom_html_map_element_get_type"
c_webkit_dom_html_map_element_get_type :: IO GType
type instance ParentTypes DOMHTMLMapElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLMapElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_map_element_get_type
class GObject o => DOMHTMLMapElementK o
instance (GObject o, IsDescendantOf DOMHTMLMapElement o) => DOMHTMLMapElementK o
toDOMHTMLMapElement :: DOMHTMLMapElementK o => o -> IO DOMHTMLMapElement
toDOMHTMLMapElement = unsafeCastTo DOMHTMLMapElement
-- method DOMHTMLMapElement::get_areas
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_map_element_get_areas" webkit_dom_html_map_element_get_areas ::
Ptr DOMHTMLMapElement -> -- _obj : TInterface "WebKit" "DOMHTMLMapElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLMapElementGetAreas ::
(MonadIO m, DOMHTMLMapElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLMapElementGetAreas _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_map_element_get_areas _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMapElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", 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_html_map_element_get_name" webkit_dom_html_map_element_get_name ::
Ptr DOMHTMLMapElement -> -- _obj : TInterface "WebKit" "DOMHTMLMapElement"
IO CString
dOMHTMLMapElementGetName ::
(MonadIO m, DOMHTMLMapElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMapElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_map_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMapElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMapElement", 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" "DOMHTMLMapElement", 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_html_map_element_set_name" webkit_dom_html_map_element_set_name ::
Ptr DOMHTMLMapElement -> -- _obj : TInterface "WebKit" "DOMHTMLMapElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMapElementSetName ::
(MonadIO m, DOMHTMLMapElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMapElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_map_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLMarqueeElement
newtype DOMHTMLMarqueeElement = DOMHTMLMarqueeElement (ForeignPtr DOMHTMLMarqueeElement)
noDOMHTMLMarqueeElement :: Maybe DOMHTMLMarqueeElement
noDOMHTMLMarqueeElement = Nothing
foreign import ccall "webkit_dom_html_marquee_element_get_type"
c_webkit_dom_html_marquee_element_get_type :: IO GType
type instance ParentTypes DOMHTMLMarqueeElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLMarqueeElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_marquee_element_get_type
class GObject o => DOMHTMLMarqueeElementK o
instance (GObject o, IsDescendantOf DOMHTMLMarqueeElement o) => DOMHTMLMarqueeElementK o
toDOMHTMLMarqueeElement :: DOMHTMLMarqueeElementK o => o -> IO DOMHTMLMarqueeElement
toDOMHTMLMarqueeElement = unsafeCastTo DOMHTMLMarqueeElement
-- method DOMHTMLMarqueeElement::get_behavior
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_behavior" webkit_dom_html_marquee_element_get_behavior ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO CString
dOMHTMLMarqueeElementGetBehavior ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMarqueeElementGetBehavior _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_behavior _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMarqueeElement::get_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_bg_color" webkit_dom_html_marquee_element_get_bg_color ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO CString
dOMHTMLMarqueeElementGetBgColor ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMarqueeElementGetBgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_bg_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMarqueeElement::get_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_direction" webkit_dom_html_marquee_element_get_direction ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO CString
dOMHTMLMarqueeElementGetDirection ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMarqueeElementGetDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_direction _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMarqueeElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_height" webkit_dom_html_marquee_element_get_height ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO CString
dOMHTMLMarqueeElementGetHeight ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMarqueeElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_height _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMarqueeElement::get_hspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_hspace" webkit_dom_html_marquee_element_get_hspace ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO Word64
dOMHTMLMarqueeElementGetHspace ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m Word64
dOMHTMLMarqueeElementGetHspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_hspace _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMarqueeElement::get_loop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_loop" webkit_dom_html_marquee_element_get_loop ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO Int64
dOMHTMLMarqueeElementGetLoop ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m Int64
dOMHTMLMarqueeElementGetLoop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_loop _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMarqueeElement::get_scroll_amount
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_scroll_amount" webkit_dom_html_marquee_element_get_scroll_amount ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO Int64
dOMHTMLMarqueeElementGetScrollAmount ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m Int64
dOMHTMLMarqueeElementGetScrollAmount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_scroll_amount _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMarqueeElement::get_scroll_delay
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_scroll_delay" webkit_dom_html_marquee_element_get_scroll_delay ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO Int64
dOMHTMLMarqueeElementGetScrollDelay ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m Int64
dOMHTMLMarqueeElementGetScrollDelay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_scroll_delay _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMarqueeElement::get_true_speed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_true_speed" webkit_dom_html_marquee_element_get_true_speed ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO CInt
dOMHTMLMarqueeElementGetTrueSpeed ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMarqueeElementGetTrueSpeed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_true_speed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMarqueeElement::get_vspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_vspace" webkit_dom_html_marquee_element_get_vspace ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO Word64
dOMHTMLMarqueeElementGetVspace ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m Word64
dOMHTMLMarqueeElementGetVspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_vspace _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMarqueeElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_get_width" webkit_dom_html_marquee_element_get_width ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO CString
dOMHTMLMarqueeElementGetWidth ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMarqueeElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_marquee_element_get_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMarqueeElement::set_behavior
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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" "DOMHTMLMarqueeElement", 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_html_marquee_element_set_behavior" webkit_dom_html_marquee_element_set_behavior ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMarqueeElementSetBehavior ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMarqueeElementSetBehavior _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_marquee_element_set_behavior _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMarqueeElement::set_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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" "DOMHTMLMarqueeElement", 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_html_marquee_element_set_bg_color" webkit_dom_html_marquee_element_set_bg_color ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMarqueeElementSetBgColor ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMarqueeElementSetBgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_marquee_element_set_bg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMarqueeElement::set_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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" "DOMHTMLMarqueeElement", 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_html_marquee_element_set_direction" webkit_dom_html_marquee_element_set_direction ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMarqueeElementSetDirection ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMarqueeElementSetDirection _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_marquee_element_set_direction _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMarqueeElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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" "DOMHTMLMarqueeElement", 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_html_marquee_element_set_height" webkit_dom_html_marquee_element_set_height ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMarqueeElementSetHeight ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMarqueeElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_marquee_element_set_height _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMarqueeElement::set_hspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, 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_html_marquee_element_set_hspace" webkit_dom_html_marquee_element_set_hspace ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
Word64 -> -- value : TBasicType TUInt64
IO ()
dOMHTMLMarqueeElementSetHspace ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
Word64 -> -- value
m ()
dOMHTMLMarqueeElementSetHspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_marquee_element_set_hspace _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLMarqueeElement::set_loop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_marquee_element_set_loop" webkit_dom_html_marquee_element_set_loop ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
Int64 -> -- value : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLMarqueeElementSetLoop ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLMarqueeElementSetLoop _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_marquee_element_set_loop _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLMarqueeElement::set_scroll_amount
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_marquee_element_set_scroll_amount" webkit_dom_html_marquee_element_set_scroll_amount ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
Int64 -> -- value : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLMarqueeElementSetScrollAmount ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLMarqueeElementSetScrollAmount _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_marquee_element_set_scroll_amount _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLMarqueeElement::set_scroll_delay
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_marquee_element_set_scroll_delay" webkit_dom_html_marquee_element_set_scroll_delay ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
Int64 -> -- value : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLMarqueeElementSetScrollDelay ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLMarqueeElementSetScrollDelay _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_marquee_element_set_scroll_delay _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLMarqueeElement::set_true_speed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_marquee_element_set_true_speed" webkit_dom_html_marquee_element_set_true_speed ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMarqueeElementSetTrueSpeed ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMarqueeElementSetTrueSpeed _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_marquee_element_set_true_speed _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMarqueeElement::set_vspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, 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_html_marquee_element_set_vspace" webkit_dom_html_marquee_element_set_vspace ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
Word64 -> -- value : TBasicType TUInt64
IO ()
dOMHTMLMarqueeElementSetVspace ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
Word64 -> -- value
m ()
dOMHTMLMarqueeElementSetVspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_marquee_element_set_vspace _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLMarqueeElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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" "DOMHTMLMarqueeElement", 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_html_marquee_element_set_width" webkit_dom_html_marquee_element_set_width ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMarqueeElementSetWidth ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMarqueeElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_marquee_element_set_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMarqueeElement::start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_start" webkit_dom_html_marquee_element_start ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO ()
dOMHTMLMarqueeElementStart ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m ()
dOMHTMLMarqueeElementStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_marquee_element_start _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLMarqueeElement::stop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMarqueeElement", 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_html_marquee_element_stop" webkit_dom_html_marquee_element_stop ::
Ptr DOMHTMLMarqueeElement -> -- _obj : TInterface "WebKit" "DOMHTMLMarqueeElement"
IO ()
dOMHTMLMarqueeElementStop ::
(MonadIO m, DOMHTMLMarqueeElementK a) =>
a -> -- _obj
m ()
dOMHTMLMarqueeElementStop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_marquee_element_stop _obj'
touchManagedPtr _obj
return ()
-- object DOMHTMLMediaElement
newtype DOMHTMLMediaElement = DOMHTMLMediaElement (ForeignPtr DOMHTMLMediaElement)
noDOMHTMLMediaElement :: Maybe DOMHTMLMediaElement
noDOMHTMLMediaElement = Nothing
foreign import ccall "webkit_dom_html_media_element_get_type"
c_webkit_dom_html_media_element_get_type :: IO GType
type instance ParentTypes DOMHTMLMediaElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLMediaElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_media_element_get_type
class GObject o => DOMHTMLMediaElementK o
instance (GObject o, IsDescendantOf DOMHTMLMediaElement o) => DOMHTMLMediaElementK o
toDOMHTMLMediaElement :: DOMHTMLMediaElementK o => o -> IO DOMHTMLMediaElement
toDOMHTMLMediaElement = unsafeCastTo DOMHTMLMediaElement
-- method DOMHTMLMediaElement::add_text_track
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrack"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_add_text_track" webkit_dom_html_media_element_add_text_track ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CString -> -- kind : TBasicType TUTF8
CString -> -- label : TBasicType TUTF8
CString -> -- language : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMTextTrack)
dOMHTMLMediaElementAddTextTrack ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
T.Text -> -- kind
T.Text -> -- label
T.Text -> -- language
m DOMTextTrack
dOMHTMLMediaElementAddTextTrack _obj kind label language = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
kind' <- textToCString kind
label' <- textToCString label
language' <- textToCString language
onException (do
result <- propagateGError $ webkit_dom_html_media_element_add_text_track _obj' kind' label' language'
result' <- (wrapObject DOMTextTrack) result
touchManagedPtr _obj
freeMem kind'
freeMem label'
freeMem language'
return result'
) (do
freeMem kind'
freeMem label'
freeMem language'
)
-- method DOMHTMLMediaElement::can_play_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", 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_html_media_element_can_play_type" webkit_dom_html_media_element_can_play_type ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CString -> -- type : TBasicType TUTF8
IO CString
dOMHTMLMediaElementCanPlayType ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
T.Text -> -- type
m T.Text
dOMHTMLMediaElementCanPlayType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
result <- webkit_dom_html_media_element_can_play_type _obj' type_'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem type_'
return result'
-- method DOMHTMLMediaElement::fast_seek
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_fast_seek" webkit_dom_html_media_element_fast_seek ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CDouble -> -- time : TBasicType TDouble
IO ()
dOMHTMLMediaElementFastSeek ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Double -> -- time
m ()
dOMHTMLMediaElementFastSeek _obj time = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let time' = realToFrac time
webkit_dom_html_media_element_fast_seek _obj' time'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::get_audio_tracks
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMAudioTrackList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_audio_tracks" webkit_dom_html_media_element_get_audio_tracks ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO (Ptr DOMAudioTrackList)
dOMHTMLMediaElementGetAudioTracks ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m DOMAudioTrackList
dOMHTMLMediaElementGetAudioTracks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_audio_tracks _obj'
result' <- (wrapObject DOMAudioTrackList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_autoplay
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_autoplay" webkit_dom_html_media_element_get_autoplay ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetAutoplay ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetAutoplay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_autoplay _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_buffered
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTimeRanges"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_buffered" webkit_dom_html_media_element_get_buffered ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO (Ptr DOMTimeRanges)
dOMHTMLMediaElementGetBuffered ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m DOMTimeRanges
dOMHTMLMediaElementGetBuffered _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_buffered _obj'
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_controller
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMMediaController"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_controller" webkit_dom_html_media_element_get_controller ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO (Ptr DOMMediaController)
dOMHTMLMediaElementGetController ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m DOMMediaController
dOMHTMLMediaElementGetController _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_controller _obj'
result' <- (wrapObject DOMMediaController) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_controls
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_controls" webkit_dom_html_media_element_get_controls ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetControls ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetControls _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_controls _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_current_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_current_src" webkit_dom_html_media_element_get_current_src ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CString
dOMHTMLMediaElementGetCurrentSrc ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMediaElementGetCurrentSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_current_src _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_current_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_current_time" webkit_dom_html_media_element_get_current_time ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CDouble
dOMHTMLMediaElementGetCurrentTime ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Double
dOMHTMLMediaElementGetCurrentTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_current_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_default_muted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_default_muted" webkit_dom_html_media_element_get_default_muted ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetDefaultMuted ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetDefaultMuted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_default_muted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_default_playback_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_default_playback_rate" webkit_dom_html_media_element_get_default_playback_rate ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CDouble
dOMHTMLMediaElementGetDefaultPlaybackRate ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Double
dOMHTMLMediaElementGetDefaultPlaybackRate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_default_playback_rate _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_duration" webkit_dom_html_media_element_get_duration ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CDouble
dOMHTMLMediaElementGetDuration ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Double
dOMHTMLMediaElementGetDuration _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_duration _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_ended
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_ended" webkit_dom_html_media_element_get_ended ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetEnded ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetEnded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_ended _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_error
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMMediaError"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_error" webkit_dom_html_media_element_get_error ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO (Ptr DOMMediaError)
dOMHTMLMediaElementGetError ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m DOMMediaError
dOMHTMLMediaElementGetError _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_error _obj'
result' <- (wrapObject DOMMediaError) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_initial_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_initial_time" webkit_dom_html_media_element_get_initial_time ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CDouble
{-# DEPRECATED dOMHTMLMediaElementGetInitialTime ["(Since version 2.2)"]#-}
dOMHTMLMediaElementGetInitialTime ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Double
dOMHTMLMediaElementGetInitialTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_initial_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_loop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_loop" webkit_dom_html_media_element_get_loop ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetLoop ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetLoop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_loop _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_media_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_media_group" webkit_dom_html_media_element_get_media_group ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CString
dOMHTMLMediaElementGetMediaGroup ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMediaElementGetMediaGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_media_group _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_muted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_muted" webkit_dom_html_media_element_get_muted ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetMuted ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetMuted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_muted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_network_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_network_state" webkit_dom_html_media_element_get_network_state ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO Word16
dOMHTMLMediaElementGetNetworkState ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Word16
dOMHTMLMediaElementGetNetworkState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_network_state _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMediaElement::get_paused
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_paused" webkit_dom_html_media_element_get_paused ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetPaused ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetPaused _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_paused _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_playback_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_playback_rate" webkit_dom_html_media_element_get_playback_rate ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CDouble
dOMHTMLMediaElementGetPlaybackRate ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Double
dOMHTMLMediaElementGetPlaybackRate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_playback_rate _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_played
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTimeRanges"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_played" webkit_dom_html_media_element_get_played ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO (Ptr DOMTimeRanges)
dOMHTMLMediaElementGetPlayed ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m DOMTimeRanges
dOMHTMLMediaElementGetPlayed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_played _obj'
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_preload
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_preload" webkit_dom_html_media_element_get_preload ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CString
dOMHTMLMediaElementGetPreload ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMediaElementGetPreload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_preload _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_ready_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_ready_state" webkit_dom_html_media_element_get_ready_state ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO Word16
dOMHTMLMediaElementGetReadyState ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Word16
dOMHTMLMediaElementGetReadyState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_ready_state _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMediaElement::get_seekable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTimeRanges"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_seekable" webkit_dom_html_media_element_get_seekable ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO (Ptr DOMTimeRanges)
dOMHTMLMediaElementGetSeekable ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m DOMTimeRanges
dOMHTMLMediaElementGetSeekable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_seekable _obj'
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_seeking
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_seeking" webkit_dom_html_media_element_get_seeking ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetSeeking ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetSeeking _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_seeking _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_src" webkit_dom_html_media_element_get_src ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CString
dOMHTMLMediaElementGetSrc ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMediaElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_src _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_start_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_start_time" webkit_dom_html_media_element_get_start_time ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CDouble
{-# DEPRECATED dOMHTMLMediaElementGetStartTime ["(Since version 2.2)"]#-}
dOMHTMLMediaElementGetStartTime ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Double
dOMHTMLMediaElementGetStartTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_start_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_text_tracks
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrackList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_text_tracks" webkit_dom_html_media_element_get_text_tracks ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO (Ptr DOMTextTrackList)
dOMHTMLMediaElementGetTextTracks ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m DOMTextTrackList
dOMHTMLMediaElementGetTextTracks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_text_tracks _obj'
result' <- (newObject DOMTextTrackList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_video_tracks
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMVideoTrackList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_get_video_tracks" webkit_dom_html_media_element_get_video_tracks ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO (Ptr DOMVideoTrackList)
dOMHTMLMediaElementGetVideoTracks ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m DOMVideoTrackList
dOMHTMLMediaElementGetVideoTracks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_video_tracks _obj'
result' <- (newObject DOMVideoTrackList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_volume
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_volume" webkit_dom_html_media_element_get_volume ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CDouble
dOMHTMLMediaElementGetVolume ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Double
dOMHTMLMediaElementGetVolume _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_volume _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_webkit_audio_decoded_byte_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_webkit_audio_decoded_byte_count" webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO Word64
dOMHTMLMediaElementGetWebkitAudioDecodedByteCount ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Word64
dOMHTMLMediaElementGetWebkitAudioDecodedByteCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMediaElement::get_webkit_closed_captions_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_webkit_closed_captions_visible" webkit_dom_html_media_element_get_webkit_closed_captions_visible ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetWebkitClosedCaptionsVisible ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetWebkitClosedCaptionsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_closed_captions_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_webkit_current_playback_target_is_wireless
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_webkit_current_playback_target_is_wireless" webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_webkit_has_closed_captions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_webkit_has_closed_captions" webkit_dom_html_media_element_get_webkit_has_closed_captions ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetWebkitHasClosedCaptions ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetWebkitHasClosedCaptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_has_closed_captions _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_webkit_preserves_pitch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_webkit_preserves_pitch" webkit_dom_html_media_element_get_webkit_preserves_pitch ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO CInt
dOMHTMLMediaElementGetWebkitPreservesPitch ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMediaElementGetWebkitPreservesPitch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_preserves_pitch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMediaElement::get_webkit_video_decoded_byte_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_get_webkit_video_decoded_byte_count" webkit_dom_html_media_element_get_webkit_video_decoded_byte_count ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO Word64
dOMHTMLMediaElementGetWebkitVideoDecodedByteCount ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m Word64
dOMHTMLMediaElementGetWebkitVideoDecodedByteCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_video_decoded_byte_count _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLMediaElement::load
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_load" webkit_dom_html_media_element_load ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO ()
dOMHTMLMediaElementLoad ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m ()
dOMHTMLMediaElementLoad _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_media_element_load _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::pause
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_pause" webkit_dom_html_media_element_pause ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO ()
dOMHTMLMediaElementPause ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m ()
dOMHTMLMediaElementPause _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_media_element_pause _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::play
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_play" webkit_dom_html_media_element_play ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO ()
dOMHTMLMediaElementPlay ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m ()
dOMHTMLMediaElementPlay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_media_element_play _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_autoplay
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_autoplay" webkit_dom_html_media_element_set_autoplay ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMediaElementSetAutoplay ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMediaElementSetAutoplay _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_autoplay _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_controls
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_controls" webkit_dom_html_media_element_set_controls ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMediaElementSetControls ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMediaElementSetControls _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_controls _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_current_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_current_time" webkit_dom_html_media_element_set_current_time ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CDouble -> -- value : TBasicType TDouble
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLMediaElementSetCurrentTime ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMHTMLMediaElementSetCurrentTime _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_html_media_element_set_current_time _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLMediaElement::set_default_muted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_default_muted" webkit_dom_html_media_element_set_default_muted ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMediaElementSetDefaultMuted ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMediaElementSetDefaultMuted _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_default_muted _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_default_playback_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_default_playback_rate" webkit_dom_html_media_element_set_default_playback_rate ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CDouble -> -- value : TBasicType TDouble
IO ()
dOMHTMLMediaElementSetDefaultPlaybackRate ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMHTMLMediaElementSetDefaultPlaybackRate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_html_media_element_set_default_playback_rate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_loop
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_loop" webkit_dom_html_media_element_set_loop ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMediaElementSetLoop ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMediaElementSetLoop _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_loop _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_media_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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" "DOMHTMLMediaElement", 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_html_media_element_set_media_group" webkit_dom_html_media_element_set_media_group ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMediaElementSetMediaGroup ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMediaElementSetMediaGroup _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_media_element_set_media_group _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMediaElement::set_muted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_muted" webkit_dom_html_media_element_set_muted ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMediaElementSetMuted ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMediaElementSetMuted _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_muted _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_playback_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_playback_rate" webkit_dom_html_media_element_set_playback_rate ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CDouble -> -- value : TBasicType TDouble
IO ()
dOMHTMLMediaElementSetPlaybackRate ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMHTMLMediaElementSetPlaybackRate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_html_media_element_set_playback_rate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_preload
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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" "DOMHTMLMediaElement", 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_html_media_element_set_preload" webkit_dom_html_media_element_set_preload ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMediaElementSetPreload ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMediaElementSetPreload _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_media_element_set_preload _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMediaElement::set_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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" "DOMHTMLMediaElement", 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_html_media_element_set_src" webkit_dom_html_media_element_set_src ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMediaElementSetSrc ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMediaElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_media_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMediaElement::set_volume
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_volume" webkit_dom_html_media_element_set_volume ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CDouble -> -- value : TBasicType TDouble
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLMediaElementSetVolume ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMHTMLMediaElementSetVolume _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_html_media_element_set_volume _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLMediaElement::set_webkit_closed_captions_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_webkit_closed_captions_visible" webkit_dom_html_media_element_set_webkit_closed_captions_visible ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMediaElementSetWebkitClosedCaptionsVisible ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMediaElementSetWebkitClosedCaptionsVisible _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_webkit_closed_captions_visible _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::set_webkit_preserves_pitch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_media_element_set_webkit_preserves_pitch" webkit_dom_html_media_element_set_webkit_preserves_pitch ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMediaElementSetWebkitPreservesPitch ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMediaElementSetWebkitPreservesPitch _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_webkit_preserves_pitch _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLMediaElement::webkit_show_playback_target_picker
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMediaElement", 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_html_media_element_webkit_show_playback_target_picker" webkit_dom_html_media_element_webkit_show_playback_target_picker ::
Ptr DOMHTMLMediaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMediaElement"
IO ()
dOMHTMLMediaElementWebkitShowPlaybackTargetPicker ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a -> -- _obj
m ()
dOMHTMLMediaElementWebkitShowPlaybackTargetPicker _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_media_element_webkit_show_playback_target_picker _obj'
touchManagedPtr _obj
return ()
-- object DOMHTMLMenuElement
newtype DOMHTMLMenuElement = DOMHTMLMenuElement (ForeignPtr DOMHTMLMenuElement)
noDOMHTMLMenuElement :: Maybe DOMHTMLMenuElement
noDOMHTMLMenuElement = Nothing
foreign import ccall "webkit_dom_html_menu_element_get_type"
c_webkit_dom_html_menu_element_get_type :: IO GType
type instance ParentTypes DOMHTMLMenuElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLMenuElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_menu_element_get_type
class GObject o => DOMHTMLMenuElementK o
instance (GObject o, IsDescendantOf DOMHTMLMenuElement o) => DOMHTMLMenuElementK o
toDOMHTMLMenuElement :: DOMHTMLMenuElementK o => o -> IO DOMHTMLMenuElement
toDOMHTMLMenuElement = unsafeCastTo DOMHTMLMenuElement
-- method DOMHTMLMenuElement::get_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", 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_html_menu_element_get_compact" webkit_dom_html_menu_element_get_compact ::
Ptr DOMHTMLMenuElement -> -- _obj : TInterface "WebKit" "DOMHTMLMenuElement"
IO CInt
dOMHTMLMenuElementGetCompact ::
(MonadIO m, DOMHTMLMenuElementK a) =>
a -> -- _obj
m Bool
dOMHTMLMenuElementGetCompact _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_menu_element_get_compact _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLMenuElement::set_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_menu_element_set_compact" webkit_dom_html_menu_element_set_compact ::
Ptr DOMHTMLMenuElement -> -- _obj : TInterface "WebKit" "DOMHTMLMenuElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLMenuElementSetCompact ::
(MonadIO m, DOMHTMLMenuElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLMenuElementSetCompact _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_menu_element_set_compact _obj' value'
touchManagedPtr _obj
return ()
-- object DOMHTMLMetaElement
newtype DOMHTMLMetaElement = DOMHTMLMetaElement (ForeignPtr DOMHTMLMetaElement)
noDOMHTMLMetaElement :: Maybe DOMHTMLMetaElement
noDOMHTMLMetaElement = Nothing
foreign import ccall "webkit_dom_html_meta_element_get_type"
c_webkit_dom_html_meta_element_get_type :: IO GType
type instance ParentTypes DOMHTMLMetaElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLMetaElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_meta_element_get_type
class GObject o => DOMHTMLMetaElementK o
instance (GObject o, IsDescendantOf DOMHTMLMetaElement o) => DOMHTMLMetaElementK o
toDOMHTMLMetaElement :: DOMHTMLMetaElementK o => o -> IO DOMHTMLMetaElement
toDOMHTMLMetaElement = unsafeCastTo DOMHTMLMetaElement
-- method DOMHTMLMetaElement::get_content
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", 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_html_meta_element_get_content" webkit_dom_html_meta_element_get_content ::
Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement"
IO CString
dOMHTMLMetaElementGetContent ::
(MonadIO m, DOMHTMLMetaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMetaElementGetContent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_meta_element_get_content _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMetaElement::get_http_equiv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", 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_html_meta_element_get_http_equiv" webkit_dom_html_meta_element_get_http_equiv ::
Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement"
IO CString
dOMHTMLMetaElementGetHttpEquiv ::
(MonadIO m, DOMHTMLMetaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMetaElementGetHttpEquiv _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_meta_element_get_http_equiv _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMetaElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", 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_html_meta_element_get_name" webkit_dom_html_meta_element_get_name ::
Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement"
IO CString
dOMHTMLMetaElementGetName ::
(MonadIO m, DOMHTMLMetaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMetaElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_meta_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMetaElement::get_scheme
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", 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_html_meta_element_get_scheme" webkit_dom_html_meta_element_get_scheme ::
Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement"
IO CString
dOMHTMLMetaElementGetScheme ::
(MonadIO m, DOMHTMLMetaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLMetaElementGetScheme _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_meta_element_get_scheme _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLMetaElement::set_content
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", 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" "DOMHTMLMetaElement", 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_html_meta_element_set_content" webkit_dom_html_meta_element_set_content ::
Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMetaElementSetContent ::
(MonadIO m, DOMHTMLMetaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMetaElementSetContent _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_meta_element_set_content _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMetaElement::set_http_equiv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", 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" "DOMHTMLMetaElement", 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_html_meta_element_set_http_equiv" webkit_dom_html_meta_element_set_http_equiv ::
Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMetaElementSetHttpEquiv ::
(MonadIO m, DOMHTMLMetaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMetaElementSetHttpEquiv _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_meta_element_set_http_equiv _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMetaElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", 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" "DOMHTMLMetaElement", 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_html_meta_element_set_name" webkit_dom_html_meta_element_set_name ::
Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMetaElementSetName ::
(MonadIO m, DOMHTMLMetaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMetaElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_meta_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLMetaElement::set_scheme
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLMetaElement", 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" "DOMHTMLMetaElement", 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_html_meta_element_set_scheme" webkit_dom_html_meta_element_set_scheme ::
Ptr DOMHTMLMetaElement -> -- _obj : TInterface "WebKit" "DOMHTMLMetaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLMetaElementSetScheme ::
(MonadIO m, DOMHTMLMetaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLMetaElementSetScheme _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_meta_element_set_scheme _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLModElement
newtype DOMHTMLModElement = DOMHTMLModElement (ForeignPtr DOMHTMLModElement)
noDOMHTMLModElement :: Maybe DOMHTMLModElement
noDOMHTMLModElement = Nothing
foreign import ccall "webkit_dom_html_mod_element_get_type"
c_webkit_dom_html_mod_element_get_type :: IO GType
type instance ParentTypes DOMHTMLModElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLModElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_mod_element_get_type
class GObject o => DOMHTMLModElementK o
instance (GObject o, IsDescendantOf DOMHTMLModElement o) => DOMHTMLModElementK o
toDOMHTMLModElement :: DOMHTMLModElementK o => o -> IO DOMHTMLModElement
toDOMHTMLModElement = unsafeCastTo DOMHTMLModElement
-- method DOMHTMLModElement::get_cite
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", 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_html_mod_element_get_cite" webkit_dom_html_mod_element_get_cite ::
Ptr DOMHTMLModElement -> -- _obj : TInterface "WebKit" "DOMHTMLModElement"
IO CString
dOMHTMLModElementGetCite ::
(MonadIO m, DOMHTMLModElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLModElementGetCite _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_mod_element_get_cite _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLModElement::get_date_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", 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_html_mod_element_get_date_time" webkit_dom_html_mod_element_get_date_time ::
Ptr DOMHTMLModElement -> -- _obj : TInterface "WebKit" "DOMHTMLModElement"
IO CString
dOMHTMLModElementGetDateTime ::
(MonadIO m, DOMHTMLModElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLModElementGetDateTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_mod_element_get_date_time _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLModElement::set_cite
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", 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" "DOMHTMLModElement", 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_html_mod_element_set_cite" webkit_dom_html_mod_element_set_cite ::
Ptr DOMHTMLModElement -> -- _obj : TInterface "WebKit" "DOMHTMLModElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLModElementSetCite ::
(MonadIO m, DOMHTMLModElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLModElementSetCite _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_mod_element_set_cite _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLModElement::set_date_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLModElement", 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" "DOMHTMLModElement", 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_html_mod_element_set_date_time" webkit_dom_html_mod_element_set_date_time ::
Ptr DOMHTMLModElement -> -- _obj : TInterface "WebKit" "DOMHTMLModElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLModElementSetDateTime ::
(MonadIO m, DOMHTMLModElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLModElementSetDateTime _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_mod_element_set_date_time _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLOListElement
newtype DOMHTMLOListElement = DOMHTMLOListElement (ForeignPtr DOMHTMLOListElement)
noDOMHTMLOListElement :: Maybe DOMHTMLOListElement
noDOMHTMLOListElement = Nothing
foreign import ccall "webkit_dom_htmlo_list_element_get_type"
c_webkit_dom_htmlo_list_element_get_type :: IO GType
type instance ParentTypes DOMHTMLOListElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLOListElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_htmlo_list_element_get_type
class GObject o => DOMHTMLOListElementK o
instance (GObject o, IsDescendantOf DOMHTMLOListElement o) => DOMHTMLOListElementK o
toDOMHTMLOListElement :: DOMHTMLOListElementK o => o -> IO DOMHTMLOListElement
toDOMHTMLOListElement = unsafeCastTo DOMHTMLOListElement
-- method DOMHTMLOListElement::get_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", 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_htmlo_list_element_get_compact" webkit_dom_htmlo_list_element_get_compact ::
Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement"
IO CInt
dOMHTMLOListElementGetCompact ::
(MonadIO m, DOMHTMLOListElementK a) =>
a -> -- _obj
m Bool
dOMHTMLOListElementGetCompact _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlo_list_element_get_compact _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLOListElement::get_reversed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", 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_htmlo_list_element_get_reversed" webkit_dom_htmlo_list_element_get_reversed ::
Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement"
IO CInt
dOMHTMLOListElementGetReversed ::
(MonadIO m, DOMHTMLOListElementK a) =>
a -> -- _obj
m Bool
dOMHTMLOListElementGetReversed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlo_list_element_get_reversed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLOListElement::get_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", 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_htmlo_list_element_get_start" webkit_dom_htmlo_list_element_get_start ::
Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement"
IO Int64
dOMHTMLOListElementGetStart ::
(MonadIO m, DOMHTMLOListElementK a) =>
a -> -- _obj
m Int64
dOMHTMLOListElementGetStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlo_list_element_get_start _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLOListElement::set_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_htmlo_list_element_set_compact" webkit_dom_htmlo_list_element_set_compact ::
Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLOListElementSetCompact ::
(MonadIO m, DOMHTMLOListElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLOListElementSetCompact _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_htmlo_list_element_set_compact _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLOListElement::set_reversed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_htmlo_list_element_set_reversed" webkit_dom_htmlo_list_element_set_reversed ::
Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLOListElementSetReversed ::
(MonadIO m, DOMHTMLOListElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLOListElementSetReversed _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_htmlo_list_element_set_reversed _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLOListElement::set_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_htmlo_list_element_set_start" webkit_dom_htmlo_list_element_set_start ::
Ptr DOMHTMLOListElement -> -- _obj : TInterface "WebKit" "DOMHTMLOListElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLOListElementSetStart ::
(MonadIO m, DOMHTMLOListElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLOListElementSetStart _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_htmlo_list_element_set_start _obj' value
touchManagedPtr _obj
return ()
-- object DOMHTMLObjectElement
newtype DOMHTMLObjectElement = DOMHTMLObjectElement (ForeignPtr DOMHTMLObjectElement)
noDOMHTMLObjectElement :: Maybe DOMHTMLObjectElement
noDOMHTMLObjectElement = Nothing
foreign import ccall "webkit_dom_html_object_element_get_type"
c_webkit_dom_html_object_element_get_type :: IO GType
type instance ParentTypes DOMHTMLObjectElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLObjectElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_object_element_get_type
class GObject o => DOMHTMLObjectElementK o
instance (GObject o, IsDescendantOf DOMHTMLObjectElement o) => DOMHTMLObjectElementK o
toDOMHTMLObjectElement :: DOMHTMLObjectElementK o => o -> IO DOMHTMLObjectElement
toDOMHTMLObjectElement = unsafeCastTo DOMHTMLObjectElement
-- method DOMHTMLObjectElement::check_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_check_validity" webkit_dom_html_object_element_check_validity ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CInt
dOMHTMLObjectElementCheckValidity ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLObjectElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_align" webkit_dom_html_object_element_get_align ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetAlign ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_archive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_archive" webkit_dom_html_object_element_get_archive ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetArchive ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetArchive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_archive _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_border" webkit_dom_html_object_element_get_border ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetBorder ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_border _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_code
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_code" webkit_dom_html_object_element_get_code ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetCode ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetCode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_code _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_code_base
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_code_base" webkit_dom_html_object_element_get_code_base ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetCodeBase ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetCodeBase _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_code_base _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_code_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_code_type" webkit_dom_html_object_element_get_code_type ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetCodeType ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetCodeType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_code_type _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_content_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_content_document" webkit_dom_html_object_element_get_content_document ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO (Ptr DOMDocument)
dOMHTMLObjectElementGetContentDocument ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m DOMDocument
dOMHTMLObjectElementGetContentDocument _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_content_document _obj'
result' <- (newObject DOMDocument) result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_data" webkit_dom_html_object_element_get_data ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetData ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetData _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_data _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_declare
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_declare" webkit_dom_html_object_element_get_declare ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CInt
dOMHTMLObjectElementGetDeclare ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLObjectElementGetDeclare _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_declare _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_object_element_get_form" webkit_dom_html_object_element_get_form ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLObjectElementGetForm ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLObjectElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_height" webkit_dom_html_object_element_get_height ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetHeight ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_height _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_hspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_hspace" webkit_dom_html_object_element_get_hspace ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO Int64
dOMHTMLObjectElementGetHspace ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m Int64
dOMHTMLObjectElementGetHspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_hspace _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLObjectElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_name" webkit_dom_html_object_element_get_name ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetName ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_standby
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_standby" webkit_dom_html_object_element_get_standby ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetStandby ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetStandby _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_standby _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_use_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_use_map" webkit_dom_html_object_element_get_use_map ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetUseMap ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetUseMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_use_map _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_validation_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_validation_message" webkit_dom_html_object_element_get_validation_message ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetValidationMessage ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetValidationMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_validation_message _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMValidityState"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_object_element_get_validity" webkit_dom_html_object_element_get_validity ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO (Ptr DOMValidityState)
dOMHTMLObjectElementGetValidity ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m DOMValidityState
dOMHTMLObjectElementGetValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_validity _obj'
result' <- (wrapObject DOMValidityState) result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_vspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_vspace" webkit_dom_html_object_element_get_vspace ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO Int64
dOMHTMLObjectElementGetVspace ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m Int64
dOMHTMLObjectElementGetVspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_vspace _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLObjectElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_width" webkit_dom_html_object_element_get_width ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CString
dOMHTMLObjectElementGetWidth ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLObjectElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::get_will_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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_html_object_element_get_will_validate" webkit_dom_html_object_element_get_will_validate ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
IO CInt
dOMHTMLObjectElementGetWillValidate ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLObjectElementGetWillValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_object_element_get_will_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLObjectElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_align" webkit_dom_html_object_element_set_align ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetAlign ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_archive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_archive" webkit_dom_html_object_element_set_archive ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetArchive ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetArchive _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_archive _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_border" webkit_dom_html_object_element_set_border ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetBorder ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetBorder _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_border _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_code
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_code" webkit_dom_html_object_element_set_code ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetCode ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetCode _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_code _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_code_base
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_code_base" webkit_dom_html_object_element_set_code_base ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetCodeBase ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetCodeBase _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_code_base _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_code_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_code_type" webkit_dom_html_object_element_set_code_type ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetCodeType ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetCodeType _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_code_type _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_custom_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", 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_html_object_element_set_custom_validity" webkit_dom_html_object_element_set_custom_validity ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- error : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetCustomValidity ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- error
m ()
dOMHTMLObjectElementSetCustomValidity _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
error_' <- textToCString error_
webkit_dom_html_object_element_set_custom_validity _obj' error_'
touchManagedPtr _obj
freeMem error_'
return ()
-- method DOMHTMLObjectElement::set_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_data" webkit_dom_html_object_element_set_data ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetData ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetData _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_data _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_declare
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_object_element_set_declare" webkit_dom_html_object_element_set_declare ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLObjectElementSetDeclare ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLObjectElementSetDeclare _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_object_element_set_declare _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLObjectElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_height" webkit_dom_html_object_element_set_height ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetHeight ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_height _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_hspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_object_element_set_hspace" webkit_dom_html_object_element_set_hspace ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLObjectElementSetHspace ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLObjectElementSetHspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_object_element_set_hspace _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLObjectElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_name" webkit_dom_html_object_element_set_name ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetName ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_standby
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_standby" webkit_dom_html_object_element_set_standby ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetStandby ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetStandby _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_standby _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_use_map
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_use_map" webkit_dom_html_object_element_set_use_map ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetUseMap ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetUseMap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_use_map _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLObjectElement::set_vspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_object_element_set_vspace" webkit_dom_html_object_element_set_vspace ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLObjectElementSetVspace ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLObjectElementSetVspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_object_element_set_vspace _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLObjectElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLObjectElement", 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" "DOMHTMLObjectElement", 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_html_object_element_set_width" webkit_dom_html_object_element_set_width ::
Ptr DOMHTMLObjectElement -> -- _obj : TInterface "WebKit" "DOMHTMLObjectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLObjectElementSetWidth ::
(MonadIO m, DOMHTMLObjectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLObjectElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_object_element_set_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLOptGroupElement
newtype DOMHTMLOptGroupElement = DOMHTMLOptGroupElement (ForeignPtr DOMHTMLOptGroupElement)
noDOMHTMLOptGroupElement :: Maybe DOMHTMLOptGroupElement
noDOMHTMLOptGroupElement = Nothing
foreign import ccall "webkit_dom_html_opt_group_element_get_type"
c_webkit_dom_html_opt_group_element_get_type :: IO GType
type instance ParentTypes DOMHTMLOptGroupElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLOptGroupElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_opt_group_element_get_type
class GObject o => DOMHTMLOptGroupElementK o
instance (GObject o, IsDescendantOf DOMHTMLOptGroupElement o) => DOMHTMLOptGroupElementK o
toDOMHTMLOptGroupElement :: DOMHTMLOptGroupElementK o => o -> IO DOMHTMLOptGroupElement
toDOMHTMLOptGroupElement = unsafeCastTo DOMHTMLOptGroupElement
-- method DOMHTMLOptGroupElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", 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_html_opt_group_element_get_disabled" webkit_dom_html_opt_group_element_get_disabled ::
Ptr DOMHTMLOptGroupElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptGroupElement"
IO CInt
dOMHTMLOptGroupElementGetDisabled ::
(MonadIO m, DOMHTMLOptGroupElementK a) =>
a -> -- _obj
m Bool
dOMHTMLOptGroupElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_opt_group_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptGroupElement::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", 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_html_opt_group_element_get_label" webkit_dom_html_opt_group_element_get_label ::
Ptr DOMHTMLOptGroupElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptGroupElement"
IO CString
dOMHTMLOptGroupElementGetLabel ::
(MonadIO m, DOMHTMLOptGroupElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLOptGroupElementGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_opt_group_element_get_label _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptGroupElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_opt_group_element_set_disabled" webkit_dom_html_opt_group_element_set_disabled ::
Ptr DOMHTMLOptGroupElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptGroupElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLOptGroupElementSetDisabled ::
(MonadIO m, DOMHTMLOptGroupElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLOptGroupElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_opt_group_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLOptGroupElement::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptGroupElement", 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" "DOMHTMLOptGroupElement", 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_html_opt_group_element_set_label" webkit_dom_html_opt_group_element_set_label ::
Ptr DOMHTMLOptGroupElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptGroupElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLOptGroupElementSetLabel ::
(MonadIO m, DOMHTMLOptGroupElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLOptGroupElementSetLabel _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_opt_group_element_set_label _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLOptionElement
newtype DOMHTMLOptionElement = DOMHTMLOptionElement (ForeignPtr DOMHTMLOptionElement)
noDOMHTMLOptionElement :: Maybe DOMHTMLOptionElement
noDOMHTMLOptionElement = Nothing
foreign import ccall "webkit_dom_html_option_element_get_type"
c_webkit_dom_html_option_element_get_type :: IO GType
type instance ParentTypes DOMHTMLOptionElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLOptionElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_option_element_get_type
class GObject o => DOMHTMLOptionElementK o
instance (GObject o, IsDescendantOf DOMHTMLOptionElement o) => DOMHTMLOptionElementK o
toDOMHTMLOptionElement :: DOMHTMLOptionElementK o => o -> IO DOMHTMLOptionElement
toDOMHTMLOptionElement = unsafeCastTo DOMHTMLOptionElement
-- method DOMHTMLOptionElement::get_default_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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_html_option_element_get_default_selected" webkit_dom_html_option_element_get_default_selected ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
IO CInt
dOMHTMLOptionElementGetDefaultSelected ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
m Bool
dOMHTMLOptionElementGetDefaultSelected _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_option_element_get_default_selected _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptionElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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_html_option_element_get_disabled" webkit_dom_html_option_element_get_disabled ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
IO CInt
dOMHTMLOptionElementGetDisabled ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
m Bool
dOMHTMLOptionElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_option_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptionElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_option_element_get_form" webkit_dom_html_option_element_get_form ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLOptionElementGetForm ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLOptionElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_option_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptionElement::get_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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_html_option_element_get_index" webkit_dom_html_option_element_get_index ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
IO Int64
dOMHTMLOptionElementGetIndex ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
m Int64
dOMHTMLOptionElementGetIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_option_element_get_index _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLOptionElement::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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_html_option_element_get_label" webkit_dom_html_option_element_get_label ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
IO CString
dOMHTMLOptionElementGetLabel ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLOptionElementGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_option_element_get_label _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptionElement::get_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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_html_option_element_get_selected" webkit_dom_html_option_element_get_selected ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
IO CInt
dOMHTMLOptionElementGetSelected ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
m Bool
dOMHTMLOptionElementGetSelected _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_option_element_get_selected _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptionElement::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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_html_option_element_get_text" webkit_dom_html_option_element_get_text ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
IO CString
dOMHTMLOptionElementGetText ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLOptionElementGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_option_element_get_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptionElement::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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_html_option_element_get_value" webkit_dom_html_option_element_get_value ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
IO CString
dOMHTMLOptionElementGetValue ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLOptionElementGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_option_element_get_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLOptionElement::set_default_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_option_element_set_default_selected" webkit_dom_html_option_element_set_default_selected ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLOptionElementSetDefaultSelected ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLOptionElementSetDefaultSelected _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_option_element_set_default_selected _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLOptionElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_option_element_set_disabled" webkit_dom_html_option_element_set_disabled ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLOptionElementSetDisabled ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLOptionElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_option_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLOptionElement::set_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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" "DOMHTMLOptionElement", 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_html_option_element_set_label" webkit_dom_html_option_element_set_label ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLOptionElementSetLabel ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLOptionElementSetLabel _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_option_element_set_label _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLOptionElement::set_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_option_element_set_selected" webkit_dom_html_option_element_set_selected ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLOptionElementSetSelected ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLOptionElementSetSelected _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_option_element_set_selected _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLOptionElement::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionElement", 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" "DOMHTMLOptionElement", 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_html_option_element_set_value" webkit_dom_html_option_element_set_value ::
Ptr DOMHTMLOptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLOptionElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLOptionElementSetValue ::
(MonadIO m, DOMHTMLOptionElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLOptionElementSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_option_element_set_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLOptionsCollection
newtype DOMHTMLOptionsCollection = DOMHTMLOptionsCollection (ForeignPtr DOMHTMLOptionsCollection)
noDOMHTMLOptionsCollection :: Maybe DOMHTMLOptionsCollection
noDOMHTMLOptionsCollection = Nothing
foreign import ccall "webkit_dom_html_options_collection_get_type"
c_webkit_dom_html_options_collection_get_type :: IO GType
type instance ParentTypes DOMHTMLOptionsCollection = '[DOMHTMLCollection, DOMObject, GObject.Object]
instance GObject DOMHTMLOptionsCollection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_options_collection_get_type
class GObject o => DOMHTMLOptionsCollectionK o
instance (GObject o, IsDescendantOf DOMHTMLOptionsCollection o) => DOMHTMLOptionsCollectionK o
toDOMHTMLOptionsCollection :: DOMHTMLOptionsCollectionK o => o -> IO DOMHTMLOptionsCollection
toDOMHTMLOptionsCollection = unsafeCastTo DOMHTMLOptionsCollection
-- method DOMHTMLOptionsCollection::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", 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_html_options_collection_get_length" webkit_dom_html_options_collection_get_length ::
Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection"
IO Word64
dOMHTMLOptionsCollectionGetLength ::
(MonadIO m, DOMHTMLOptionsCollectionK a) =>
a -> -- _obj
m Word64
dOMHTMLOptionsCollectionGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_options_collection_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLOptionsCollection::get_selected_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", 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_html_options_collection_get_selected_index" webkit_dom_html_options_collection_get_selected_index ::
Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection"
IO Int64
dOMHTMLOptionsCollectionGetSelectedIndex ::
(MonadIO m, DOMHTMLOptionsCollectionK a) =>
a -> -- _obj
m Int64
dOMHTMLOptionsCollectionGetSelectedIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_options_collection_get_selected_index _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLOptionsCollection::named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_options_collection_named_item" webkit_dom_html_options_collection_named_item ::
Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMNode)
dOMHTMLOptionsCollectionNamedItem ::
(MonadIO m, DOMHTMLOptionsCollectionK a) =>
a -> -- _obj
T.Text -> -- name
m DOMNode
dOMHTMLOptionsCollectionNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_html_options_collection_named_item _obj' name'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMHTMLOptionsCollection::set_selected_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_options_collection_set_selected_index" webkit_dom_html_options_collection_set_selected_index ::
Ptr DOMHTMLOptionsCollection -> -- _obj : TInterface "WebKit" "DOMHTMLOptionsCollection"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLOptionsCollectionSetSelectedIndex ::
(MonadIO m, DOMHTMLOptionsCollectionK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLOptionsCollectionSetSelectedIndex _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_options_collection_set_selected_index _obj' value
touchManagedPtr _obj
return ()
-- object DOMHTMLParagraphElement
newtype DOMHTMLParagraphElement = DOMHTMLParagraphElement (ForeignPtr DOMHTMLParagraphElement)
noDOMHTMLParagraphElement :: Maybe DOMHTMLParagraphElement
noDOMHTMLParagraphElement = Nothing
foreign import ccall "webkit_dom_html_paragraph_element_get_type"
c_webkit_dom_html_paragraph_element_get_type :: IO GType
type instance ParentTypes DOMHTMLParagraphElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLParagraphElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_paragraph_element_get_type
class GObject o => DOMHTMLParagraphElementK o
instance (GObject o, IsDescendantOf DOMHTMLParagraphElement o) => DOMHTMLParagraphElementK o
toDOMHTMLParagraphElement :: DOMHTMLParagraphElementK o => o -> IO DOMHTMLParagraphElement
toDOMHTMLParagraphElement = unsafeCastTo DOMHTMLParagraphElement
-- method DOMHTMLParagraphElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", 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_html_paragraph_element_get_align" webkit_dom_html_paragraph_element_get_align ::
Ptr DOMHTMLParagraphElement -> -- _obj : TInterface "WebKit" "DOMHTMLParagraphElement"
IO CString
dOMHTMLParagraphElementGetAlign ::
(MonadIO m, DOMHTMLParagraphElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLParagraphElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_paragraph_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLParagraphElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParagraphElement", 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" "DOMHTMLParagraphElement", 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_html_paragraph_element_set_align" webkit_dom_html_paragraph_element_set_align ::
Ptr DOMHTMLParagraphElement -> -- _obj : TInterface "WebKit" "DOMHTMLParagraphElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLParagraphElementSetAlign ::
(MonadIO m, DOMHTMLParagraphElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLParagraphElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_paragraph_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLParamElement
newtype DOMHTMLParamElement = DOMHTMLParamElement (ForeignPtr DOMHTMLParamElement)
noDOMHTMLParamElement :: Maybe DOMHTMLParamElement
noDOMHTMLParamElement = Nothing
foreign import ccall "webkit_dom_html_param_element_get_type"
c_webkit_dom_html_param_element_get_type :: IO GType
type instance ParentTypes DOMHTMLParamElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLParamElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_param_element_get_type
class GObject o => DOMHTMLParamElementK o
instance (GObject o, IsDescendantOf DOMHTMLParamElement o) => DOMHTMLParamElementK o
toDOMHTMLParamElement :: DOMHTMLParamElementK o => o -> IO DOMHTMLParamElement
toDOMHTMLParamElement = unsafeCastTo DOMHTMLParamElement
-- method DOMHTMLParamElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", 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_html_param_element_get_name" webkit_dom_html_param_element_get_name ::
Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement"
IO CString
dOMHTMLParamElementGetName ::
(MonadIO m, DOMHTMLParamElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLParamElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_param_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLParamElement::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", 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_html_param_element_get_value" webkit_dom_html_param_element_get_value ::
Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement"
IO CString
dOMHTMLParamElementGetValue ::
(MonadIO m, DOMHTMLParamElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLParamElementGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_param_element_get_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLParamElement::get_value_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", 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_html_param_element_get_value_type" webkit_dom_html_param_element_get_value_type ::
Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement"
IO CString
dOMHTMLParamElementGetValueType ::
(MonadIO m, DOMHTMLParamElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLParamElementGetValueType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_param_element_get_value_type _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLParamElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", 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" "DOMHTMLParamElement", 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_html_param_element_set_name" webkit_dom_html_param_element_set_name ::
Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLParamElementSetName ::
(MonadIO m, DOMHTMLParamElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLParamElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_param_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLParamElement::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", 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" "DOMHTMLParamElement", 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_html_param_element_set_value" webkit_dom_html_param_element_set_value ::
Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLParamElementSetValue ::
(MonadIO m, DOMHTMLParamElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLParamElementSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_param_element_set_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLParamElement::set_value_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLParamElement", 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" "DOMHTMLParamElement", 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_html_param_element_set_value_type" webkit_dom_html_param_element_set_value_type ::
Ptr DOMHTMLParamElement -> -- _obj : TInterface "WebKit" "DOMHTMLParamElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLParamElementSetValueType ::
(MonadIO m, DOMHTMLParamElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLParamElementSetValueType _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_param_element_set_value_type _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLPreElement
newtype DOMHTMLPreElement = DOMHTMLPreElement (ForeignPtr DOMHTMLPreElement)
noDOMHTMLPreElement :: Maybe DOMHTMLPreElement
noDOMHTMLPreElement = Nothing
foreign import ccall "webkit_dom_html_pre_element_get_type"
c_webkit_dom_html_pre_element_get_type :: IO GType
type instance ParentTypes DOMHTMLPreElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLPreElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_pre_element_get_type
class GObject o => DOMHTMLPreElementK o
instance (GObject o, IsDescendantOf DOMHTMLPreElement o) => DOMHTMLPreElementK o
toDOMHTMLPreElement :: DOMHTMLPreElementK o => o -> IO DOMHTMLPreElement
toDOMHTMLPreElement = unsafeCastTo DOMHTMLPreElement
-- method DOMHTMLPreElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", 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_html_pre_element_get_width" webkit_dom_html_pre_element_get_width ::
Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement"
IO Int64
dOMHTMLPreElementGetWidth ::
(MonadIO m, DOMHTMLPreElementK a) =>
a -> -- _obj
m Int64
dOMHTMLPreElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_pre_element_get_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLPreElement::get_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", 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_html_pre_element_get_wrap" webkit_dom_html_pre_element_get_wrap ::
Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement"
IO CInt
dOMHTMLPreElementGetWrap ::
(MonadIO m, DOMHTMLPreElementK a) =>
a -> -- _obj
m Bool
dOMHTMLPreElementGetWrap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_pre_element_get_wrap _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLPreElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_pre_element_set_width" webkit_dom_html_pre_element_set_width ::
Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLPreElementSetWidth ::
(MonadIO m, DOMHTMLPreElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLPreElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_pre_element_set_width _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLPreElement::set_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_pre_element_set_wrap" webkit_dom_html_pre_element_set_wrap ::
Ptr DOMHTMLPreElement -> -- _obj : TInterface "WebKit" "DOMHTMLPreElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLPreElementSetWrap ::
(MonadIO m, DOMHTMLPreElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLPreElementSetWrap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_pre_element_set_wrap _obj' value'
touchManagedPtr _obj
return ()
-- object DOMHTMLPropertiesCollection
newtype DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollection (ForeignPtr DOMHTMLPropertiesCollection)
noDOMHTMLPropertiesCollection :: Maybe DOMHTMLPropertiesCollection
noDOMHTMLPropertiesCollection = Nothing
foreign import ccall "webkit_dom_html_properties_collection_get_type"
c_webkit_dom_html_properties_collection_get_type :: IO GType
type instance ParentTypes DOMHTMLPropertiesCollection = '[DOMHTMLCollection, DOMObject, GObject.Object]
instance GObject DOMHTMLPropertiesCollection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_properties_collection_get_type
class GObject o => DOMHTMLPropertiesCollectionK o
instance (GObject o, IsDescendantOf DOMHTMLPropertiesCollection o) => DOMHTMLPropertiesCollectionK o
toDOMHTMLPropertiesCollection :: DOMHTMLPropertiesCollectionK o => o -> IO DOMHTMLPropertiesCollection
toDOMHTMLPropertiesCollection = unsafeCastTo DOMHTMLPropertiesCollection
-- method DOMHTMLPropertiesCollection::get_length
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, 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_html_properties_collection_get_length" webkit_dom_html_properties_collection_get_length ::
Ptr () -> -- self : TBasicType TVoid
IO Word64
{-# DEPRECATED dOMHTMLPropertiesCollectionGetLength ["(Since version 2.2)"]#-}
dOMHTMLPropertiesCollectionGetLength ::
(MonadIO m) =>
Ptr () -> -- self
m Word64
dOMHTMLPropertiesCollectionGetLength self = liftIO $ do
result <- webkit_dom_html_properties_collection_get_length self
return result
-- method DOMHTMLPropertiesCollection::get_names
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMStringList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_properties_collection_get_names" webkit_dom_html_properties_collection_get_names ::
Ptr () -> -- self : TBasicType TVoid
IO (Ptr DOMDOMStringList)
{-# DEPRECATED dOMHTMLPropertiesCollectionGetNames ["(Since version 2.2)"]#-}
dOMHTMLPropertiesCollectionGetNames ::
(MonadIO m) =>
Ptr () -> -- self
m DOMDOMStringList
dOMHTMLPropertiesCollectionGetNames self = liftIO $ do
result <- webkit_dom_html_properties_collection_get_names self
result' <- (newObject DOMDOMStringList) result
return result'
-- method DOMHTMLPropertiesCollection::item
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_properties_collection_item" webkit_dom_html_properties_collection_item ::
Ptr () -> -- self : TBasicType TVoid
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMNode)
{-# DEPRECATED dOMHTMLPropertiesCollectionItem ["(Since version 2.2)"]#-}
dOMHTMLPropertiesCollectionItem ::
(MonadIO m) =>
Ptr () -> -- self
Word64 -> -- index
m DOMNode
dOMHTMLPropertiesCollectionItem self index = liftIO $ do
result <- webkit_dom_html_properties_collection_item self index
result' <- (newObject DOMNode) result
return result'
-- method DOMHTMLPropertiesCollection::named_item
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", 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_html_properties_collection_named_item" webkit_dom_html_properties_collection_named_item ::
Ptr () -> -- self : TBasicType TVoid
CString -> -- name : TBasicType TUTF8
IO ()
{-# DEPRECATED dOMHTMLPropertiesCollectionNamedItem ["(Since version 2.2)"]#-}
dOMHTMLPropertiesCollectionNamedItem ::
(MonadIO m) =>
Ptr () -> -- self
T.Text -> -- name
m ()
dOMHTMLPropertiesCollectionNamedItem self name = liftIO $ do
name' <- textToCString name
webkit_dom_html_properties_collection_named_item self name'
freeMem name'
return ()
-- object DOMHTMLQuoteElement
newtype DOMHTMLQuoteElement = DOMHTMLQuoteElement (ForeignPtr DOMHTMLQuoteElement)
noDOMHTMLQuoteElement :: Maybe DOMHTMLQuoteElement
noDOMHTMLQuoteElement = Nothing
foreign import ccall "webkit_dom_html_quote_element_get_type"
c_webkit_dom_html_quote_element_get_type :: IO GType
type instance ParentTypes DOMHTMLQuoteElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLQuoteElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_quote_element_get_type
class GObject o => DOMHTMLQuoteElementK o
instance (GObject o, IsDescendantOf DOMHTMLQuoteElement o) => DOMHTMLQuoteElementK o
toDOMHTMLQuoteElement :: DOMHTMLQuoteElementK o => o -> IO DOMHTMLQuoteElement
toDOMHTMLQuoteElement = unsafeCastTo DOMHTMLQuoteElement
-- method DOMHTMLQuoteElement::get_cite
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", 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_html_quote_element_get_cite" webkit_dom_html_quote_element_get_cite ::
Ptr DOMHTMLQuoteElement -> -- _obj : TInterface "WebKit" "DOMHTMLQuoteElement"
IO CString
dOMHTMLQuoteElementGetCite ::
(MonadIO m, DOMHTMLQuoteElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLQuoteElementGetCite _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_quote_element_get_cite _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLQuoteElement::set_cite
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLQuoteElement", 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" "DOMHTMLQuoteElement", 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_html_quote_element_set_cite" webkit_dom_html_quote_element_set_cite ::
Ptr DOMHTMLQuoteElement -> -- _obj : TInterface "WebKit" "DOMHTMLQuoteElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLQuoteElementSetCite ::
(MonadIO m, DOMHTMLQuoteElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLQuoteElementSetCite _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_quote_element_set_cite _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLScriptElement
newtype DOMHTMLScriptElement = DOMHTMLScriptElement (ForeignPtr DOMHTMLScriptElement)
noDOMHTMLScriptElement :: Maybe DOMHTMLScriptElement
noDOMHTMLScriptElement = Nothing
foreign import ccall "webkit_dom_html_script_element_get_type"
c_webkit_dom_html_script_element_get_type :: IO GType
type instance ParentTypes DOMHTMLScriptElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLScriptElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_script_element_get_type
class GObject o => DOMHTMLScriptElementK o
instance (GObject o, IsDescendantOf DOMHTMLScriptElement o) => DOMHTMLScriptElementK o
toDOMHTMLScriptElement :: DOMHTMLScriptElementK o => o -> IO DOMHTMLScriptElement
toDOMHTMLScriptElement = unsafeCastTo DOMHTMLScriptElement
-- method DOMHTMLScriptElement::get_async
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_async" webkit_dom_html_script_element_get_async ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CInt
dOMHTMLScriptElementGetAsync ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m Bool
dOMHTMLScriptElementGetAsync _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_async _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::get_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_charset" webkit_dom_html_script_element_get_charset ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CString
dOMHTMLScriptElementGetCharset ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLScriptElementGetCharset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_charset _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::get_cross_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_cross_origin" webkit_dom_html_script_element_get_cross_origin ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CString
dOMHTMLScriptElementGetCrossOrigin ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLScriptElementGetCrossOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_cross_origin _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::get_defer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_defer" webkit_dom_html_script_element_get_defer ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CInt
dOMHTMLScriptElementGetDefer ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m Bool
dOMHTMLScriptElementGetDefer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_defer _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::get_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_event" webkit_dom_html_script_element_get_event ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CString
dOMHTMLScriptElementGetEvent ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLScriptElementGetEvent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_event _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::get_html_for
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_html_for" webkit_dom_html_script_element_get_html_for ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CString
dOMHTMLScriptElementGetHtmlFor ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLScriptElementGetHtmlFor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_html_for _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::get_nonce
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_nonce" webkit_dom_html_script_element_get_nonce ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CString
dOMHTMLScriptElementGetNonce ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLScriptElementGetNonce _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_nonce _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::get_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_src" webkit_dom_html_script_element_get_src ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CString
dOMHTMLScriptElementGetSrc ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLScriptElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_src _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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_html_script_element_get_text" webkit_dom_html_script_element_get_text ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
IO CString
dOMHTMLScriptElementGetText ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLScriptElementGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_script_element_get_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLScriptElement::set_async
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_script_element_set_async" webkit_dom_html_script_element_set_async ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLScriptElementSetAsync ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLScriptElementSetAsync _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_script_element_set_async _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLScriptElement::set_charset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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" "DOMHTMLScriptElement", 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_html_script_element_set_charset" webkit_dom_html_script_element_set_charset ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLScriptElementSetCharset ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLScriptElementSetCharset _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_script_element_set_charset _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLScriptElement::set_cross_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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" "DOMHTMLScriptElement", 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_html_script_element_set_cross_origin" webkit_dom_html_script_element_set_cross_origin ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLScriptElementSetCrossOrigin ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLScriptElementSetCrossOrigin _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_script_element_set_cross_origin _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLScriptElement::set_defer
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_script_element_set_defer" webkit_dom_html_script_element_set_defer ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLScriptElementSetDefer ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLScriptElementSetDefer _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_script_element_set_defer _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLScriptElement::set_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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" "DOMHTMLScriptElement", 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_html_script_element_set_event" webkit_dom_html_script_element_set_event ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLScriptElementSetEvent ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLScriptElementSetEvent _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_script_element_set_event _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLScriptElement::set_html_for
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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" "DOMHTMLScriptElement", 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_html_script_element_set_html_for" webkit_dom_html_script_element_set_html_for ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLScriptElementSetHtmlFor ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLScriptElementSetHtmlFor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_script_element_set_html_for _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLScriptElement::set_nonce
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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" "DOMHTMLScriptElement", 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_html_script_element_set_nonce" webkit_dom_html_script_element_set_nonce ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLScriptElementSetNonce ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLScriptElementSetNonce _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_script_element_set_nonce _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLScriptElement::set_src
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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" "DOMHTMLScriptElement", 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_html_script_element_set_src" webkit_dom_html_script_element_set_src ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLScriptElementSetSrc ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLScriptElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_script_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLScriptElement::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLScriptElement", 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" "DOMHTMLScriptElement", 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_html_script_element_set_text" webkit_dom_html_script_element_set_text ::
Ptr DOMHTMLScriptElement -> -- _obj : TInterface "WebKit" "DOMHTMLScriptElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLScriptElementSetText ::
(MonadIO m, DOMHTMLScriptElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLScriptElementSetText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_script_element_set_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLSelectElement
newtype DOMHTMLSelectElement = DOMHTMLSelectElement (ForeignPtr DOMHTMLSelectElement)
noDOMHTMLSelectElement :: Maybe DOMHTMLSelectElement
noDOMHTMLSelectElement = Nothing
foreign import ccall "webkit_dom_html_select_element_get_type"
c_webkit_dom_html_select_element_get_type :: IO GType
type instance ParentTypes DOMHTMLSelectElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLSelectElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_select_element_get_type
class GObject o => DOMHTMLSelectElementK o
instance (GObject o, IsDescendantOf DOMHTMLSelectElement o) => DOMHTMLSelectElementK o
toDOMHTMLSelectElement :: DOMHTMLSelectElementK o => o -> IO DOMHTMLSelectElement
toDOMHTMLSelectElement = unsafeCastTo DOMHTMLSelectElement
-- method DOMHTMLSelectElement::add
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "before", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "before", argType = TInterface "WebKit" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_add" webkit_dom_html_select_element_add ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
Ptr DOMHTMLElement -> -- element : TInterface "WebKit" "DOMHTMLElement"
Ptr DOMHTMLElement -> -- before : TInterface "WebKit" "DOMHTMLElement"
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLSelectElementAdd ::
(MonadIO m, DOMHTMLSelectElementK a, DOMHTMLElementK b, DOMHTMLElementK c) =>
a -> -- _obj
b -> -- element
c -> -- before
m ()
dOMHTMLSelectElementAdd _obj element before = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let element' = unsafeManagedPtrCastPtr element
let before' = unsafeManagedPtrCastPtr before
onException (do
propagateGError $ webkit_dom_html_select_element_add _obj' element' before'
touchManagedPtr _obj
touchManagedPtr element
touchManagedPtr before
return ()
) (do
return ()
)
-- method DOMHTMLSelectElement::check_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_check_validity" webkit_dom_html_select_element_check_validity ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CInt
dOMHTMLSelectElementCheckValidity ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLSelectElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_autofocus" webkit_dom_html_select_element_get_autofocus ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CInt
dOMHTMLSelectElementGetAutofocus ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLSelectElementGetAutofocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_autofocus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_disabled" webkit_dom_html_select_element_get_disabled ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CInt
dOMHTMLSelectElementGetDisabled ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLSelectElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_get_form" webkit_dom_html_select_element_get_form ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLSelectElementGetForm ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLSelectElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_labels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_get_labels" webkit_dom_html_select_element_get_labels ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO (Ptr DOMNodeList)
dOMHTMLSelectElementGetLabels ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m DOMNodeList
dOMHTMLSelectElementGetLabels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_labels _obj'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_length" webkit_dom_html_select_element_get_length ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO Word64
dOMHTMLSelectElementGetLength ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Word64
dOMHTMLSelectElementGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLSelectElement::get_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_multiple" webkit_dom_html_select_element_get_multiple ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CInt
dOMHTMLSelectElementGetMultiple ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLSelectElementGetMultiple _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_multiple _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_name" webkit_dom_html_select_element_get_name ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CString
dOMHTMLSelectElementGetName ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLSelectElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLOptionsCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_get_options" webkit_dom_html_select_element_get_options ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO (Ptr DOMHTMLOptionsCollection)
dOMHTMLSelectElementGetOptions ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m DOMHTMLOptionsCollection
dOMHTMLSelectElementGetOptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_options _obj'
result' <- (wrapObject DOMHTMLOptionsCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_required
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_required" webkit_dom_html_select_element_get_required ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CInt
dOMHTMLSelectElementGetRequired ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLSelectElementGetRequired _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_required _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_selected_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_selected_index" webkit_dom_html_select_element_get_selected_index ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO Int64
dOMHTMLSelectElementGetSelectedIndex ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Int64
dOMHTMLSelectElementGetSelectedIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_selected_index _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLSelectElement::get_selected_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_get_selected_options" webkit_dom_html_select_element_get_selected_options ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLSelectElementGetSelectedOptions ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLSelectElementGetSelectedOptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_selected_options _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_size" webkit_dom_html_select_element_get_size ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO Int64
dOMHTMLSelectElementGetSize ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Int64
dOMHTMLSelectElementGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_size _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLSelectElement::get_validation_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_validation_message" webkit_dom_html_select_element_get_validation_message ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CString
dOMHTMLSelectElementGetValidationMessage ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLSelectElementGetValidationMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_validation_message _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMValidityState"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_get_validity" webkit_dom_html_select_element_get_validity ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO (Ptr DOMValidityState)
dOMHTMLSelectElementGetValidity ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m DOMValidityState
dOMHTMLSelectElementGetValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_validity _obj'
result' <- (wrapObject DOMValidityState) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_value" webkit_dom_html_select_element_get_value ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CString
dOMHTMLSelectElementGetValue ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLSelectElementGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::get_will_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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_html_select_element_get_will_validate" webkit_dom_html_select_element_get_will_validate ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
IO CInt
dOMHTMLSelectElementGetWillValidate ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
m Bool
dOMHTMLSelectElementGetWillValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_get_will_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_item" webkit_dom_html_select_element_item ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMNode)
dOMHTMLSelectElementItem ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Word64 -> -- index
m DOMNode
dOMHTMLSelectElementItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_select_element_item _obj' index
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMHTMLSelectElement::named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_named_item" webkit_dom_html_select_element_named_item ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMNode)
dOMHTMLSelectElementNamedItem ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
T.Text -> -- name
m DOMNode
dOMHTMLSelectElementNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_html_select_element_named_item _obj' name'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMHTMLSelectElement::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", 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_html_select_element_remove" webkit_dom_html_select_element_remove ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
Int64 -> -- index : TBasicType TInt64
IO ()
dOMHTMLSelectElementRemove ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Int64 -> -- index
m ()
dOMHTMLSelectElementRemove _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_select_element_remove _obj' index
touchManagedPtr _obj
return ()
-- method DOMHTMLSelectElement::set_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_set_autofocus" webkit_dom_html_select_element_set_autofocus ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLSelectElementSetAutofocus ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLSelectElementSetAutofocus _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_select_element_set_autofocus _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLSelectElement::set_custom_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", 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_html_select_element_set_custom_validity" webkit_dom_html_select_element_set_custom_validity ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
CString -> -- error : TBasicType TUTF8
IO ()
dOMHTMLSelectElementSetCustomValidity ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
T.Text -> -- error
m ()
dOMHTMLSelectElementSetCustomValidity _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
error_' <- textToCString error_
webkit_dom_html_select_element_set_custom_validity _obj' error_'
touchManagedPtr _obj
freeMem error_'
return ()
-- method DOMHTMLSelectElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_set_disabled" webkit_dom_html_select_element_set_disabled ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLSelectElementSetDisabled ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLSelectElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_select_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLSelectElement::set_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_set_length" webkit_dom_html_select_element_set_length ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
Word64 -> -- value : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLSelectElementSetLength ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Word64 -> -- value
m ()
dOMHTMLSelectElementSetLength _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_select_element_set_length _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLSelectElement::set_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_set_multiple" webkit_dom_html_select_element_set_multiple ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLSelectElementSetMultiple ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLSelectElementSetMultiple _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_select_element_set_multiple _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLSelectElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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" "DOMHTMLSelectElement", 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_html_select_element_set_name" webkit_dom_html_select_element_set_name ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLSelectElementSetName ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLSelectElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_select_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLSelectElement::set_required
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_select_element_set_required" webkit_dom_html_select_element_set_required ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLSelectElementSetRequired ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLSelectElementSetRequired _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_select_element_set_required _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLSelectElement::set_selected_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_select_element_set_selected_index" webkit_dom_html_select_element_set_selected_index ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLSelectElementSetSelectedIndex ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLSelectElementSetSelectedIndex _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_select_element_set_selected_index _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLSelectElement::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_select_element_set_size" webkit_dom_html_select_element_set_size ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLSelectElementSetSize ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLSelectElementSetSize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_select_element_set_size _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLSelectElement::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLSelectElement", 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" "DOMHTMLSelectElement", 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_html_select_element_set_value" webkit_dom_html_select_element_set_value ::
Ptr DOMHTMLSelectElement -> -- _obj : TInterface "WebKit" "DOMHTMLSelectElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLSelectElementSetValue ::
(MonadIO m, DOMHTMLSelectElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLSelectElementSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_select_element_set_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLStyleElement
newtype DOMHTMLStyleElement = DOMHTMLStyleElement (ForeignPtr DOMHTMLStyleElement)
noDOMHTMLStyleElement :: Maybe DOMHTMLStyleElement
noDOMHTMLStyleElement = Nothing
foreign import ccall "webkit_dom_html_style_element_get_type"
c_webkit_dom_html_style_element_get_type :: IO GType
type instance ParentTypes DOMHTMLStyleElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLStyleElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_style_element_get_type
class GObject o => DOMHTMLStyleElementK o
instance (GObject o, IsDescendantOf DOMHTMLStyleElement o) => DOMHTMLStyleElementK o
toDOMHTMLStyleElement :: DOMHTMLStyleElementK o => o -> IO DOMHTMLStyleElement
toDOMHTMLStyleElement = unsafeCastTo DOMHTMLStyleElement
-- method DOMHTMLStyleElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", 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_html_style_element_get_disabled" webkit_dom_html_style_element_get_disabled ::
Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement"
IO CInt
dOMHTMLStyleElementGetDisabled ::
(MonadIO m, DOMHTMLStyleElementK a) =>
a -> -- _obj
m Bool
dOMHTMLStyleElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_style_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLStyleElement::get_media
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", 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_html_style_element_get_media" webkit_dom_html_style_element_get_media ::
Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement"
IO CString
dOMHTMLStyleElementGetMedia ::
(MonadIO m, DOMHTMLStyleElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLStyleElementGetMedia _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_style_element_get_media _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLStyleElement::get_scoped
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", 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_html_style_element_get_scoped" webkit_dom_html_style_element_get_scoped ::
Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement"
IO CInt
{-# DEPRECATED dOMHTMLStyleElementGetScoped ["(Since version 2.2)"]#-}
dOMHTMLStyleElementGetScoped ::
(MonadIO m, DOMHTMLStyleElementK a) =>
a -> -- _obj
m Bool
dOMHTMLStyleElementGetScoped _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_style_element_get_scoped _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLStyleElement::get_sheet
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMStyleSheet"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_style_element_get_sheet" webkit_dom_html_style_element_get_sheet ::
Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement"
IO (Ptr DOMStyleSheet)
dOMHTMLStyleElementGetSheet ::
(MonadIO m, DOMHTMLStyleElementK a) =>
a -> -- _obj
m DOMStyleSheet
dOMHTMLStyleElementGetSheet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_style_element_get_sheet _obj'
result' <- (wrapObject DOMStyleSheet) result
touchManagedPtr _obj
return result'
-- method DOMHTMLStyleElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_style_element_set_disabled" webkit_dom_html_style_element_set_disabled ::
Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLStyleElementSetDisabled ::
(MonadIO m, DOMHTMLStyleElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLStyleElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_style_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLStyleElement::set_media
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", 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" "DOMHTMLStyleElement", 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_html_style_element_set_media" webkit_dom_html_style_element_set_media ::
Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLStyleElementSetMedia ::
(MonadIO m, DOMHTMLStyleElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLStyleElementSetMedia _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_style_element_set_media _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLStyleElement::set_scoped
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_style_element_set_scoped" webkit_dom_html_style_element_set_scoped ::
Ptr DOMHTMLStyleElement -> -- _obj : TInterface "WebKit" "DOMHTMLStyleElement"
CInt -> -- value : TBasicType TBoolean
IO ()
{-# DEPRECATED dOMHTMLStyleElementSetScoped ["(Since version 2.2)"]#-}
dOMHTMLStyleElementSetScoped ::
(MonadIO m, DOMHTMLStyleElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLStyleElementSetScoped _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_style_element_set_scoped _obj' value'
touchManagedPtr _obj
return ()
-- object DOMHTMLTableCaptionElement
newtype DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElement (ForeignPtr DOMHTMLTableCaptionElement)
noDOMHTMLTableCaptionElement :: Maybe DOMHTMLTableCaptionElement
noDOMHTMLTableCaptionElement = Nothing
foreign import ccall "webkit_dom_html_table_caption_element_get_type"
c_webkit_dom_html_table_caption_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTableCaptionElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTableCaptionElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_table_caption_element_get_type
class GObject o => DOMHTMLTableCaptionElementK o
instance (GObject o, IsDescendantOf DOMHTMLTableCaptionElement o) => DOMHTMLTableCaptionElementK o
toDOMHTMLTableCaptionElement :: DOMHTMLTableCaptionElementK o => o -> IO DOMHTMLTableCaptionElement
toDOMHTMLTableCaptionElement = unsafeCastTo DOMHTMLTableCaptionElement
-- method DOMHTMLTableCaptionElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", 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_html_table_caption_element_get_align" webkit_dom_html_table_caption_element_get_align ::
Ptr DOMHTMLTableCaptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCaptionElement"
IO CString
dOMHTMLTableCaptionElementGetAlign ::
(MonadIO m, DOMHTMLTableCaptionElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCaptionElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_caption_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCaptionElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", 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" "DOMHTMLTableCaptionElement", 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_html_table_caption_element_set_align" webkit_dom_html_table_caption_element_set_align ::
Ptr DOMHTMLTableCaptionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCaptionElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCaptionElementSetAlign ::
(MonadIO m, DOMHTMLTableCaptionElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCaptionElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_caption_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLTableCellElement
newtype DOMHTMLTableCellElement = DOMHTMLTableCellElement (ForeignPtr DOMHTMLTableCellElement)
noDOMHTMLTableCellElement :: Maybe DOMHTMLTableCellElement
noDOMHTMLTableCellElement = Nothing
foreign import ccall "webkit_dom_html_table_cell_element_get_type"
c_webkit_dom_html_table_cell_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTableCellElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTableCellElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_table_cell_element_get_type
class GObject o => DOMHTMLTableCellElementK o
instance (GObject o, IsDescendantOf DOMHTMLTableCellElement o) => DOMHTMLTableCellElementK o
toDOMHTMLTableCellElement :: DOMHTMLTableCellElementK o => o -> IO DOMHTMLTableCellElement
toDOMHTMLTableCellElement = unsafeCastTo DOMHTMLTableCellElement
-- method DOMHTMLTableCellElement::get_abbr
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_abbr" webkit_dom_html_table_cell_element_get_abbr ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetAbbr ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetAbbr _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_abbr _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_align" webkit_dom_html_table_cell_element_get_align ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetAlign ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_axis
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_axis" webkit_dom_html_table_cell_element_get_axis ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetAxis ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetAxis _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_axis _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_bg_color" webkit_dom_html_table_cell_element_get_bg_color ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetBgColor ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetBgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_bg_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_cell_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_cell_index" webkit_dom_html_table_cell_element_get_cell_index ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO Int64
dOMHTMLTableCellElementGetCellIndex ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTableCellElementGetCellIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_cell_index _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTableCellElement::get_ch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_ch" webkit_dom_html_table_cell_element_get_ch ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetCh ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetCh _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_ch _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_ch_off
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_ch_off" webkit_dom_html_table_cell_element_get_ch_off ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetChOff ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetChOff _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_ch_off _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_col_span
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_col_span" webkit_dom_html_table_cell_element_get_col_span ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO Int64
dOMHTMLTableCellElementGetColSpan ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTableCellElementGetColSpan _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_col_span _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTableCellElement::get_headers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_headers" webkit_dom_html_table_cell_element_get_headers ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetHeaders ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetHeaders _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_headers _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_height" webkit_dom_html_table_cell_element_get_height ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetHeight ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_height _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_no_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_no_wrap" webkit_dom_html_table_cell_element_get_no_wrap ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CInt
dOMHTMLTableCellElementGetNoWrap ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTableCellElementGetNoWrap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_no_wrap _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_row_span
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_row_span" webkit_dom_html_table_cell_element_get_row_span ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO Int64
dOMHTMLTableCellElementGetRowSpan ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTableCellElementGetRowSpan _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_row_span _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTableCellElement::get_scope
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_scope" webkit_dom_html_table_cell_element_get_scope ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetScope ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetScope _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_scope _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_v_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_v_align" webkit_dom_html_table_cell_element_get_v_align ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetVAlign ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetVAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_v_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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_html_table_cell_element_get_width" webkit_dom_html_table_cell_element_get_width ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
IO CString
dOMHTMLTableCellElementGetWidth ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableCellElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_cell_element_get_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableCellElement::set_abbr
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_abbr" webkit_dom_html_table_cell_element_set_abbr ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetAbbr ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetAbbr _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_abbr _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_align" webkit_dom_html_table_cell_element_set_align ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetAlign ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_axis
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_axis" webkit_dom_html_table_cell_element_set_axis ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetAxis ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetAxis _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_axis _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_bg_color" webkit_dom_html_table_cell_element_set_bg_color ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetBgColor ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetBgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_bg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_ch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_ch" webkit_dom_html_table_cell_element_set_ch ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetCh ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetCh _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_ch _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_ch_off
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_ch_off" webkit_dom_html_table_cell_element_set_ch_off ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetChOff ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetChOff _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_ch_off _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_col_span
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_table_cell_element_set_col_span" webkit_dom_html_table_cell_element_set_col_span ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLTableCellElementSetColSpan ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLTableCellElementSetColSpan _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_table_cell_element_set_col_span _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLTableCellElement::set_headers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_headers" webkit_dom_html_table_cell_element_set_headers ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetHeaders ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetHeaders _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_headers _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_height" webkit_dom_html_table_cell_element_set_height ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetHeight ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_height _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_no_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_cell_element_set_no_wrap" webkit_dom_html_table_cell_element_set_no_wrap ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLTableCellElementSetNoWrap ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLTableCellElementSetNoWrap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_table_cell_element_set_no_wrap _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLTableCellElement::set_row_span
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_table_cell_element_set_row_span" webkit_dom_html_table_cell_element_set_row_span ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLTableCellElementSetRowSpan ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLTableCellElementSetRowSpan _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_table_cell_element_set_row_span _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLTableCellElement::set_scope
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_scope" webkit_dom_html_table_cell_element_set_scope ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetScope ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetScope _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_scope _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_v_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_v_align" webkit_dom_html_table_cell_element_set_v_align ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetVAlign ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetVAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_v_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableCellElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableCellElement", 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" "DOMHTMLTableCellElement", 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_html_table_cell_element_set_width" webkit_dom_html_table_cell_element_set_width ::
Ptr DOMHTMLTableCellElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableCellElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableCellElementSetWidth ::
(MonadIO m, DOMHTMLTableCellElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableCellElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_cell_element_set_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLTableColElement
newtype DOMHTMLTableColElement = DOMHTMLTableColElement (ForeignPtr DOMHTMLTableColElement)
noDOMHTMLTableColElement :: Maybe DOMHTMLTableColElement
noDOMHTMLTableColElement = Nothing
foreign import ccall "webkit_dom_html_table_col_element_get_type"
c_webkit_dom_html_table_col_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTableColElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTableColElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_table_col_element_get_type
class GObject o => DOMHTMLTableColElementK o
instance (GObject o, IsDescendantOf DOMHTMLTableColElement o) => DOMHTMLTableColElementK o
toDOMHTMLTableColElement :: DOMHTMLTableColElementK o => o -> IO DOMHTMLTableColElement
toDOMHTMLTableColElement = unsafeCastTo DOMHTMLTableColElement
-- method DOMHTMLTableColElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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_html_table_col_element_get_align" webkit_dom_html_table_col_element_get_align ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
IO CString
dOMHTMLTableColElementGetAlign ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableColElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_col_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableColElement::get_ch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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_html_table_col_element_get_ch" webkit_dom_html_table_col_element_get_ch ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
IO CString
dOMHTMLTableColElementGetCh ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableColElementGetCh _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_col_element_get_ch _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableColElement::get_ch_off
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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_html_table_col_element_get_ch_off" webkit_dom_html_table_col_element_get_ch_off ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
IO CString
dOMHTMLTableColElementGetChOff ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableColElementGetChOff _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_col_element_get_ch_off _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableColElement::get_span
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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_html_table_col_element_get_span" webkit_dom_html_table_col_element_get_span ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
IO Int64
dOMHTMLTableColElementGetSpan ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTableColElementGetSpan _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_col_element_get_span _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTableColElement::get_v_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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_html_table_col_element_get_v_align" webkit_dom_html_table_col_element_get_v_align ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
IO CString
dOMHTMLTableColElementGetVAlign ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableColElementGetVAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_col_element_get_v_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableColElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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_html_table_col_element_get_width" webkit_dom_html_table_col_element_get_width ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
IO CString
dOMHTMLTableColElementGetWidth ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableColElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_col_element_get_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableColElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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" "DOMHTMLTableColElement", 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_html_table_col_element_set_align" webkit_dom_html_table_col_element_set_align ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableColElementSetAlign ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableColElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_col_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableColElement::set_ch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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" "DOMHTMLTableColElement", 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_html_table_col_element_set_ch" webkit_dom_html_table_col_element_set_ch ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableColElementSetCh ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableColElementSetCh _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_col_element_set_ch _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableColElement::set_ch_off
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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" "DOMHTMLTableColElement", 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_html_table_col_element_set_ch_off" webkit_dom_html_table_col_element_set_ch_off ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableColElementSetChOff ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableColElementSetChOff _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_col_element_set_ch_off _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableColElement::set_span
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_table_col_element_set_span" webkit_dom_html_table_col_element_set_span ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLTableColElementSetSpan ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLTableColElementSetSpan _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_table_col_element_set_span _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLTableColElement::set_v_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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" "DOMHTMLTableColElement", 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_html_table_col_element_set_v_align" webkit_dom_html_table_col_element_set_v_align ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableColElementSetVAlign ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableColElementSetVAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_col_element_set_v_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableColElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableColElement", 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" "DOMHTMLTableColElement", 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_html_table_col_element_set_width" webkit_dom_html_table_col_element_set_width ::
Ptr DOMHTMLTableColElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableColElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableColElementSetWidth ::
(MonadIO m, DOMHTMLTableColElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableColElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_col_element_set_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLTableElement
newtype DOMHTMLTableElement = DOMHTMLTableElement (ForeignPtr DOMHTMLTableElement)
noDOMHTMLTableElement :: Maybe DOMHTMLTableElement
noDOMHTMLTableElement = Nothing
foreign import ccall "webkit_dom_html_table_element_get_type"
c_webkit_dom_html_table_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTableElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTableElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_table_element_get_type
class GObject o => DOMHTMLTableElementK o
instance (GObject o, IsDescendantOf DOMHTMLTableElement o) => DOMHTMLTableElementK o
toDOMHTMLTableElement :: DOMHTMLTableElementK o => o -> IO DOMHTMLTableElement
toDOMHTMLTableElement = unsafeCastTo DOMHTMLTableElement
-- method DOMHTMLTableElement::create_caption
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_create_caption" webkit_dom_html_table_element_create_caption ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLElement)
dOMHTMLTableElementCreateCaption ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLElement
dOMHTMLTableElementCreateCaption _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_create_caption _obj'
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::create_t_body
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_create_t_body" webkit_dom_html_table_element_create_t_body ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLElement)
dOMHTMLTableElementCreateTBody ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLElement
dOMHTMLTableElementCreateTBody _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_create_t_body _obj'
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::create_t_foot
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_create_t_foot" webkit_dom_html_table_element_create_t_foot ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLElement)
dOMHTMLTableElementCreateTFoot ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLElement
dOMHTMLTableElementCreateTFoot _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_create_t_foot _obj'
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::create_t_head
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_create_t_head" webkit_dom_html_table_element_create_t_head ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLElement)
dOMHTMLTableElementCreateTHead ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLElement
dOMHTMLTableElementCreateTHead _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_create_t_head _obj'
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::delete_caption
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_delete_caption" webkit_dom_html_table_element_delete_caption ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO ()
dOMHTMLTableElementDeleteCaption ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m ()
dOMHTMLTableElementDeleteCaption _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_table_element_delete_caption _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLTableElement::delete_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_delete_row" webkit_dom_html_table_element_delete_row ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
Int64 -> -- index : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLTableElementDeleteRow ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
Int64 -> -- index
m ()
dOMHTMLTableElementDeleteRow _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_table_element_delete_row _obj' index
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLTableElement::delete_t_foot
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_delete_t_foot" webkit_dom_html_table_element_delete_t_foot ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO ()
dOMHTMLTableElementDeleteTFoot ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m ()
dOMHTMLTableElementDeleteTFoot _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_table_element_delete_t_foot _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLTableElement::delete_t_head
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_delete_t_head" webkit_dom_html_table_element_delete_t_head ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO ()
dOMHTMLTableElementDeleteTHead ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m ()
dOMHTMLTableElementDeleteTHead _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_table_element_delete_t_head _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLTableElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_align" webkit_dom_html_table_element_get_align ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetAlign ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_bg_color" webkit_dom_html_table_element_get_bg_color ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetBgColor ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetBgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_bg_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_border" webkit_dom_html_table_element_get_border ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetBorder ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_border _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_caption
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLTableCaptionElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_get_caption" webkit_dom_html_table_element_get_caption ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLTableCaptionElement)
dOMHTMLTableElementGetCaption ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLTableCaptionElement
dOMHTMLTableElementGetCaption _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_caption _obj'
result' <- (newObject DOMHTMLTableCaptionElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_cell_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_cell_padding" webkit_dom_html_table_element_get_cell_padding ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetCellPadding ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetCellPadding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_cell_padding _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_cell_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_cell_spacing" webkit_dom_html_table_element_get_cell_spacing ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetCellSpacing ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetCellSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_cell_spacing _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_frame" webkit_dom_html_table_element_get_frame ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetFrame ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_frame _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_get_rows" webkit_dom_html_table_element_get_rows ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLTableElementGetRows ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLTableElementGetRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_rows _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_rules
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_rules" webkit_dom_html_table_element_get_rules ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetRules ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetRules _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_rules _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_summary
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_summary" webkit_dom_html_table_element_get_summary ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetSummary ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetSummary _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_summary _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_t_bodies
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_get_t_bodies" webkit_dom_html_table_element_get_t_bodies ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLTableElementGetTBodies ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLTableElementGetTBodies _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_t_bodies _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_t_foot
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLTableSectionElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_get_t_foot" webkit_dom_html_table_element_get_t_foot ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLTableSectionElement)
dOMHTMLTableElementGetTFoot ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLTableSectionElement
dOMHTMLTableElementGetTFoot _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_t_foot _obj'
result' <- (newObject DOMHTMLTableSectionElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_t_head
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLTableSectionElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_get_t_head" webkit_dom_html_table_element_get_t_head ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO (Ptr DOMHTMLTableSectionElement)
dOMHTMLTableElementGetTHead ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m DOMHTMLTableSectionElement
dOMHTMLTableElementGetTHead _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_t_head _obj'
result' <- (newObject DOMHTMLTableSectionElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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_html_table_element_get_width" webkit_dom_html_table_element_get_width ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
IO CString
dOMHTMLTableElementGetWidth ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_element_get_width _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableElement::insert_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_insert_row" webkit_dom_html_table_element_insert_row ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
Int64 -> -- index : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO (Ptr DOMHTMLElement)
dOMHTMLTableElementInsertRow ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
Int64 -> -- index
m DOMHTMLElement
dOMHTMLTableElementInsertRow _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_html_table_element_insert_row _obj' index
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMHTMLTableElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_align" webkit_dom_html_table_element_set_align ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetAlign ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableElement::set_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_bg_color" webkit_dom_html_table_element_set_bg_color ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetBgColor ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetBgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_bg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableElement::set_border
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_border" webkit_dom_html_table_element_set_border ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetBorder ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetBorder _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_border _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableElement::set_caption
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_set_caption" webkit_dom_html_table_element_set_caption ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
Ptr DOMHTMLTableCaptionElement -> -- value : TInterface "WebKit" "DOMHTMLTableCaptionElement"
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLTableElementSetCaption ::
(MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableCaptionElementK b) =>
a -> -- _obj
b -> -- value
m ()
dOMHTMLTableElementSetCaption _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = unsafeManagedPtrCastPtr value
onException (do
propagateGError $ webkit_dom_html_table_element_set_caption _obj' value'
touchManagedPtr _obj
touchManagedPtr value
return ()
) (do
return ()
)
-- method DOMHTMLTableElement::set_cell_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_cell_padding" webkit_dom_html_table_element_set_cell_padding ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetCellPadding ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetCellPadding _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_cell_padding _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableElement::set_cell_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_cell_spacing" webkit_dom_html_table_element_set_cell_spacing ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetCellSpacing ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetCellSpacing _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_cell_spacing _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableElement::set_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_frame" webkit_dom_html_table_element_set_frame ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetFrame ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetFrame _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_frame _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableElement::set_rules
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_rules" webkit_dom_html_table_element_set_rules ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetRules ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetRules _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_rules _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableElement::set_summary
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_summary" webkit_dom_html_table_element_set_summary ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetSummary ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetSummary _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_summary _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableElement::set_t_foot
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_set_t_foot" webkit_dom_html_table_element_set_t_foot ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
Ptr DOMHTMLTableSectionElement -> -- value : TInterface "WebKit" "DOMHTMLTableSectionElement"
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLTableElementSetTFoot ::
(MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableSectionElementK b) =>
a -> -- _obj
b -> -- value
m ()
dOMHTMLTableElementSetTFoot _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = unsafeManagedPtrCastPtr value
onException (do
propagateGError $ webkit_dom_html_table_element_set_t_foot _obj' value'
touchManagedPtr _obj
touchManagedPtr value
return ()
) (do
return ()
)
-- method DOMHTMLTableElement::set_t_head
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_element_set_t_head" webkit_dom_html_table_element_set_t_head ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
Ptr DOMHTMLTableSectionElement -> -- value : TInterface "WebKit" "DOMHTMLTableSectionElement"
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLTableElementSetTHead ::
(MonadIO m, DOMHTMLTableElementK a, DOMHTMLTableSectionElementK b) =>
a -> -- _obj
b -> -- value
m ()
dOMHTMLTableElementSetTHead _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = unsafeManagedPtrCastPtr value
onException (do
propagateGError $ webkit_dom_html_table_element_set_t_head _obj' value'
touchManagedPtr _obj
touchManagedPtr value
return ()
) (do
return ()
)
-- method DOMHTMLTableElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableElement", 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" "DOMHTMLTableElement", 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_html_table_element_set_width" webkit_dom_html_table_element_set_width ::
Ptr DOMHTMLTableElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableElementSetWidth ::
(MonadIO m, DOMHTMLTableElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_element_set_width _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLTableRowElement
newtype DOMHTMLTableRowElement = DOMHTMLTableRowElement (ForeignPtr DOMHTMLTableRowElement)
noDOMHTMLTableRowElement :: Maybe DOMHTMLTableRowElement
noDOMHTMLTableRowElement = Nothing
foreign import ccall "webkit_dom_html_table_row_element_get_type"
c_webkit_dom_html_table_row_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTableRowElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTableRowElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_table_row_element_get_type
class GObject o => DOMHTMLTableRowElementK o
instance (GObject o, IsDescendantOf DOMHTMLTableRowElement o) => DOMHTMLTableRowElementK o
toDOMHTMLTableRowElement :: DOMHTMLTableRowElementK o => o -> IO DOMHTMLTableRowElement
toDOMHTMLTableRowElement = unsafeCastTo DOMHTMLTableRowElement
-- method DOMHTMLTableRowElement::delete_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_row_element_delete_cell" webkit_dom_html_table_row_element_delete_cell ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
Int64 -> -- index : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLTableRowElementDeleteCell ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
Int64 -> -- index
m ()
dOMHTMLTableRowElementDeleteCell _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_table_row_element_delete_cell _obj' index
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLTableRowElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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_html_table_row_element_get_align" webkit_dom_html_table_row_element_get_align ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
IO CString
dOMHTMLTableRowElementGetAlign ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableRowElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_row_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableRowElement::get_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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_html_table_row_element_get_bg_color" webkit_dom_html_table_row_element_get_bg_color ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
IO CString
dOMHTMLTableRowElementGetBgColor ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableRowElementGetBgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_row_element_get_bg_color _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableRowElement::get_cells
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_row_element_get_cells" webkit_dom_html_table_row_element_get_cells ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLTableRowElementGetCells ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLTableRowElementGetCells _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_row_element_get_cells _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableRowElement::get_ch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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_html_table_row_element_get_ch" webkit_dom_html_table_row_element_get_ch ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
IO CString
dOMHTMLTableRowElementGetCh ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableRowElementGetCh _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_row_element_get_ch _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableRowElement::get_ch_off
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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_html_table_row_element_get_ch_off" webkit_dom_html_table_row_element_get_ch_off ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
IO CString
dOMHTMLTableRowElementGetChOff ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableRowElementGetChOff _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_row_element_get_ch_off _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableRowElement::get_row_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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_html_table_row_element_get_row_index" webkit_dom_html_table_row_element_get_row_index ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
IO Int64
dOMHTMLTableRowElementGetRowIndex ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTableRowElementGetRowIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_row_element_get_row_index _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTableRowElement::get_section_row_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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_html_table_row_element_get_section_row_index" webkit_dom_html_table_row_element_get_section_row_index ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
IO Int64
dOMHTMLTableRowElementGetSectionRowIndex ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTableRowElementGetSectionRowIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_row_element_get_section_row_index _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTableRowElement::get_v_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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_html_table_row_element_get_v_align" webkit_dom_html_table_row_element_get_v_align ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
IO CString
dOMHTMLTableRowElementGetVAlign ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableRowElementGetVAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_row_element_get_v_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableRowElement::insert_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_row_element_insert_cell" webkit_dom_html_table_row_element_insert_cell ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
Int64 -> -- index : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO (Ptr DOMHTMLElement)
dOMHTMLTableRowElementInsertCell ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
Int64 -> -- index
m DOMHTMLElement
dOMHTMLTableRowElementInsertCell _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_html_table_row_element_insert_cell _obj' index
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMHTMLTableRowElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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" "DOMHTMLTableRowElement", 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_html_table_row_element_set_align" webkit_dom_html_table_row_element_set_align ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableRowElementSetAlign ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableRowElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_row_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableRowElement::set_bg_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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" "DOMHTMLTableRowElement", 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_html_table_row_element_set_bg_color" webkit_dom_html_table_row_element_set_bg_color ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableRowElementSetBgColor ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableRowElementSetBgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_row_element_set_bg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableRowElement::set_ch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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" "DOMHTMLTableRowElement", 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_html_table_row_element_set_ch" webkit_dom_html_table_row_element_set_ch ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableRowElementSetCh ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableRowElementSetCh _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_row_element_set_ch _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableRowElement::set_ch_off
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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" "DOMHTMLTableRowElement", 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_html_table_row_element_set_ch_off" webkit_dom_html_table_row_element_set_ch_off ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableRowElementSetChOff ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableRowElementSetChOff _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_row_element_set_ch_off _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableRowElement::set_v_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableRowElement", 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" "DOMHTMLTableRowElement", 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_html_table_row_element_set_v_align" webkit_dom_html_table_row_element_set_v_align ::
Ptr DOMHTMLTableRowElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableRowElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableRowElementSetVAlign ::
(MonadIO m, DOMHTMLTableRowElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableRowElementSetVAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_row_element_set_v_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLTableSectionElement
newtype DOMHTMLTableSectionElement = DOMHTMLTableSectionElement (ForeignPtr DOMHTMLTableSectionElement)
noDOMHTMLTableSectionElement :: Maybe DOMHTMLTableSectionElement
noDOMHTMLTableSectionElement = Nothing
foreign import ccall "webkit_dom_html_table_section_element_get_type"
c_webkit_dom_html_table_section_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTableSectionElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTableSectionElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_table_section_element_get_type
class GObject o => DOMHTMLTableSectionElementK o
instance (GObject o, IsDescendantOf DOMHTMLTableSectionElement o) => DOMHTMLTableSectionElementK o
toDOMHTMLTableSectionElement :: DOMHTMLTableSectionElementK o => o -> IO DOMHTMLTableSectionElement
toDOMHTMLTableSectionElement = unsafeCastTo DOMHTMLTableSectionElement
-- method DOMHTMLTableSectionElement::delete_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_section_element_delete_row" webkit_dom_html_table_section_element_delete_row ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
Int64 -> -- index : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLTableSectionElementDeleteRow ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
Int64 -> -- index
m ()
dOMHTMLTableSectionElementDeleteRow _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_table_section_element_delete_row _obj' index
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLTableSectionElement::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", 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_html_table_section_element_get_align" webkit_dom_html_table_section_element_get_align ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
IO CString
dOMHTMLTableSectionElementGetAlign ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableSectionElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableSectionElement::get_ch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", 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_html_table_section_element_get_ch" webkit_dom_html_table_section_element_get_ch ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
IO CString
dOMHTMLTableSectionElementGetCh ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableSectionElementGetCh _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_ch _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableSectionElement::get_ch_off
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", 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_html_table_section_element_get_ch_off" webkit_dom_html_table_section_element_get_ch_off ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
IO CString
dOMHTMLTableSectionElementGetChOff ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableSectionElementGetChOff _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_ch_off _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableSectionElement::get_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLCollection"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_table_section_element_get_rows" webkit_dom_html_table_section_element_get_rows ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
IO (Ptr DOMHTMLCollection)
dOMHTMLTableSectionElementGetRows ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
m DOMHTMLCollection
dOMHTMLTableSectionElementGetRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_rows _obj'
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableSectionElement::get_v_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", 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_html_table_section_element_get_v_align" webkit_dom_html_table_section_element_get_v_align ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
IO CString
dOMHTMLTableSectionElementGetVAlign ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTableSectionElementGetVAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_table_section_element_get_v_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTableSectionElement::insert_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLElement"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_table_section_element_insert_row" webkit_dom_html_table_section_element_insert_row ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
Int64 -> -- index : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO (Ptr DOMHTMLElement)
dOMHTMLTableSectionElementInsertRow ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
Int64 -> -- index
m DOMHTMLElement
dOMHTMLTableSectionElementInsertRow _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_html_table_section_element_insert_row _obj' index
result' <- (newObject DOMHTMLElement) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMHTMLTableSectionElement::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", 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" "DOMHTMLTableSectionElement", 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_html_table_section_element_set_align" webkit_dom_html_table_section_element_set_align ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableSectionElementSetAlign ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableSectionElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_section_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableSectionElement::set_ch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", 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" "DOMHTMLTableSectionElement", 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_html_table_section_element_set_ch" webkit_dom_html_table_section_element_set_ch ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableSectionElementSetCh ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableSectionElementSetCh _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_section_element_set_ch _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableSectionElement::set_ch_off
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", 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" "DOMHTMLTableSectionElement", 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_html_table_section_element_set_ch_off" webkit_dom_html_table_section_element_set_ch_off ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableSectionElementSetChOff ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableSectionElementSetChOff _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_section_element_set_ch_off _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTableSectionElement::set_v_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTableSectionElement", 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" "DOMHTMLTableSectionElement", 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_html_table_section_element_set_v_align" webkit_dom_html_table_section_element_set_v_align ::
Ptr DOMHTMLTableSectionElement -> -- _obj : TInterface "WebKit" "DOMHTMLTableSectionElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTableSectionElementSetVAlign ::
(MonadIO m, DOMHTMLTableSectionElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTableSectionElementSetVAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_table_section_element_set_v_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLTextAreaElement
newtype DOMHTMLTextAreaElement = DOMHTMLTextAreaElement (ForeignPtr DOMHTMLTextAreaElement)
noDOMHTMLTextAreaElement :: Maybe DOMHTMLTextAreaElement
noDOMHTMLTextAreaElement = Nothing
foreign import ccall "webkit_dom_html_text_area_element_get_type"
c_webkit_dom_html_text_area_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTextAreaElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTextAreaElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_text_area_element_get_type
class GObject o => DOMHTMLTextAreaElementK o
instance (GObject o, IsDescendantOf DOMHTMLTextAreaElement o) => DOMHTMLTextAreaElementK o
toDOMHTMLTextAreaElement :: DOMHTMLTextAreaElementK o => o -> IO DOMHTMLTextAreaElement
toDOMHTMLTextAreaElement = unsafeCastTo DOMHTMLTextAreaElement
-- method DOMHTMLTextAreaElement::check_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_check_validity" webkit_dom_html_text_area_element_check_validity ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CInt
dOMHTMLTextAreaElementCheckValidity ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTextAreaElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_autocapitalize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_autocapitalize" webkit_dom_html_text_area_element_get_autocapitalize ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetAutocapitalize ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetAutocapitalize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_autocapitalize _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_autocorrect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_autocorrect" webkit_dom_html_text_area_element_get_autocorrect ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CInt
dOMHTMLTextAreaElementGetAutocorrect ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTextAreaElementGetAutocorrect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_autocorrect _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_autofocus" webkit_dom_html_text_area_element_get_autofocus ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CInt
dOMHTMLTextAreaElementGetAutofocus ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTextAreaElementGetAutofocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_autofocus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_cols
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_cols" webkit_dom_html_text_area_element_get_cols ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO Int64
dOMHTMLTextAreaElementGetCols ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTextAreaElementGetCols _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_cols _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTextAreaElement::get_default_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_default_value" webkit_dom_html_text_area_element_get_default_value ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetDefaultValue ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetDefaultValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_default_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_dir_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_dir_name" webkit_dom_html_text_area_element_get_dir_name ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetDirName ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetDirName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_dir_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_disabled" webkit_dom_html_text_area_element_get_disabled ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CInt
dOMHTMLTextAreaElementGetDisabled ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTextAreaElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_form
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMHTMLFormElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_get_form" webkit_dom_html_text_area_element_get_form ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO (Ptr DOMHTMLFormElement)
dOMHTMLTextAreaElementGetForm ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m DOMHTMLFormElement
dOMHTMLTextAreaElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_form _obj'
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_labels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_get_labels" webkit_dom_html_text_area_element_get_labels ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO (Ptr DOMNodeList)
dOMHTMLTextAreaElementGetLabels ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m DOMNodeList
dOMHTMLTextAreaElementGetLabels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_labels _obj'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_max_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_max_length" webkit_dom_html_text_area_element_get_max_length ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO Int64
dOMHTMLTextAreaElementGetMaxLength ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTextAreaElementGetMaxLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_max_length _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTextAreaElement::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_name" webkit_dom_html_text_area_element_get_name ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetName ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_placeholder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_placeholder" webkit_dom_html_text_area_element_get_placeholder ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetPlaceholder ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetPlaceholder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_placeholder _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_read_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_read_only" webkit_dom_html_text_area_element_get_read_only ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CInt
dOMHTMLTextAreaElementGetReadOnly ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTextAreaElementGetReadOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_read_only _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_required
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_required" webkit_dom_html_text_area_element_get_required ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CInt
dOMHTMLTextAreaElementGetRequired ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTextAreaElementGetRequired _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_required _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_rows" webkit_dom_html_text_area_element_get_rows ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO Int64
dOMHTMLTextAreaElementGetRows ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTextAreaElementGetRows _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_rows _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTextAreaElement::get_selection_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_selection_direction" webkit_dom_html_text_area_element_get_selection_direction ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetSelectionDirection ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetSelectionDirection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_selection_direction _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_selection_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_selection_end" webkit_dom_html_text_area_element_get_selection_end ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO Int64
dOMHTMLTextAreaElementGetSelectionEnd ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTextAreaElementGetSelectionEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_selection_end _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTextAreaElement::get_selection_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_selection_start" webkit_dom_html_text_area_element_get_selection_start ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO Int64
dOMHTMLTextAreaElementGetSelectionStart ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Int64
dOMHTMLTextAreaElementGetSelectionStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_selection_start _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTextAreaElement::get_text_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_text_length" webkit_dom_html_text_area_element_get_text_length ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO Word64
dOMHTMLTextAreaElementGetTextLength ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Word64
dOMHTMLTextAreaElementGetTextLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_text_length _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLTextAreaElement::get_validation_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_validation_message" webkit_dom_html_text_area_element_get_validation_message ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetValidationMessage ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetValidationMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_validation_message _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMValidityState"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_get_validity" webkit_dom_html_text_area_element_get_validity ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO (Ptr DOMValidityState)
dOMHTMLTextAreaElementGetValidity ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m DOMValidityState
dOMHTMLTextAreaElementGetValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_validity _obj'
result' <- (wrapObject DOMValidityState) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_value" webkit_dom_html_text_area_element_get_value ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetValue ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_will_validate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_will_validate" webkit_dom_html_text_area_element_get_will_validate ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CInt
dOMHTMLTextAreaElementGetWillValidate ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTextAreaElementGetWillValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_will_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::get_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_get_wrap" webkit_dom_html_text_area_element_get_wrap ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CString
dOMHTMLTextAreaElementGetWrap ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTextAreaElementGetWrap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_get_wrap _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::is_edited
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_is_edited" webkit_dom_html_text_area_element_is_edited ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO CInt
dOMHTMLTextAreaElementIsEdited ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m Bool
dOMHTMLTextAreaElementIsEdited _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_text_area_element_is_edited _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLTextAreaElement::select
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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_html_text_area_element_select" webkit_dom_html_text_area_element_select ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
IO ()
dOMHTMLTextAreaElementSelect ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
m ()
dOMHTMLTextAreaElementSelect _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_text_area_element_select _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_autocapitalize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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" "DOMHTMLTextAreaElement", 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_html_text_area_element_set_autocapitalize" webkit_dom_html_text_area_element_set_autocapitalize ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetAutocapitalize ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTextAreaElementSetAutocapitalize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_text_area_element_set_autocapitalize _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTextAreaElement::set_autocorrect
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_set_autocorrect" webkit_dom_html_text_area_element_set_autocorrect ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLTextAreaElementSetAutocorrect ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLTextAreaElementSetAutocorrect _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_text_area_element_set_autocorrect _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_autofocus
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_set_autofocus" webkit_dom_html_text_area_element_set_autofocus ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLTextAreaElementSetAutofocus ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLTextAreaElementSetAutofocus _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_text_area_element_set_autofocus _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_cols
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_text_area_element_set_cols" webkit_dom_html_text_area_element_set_cols ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLTextAreaElementSetCols ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLTextAreaElementSetCols _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_text_area_element_set_cols _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_custom_validity
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", 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_html_text_area_element_set_custom_validity" webkit_dom_html_text_area_element_set_custom_validity ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- error : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetCustomValidity ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- error
m ()
dOMHTMLTextAreaElementSetCustomValidity _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
error_' <- textToCString error_
webkit_dom_html_text_area_element_set_custom_validity _obj' error_'
touchManagedPtr _obj
freeMem error_'
return ()
-- method DOMHTMLTextAreaElement::set_default_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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" "DOMHTMLTextAreaElement", 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_html_text_area_element_set_default_value" webkit_dom_html_text_area_element_set_default_value ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetDefaultValue ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTextAreaElementSetDefaultValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_text_area_element_set_default_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTextAreaElement::set_dir_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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" "DOMHTMLTextAreaElement", 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_html_text_area_element_set_dir_name" webkit_dom_html_text_area_element_set_dir_name ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetDirName ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTextAreaElementSetDirName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_text_area_element_set_dir_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTextAreaElement::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_set_disabled" webkit_dom_html_text_area_element_set_disabled ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLTextAreaElementSetDisabled ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLTextAreaElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_text_area_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_max_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_set_max_length" webkit_dom_html_text_area_element_set_max_length ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
Int64 -> -- value : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLTextAreaElementSetMaxLength ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLTextAreaElementSetMaxLength _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_text_area_element_set_max_length _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLTextAreaElement::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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" "DOMHTMLTextAreaElement", 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_html_text_area_element_set_name" webkit_dom_html_text_area_element_set_name ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetName ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTextAreaElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_text_area_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTextAreaElement::set_placeholder
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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" "DOMHTMLTextAreaElement", 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_html_text_area_element_set_placeholder" webkit_dom_html_text_area_element_set_placeholder ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetPlaceholder ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTextAreaElementSetPlaceholder _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_text_area_element_set_placeholder _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTextAreaElement::set_range_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectionMode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_set_range_text" webkit_dom_html_text_area_element_set_range_text ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- replacement : TBasicType TUTF8
Word64 -> -- start : TBasicType TUInt64
Word64 -> -- end : TBasicType TUInt64
CString -> -- selectionMode : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLTextAreaElementSetRangeText ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- replacement
Word64 -> -- start
Word64 -> -- end
T.Text -> -- selectionMode
m ()
dOMHTMLTextAreaElementSetRangeText _obj replacement start end selectionMode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
replacement' <- textToCString replacement
selectionMode' <- textToCString selectionMode
onException (do
propagateGError $ webkit_dom_html_text_area_element_set_range_text _obj' replacement' start end selectionMode'
touchManagedPtr _obj
freeMem replacement'
freeMem selectionMode'
return ()
) (do
freeMem replacement'
freeMem selectionMode'
)
-- method DOMHTMLTextAreaElement::set_read_only
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_set_read_only" webkit_dom_html_text_area_element_set_read_only ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLTextAreaElementSetReadOnly ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLTextAreaElementSetReadOnly _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_text_area_element_set_read_only _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_required
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_text_area_element_set_required" webkit_dom_html_text_area_element_set_required ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLTextAreaElementSetRequired ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLTextAreaElementSetRequired _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_text_area_element_set_required _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_rows
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_text_area_element_set_rows" webkit_dom_html_text_area_element_set_rows ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLTextAreaElementSetRows ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLTextAreaElementSetRows _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_text_area_element_set_rows _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_selection_direction
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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" "DOMHTMLTextAreaElement", 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_html_text_area_element_set_selection_direction" webkit_dom_html_text_area_element_set_selection_direction ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetSelectionDirection ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTextAreaElementSetSelectionDirection _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_text_area_element_set_selection_direction _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTextAreaElement::set_selection_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_text_area_element_set_selection_end" webkit_dom_html_text_area_element_set_selection_end ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLTextAreaElementSetSelectionEnd ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLTextAreaElementSetSelectionEnd _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_text_area_element_set_selection_end _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_selection_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", 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_html_text_area_element_set_selection_range" webkit_dom_html_text_area_element_set_selection_range ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- end : TBasicType TInt64
CString -> -- direction : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetSelectionRange ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Int64 -> -- start
Int64 -> -- end
T.Text -> -- direction
m ()
dOMHTMLTextAreaElementSetSelectionRange _obj start end direction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
direction' <- textToCString direction
webkit_dom_html_text_area_element_set_selection_range _obj' start end direction'
touchManagedPtr _obj
freeMem direction'
return ()
-- method DOMHTMLTextAreaElement::set_selection_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_html_text_area_element_set_selection_start" webkit_dom_html_text_area_element_set_selection_start ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
Int64 -> -- value : TBasicType TInt64
IO ()
dOMHTMLTextAreaElementSetSelectionStart ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMHTMLTextAreaElementSetSelectionStart _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_text_area_element_set_selection_start _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLTextAreaElement::set_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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" "DOMHTMLTextAreaElement", 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_html_text_area_element_set_value" webkit_dom_html_text_area_element_set_value ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetValue ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTextAreaElementSetValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_text_area_element_set_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLTextAreaElement::set_wrap
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTextAreaElement", 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" "DOMHTMLTextAreaElement", 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_html_text_area_element_set_wrap" webkit_dom_html_text_area_element_set_wrap ::
Ptr DOMHTMLTextAreaElement -> -- _obj : TInterface "WebKit" "DOMHTMLTextAreaElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTextAreaElementSetWrap ::
(MonadIO m, DOMHTMLTextAreaElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTextAreaElementSetWrap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_text_area_element_set_wrap _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLTitleElement
newtype DOMHTMLTitleElement = DOMHTMLTitleElement (ForeignPtr DOMHTMLTitleElement)
noDOMHTMLTitleElement :: Maybe DOMHTMLTitleElement
noDOMHTMLTitleElement = Nothing
foreign import ccall "webkit_dom_html_title_element_get_type"
c_webkit_dom_html_title_element_get_type :: IO GType
type instance ParentTypes DOMHTMLTitleElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLTitleElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_title_element_get_type
class GObject o => DOMHTMLTitleElementK o
instance (GObject o, IsDescendantOf DOMHTMLTitleElement o) => DOMHTMLTitleElementK o
toDOMHTMLTitleElement :: DOMHTMLTitleElementK o => o -> IO DOMHTMLTitleElement
toDOMHTMLTitleElement = unsafeCastTo DOMHTMLTitleElement
-- method DOMHTMLTitleElement::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", 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_html_title_element_get_text" webkit_dom_html_title_element_get_text ::
Ptr DOMHTMLTitleElement -> -- _obj : TInterface "WebKit" "DOMHTMLTitleElement"
IO CString
dOMHTMLTitleElementGetText ::
(MonadIO m, DOMHTMLTitleElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLTitleElementGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_title_element_get_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLTitleElement::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLTitleElement", 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" "DOMHTMLTitleElement", 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_html_title_element_set_text" webkit_dom_html_title_element_set_text ::
Ptr DOMHTMLTitleElement -> -- _obj : TInterface "WebKit" "DOMHTMLTitleElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLTitleElementSetText ::
(MonadIO m, DOMHTMLTitleElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLTitleElementSetText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_title_element_set_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMHTMLUListElement
newtype DOMHTMLUListElement = DOMHTMLUListElement (ForeignPtr DOMHTMLUListElement)
noDOMHTMLUListElement :: Maybe DOMHTMLUListElement
noDOMHTMLUListElement = Nothing
foreign import ccall "webkit_dom_htmlu_list_element_get_type"
c_webkit_dom_htmlu_list_element_get_type :: IO GType
type instance ParentTypes DOMHTMLUListElement = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLUListElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_htmlu_list_element_get_type
class GObject o => DOMHTMLUListElementK o
instance (GObject o, IsDescendantOf DOMHTMLUListElement o) => DOMHTMLUListElementK o
toDOMHTMLUListElement :: DOMHTMLUListElementK o => o -> IO DOMHTMLUListElement
toDOMHTMLUListElement = unsafeCastTo DOMHTMLUListElement
-- method DOMHTMLUListElement::get_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", 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_htmlu_list_element_get_compact" webkit_dom_htmlu_list_element_get_compact ::
Ptr DOMHTMLUListElement -> -- _obj : TInterface "WebKit" "DOMHTMLUListElement"
IO CInt
dOMHTMLUListElementGetCompact ::
(MonadIO m, DOMHTMLUListElementK a) =>
a -> -- _obj
m Bool
dOMHTMLUListElementGetCompact _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_htmlu_list_element_get_compact _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLUListElement::set_compact
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_htmlu_list_element_set_compact" webkit_dom_htmlu_list_element_set_compact ::
Ptr DOMHTMLUListElement -> -- _obj : TInterface "WebKit" "DOMHTMLUListElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLUListElementSetCompact ::
(MonadIO m, DOMHTMLUListElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLUListElementSetCompact _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_htmlu_list_element_set_compact _obj' value'
touchManagedPtr _obj
return ()
-- object DOMHTMLVideoElement
newtype DOMHTMLVideoElement = DOMHTMLVideoElement (ForeignPtr DOMHTMLVideoElement)
noDOMHTMLVideoElement :: Maybe DOMHTMLVideoElement
noDOMHTMLVideoElement = Nothing
foreign import ccall "webkit_dom_html_video_element_get_type"
c_webkit_dom_html_video_element_get_type :: IO GType
type instance ParentTypes DOMHTMLVideoElement = '[DOMHTMLMediaElement, DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLVideoElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_video_element_get_type
class GObject o => DOMHTMLVideoElementK o
instance (GObject o, IsDescendantOf DOMHTMLVideoElement o) => DOMHTMLVideoElementK o
toDOMHTMLVideoElement :: DOMHTMLVideoElementK o => o -> IO DOMHTMLVideoElement
toDOMHTMLVideoElement = unsafeCastTo DOMHTMLVideoElement
-- method DOMHTMLVideoElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_height" webkit_dom_html_video_element_get_height ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO Word64
dOMHTMLVideoElementGetHeight ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Word64
dOMHTMLVideoElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLVideoElement::get_poster
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_poster" webkit_dom_html_video_element_get_poster ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO CString
dOMHTMLVideoElementGetPoster ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m T.Text
dOMHTMLVideoElementGetPoster _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_poster _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMHTMLVideoElement::get_video_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_video_height" webkit_dom_html_video_element_get_video_height ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO Word64
dOMHTMLVideoElementGetVideoHeight ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Word64
dOMHTMLVideoElementGetVideoHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_video_height _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLVideoElement::get_video_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_video_width" webkit_dom_html_video_element_get_video_width ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO Word64
dOMHTMLVideoElementGetVideoWidth ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Word64
dOMHTMLVideoElementGetVideoWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_video_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLVideoElement::get_webkit_decoded_frame_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_webkit_decoded_frame_count" webkit_dom_html_video_element_get_webkit_decoded_frame_count ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO Word64
dOMHTMLVideoElementGetWebkitDecodedFrameCount ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Word64
dOMHTMLVideoElementGetWebkitDecodedFrameCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_webkit_decoded_frame_count _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLVideoElement::get_webkit_displaying_fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_webkit_displaying_fullscreen" webkit_dom_html_video_element_get_webkit_displaying_fullscreen ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO CInt
dOMHTMLVideoElementGetWebkitDisplayingFullscreen ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Bool
dOMHTMLVideoElementGetWebkitDisplayingFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_webkit_displaying_fullscreen _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLVideoElement::get_webkit_dropped_frame_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_webkit_dropped_frame_count" webkit_dom_html_video_element_get_webkit_dropped_frame_count ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO Word64
dOMHTMLVideoElementGetWebkitDroppedFrameCount ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Word64
dOMHTMLVideoElementGetWebkitDroppedFrameCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_webkit_dropped_frame_count _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLVideoElement::get_webkit_supports_fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_webkit_supports_fullscreen" webkit_dom_html_video_element_get_webkit_supports_fullscreen ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO CInt
dOMHTMLVideoElementGetWebkitSupportsFullscreen ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Bool
dOMHTMLVideoElementGetWebkitSupportsFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_webkit_supports_fullscreen _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLVideoElement::get_webkit_wireless_video_playback_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_webkit_wireless_video_playback_disabled" webkit_dom_html_video_element_get_webkit_wireless_video_playback_disabled ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO CInt
dOMHTMLVideoElementGetWebkitWirelessVideoPlaybackDisabled ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Bool
dOMHTMLVideoElementGetWebkitWirelessVideoPlaybackDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_webkit_wireless_video_playback_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMHTMLVideoElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_get_width" webkit_dom_html_video_element_get_width ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO Word64
dOMHTMLVideoElementGetWidth ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m Word64
dOMHTMLVideoElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_video_element_get_width _obj'
touchManagedPtr _obj
return result
-- method DOMHTMLVideoElement::set_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, 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_html_video_element_set_height" webkit_dom_html_video_element_set_height ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
Word64 -> -- value : TBasicType TUInt64
IO ()
dOMHTMLVideoElementSetHeight ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
Word64 -> -- value
m ()
dOMHTMLVideoElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_video_element_set_height _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLVideoElement::set_poster
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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" "DOMHTMLVideoElement", 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_html_video_element_set_poster" webkit_dom_html_video_element_set_poster ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
CString -> -- value : TBasicType TUTF8
IO ()
dOMHTMLVideoElementSetPoster ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMHTMLVideoElementSetPoster _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_video_element_set_poster _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMHTMLVideoElement::set_webkit_wireless_video_playback_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled" webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMHTMLVideoElementSetWebkitWirelessVideoPlaybackDisabled ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMHTMLVideoElementSetWebkitWirelessVideoPlaybackDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled _obj' value'
touchManagedPtr _obj
return ()
-- method DOMHTMLVideoElement::set_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, 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_html_video_element_set_width" webkit_dom_html_video_element_set_width ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
Word64 -> -- value : TBasicType TUInt64
IO ()
dOMHTMLVideoElementSetWidth ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
Word64 -> -- value
m ()
dOMHTMLVideoElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_video_element_set_width _obj' value
touchManagedPtr _obj
return ()
-- method DOMHTMLVideoElement::webkit_enter_full_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_video_element_webkit_enter_full_screen" webkit_dom_html_video_element_webkit_enter_full_screen ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLVideoElementWebkitEnterFullScreen ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m ()
dOMHTMLVideoElementWebkitEnterFullScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_video_element_webkit_enter_full_screen _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLVideoElement::webkit_enter_fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_html_video_element_webkit_enter_fullscreen" webkit_dom_html_video_element_webkit_enter_fullscreen ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
Ptr (Ptr GError) -> -- error
IO ()
dOMHTMLVideoElementWebkitEnterFullscreen ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m ()
dOMHTMLVideoElementWebkitEnterFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_html_video_element_webkit_enter_fullscreen _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMHTMLVideoElement::webkit_exit_full_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_webkit_exit_full_screen" webkit_dom_html_video_element_webkit_exit_full_screen ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO ()
dOMHTMLVideoElementWebkitExitFullScreen ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m ()
dOMHTMLVideoElementWebkitExitFullScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_video_element_webkit_exit_full_screen _obj'
touchManagedPtr _obj
return ()
-- method DOMHTMLVideoElement::webkit_exit_fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHTMLVideoElement", 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_html_video_element_webkit_exit_fullscreen" webkit_dom_html_video_element_webkit_exit_fullscreen ::
Ptr DOMHTMLVideoElement -> -- _obj : TInterface "WebKit" "DOMHTMLVideoElement"
IO ()
dOMHTMLVideoElementWebkitExitFullscreen ::
(MonadIO m, DOMHTMLVideoElementK a) =>
a -> -- _obj
m ()
dOMHTMLVideoElementWebkitExitFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_video_element_webkit_exit_fullscreen _obj'
touchManagedPtr _obj
return ()
-- object DOMHistory
newtype DOMHistory = DOMHistory (ForeignPtr DOMHistory)
noDOMHistory :: Maybe DOMHistory
noDOMHistory = Nothing
foreign import ccall "webkit_dom_history_get_type"
c_webkit_dom_history_get_type :: IO GType
type instance ParentTypes DOMHistory = '[DOMObject, GObject.Object]
instance GObject DOMHistory where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_history_get_type
class GObject o => DOMHistoryK o
instance (GObject o, IsDescendantOf DOMHistory o) => DOMHistoryK o
toDOMHistory :: DOMHistoryK o => o -> IO DOMHistory
toDOMHistory = unsafeCastTo DOMHistory
-- method DOMHistory::back
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", 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_history_back" webkit_dom_history_back ::
Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory"
IO ()
dOMHistoryBack ::
(MonadIO m, DOMHistoryK a) =>
a -> -- _obj
m ()
dOMHistoryBack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_history_back _obj'
touchManagedPtr _obj
return ()
-- method DOMHistory::forward
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", 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_history_forward" webkit_dom_history_forward ::
Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory"
IO ()
dOMHistoryForward ::
(MonadIO m, DOMHistoryK a) =>
a -> -- _obj
m ()
dOMHistoryForward _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_history_forward _obj'
touchManagedPtr _obj
return ()
-- method DOMHistory::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", 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_history_get_length" webkit_dom_history_get_length ::
Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory"
IO Word64
dOMHistoryGetLength ::
(MonadIO m, DOMHistoryK a) =>
a -> -- _obj
m Word64
dOMHistoryGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_history_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMHistory::go
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMHistory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", 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_history_go" webkit_dom_history_go ::
Ptr DOMHistory -> -- _obj : TInterface "WebKit" "DOMHistory"
Int64 -> -- distance : TBasicType TInt64
IO ()
dOMHistoryGo ::
(MonadIO m, DOMHistoryK a) =>
a -> -- _obj
Int64 -> -- distance
m ()
dOMHistoryGo _obj distance = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_history_go _obj' distance
touchManagedPtr _obj
return ()
-- object DOMKeyboardEvent
newtype DOMKeyboardEvent = DOMKeyboardEvent (ForeignPtr DOMKeyboardEvent)
noDOMKeyboardEvent :: Maybe DOMKeyboardEvent
noDOMKeyboardEvent = Nothing
foreign import ccall "webkit_dom_keyboard_event_get_type"
c_webkit_dom_keyboard_event_get_type :: IO GType
type instance ParentTypes DOMKeyboardEvent = '[DOMUIEvent, DOMEvent, DOMObject, GObject.Object]
instance GObject DOMKeyboardEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_keyboard_event_get_type
class GObject o => DOMKeyboardEventK o
instance (GObject o, IsDescendantOf DOMKeyboardEvent o) => DOMKeyboardEventK o
toDOMKeyboardEvent :: DOMKeyboardEventK o => o -> IO DOMKeyboardEvent
toDOMKeyboardEvent = unsafeCastTo DOMKeyboardEvent
-- method DOMKeyboardEvent::get_alt_graph_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", 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_keyboard_event_get_alt_graph_key" webkit_dom_keyboard_event_get_alt_graph_key ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
IO CInt
dOMKeyboardEventGetAltGraphKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a -> -- _obj
m Bool
dOMKeyboardEventGetAltGraphKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_alt_graph_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMKeyboardEvent::get_alt_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", 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_keyboard_event_get_alt_key" webkit_dom_keyboard_event_get_alt_key ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
IO CInt
dOMKeyboardEventGetAltKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a -> -- _obj
m Bool
dOMKeyboardEventGetAltKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_alt_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMKeyboardEvent::get_ctrl_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", 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_keyboard_event_get_ctrl_key" webkit_dom_keyboard_event_get_ctrl_key ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
IO CInt
dOMKeyboardEventGetCtrlKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a -> -- _obj
m Bool
dOMKeyboardEventGetCtrlKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_ctrl_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMKeyboardEvent::get_key_identifier
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", 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_keyboard_event_get_key_identifier" webkit_dom_keyboard_event_get_key_identifier ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
IO CString
dOMKeyboardEventGetKeyIdentifier ::
(MonadIO m, DOMKeyboardEventK a) =>
a -> -- _obj
m T.Text
dOMKeyboardEventGetKeyIdentifier _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_key_identifier _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMKeyboardEvent::get_key_location
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", 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_keyboard_event_get_key_location" webkit_dom_keyboard_event_get_key_location ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
IO Word64
dOMKeyboardEventGetKeyLocation ::
(MonadIO m, DOMKeyboardEventK a) =>
a -> -- _obj
m Word64
dOMKeyboardEventGetKeyLocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_key_location _obj'
touchManagedPtr _obj
return result
-- method DOMKeyboardEvent::get_meta_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", 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_keyboard_event_get_meta_key" webkit_dom_keyboard_event_get_meta_key ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
IO CInt
dOMKeyboardEventGetMetaKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a -> -- _obj
m Bool
dOMKeyboardEventGetMetaKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_meta_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMKeyboardEvent::get_modifier_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyIdentifierArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyIdentifierArg", 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_keyboard_event_get_modifier_state" webkit_dom_keyboard_event_get_modifier_state ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
CString -> -- keyIdentifierArg : TBasicType TUTF8
IO CInt
dOMKeyboardEventGetModifierState ::
(MonadIO m, DOMKeyboardEventK a) =>
a -> -- _obj
T.Text -> -- keyIdentifierArg
m Bool
dOMKeyboardEventGetModifierState _obj keyIdentifierArg = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
keyIdentifierArg' <- textToCString keyIdentifierArg
result <- webkit_dom_keyboard_event_get_modifier_state _obj' keyIdentifierArg'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem keyIdentifierArg'
return result'
-- method DOMKeyboardEvent::get_shift_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", 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_keyboard_event_get_shift_key" webkit_dom_keyboard_event_get_shift_key ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
IO CInt
dOMKeyboardEventGetShiftKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a -> -- _obj
m Bool
dOMKeyboardEventGetShiftKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_shift_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMKeyboardEvent::init_keyboard_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyIdentifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altGraphKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyIdentifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altGraphKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_keyboard_event_init_keyboard_event" webkit_dom_keyboard_event_init_keyboard_event ::
Ptr DOMKeyboardEvent -> -- _obj : TInterface "WebKit" "DOMKeyboardEvent"
CString -> -- type : TBasicType TUTF8
CInt -> -- canBubble : TBasicType TBoolean
CInt -> -- cancelable : TBasicType TBoolean
Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow"
CString -> -- keyIdentifier : TBasicType TUTF8
Word64 -> -- location : TBasicType TUInt64
CInt -> -- ctrlKey : TBasicType TBoolean
CInt -> -- altKey : TBasicType TBoolean
CInt -> -- shiftKey : TBasicType TBoolean
CInt -> -- metaKey : TBasicType TBoolean
CInt -> -- altGraphKey : TBasicType TBoolean
IO ()
dOMKeyboardEventInitKeyboardEvent ::
(MonadIO m, DOMKeyboardEventK a, DOMDOMWindowK b) =>
a -> -- _obj
T.Text -> -- type
Bool -> -- canBubble
Bool -> -- cancelable
b -> -- view
T.Text -> -- keyIdentifier
Word64 -> -- location
Bool -> -- ctrlKey
Bool -> -- altKey
Bool -> -- shiftKey
Bool -> -- metaKey
Bool -> -- altGraphKey
m ()
dOMKeyboardEventInitKeyboardEvent _obj type_ canBubble cancelable view keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
let canBubble' = (fromIntegral . fromEnum) canBubble
let cancelable' = (fromIntegral . fromEnum) cancelable
let view' = unsafeManagedPtrCastPtr view
keyIdentifier' <- textToCString keyIdentifier
let ctrlKey' = (fromIntegral . fromEnum) ctrlKey
let altKey' = (fromIntegral . fromEnum) altKey
let shiftKey' = (fromIntegral . fromEnum) shiftKey
let metaKey' = (fromIntegral . fromEnum) metaKey
let altGraphKey' = (fromIntegral . fromEnum) altGraphKey
webkit_dom_keyboard_event_init_keyboard_event _obj' type_' canBubble' cancelable' view' keyIdentifier' location ctrlKey' altKey' shiftKey' metaKey' altGraphKey'
touchManagedPtr _obj
touchManagedPtr view
freeMem type_'
freeMem keyIdentifier'
return ()
-- object DOMLocation
newtype DOMLocation = DOMLocation (ForeignPtr DOMLocation)
noDOMLocation :: Maybe DOMLocation
noDOMLocation = Nothing
foreign import ccall "webkit_dom_location_get_type"
c_webkit_dom_location_get_type :: IO GType
type instance ParentTypes DOMLocation = '[DOMObject, GObject.Object]
instance GObject DOMLocation where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_location_get_type
class GObject o => DOMLocationK o
instance (GObject o, IsDescendantOf DOMLocation o) => DOMLocationK o
toDOMLocation :: DOMLocationK o => o -> IO DOMLocation
toDOMLocation = unsafeCastTo DOMLocation
-- method DOMLocation::get_ancestor_origins
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMStringList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_location_get_ancestor_origins" webkit_dom_location_get_ancestor_origins ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO (Ptr DOMDOMStringList)
dOMLocationGetAncestorOrigins ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m DOMDOMStringList
dOMLocationGetAncestorOrigins _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_ancestor_origins _obj'
result' <- (wrapObject DOMDOMStringList) result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_hash
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_hash" webkit_dom_location_get_hash ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetHash ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetHash _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_hash _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_host
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_host" webkit_dom_location_get_host ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetHost ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetHost _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_host _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_hostname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_hostname" webkit_dom_location_get_hostname ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetHostname ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetHostname _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_hostname _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_href" webkit_dom_location_get_href ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetHref ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetHref _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_href _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_origin" webkit_dom_location_get_origin ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetOrigin ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_origin _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_pathname
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_pathname" webkit_dom_location_get_pathname ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetPathname ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetPathname _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_pathname _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_port
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_port" webkit_dom_location_get_port ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetPort ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetPort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_port _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_protocol
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_protocol" webkit_dom_location_get_protocol ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetProtocol ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetProtocol _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_protocol _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMLocation::get_search
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMLocation", 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_location_get_search" webkit_dom_location_get_search ::
Ptr DOMLocation -> -- _obj : TInterface "WebKit" "DOMLocation"
IO CString
dOMLocationGetSearch ::
(MonadIO m, DOMLocationK a) =>
a -> -- _obj
m T.Text
dOMLocationGetSearch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_location_get_search _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- object DOMMediaController
newtype DOMMediaController = DOMMediaController (ForeignPtr DOMMediaController)
noDOMMediaController :: Maybe DOMMediaController
noDOMMediaController = Nothing
foreign import ccall "webkit_dom_media_controller_get_type"
c_webkit_dom_media_controller_get_type :: IO GType
type instance ParentTypes DOMMediaController = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMMediaController where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_media_controller_get_type
class GObject o => DOMMediaControllerK o
instance (GObject o, IsDescendantOf DOMMediaController o) => DOMMediaControllerK o
toDOMMediaController :: DOMMediaControllerK o => o -> IO DOMMediaController
toDOMMediaController = unsafeCastTo DOMMediaController
-- method DOMMediaController::get_buffered
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTimeRanges"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_media_controller_get_buffered" webkit_dom_media_controller_get_buffered ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO (Ptr DOMTimeRanges)
dOMMediaControllerGetBuffered ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m DOMTimeRanges
dOMMediaControllerGetBuffered _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_buffered _obj'
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_current_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_get_current_time" webkit_dom_media_controller_get_current_time ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO CDouble
dOMMediaControllerGetCurrentTime ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m Double
dOMMediaControllerGetCurrentTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_current_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_default_playback_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_get_default_playback_rate" webkit_dom_media_controller_get_default_playback_rate ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO CDouble
dOMMediaControllerGetDefaultPlaybackRate ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m Double
dOMMediaControllerGetDefaultPlaybackRate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_default_playback_rate _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_get_duration" webkit_dom_media_controller_get_duration ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO CDouble
dOMMediaControllerGetDuration ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m Double
dOMMediaControllerGetDuration _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_duration _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_muted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_get_muted" webkit_dom_media_controller_get_muted ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO CInt
dOMMediaControllerGetMuted ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m Bool
dOMMediaControllerGetMuted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_muted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_paused
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_get_paused" webkit_dom_media_controller_get_paused ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO CInt
dOMMediaControllerGetPaused ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m Bool
dOMMediaControllerGetPaused _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_paused _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_playback_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_get_playback_rate" webkit_dom_media_controller_get_playback_rate ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO CDouble
dOMMediaControllerGetPlaybackRate ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m Double
dOMMediaControllerGetPlaybackRate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_playback_rate _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_playback_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_get_playback_state" webkit_dom_media_controller_get_playback_state ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO CString
dOMMediaControllerGetPlaybackState ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m T.Text
dOMMediaControllerGetPlaybackState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_playback_state _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_played
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTimeRanges"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_media_controller_get_played" webkit_dom_media_controller_get_played ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO (Ptr DOMTimeRanges)
dOMMediaControllerGetPlayed ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m DOMTimeRanges
dOMMediaControllerGetPlayed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_played _obj'
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_seekable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTimeRanges"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_media_controller_get_seekable" webkit_dom_media_controller_get_seekable ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO (Ptr DOMTimeRanges)
dOMMediaControllerGetSeekable ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m DOMTimeRanges
dOMMediaControllerGetSeekable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_seekable _obj'
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
-- method DOMMediaController::get_volume
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_get_volume" webkit_dom_media_controller_get_volume ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO CDouble
dOMMediaControllerGetVolume ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m Double
dOMMediaControllerGetVolume _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_controller_get_volume _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMMediaController::pause
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_pause" webkit_dom_media_controller_pause ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO ()
dOMMediaControllerPause ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m ()
dOMMediaControllerPause _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_media_controller_pause _obj'
touchManagedPtr _obj
return ()
-- method DOMMediaController::play
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_play" webkit_dom_media_controller_play ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO ()
dOMMediaControllerPlay ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m ()
dOMMediaControllerPlay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_media_controller_play _obj'
touchManagedPtr _obj
return ()
-- method DOMMediaController::set_current_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_media_controller_set_current_time" webkit_dom_media_controller_set_current_time ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
CDouble -> -- value : TBasicType TDouble
IO ()
dOMMediaControllerSetCurrentTime ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMMediaControllerSetCurrentTime _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_media_controller_set_current_time _obj' value'
touchManagedPtr _obj
return ()
-- method DOMMediaController::set_default_playback_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_media_controller_set_default_playback_rate" webkit_dom_media_controller_set_default_playback_rate ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
CDouble -> -- value : TBasicType TDouble
IO ()
dOMMediaControllerSetDefaultPlaybackRate ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMMediaControllerSetDefaultPlaybackRate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_media_controller_set_default_playback_rate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMMediaController::set_muted
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_media_controller_set_muted" webkit_dom_media_controller_set_muted ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMMediaControllerSetMuted ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMMediaControllerSetMuted _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_media_controller_set_muted _obj' value'
touchManagedPtr _obj
return ()
-- method DOMMediaController::set_playback_rate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_media_controller_set_playback_rate" webkit_dom_media_controller_set_playback_rate ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
CDouble -> -- value : TBasicType TDouble
IO ()
dOMMediaControllerSetPlaybackRate ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMMediaControllerSetPlaybackRate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_media_controller_set_playback_rate _obj' value'
touchManagedPtr _obj
return ()
-- method DOMMediaController::set_volume
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_media_controller_set_volume" webkit_dom_media_controller_set_volume ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
CDouble -> -- value : TBasicType TDouble
Ptr (Ptr GError) -> -- error
IO ()
dOMMediaControllerSetVolume ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMMediaControllerSetVolume _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_media_controller_set_volume _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMMediaController::unpause
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaController", 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_media_controller_unpause" webkit_dom_media_controller_unpause ::
Ptr DOMMediaController -> -- _obj : TInterface "WebKit" "DOMMediaController"
IO ()
dOMMediaControllerUnpause ::
(MonadIO m, DOMMediaControllerK a) =>
a -> -- _obj
m ()
dOMMediaControllerUnpause _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_media_controller_unpause _obj'
touchManagedPtr _obj
return ()
-- object DOMMediaError
newtype DOMMediaError = DOMMediaError (ForeignPtr DOMMediaError)
noDOMMediaError :: Maybe DOMMediaError
noDOMMediaError = Nothing
foreign import ccall "webkit_dom_media_error_get_type"
c_webkit_dom_media_error_get_type :: IO GType
type instance ParentTypes DOMMediaError = '[DOMObject, GObject.Object]
instance GObject DOMMediaError where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_media_error_get_type
class GObject o => DOMMediaErrorK o
instance (GObject o, IsDescendantOf DOMMediaError o) => DOMMediaErrorK o
toDOMMediaError :: DOMMediaErrorK o => o -> IO DOMMediaError
toDOMMediaError = unsafeCastTo DOMMediaError
-- method DOMMediaError::get_code
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaError", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaError", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_media_error_get_code" webkit_dom_media_error_get_code ::
Ptr DOMMediaError -> -- _obj : TInterface "WebKit" "DOMMediaError"
IO Word16
dOMMediaErrorGetCode ::
(MonadIO m, DOMMediaErrorK a) =>
a -> -- _obj
m Word16
dOMMediaErrorGetCode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_error_get_code _obj'
touchManagedPtr _obj
return result
-- object DOMMediaList
newtype DOMMediaList = DOMMediaList (ForeignPtr DOMMediaList)
noDOMMediaList :: Maybe DOMMediaList
noDOMMediaList = Nothing
foreign import ccall "webkit_dom_media_list_get_type"
c_webkit_dom_media_list_get_type :: IO GType
type instance ParentTypes DOMMediaList = '[DOMObject, GObject.Object]
instance GObject DOMMediaList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_media_list_get_type
class GObject o => DOMMediaListK o
instance (GObject o, IsDescendantOf DOMMediaList o) => DOMMediaListK o
toDOMMediaList :: DOMMediaListK o => o -> IO DOMMediaList
toDOMMediaList = unsafeCastTo DOMMediaList
-- method DOMMediaList::append_medium
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_media_list_append_medium" webkit_dom_media_list_append_medium ::
Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList"
CString -> -- newMedium : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMMediaListAppendMedium ::
(MonadIO m, DOMMediaListK a) =>
a -> -- _obj
T.Text -> -- newMedium
m ()
dOMMediaListAppendMedium _obj newMedium = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
newMedium' <- textToCString newMedium
onException (do
propagateGError $ webkit_dom_media_list_append_medium _obj' newMedium'
touchManagedPtr _obj
freeMem newMedium'
return ()
) (do
freeMem newMedium'
)
-- method DOMMediaList::delete_medium
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldMedium", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_media_list_delete_medium" webkit_dom_media_list_delete_medium ::
Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList"
CString -> -- oldMedium : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMMediaListDeleteMedium ::
(MonadIO m, DOMMediaListK a) =>
a -> -- _obj
T.Text -> -- oldMedium
m ()
dOMMediaListDeleteMedium _obj oldMedium = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
oldMedium' <- textToCString oldMedium
onException (do
propagateGError $ webkit_dom_media_list_delete_medium _obj' oldMedium'
touchManagedPtr _obj
freeMem oldMedium'
return ()
) (do
freeMem oldMedium'
)
-- method DOMMediaList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", 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_media_list_get_length" webkit_dom_media_list_get_length ::
Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList"
IO Word64
dOMMediaListGetLength ::
(MonadIO m, DOMMediaListK a) =>
a -> -- _obj
m Word64
dOMMediaListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMMediaList::get_media_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", 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_media_list_get_media_text" webkit_dom_media_list_get_media_text ::
Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList"
IO CString
dOMMediaListGetMediaText ::
(MonadIO m, DOMMediaListK a) =>
a -> -- _obj
m T.Text
dOMMediaListGetMediaText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_list_get_media_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMMediaList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, 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_media_list_item" webkit_dom_media_list_item ::
Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList"
Word64 -> -- index : TBasicType TUInt64
IO CString
dOMMediaListItem ::
(MonadIO m, DOMMediaListK a) =>
a -> -- _obj
Word64 -> -- index
m T.Text
dOMMediaListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_list_item _obj' index
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMMediaList::set_media_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaList", 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" "DOMMediaList", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_media_list_set_media_text" webkit_dom_media_list_set_media_text ::
Ptr DOMMediaList -> -- _obj : TInterface "WebKit" "DOMMediaList"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMMediaListSetMediaText ::
(MonadIO m, DOMMediaListK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMMediaListSetMediaText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_media_list_set_media_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- object DOMMediaQueryList
newtype DOMMediaQueryList = DOMMediaQueryList (ForeignPtr DOMMediaQueryList)
noDOMMediaQueryList :: Maybe DOMMediaQueryList
noDOMMediaQueryList = Nothing
foreign import ccall "webkit_dom_media_query_list_get_type"
c_webkit_dom_media_query_list_get_type :: IO GType
type instance ParentTypes DOMMediaQueryList = '[DOMObject, GObject.Object]
instance GObject DOMMediaQueryList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_media_query_list_get_type
class GObject o => DOMMediaQueryListK o
instance (GObject o, IsDescendantOf DOMMediaQueryList o) => DOMMediaQueryListK o
toDOMMediaQueryList :: DOMMediaQueryListK o => o -> IO DOMMediaQueryList
toDOMMediaQueryList = unsafeCastTo DOMMediaQueryList
-- method DOMMediaQueryList::get_matches
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", 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_media_query_list_get_matches" webkit_dom_media_query_list_get_matches ::
Ptr DOMMediaQueryList -> -- _obj : TInterface "WebKit" "DOMMediaQueryList"
IO CInt
dOMMediaQueryListGetMatches ::
(MonadIO m, DOMMediaQueryListK a) =>
a -> -- _obj
m Bool
dOMMediaQueryListGetMatches _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_query_list_get_matches _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMMediaQueryList::get_media
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMediaQueryList", 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_media_query_list_get_media" webkit_dom_media_query_list_get_media ::
Ptr DOMMediaQueryList -> -- _obj : TInterface "WebKit" "DOMMediaQueryList"
IO CString
dOMMediaQueryListGetMedia ::
(MonadIO m, DOMMediaQueryListK a) =>
a -> -- _obj
m T.Text
dOMMediaQueryListGetMedia _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_query_list_get_media _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- object DOMMemoryInfo
newtype DOMMemoryInfo = DOMMemoryInfo (ForeignPtr DOMMemoryInfo)
noDOMMemoryInfo :: Maybe DOMMemoryInfo
noDOMMemoryInfo = Nothing
foreign import ccall "webkit_dom_memory_info_get_type"
c_webkit_dom_memory_info_get_type :: IO GType
type instance ParentTypes DOMMemoryInfo = '[DOMObject, GObject.Object]
instance GObject DOMMemoryInfo where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_memory_info_get_type
class GObject o => DOMMemoryInfoK o
instance (GObject o, IsDescendantOf DOMMemoryInfo o) => DOMMemoryInfoK o
toDOMMemoryInfo :: DOMMemoryInfoK o => o -> IO DOMMemoryInfo
toDOMMemoryInfo = unsafeCastTo DOMMemoryInfo
-- method DOMMemoryInfo::get_js_heap_size_limit
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, 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_memory_info_get_js_heap_size_limit" webkit_dom_memory_info_get_js_heap_size_limit ::
Ptr () -> -- self : TBasicType TVoid
IO Word64
{-# DEPRECATED dOMMemoryInfoGetJsHeapSizeLimit ["(Since version 2.2)"]#-}
dOMMemoryInfoGetJsHeapSizeLimit ::
(MonadIO m) =>
Ptr () -> -- self
m Word64
dOMMemoryInfoGetJsHeapSizeLimit self = liftIO $ do
result <- webkit_dom_memory_info_get_js_heap_size_limit self
return result
-- method DOMMemoryInfo::get_total_js_heap_size
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, 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_memory_info_get_total_js_heap_size" webkit_dom_memory_info_get_total_js_heap_size ::
Ptr () -> -- self : TBasicType TVoid
IO Word64
{-# DEPRECATED dOMMemoryInfoGetTotalJsHeapSize ["(Since version 2.2)"]#-}
dOMMemoryInfoGetTotalJsHeapSize ::
(MonadIO m) =>
Ptr () -> -- self
m Word64
dOMMemoryInfoGetTotalJsHeapSize self = liftIO $ do
result <- webkit_dom_memory_info_get_total_js_heap_size self
return result
-- method DOMMemoryInfo::get_used_js_heap_size
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, 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_memory_info_get_used_js_heap_size" webkit_dom_memory_info_get_used_js_heap_size ::
Ptr () -> -- self : TBasicType TVoid
IO Word64
{-# DEPRECATED dOMMemoryInfoGetUsedJsHeapSize ["(Since version 2.2)"]#-}
dOMMemoryInfoGetUsedJsHeapSize ::
(MonadIO m) =>
Ptr () -> -- self
m Word64
dOMMemoryInfoGetUsedJsHeapSize self = liftIO $ do
result <- webkit_dom_memory_info_get_used_js_heap_size self
return result
-- object DOMMessagePort
newtype DOMMessagePort = DOMMessagePort (ForeignPtr DOMMessagePort)
noDOMMessagePort :: Maybe DOMMessagePort
noDOMMessagePort = Nothing
foreign import ccall "webkit_dom_message_port_get_type"
c_webkit_dom_message_port_get_type :: IO GType
type instance ParentTypes DOMMessagePort = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMMessagePort where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_message_port_get_type
class GObject o => DOMMessagePortK o
instance (GObject o, IsDescendantOf DOMMessagePort o) => DOMMessagePortK o
toDOMMessagePort :: DOMMessagePortK o => o -> IO DOMMessagePort
toDOMMessagePort = unsafeCastTo DOMMessagePort
-- object DOMMicroDataItemValue
newtype DOMMicroDataItemValue = DOMMicroDataItemValue (ForeignPtr DOMMicroDataItemValue)
noDOMMicroDataItemValue :: Maybe DOMMicroDataItemValue
noDOMMicroDataItemValue = Nothing
foreign import ccall "webkit_dom_micro_data_item_value_get_type"
c_webkit_dom_micro_data_item_value_get_type :: IO GType
type instance ParentTypes DOMMicroDataItemValue = '[DOMObject, GObject.Object]
instance GObject DOMMicroDataItemValue where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_micro_data_item_value_get_type
class GObject o => DOMMicroDataItemValueK o
instance (GObject o, IsDescendantOf DOMMicroDataItemValue o) => DOMMicroDataItemValueK o
toDOMMicroDataItemValue :: DOMMicroDataItemValueK o => o -> IO DOMMicroDataItemValue
toDOMMicroDataItemValue = unsafeCastTo DOMMicroDataItemValue
-- object DOMMouseEvent
newtype DOMMouseEvent = DOMMouseEvent (ForeignPtr DOMMouseEvent)
noDOMMouseEvent :: Maybe DOMMouseEvent
noDOMMouseEvent = Nothing
foreign import ccall "webkit_dom_mouse_event_get_type"
c_webkit_dom_mouse_event_get_type :: IO GType
type instance ParentTypes DOMMouseEvent = '[DOMUIEvent, DOMEvent, DOMObject, GObject.Object]
instance GObject DOMMouseEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_mouse_event_get_type
class GObject o => DOMMouseEventK o
instance (GObject o, IsDescendantOf DOMMouseEvent o) => DOMMouseEventK o
toDOMMouseEvent :: DOMMouseEventK o => o -> IO DOMMouseEvent
toDOMMouseEvent = unsafeCastTo DOMMouseEvent
-- method DOMMouseEvent::get_alt_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_alt_key" webkit_dom_mouse_event_get_alt_key ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO CInt
dOMMouseEventGetAltKey ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Bool
dOMMouseEventGetAltKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_alt_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMMouseEvent::get_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_mouse_event_get_button" webkit_dom_mouse_event_get_button ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Word16
dOMMouseEventGetButton ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Word16
dOMMouseEventGetButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_button _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_client_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_client_x" webkit_dom_mouse_event_get_client_x ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetClientX ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetClientX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_client_x _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_client_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_client_y" webkit_dom_mouse_event_get_client_y ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetClientY ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetClientY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_client_y _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_ctrl_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_ctrl_key" webkit_dom_mouse_event_get_ctrl_key ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO CInt
dOMMouseEventGetCtrlKey ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Bool
dOMMouseEventGetCtrlKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_ctrl_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMMouseEvent::get_from_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_mouse_event_get_from_element" webkit_dom_mouse_event_get_from_element ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO (Ptr DOMNode)
dOMMouseEventGetFromElement ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m DOMNode
dOMMouseEventGetFromElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_from_element _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMMouseEvent::get_meta_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_meta_key" webkit_dom_mouse_event_get_meta_key ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO CInt
dOMMouseEventGetMetaKey ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Bool
dOMMouseEventGetMetaKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_meta_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMMouseEvent::get_offset_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_offset_x" webkit_dom_mouse_event_get_offset_x ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetOffsetX ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetOffsetX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_offset_x _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_offset_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_offset_y" webkit_dom_mouse_event_get_offset_y ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetOffsetY ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetOffsetY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_offset_y _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_related_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMEventTarget"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_mouse_event_get_related_target" webkit_dom_mouse_event_get_related_target ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO (Ptr DOMEventTarget)
dOMMouseEventGetRelatedTarget ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m DOMEventTarget
dOMMouseEventGetRelatedTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_related_target _obj'
result' <- (wrapObject DOMEventTarget) result
touchManagedPtr _obj
return result'
-- method DOMMouseEvent::get_screen_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_screen_x" webkit_dom_mouse_event_get_screen_x ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetScreenX ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetScreenX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_screen_x _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_screen_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_screen_y" webkit_dom_mouse_event_get_screen_y ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetScreenY ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetScreenY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_screen_y _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_shift_key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_shift_key" webkit_dom_mouse_event_get_shift_key ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO CInt
dOMMouseEventGetShiftKey ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Bool
dOMMouseEventGetShiftKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_shift_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMMouseEvent::get_to_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_mouse_event_get_to_element" webkit_dom_mouse_event_get_to_element ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO (Ptr DOMNode)
dOMMouseEventGetToElement ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m DOMNode
dOMMouseEventGetToElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_to_element _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMMouseEvent::get_webkit_movement_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_webkit_movement_x" webkit_dom_mouse_event_get_webkit_movement_x ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetWebkitMovementX ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetWebkitMovementX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_webkit_movement_x _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_webkit_movement_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_webkit_movement_y" webkit_dom_mouse_event_get_webkit_movement_y ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetWebkitMovementY ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetWebkitMovementY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_webkit_movement_y _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_x" webkit_dom_mouse_event_get_x ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetX ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_x _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::get_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", 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_mouse_event_get_y" webkit_dom_mouse_event_get_y ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
IO Int64
dOMMouseEventGetY ::
(MonadIO m, DOMMouseEventK a) =>
a -> -- _obj
m Int64
dOMMouseEventGetY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_y _obj'
touchManagedPtr _obj
return result
-- method DOMMouseEvent::init_mouse_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relatedTarget", argType = TInterface "WebKit" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relatedTarget", argType = TInterface "WebKit" "DOMEventTarget", 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_mouse_event_init_mouse_event" webkit_dom_mouse_event_init_mouse_event ::
Ptr DOMMouseEvent -> -- _obj : TInterface "WebKit" "DOMMouseEvent"
CString -> -- type : TBasicType TUTF8
CInt -> -- canBubble : TBasicType TBoolean
CInt -> -- cancelable : TBasicType TBoolean
Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow"
Int64 -> -- detail : TBasicType TInt64
Int64 -> -- screenX : TBasicType TInt64
Int64 -> -- screenY : TBasicType TInt64
Int64 -> -- clientX : TBasicType TInt64
Int64 -> -- clientY : TBasicType TInt64
CInt -> -- ctrlKey : TBasicType TBoolean
CInt -> -- altKey : TBasicType TBoolean
CInt -> -- shiftKey : TBasicType TBoolean
CInt -> -- metaKey : TBasicType TBoolean
Word16 -> -- button : TBasicType TUInt16
Ptr DOMEventTarget -> -- relatedTarget : TInterface "WebKit" "DOMEventTarget"
IO ()
dOMMouseEventInitMouseEvent ::
(MonadIO m, DOMMouseEventK a, DOMDOMWindowK b, DOMEventTargetK c) =>
a -> -- _obj
T.Text -> -- type
Bool -> -- canBubble
Bool -> -- cancelable
b -> -- view
Int64 -> -- detail
Int64 -> -- screenX
Int64 -> -- screenY
Int64 -> -- clientX
Int64 -> -- clientY
Bool -> -- ctrlKey
Bool -> -- altKey
Bool -> -- shiftKey
Bool -> -- metaKey
Word16 -> -- button
c -> -- relatedTarget
m ()
dOMMouseEventInitMouseEvent _obj type_ canBubble cancelable view detail screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey button relatedTarget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
let canBubble' = (fromIntegral . fromEnum) canBubble
let cancelable' = (fromIntegral . fromEnum) cancelable
let view' = unsafeManagedPtrCastPtr view
let ctrlKey' = (fromIntegral . fromEnum) ctrlKey
let altKey' = (fromIntegral . fromEnum) altKey
let shiftKey' = (fromIntegral . fromEnum) shiftKey
let metaKey' = (fromIntegral . fromEnum) metaKey
let relatedTarget' = unsafeManagedPtrCastPtr relatedTarget
webkit_dom_mouse_event_init_mouse_event _obj' type_' canBubble' cancelable' view' detail screenX screenY clientX clientY ctrlKey' altKey' shiftKey' metaKey' button relatedTarget'
touchManagedPtr _obj
touchManagedPtr view
touchManagedPtr relatedTarget
freeMem type_'
return ()
-- object DOMNamedNodeMap
newtype DOMNamedNodeMap = DOMNamedNodeMap (ForeignPtr DOMNamedNodeMap)
noDOMNamedNodeMap :: Maybe DOMNamedNodeMap
noDOMNamedNodeMap = Nothing
foreign import ccall "webkit_dom_named_node_map_get_type"
c_webkit_dom_named_node_map_get_type :: IO GType
type instance ParentTypes DOMNamedNodeMap = '[DOMObject, GObject.Object]
instance GObject DOMNamedNodeMap where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_named_node_map_get_type
class GObject o => DOMNamedNodeMapK o
instance (GObject o, IsDescendantOf DOMNamedNodeMap o) => DOMNamedNodeMapK o
toDOMNamedNodeMap :: DOMNamedNodeMapK o => o -> IO DOMNamedNodeMap
toDOMNamedNodeMap = unsafeCastTo DOMNamedNodeMap
-- method DOMNamedNodeMap::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", 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_named_node_map_get_length" webkit_dom_named_node_map_get_length ::
Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap"
IO Word64
dOMNamedNodeMapGetLength ::
(MonadIO m, DOMNamedNodeMapK a) =>
a -> -- _obj
m Word64
dOMNamedNodeMapGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_named_node_map_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMNamedNodeMap::get_named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_named_node_map_get_named_item" webkit_dom_named_node_map_get_named_item ::
Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap"
CString -> -- name : TBasicType TUTF8
IO (Ptr DOMNode)
dOMNamedNodeMapGetNamedItem ::
(MonadIO m, DOMNamedNodeMapK a) =>
a -> -- _obj
T.Text -> -- name
m DOMNode
dOMNamedNodeMapGetNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_named_node_map_get_named_item _obj' name'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
freeMem name'
return result'
-- method DOMNamedNodeMap::get_named_item_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_named_node_map_get_named_item_ns" webkit_dom_named_node_map_get_named_item_ns ::
Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
IO (Ptr DOMNode)
dOMNamedNodeMapGetNamedItemNs ::
(MonadIO m, DOMNamedNodeMapK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m DOMNode
dOMNamedNodeMapGetNamedItemNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
result <- webkit_dom_named_node_map_get_named_item_ns _obj' namespaceURI' localName'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
-- method DOMNamedNodeMap::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_named_node_map_item" webkit_dom_named_node_map_item ::
Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMNode)
dOMNamedNodeMapItem ::
(MonadIO m, DOMNamedNodeMapK a) =>
a -> -- _obj
Word64 -> -- index
m DOMNode
dOMNamedNodeMapItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_named_node_map_item _obj' index
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNamedNodeMap::remove_named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_named_node_map_remove_named_item" webkit_dom_named_node_map_remove_named_item ::
Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap"
CString -> -- name : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNamedNodeMapRemoveNamedItem ::
(MonadIO m, DOMNamedNodeMapK a) =>
a -> -- _obj
T.Text -> -- name
m DOMNode
dOMNamedNodeMapRemoveNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
onException (do
result <- propagateGError $ webkit_dom_named_node_map_remove_named_item _obj' name'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
freeMem name'
return result'
) (do
freeMem name'
)
-- method DOMNamedNodeMap::remove_named_item_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_named_node_map_remove_named_item_ns" webkit_dom_named_node_map_remove_named_item_ns ::
Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNamedNodeMapRemoveNamedItemNs ::
(MonadIO m, DOMNamedNodeMapK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m DOMNode
dOMNamedNodeMapRemoveNamedItemNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
onException (do
result <- propagateGError $ webkit_dom_named_node_map_remove_named_item_ns _obj' namespaceURI' localName'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
) (do
freeMem namespaceURI'
freeMem localName'
)
-- method DOMNamedNodeMap::set_named_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", 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}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_named_node_map_set_named_item" webkit_dom_named_node_map_set_named_item ::
Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNamedNodeMapSetNamedItem ::
(MonadIO m, DOMNamedNodeMapK a, DOMNodeK b) =>
a -> -- _obj
b -> -- node
m DOMNode
dOMNamedNodeMapSetNamedItem _obj node = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
onException (do
result <- propagateGError $ webkit_dom_named_node_map_set_named_item _obj' node'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
touchManagedPtr node
return result'
) (do
return ()
)
-- method DOMNamedNodeMap::set_named_item_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNamedNodeMap", 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}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_named_node_map_set_named_item_ns" webkit_dom_named_node_map_set_named_item_ns ::
Ptr DOMNamedNodeMap -> -- _obj : TInterface "WebKit" "DOMNamedNodeMap"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNamedNodeMapSetNamedItemNs ::
(MonadIO m, DOMNamedNodeMapK a, DOMNodeK b) =>
a -> -- _obj
b -> -- node
m DOMNode
dOMNamedNodeMapSetNamedItemNs _obj node = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
onException (do
result <- propagateGError $ webkit_dom_named_node_map_set_named_item_ns _obj' node'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
touchManagedPtr node
return result'
) (do
return ()
)
-- object DOMNavigator
newtype DOMNavigator = DOMNavigator (ForeignPtr DOMNavigator)
noDOMNavigator :: Maybe DOMNavigator
noDOMNavigator = Nothing
foreign import ccall "webkit_dom_navigator_get_type"
c_webkit_dom_navigator_get_type :: IO GType
type instance ParentTypes DOMNavigator = '[DOMObject, GObject.Object]
instance GObject DOMNavigator where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_navigator_get_type
class GObject o => DOMNavigatorK o
instance (GObject o, IsDescendantOf DOMNavigator o) => DOMNavigatorK o
toDOMNavigator :: DOMNavigatorK o => o -> IO DOMNavigator
toDOMNavigator = unsafeCastTo DOMNavigator
-- method DOMNavigator::get_app_code_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_app_code_name" webkit_dom_navigator_get_app_code_name ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetAppCodeName ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetAppCodeName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_app_code_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_app_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_app_name" webkit_dom_navigator_get_app_name ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetAppName ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetAppName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_app_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_app_version
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_app_version" webkit_dom_navigator_get_app_version ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetAppVersion ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetAppVersion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_app_version _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_cookie_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_cookie_enabled" webkit_dom_navigator_get_cookie_enabled ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CInt
dOMNavigatorGetCookieEnabled ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m Bool
dOMNavigatorGetCookieEnabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_cookie_enabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_geolocation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMGeolocation"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_navigator_get_geolocation" webkit_dom_navigator_get_geolocation ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO (Ptr DOMGeolocation)
dOMNavigatorGetGeolocation ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m DOMGeolocation
dOMNavigatorGetGeolocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_geolocation _obj'
result' <- (wrapObject DOMGeolocation) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_language
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_language" webkit_dom_navigator_get_language ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetLanguage ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetLanguage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_language _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_mime_types
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMMimeTypeArray"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_navigator_get_mime_types" webkit_dom_navigator_get_mime_types ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO (Ptr DOMDOMMimeTypeArray)
dOMNavigatorGetMimeTypes ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m DOMDOMMimeTypeArray
dOMNavigatorGetMimeTypes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_mime_types _obj'
result' <- (wrapObject DOMDOMMimeTypeArray) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_on_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_on_line" webkit_dom_navigator_get_on_line ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CInt
dOMNavigatorGetOnLine ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m Bool
dOMNavigatorGetOnLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_on_line _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_platform
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_platform" webkit_dom_navigator_get_platform ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetPlatform ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetPlatform _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_platform _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_plugins
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDOMPluginArray"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_navigator_get_plugins" webkit_dom_navigator_get_plugins ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO (Ptr DOMDOMPluginArray)
dOMNavigatorGetPlugins ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m DOMDOMPluginArray
dOMNavigatorGetPlugins _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_plugins _obj'
result' <- (wrapObject DOMDOMPluginArray) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_product
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_product" webkit_dom_navigator_get_product ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetProduct ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetProduct _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_product _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_product_sub
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_product_sub" webkit_dom_navigator_get_product_sub ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetProductSub ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetProductSub _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_product_sub _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_storage_updates
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_storage_updates" webkit_dom_navigator_get_storage_updates ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO ()
dOMNavigatorGetStorageUpdates ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m ()
dOMNavigatorGetStorageUpdates _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_navigator_get_storage_updates _obj'
touchManagedPtr _obj
return ()
-- method DOMNavigator::get_user_agent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_user_agent" webkit_dom_navigator_get_user_agent ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetUserAgent ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetUserAgent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_user_agent _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_vendor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_vendor" webkit_dom_navigator_get_vendor ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetVendor ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetVendor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_vendor _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_vendor_sub
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_get_vendor_sub" webkit_dom_navigator_get_vendor_sub ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CString
dOMNavigatorGetVendorSub ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m T.Text
dOMNavigatorGetVendorSub _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_vendor_sub _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_webkit_battery
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMBatteryManager"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_navigator_get_webkit_battery" webkit_dom_navigator_get_webkit_battery ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO (Ptr DOMBatteryManager)
dOMNavigatorGetWebkitBattery ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m DOMBatteryManager
dOMNavigatorGetWebkitBattery _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_webkit_battery _obj'
result' <- (wrapObject DOMBatteryManager) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_webkit_persistent_storage
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMStorageQuota"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_navigator_get_webkit_persistent_storage" webkit_dom_navigator_get_webkit_persistent_storage ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO (Ptr DOMStorageQuota)
dOMNavigatorGetWebkitPersistentStorage ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m DOMStorageQuota
dOMNavigatorGetWebkitPersistentStorage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_webkit_persistent_storage _obj'
result' <- (newObject DOMStorageQuota) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::get_webkit_temporary_storage
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMStorageQuota"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_navigator_get_webkit_temporary_storage" webkit_dom_navigator_get_webkit_temporary_storage ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO (Ptr DOMStorageQuota)
dOMNavigatorGetWebkitTemporaryStorage ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m DOMStorageQuota
dOMNavigatorGetWebkitTemporaryStorage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_get_webkit_temporary_storage _obj'
result' <- (newObject DOMStorageQuota) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::is_protocol_handler_registered
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", 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_navigator_is_protocol_handler_registered" webkit_dom_navigator_is_protocol_handler_registered ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
CString -> -- scheme : TBasicType TUTF8
CString -> -- url : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CString
dOMNavigatorIsProtocolHandlerRegistered ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
T.Text -> -- scheme
T.Text -> -- url
m T.Text
dOMNavigatorIsProtocolHandlerRegistered _obj scheme url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
scheme' <- textToCString scheme
url' <- textToCString url
onException (do
result <- propagateGError $ webkit_dom_navigator_is_protocol_handler_registered _obj' scheme' url'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem scheme'
freeMem url'
return result'
) (do
freeMem scheme'
freeMem url'
)
-- method DOMNavigator::java_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", 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_navigator_java_enabled" webkit_dom_navigator_java_enabled ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO CInt
dOMNavigatorJavaEnabled ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m Bool
dOMNavigatorJavaEnabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_java_enabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMNavigator::register_protocol_handler
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_navigator_register_protocol_handler" webkit_dom_navigator_register_protocol_handler ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
CString -> -- scheme : TBasicType TUTF8
CString -> -- url : TBasicType TUTF8
CString -> -- title : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMNavigatorRegisterProtocolHandler ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
T.Text -> -- scheme
T.Text -> -- url
T.Text -> -- title
m ()
dOMNavigatorRegisterProtocolHandler _obj scheme url title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
scheme' <- textToCString scheme
url' <- textToCString url
title' <- textToCString title
onException (do
propagateGError $ webkit_dom_navigator_register_protocol_handler _obj' scheme' url' title'
touchManagedPtr _obj
freeMem scheme'
freeMem url'
freeMem title'
return ()
) (do
freeMem scheme'
freeMem url'
freeMem title'
)
-- method DOMNavigator::unregister_protocol_handler
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_navigator_unregister_protocol_handler" webkit_dom_navigator_unregister_protocol_handler ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
CString -> -- scheme : TBasicType TUTF8
CString -> -- url : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMNavigatorUnregisterProtocolHandler ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
T.Text -> -- scheme
T.Text -> -- url
m ()
dOMNavigatorUnregisterProtocolHandler _obj scheme url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
scheme' <- textToCString scheme
url' <- textToCString url
onException (do
propagateGError $ webkit_dom_navigator_unregister_protocol_handler _obj' scheme' url'
touchManagedPtr _obj
freeMem scheme'
freeMem url'
return ()
) (do
freeMem scheme'
freeMem url'
)
-- method DOMNavigator::webkit_get_gamepads
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNavigator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMGamepadList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_navigator_webkit_get_gamepads" webkit_dom_navigator_webkit_get_gamepads ::
Ptr DOMNavigator -> -- _obj : TInterface "WebKit" "DOMNavigator"
IO (Ptr DOMGamepadList)
dOMNavigatorWebkitGetGamepads ::
(MonadIO m, DOMNavigatorK a) =>
a -> -- _obj
m DOMGamepadList
dOMNavigatorWebkitGetGamepads _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_navigator_webkit_get_gamepads _obj'
result' <- (wrapObject DOMGamepadList) result
touchManagedPtr _obj
return result'
-- object DOMNode
newtype DOMNode = DOMNode (ForeignPtr DOMNode)
noDOMNode :: Maybe DOMNode
noDOMNode = Nothing
foreign import ccall "webkit_dom_node_get_type"
c_webkit_dom_node_get_type :: IO GType
type instance ParentTypes DOMNode = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMNode where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_node_get_type
class GObject o => DOMNodeK o
instance (GObject o, IsDescendantOf DOMNode o) => DOMNodeK o
toDOMNode :: DOMNodeK o => o -> IO DOMNode
toDOMNode = unsafeCastTo DOMNode
-- method DOMNode::append_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_node_append_child" webkit_dom_node_append_child ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- newChild : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNodeAppendChild ::
(MonadIO m, DOMNodeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- newChild
m DOMNode
dOMNodeAppendChild _obj newChild = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let newChild' = unsafeManagedPtrCastPtr newChild
onException (do
result <- propagateGError $ webkit_dom_node_append_child _obj' newChild'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
touchManagedPtr newChild
return result'
) (do
return ()
)
-- method DOMNode::clone_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deep", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_clone_node" webkit_dom_node_clone_node ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
CInt -> -- deep : TBasicType TBoolean
IO (Ptr DOMNode)
dOMNodeCloneNode ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
Bool -> -- deep
m DOMNode
dOMNodeCloneNode _obj deep = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let deep' = (fromIntegral . fromEnum) deep
result <- webkit_dom_node_clone_node _obj' deep'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNode::compare_document_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_compare_document_position" webkit_dom_node_compare_document_position ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- other : TInterface "WebKit" "DOMNode"
IO Word16
dOMNodeCompareDocumentPosition ::
(MonadIO m, DOMNodeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- other
m Word16
dOMNodeCompareDocumentPosition _obj other = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let other' = unsafeManagedPtrCastPtr other
result <- webkit_dom_node_compare_document_position _obj' other'
touchManagedPtr _obj
touchManagedPtr other
return result
-- method DOMNode::contains
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", 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_node_contains" webkit_dom_node_contains ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- other : TInterface "WebKit" "DOMNode"
IO CInt
dOMNodeContains ::
(MonadIO m, DOMNodeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- other
m Bool
dOMNodeContains _obj other = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let other' = unsafeManagedPtrCastPtr other
result <- webkit_dom_node_contains _obj' other'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr other
return result'
-- method DOMNode::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", 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_node_dispatch_event" webkit_dom_node_dispatch_event ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMEvent -> -- event : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMNodeDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMNodeDispatchEvent ::
(MonadIO m, DOMNodeK a, DOMEventK b) =>
a -> -- _obj
b -> -- event
m ()
dOMNodeDispatchEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrCastPtr event
onException (do
_ <- propagateGError $ webkit_dom_node_dispatch_event _obj' event'
touchManagedPtr _obj
touchManagedPtr event
return ()
) (do
return ()
)
-- method DOMNode::get_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNamedNodeMap"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_get_attributes" webkit_dom_node_get_attributes ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNamedNodeMap)
{-# DEPRECATED dOMNodeGetAttributes ["(Since version 2.2)"]#-}
dOMNodeGetAttributes ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMNamedNodeMap
dOMNodeGetAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_attributes _obj'
result' <- (newObject DOMNamedNodeMap) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_base_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_base_uri" webkit_dom_node_get_base_uri ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CString
dOMNodeGetBaseUri ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m T.Text
dOMNodeGetBaseUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_base_uri _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNode::get_child_nodes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_get_child_nodes" webkit_dom_node_get_child_nodes ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNodeList)
dOMNodeGetChildNodes ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMNodeList
dOMNodeGetChildNodes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_child_nodes _obj'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_first_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_get_first_child" webkit_dom_node_get_first_child ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNode)
dOMNodeGetFirstChild ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMNode
dOMNodeGetFirstChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_first_child _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_last_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_get_last_child" webkit_dom_node_get_last_child ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNode)
dOMNodeGetLastChild ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMNode
dOMNodeGetLastChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_last_child _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_local_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_local_name" webkit_dom_node_get_local_name ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CString
dOMNodeGetLocalName ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m T.Text
dOMNodeGetLocalName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_local_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNode::get_namespace_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_namespace_uri" webkit_dom_node_get_namespace_uri ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CString
dOMNodeGetNamespaceUri ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m T.Text
dOMNodeGetNamespaceUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_namespace_uri _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNode::get_next_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_get_next_sibling" webkit_dom_node_get_next_sibling ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNode)
dOMNodeGetNextSibling ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMNode
dOMNodeGetNextSibling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_next_sibling _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_node_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_node_name" webkit_dom_node_get_node_name ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CString
dOMNodeGetNodeName ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m T.Text
dOMNodeGetNodeName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_node_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNode::get_node_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_get_node_type" webkit_dom_node_get_node_type ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO Word16
dOMNodeGetNodeType ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m Word16
dOMNodeGetNodeType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_node_type _obj'
touchManagedPtr _obj
return result
-- method DOMNode::get_node_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_node_value" webkit_dom_node_get_node_value ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CString
dOMNodeGetNodeValue ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m T.Text
dOMNodeGetNodeValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_node_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNode::get_owner_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_owner_document" webkit_dom_node_get_owner_document ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMDocument)
dOMNodeGetOwnerDocument ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMDocument
dOMNodeGetOwnerDocument _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_owner_document _obj'
result' <- (newObject DOMDocument) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_parent_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_parent_element" webkit_dom_node_get_parent_element ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMElement)
dOMNodeGetParentElement ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMElement
dOMNodeGetParentElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_parent_element _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_parent_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_get_parent_node" webkit_dom_node_get_parent_node ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNode)
dOMNodeGetParentNode ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMNode
dOMNodeGetParentNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_parent_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_prefix
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_prefix" webkit_dom_node_get_prefix ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CString
dOMNodeGetPrefix ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m T.Text
dOMNodeGetPrefix _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_prefix _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNode::get_previous_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_get_previous_sibling" webkit_dom_node_get_previous_sibling ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNode)
dOMNodeGetPreviousSibling ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m DOMNode
dOMNodeGetPreviousSibling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_previous_sibling _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNode::get_text_content
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_get_text_content" webkit_dom_node_get_text_content ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CString
dOMNodeGetTextContent ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m T.Text
dOMNodeGetTextContent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_get_text_content _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMNode::has_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_has_attributes" webkit_dom_node_has_attributes ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CInt
{-# DEPRECATED dOMNodeHasAttributes ["(Since version 2.2)"]#-}
dOMNodeHasAttributes ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m Bool
dOMNodeHasAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_has_attributes _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMNode::has_child_nodes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_has_child_nodes" webkit_dom_node_has_child_nodes ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO CInt
dOMNodeHasChildNodes ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m Bool
dOMNodeHasChildNodes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_has_child_nodes _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMNode::insert_before
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_node_insert_before" webkit_dom_node_insert_before ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- newChild : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- refChild : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNodeInsertBefore ::
(MonadIO m, DOMNodeK a, DOMNodeK b, DOMNodeK c) =>
a -> -- _obj
b -> -- newChild
Maybe (c) -> -- refChild
m DOMNode
dOMNodeInsertBefore _obj newChild refChild = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let newChild' = unsafeManagedPtrCastPtr newChild
maybeRefChild <- case refChild of
Nothing -> return nullPtr
Just jRefChild -> do
let jRefChild' = unsafeManagedPtrCastPtr jRefChild
return jRefChild'
onException (do
result <- propagateGError $ webkit_dom_node_insert_before _obj' newChild' maybeRefChild
result' <- (newObject DOMNode) result
touchManagedPtr _obj
touchManagedPtr newChild
whenJust refChild touchManagedPtr
return result'
) (do
return ()
)
-- method DOMNode::is_default_namespace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", 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_node_is_default_namespace" webkit_dom_node_is_default_namespace ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
CString -> -- namespaceURI : TBasicType TUTF8
IO CInt
dOMNodeIsDefaultNamespace ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
m Bool
dOMNodeIsDefaultNamespace _obj namespaceURI = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
result <- webkit_dom_node_is_default_namespace _obj' namespaceURI'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem namespaceURI'
return result'
-- method DOMNode::is_equal_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", 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_node_is_equal_node" webkit_dom_node_is_equal_node ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- other : TInterface "WebKit" "DOMNode"
IO CInt
dOMNodeIsEqualNode ::
(MonadIO m, DOMNodeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- other
m Bool
dOMNodeIsEqualNode _obj other = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let other' = unsafeManagedPtrCastPtr other
result <- webkit_dom_node_is_equal_node _obj' other'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr other
return result'
-- method DOMNode::is_same_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit" "DOMNode", 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_node_is_same_node" webkit_dom_node_is_same_node ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- other : TInterface "WebKit" "DOMNode"
IO CInt
dOMNodeIsSameNode ::
(MonadIO m, DOMNodeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- other
m Bool
dOMNodeIsSameNode _obj other = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let other' = unsafeManagedPtrCastPtr other
result <- webkit_dom_node_is_same_node _obj' other'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr other
return result'
-- method DOMNode::is_supported
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", 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_node_is_supported" webkit_dom_node_is_supported ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
CString -> -- feature : TBasicType TUTF8
CString -> -- version : TBasicType TUTF8
IO CInt
dOMNodeIsSupported ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
T.Text -> -- feature
T.Text -> -- version
m Bool
dOMNodeIsSupported _obj feature version = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
feature' <- textToCString feature
version' <- textToCString version
result <- webkit_dom_node_is_supported _obj' feature' version'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem feature'
freeMem version'
return result'
-- method DOMNode::lookup_namespace_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", 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_node_lookup_namespace_uri" webkit_dom_node_lookup_namespace_uri ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
CString -> -- prefix : TBasicType TUTF8
IO CString
dOMNodeLookupNamespaceUri ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
T.Text -> -- prefix
m T.Text
dOMNodeLookupNamespaceUri _obj prefix = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
prefix' <- textToCString prefix
result <- webkit_dom_node_lookup_namespace_uri _obj' prefix'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem prefix'
return result'
-- method DOMNode::lookup_prefix
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", 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_node_lookup_prefix" webkit_dom_node_lookup_prefix ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
CString -> -- namespaceURI : TBasicType TUTF8
IO CString
dOMNodeLookupPrefix ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
m T.Text
dOMNodeLookupPrefix _obj namespaceURI = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
result <- webkit_dom_node_lookup_prefix _obj' namespaceURI'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem namespaceURI'
return result'
-- method DOMNode::normalize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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_node_normalize" webkit_dom_node_normalize ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
IO ()
dOMNodeNormalize ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
m ()
dOMNodeNormalize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_node_normalize _obj'
touchManagedPtr _obj
return ()
-- method DOMNode::remove_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_node_remove_child" webkit_dom_node_remove_child ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- oldChild : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNodeRemoveChild ::
(MonadIO m, DOMNodeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- oldChild
m DOMNode
dOMNodeRemoveChild _obj oldChild = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let oldChild' = unsafeManagedPtrCastPtr oldChild
onException (do
result <- propagateGError $ webkit_dom_node_remove_child _obj' oldChild'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
touchManagedPtr oldChild
return result'
) (do
return ()
)
-- method DOMNode::replace_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_node_replace_child" webkit_dom_node_replace_child ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- newChild : TInterface "WebKit" "DOMNode"
Ptr DOMNode -> -- oldChild : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNodeReplaceChild ::
(MonadIO m, DOMNodeK a, DOMNodeK b, DOMNodeK c) =>
a -> -- _obj
b -> -- newChild
c -> -- oldChild
m DOMNode
dOMNodeReplaceChild _obj newChild oldChild = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let newChild' = unsafeManagedPtrCastPtr newChild
let oldChild' = unsafeManagedPtrCastPtr oldChild
onException (do
result <- propagateGError $ webkit_dom_node_replace_child _obj' newChild' oldChild'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
touchManagedPtr newChild
touchManagedPtr oldChild
return result'
) (do
return ()
)
-- method DOMNode::set_node_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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" "DOMNode", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_node_set_node_value" webkit_dom_node_set_node_value ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMNodeSetNodeValue ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMNodeSetNodeValue _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_node_value _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMNode::set_prefix
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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" "DOMNode", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_node_set_prefix" webkit_dom_node_set_prefix ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMNodeSetPrefix ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMNodeSetPrefix _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_prefix _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMNode::set_text_content
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNode", 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" "DOMNode", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_node_set_text_content" webkit_dom_node_set_text_content ::
Ptr DOMNode -> -- _obj : TInterface "WebKit" "DOMNode"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMNodeSetTextContent ::
(MonadIO m, DOMNodeK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMNodeSetTextContent _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_text_content _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- object DOMNodeFilter
newtype DOMNodeFilter = DOMNodeFilter (ForeignPtr DOMNodeFilter)
noDOMNodeFilter :: Maybe DOMNodeFilter
noDOMNodeFilter = Nothing
foreign import ccall "webkit_dom_node_filter_get_type"
c_webkit_dom_node_filter_get_type :: IO GType
type instance ParentTypes DOMNodeFilter = '[DOMObject, GObject.Object]
instance GObject DOMNodeFilter where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_node_filter_get_type
class GObject o => DOMNodeFilterK o
instance (GObject o, IsDescendantOf DOMNodeFilter o) => DOMNodeFilterK o
toDOMNodeFilter :: DOMNodeFilterK o => o -> IO DOMNodeFilter
toDOMNodeFilter = unsafeCastTo DOMNodeFilter
-- method DOMNodeFilter::accept_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_filter_accept_node" webkit_dom_node_filter_accept_node ::
Ptr DOMNodeFilter -> -- _obj : TInterface "WebKit" "DOMNodeFilter"
Ptr DOMNode -> -- n : TInterface "WebKit" "DOMNode"
IO Int16
dOMNodeFilterAcceptNode ::
(MonadIO m, DOMNodeFilterK a, DOMNodeK b) =>
a -> -- _obj
b -> -- n
m Int16
dOMNodeFilterAcceptNode _obj n = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let n' = unsafeManagedPtrCastPtr n
result <- webkit_dom_node_filter_accept_node _obj' n'
touchManagedPtr _obj
touchManagedPtr n
return result
-- object DOMNodeIterator
newtype DOMNodeIterator = DOMNodeIterator (ForeignPtr DOMNodeIterator)
noDOMNodeIterator :: Maybe DOMNodeIterator
noDOMNodeIterator = Nothing
foreign import ccall "webkit_dom_node_iterator_get_type"
c_webkit_dom_node_iterator_get_type :: IO GType
type instance ParentTypes DOMNodeIterator = '[DOMObject, GObject.Object]
instance GObject DOMNodeIterator where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_node_iterator_get_type
class GObject o => DOMNodeIteratorK o
instance (GObject o, IsDescendantOf DOMNodeIterator o) => DOMNodeIteratorK o
toDOMNodeIterator :: DOMNodeIteratorK o => o -> IO DOMNodeIterator
toDOMNodeIterator = unsafeCastTo DOMNodeIterator
-- method DOMNodeIterator::detach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", 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_node_iterator_detach" webkit_dom_node_iterator_detach ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
IO ()
dOMNodeIteratorDetach ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m ()
dOMNodeIteratorDetach _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_node_iterator_detach _obj'
touchManagedPtr _obj
return ()
-- method DOMNodeIterator::get_expand_entity_references
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", 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_node_iterator_get_expand_entity_references" webkit_dom_node_iterator_get_expand_entity_references ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
IO CInt
dOMNodeIteratorGetExpandEntityReferences ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m Bool
dOMNodeIteratorGetExpandEntityReferences _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_expand_entity_references _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMNodeIterator::get_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeFilter"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_iterator_get_filter" webkit_dom_node_iterator_get_filter ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
IO (Ptr DOMNodeFilter)
dOMNodeIteratorGetFilter ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m DOMNodeFilter
dOMNodeIteratorGetFilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_filter _obj'
result' <- (wrapObject DOMNodeFilter) result
touchManagedPtr _obj
return result'
-- method DOMNodeIterator::get_pointer_before_reference_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", 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_node_iterator_get_pointer_before_reference_node" webkit_dom_node_iterator_get_pointer_before_reference_node ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
IO CInt
dOMNodeIteratorGetPointerBeforeReferenceNode ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m Bool
dOMNodeIteratorGetPointerBeforeReferenceNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_pointer_before_reference_node _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMNodeIterator::get_reference_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_iterator_get_reference_node" webkit_dom_node_iterator_get_reference_node ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
IO (Ptr DOMNode)
dOMNodeIteratorGetReferenceNode ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m DOMNode
dOMNodeIteratorGetReferenceNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_reference_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNodeIterator::get_root
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_iterator_get_root" webkit_dom_node_iterator_get_root ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
IO (Ptr DOMNode)
dOMNodeIteratorGetRoot ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m DOMNode
dOMNodeIteratorGetRoot _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_root _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMNodeIterator::get_what_to_show
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", 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_node_iterator_get_what_to_show" webkit_dom_node_iterator_get_what_to_show ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
IO Word64
dOMNodeIteratorGetWhatToShow ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m Word64
dOMNodeIteratorGetWhatToShow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_iterator_get_what_to_show _obj'
touchManagedPtr _obj
return result
-- method DOMNodeIterator::next_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_node_iterator_next_node" webkit_dom_node_iterator_next_node ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNodeIteratorNextNode ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m DOMNode
dOMNodeIteratorNextNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_node_iterator_next_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMNodeIterator::previous_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_node_iterator_previous_node" webkit_dom_node_iterator_previous_node ::
Ptr DOMNodeIterator -> -- _obj : TInterface "WebKit" "DOMNodeIterator"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMNodeIteratorPreviousNode ::
(MonadIO m, DOMNodeIteratorK a) =>
a -> -- _obj
m DOMNode
dOMNodeIteratorPreviousNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_node_iterator_previous_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- object DOMNodeList
newtype DOMNodeList = DOMNodeList (ForeignPtr DOMNodeList)
noDOMNodeList :: Maybe DOMNodeList
noDOMNodeList = Nothing
foreign import ccall "webkit_dom_node_list_get_type"
c_webkit_dom_node_list_get_type :: IO GType
type instance ParentTypes DOMNodeList = '[DOMObject, GObject.Object]
instance GObject DOMNodeList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_node_list_get_type
class GObject o => DOMNodeListK o
instance (GObject o, IsDescendantOf DOMNodeList o) => DOMNodeListK o
toDOMNodeList :: DOMNodeListK o => o -> IO DOMNodeList
toDOMNodeList = unsafeCastTo DOMNodeList
-- method DOMNodeList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeList", 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_node_list_get_length" webkit_dom_node_list_get_length ::
Ptr DOMNodeList -> -- _obj : TInterface "WebKit" "DOMNodeList"
IO Word64
dOMNodeListGetLength ::
(MonadIO m, DOMNodeListK a) =>
a -> -- _obj
m Word64
dOMNodeListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMNodeList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_node_list_item" webkit_dom_node_list_item ::
Ptr DOMNodeList -> -- _obj : TInterface "WebKit" "DOMNodeList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMNode)
dOMNodeListItem ::
(MonadIO m, DOMNodeListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMNode
dOMNodeListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_node_list_item _obj' index
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- object DOMObject
newtype DOMObject = DOMObject (ForeignPtr DOMObject)
noDOMObject :: Maybe DOMObject
noDOMObject = Nothing
foreign import ccall "webkit_dom_object_get_type"
c_webkit_dom_object_get_type :: IO GType
type instance ParentTypes DOMObject = '[GObject.Object]
instance GObject DOMObject where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_object_get_type
class GObject o => DOMObjectK o
instance (GObject o, IsDescendantOf DOMObject o) => DOMObjectK o
toDOMObject :: DOMObjectK o => o -> IO DOMObject
toDOMObject = unsafeCastTo DOMObject
-- object DOMPerformance
newtype DOMPerformance = DOMPerformance (ForeignPtr DOMPerformance)
noDOMPerformance :: Maybe DOMPerformance
noDOMPerformance = Nothing
foreign import ccall "webkit_dom_performance_get_type"
c_webkit_dom_performance_get_type :: IO GType
type instance ParentTypes DOMPerformance = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMPerformance where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_performance_get_type
class GObject o => DOMPerformanceK o
instance (GObject o, IsDescendantOf DOMPerformance o) => DOMPerformanceK o
toDOMPerformance :: DOMPerformanceK o => o -> IO DOMPerformance
toDOMPerformance = unsafeCastTo DOMPerformance
-- method DOMPerformance::get_memory
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", 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_performance_get_memory" webkit_dom_performance_get_memory ::
Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance"
IO ()
{-# DEPRECATED dOMPerformanceGetMemory ["(Since version 2.2)"]#-}
dOMPerformanceGetMemory ::
(MonadIO m, DOMPerformanceK a) =>
a -> -- _obj
m ()
dOMPerformanceGetMemory _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_performance_get_memory _obj'
touchManagedPtr _obj
return ()
-- method DOMPerformance::get_navigation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMPerformanceNavigation"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_performance_get_navigation" webkit_dom_performance_get_navigation ::
Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance"
IO (Ptr DOMPerformanceNavigation)
dOMPerformanceGetNavigation ::
(MonadIO m, DOMPerformanceK a) =>
a -> -- _obj
m DOMPerformanceNavigation
dOMPerformanceGetNavigation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_get_navigation _obj'
result' <- (wrapObject DOMPerformanceNavigation) result
touchManagedPtr _obj
return result'
-- method DOMPerformance::get_timing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMPerformanceTiming"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_performance_get_timing" webkit_dom_performance_get_timing ::
Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance"
IO (Ptr DOMPerformanceTiming)
dOMPerformanceGetTiming ::
(MonadIO m, DOMPerformanceK a) =>
a -> -- _obj
m DOMPerformanceTiming
dOMPerformanceGetTiming _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_get_timing _obj'
result' <- (wrapObject DOMPerformanceTiming) result
touchManagedPtr _obj
return result'
-- method DOMPerformance::now
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformance", 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_performance_now" webkit_dom_performance_now ::
Ptr DOMPerformance -> -- _obj : TInterface "WebKit" "DOMPerformance"
IO CDouble
dOMPerformanceNow ::
(MonadIO m, DOMPerformanceK a) =>
a -> -- _obj
m Double
dOMPerformanceNow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_now _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- object DOMPerformanceEntry
newtype DOMPerformanceEntry = DOMPerformanceEntry (ForeignPtr DOMPerformanceEntry)
noDOMPerformanceEntry :: Maybe DOMPerformanceEntry
noDOMPerformanceEntry = Nothing
foreign import ccall "webkit_dom_performance_entry_get_type"
c_webkit_dom_performance_entry_get_type :: IO GType
type instance ParentTypes DOMPerformanceEntry = '[DOMObject, GObject.Object]
instance GObject DOMPerformanceEntry where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_performance_entry_get_type
class GObject o => DOMPerformanceEntryK o
instance (GObject o, IsDescendantOf DOMPerformanceEntry o) => DOMPerformanceEntryK o
toDOMPerformanceEntry :: DOMPerformanceEntryK o => o -> IO DOMPerformanceEntry
toDOMPerformanceEntry = unsafeCastTo DOMPerformanceEntry
-- method DOMPerformanceEntry::get_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", 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_performance_entry_get_duration" webkit_dom_performance_entry_get_duration ::
Ptr DOMPerformanceEntry -> -- _obj : TInterface "WebKit" "DOMPerformanceEntry"
IO CDouble
dOMPerformanceEntryGetDuration ::
(MonadIO m, DOMPerformanceEntryK a) =>
a -> -- _obj
m Double
dOMPerformanceEntryGetDuration _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_entry_get_duration _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMPerformanceEntry::get_entry_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", 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_performance_entry_get_entry_type" webkit_dom_performance_entry_get_entry_type ::
Ptr DOMPerformanceEntry -> -- _obj : TInterface "WebKit" "DOMPerformanceEntry"
IO CString
dOMPerformanceEntryGetEntryType ::
(MonadIO m, DOMPerformanceEntryK a) =>
a -> -- _obj
m T.Text
dOMPerformanceEntryGetEntryType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_entry_get_entry_type _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMPerformanceEntry::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", 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_performance_entry_get_name" webkit_dom_performance_entry_get_name ::
Ptr DOMPerformanceEntry -> -- _obj : TInterface "WebKit" "DOMPerformanceEntry"
IO CString
dOMPerformanceEntryGetName ::
(MonadIO m, DOMPerformanceEntryK a) =>
a -> -- _obj
m T.Text
dOMPerformanceEntryGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_entry_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMPerformanceEntry::get_start_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntry", 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_performance_entry_get_start_time" webkit_dom_performance_entry_get_start_time ::
Ptr DOMPerformanceEntry -> -- _obj : TInterface "WebKit" "DOMPerformanceEntry"
IO CDouble
dOMPerformanceEntryGetStartTime ::
(MonadIO m, DOMPerformanceEntryK a) =>
a -> -- _obj
m Double
dOMPerformanceEntryGetStartTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_entry_get_start_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- object DOMPerformanceEntryList
newtype DOMPerformanceEntryList = DOMPerformanceEntryList (ForeignPtr DOMPerformanceEntryList)
noDOMPerformanceEntryList :: Maybe DOMPerformanceEntryList
noDOMPerformanceEntryList = Nothing
foreign import ccall "webkit_dom_performance_entry_list_get_type"
c_webkit_dom_performance_entry_list_get_type :: IO GType
type instance ParentTypes DOMPerformanceEntryList = '[DOMObject, GObject.Object]
instance GObject DOMPerformanceEntryList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_performance_entry_list_get_type
class GObject o => DOMPerformanceEntryListK o
instance (GObject o, IsDescendantOf DOMPerformanceEntryList o) => DOMPerformanceEntryListK o
toDOMPerformanceEntryList :: DOMPerformanceEntryListK o => o -> IO DOMPerformanceEntryList
toDOMPerformanceEntryList = unsafeCastTo DOMPerformanceEntryList
-- method DOMPerformanceEntryList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", 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_performance_entry_list_get_length" webkit_dom_performance_entry_list_get_length ::
Ptr DOMPerformanceEntryList -> -- _obj : TInterface "WebKit" "DOMPerformanceEntryList"
IO Word64
dOMPerformanceEntryListGetLength ::
(MonadIO m, DOMPerformanceEntryListK a) =>
a -> -- _obj
m Word64
dOMPerformanceEntryListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_entry_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceEntryList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceEntryList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMPerformanceEntry"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_performance_entry_list_item" webkit_dom_performance_entry_list_item ::
Ptr DOMPerformanceEntryList -> -- _obj : TInterface "WebKit" "DOMPerformanceEntryList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMPerformanceEntry)
dOMPerformanceEntryListItem ::
(MonadIO m, DOMPerformanceEntryListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMPerformanceEntry
dOMPerformanceEntryListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_entry_list_item _obj' index
result' <- (wrapObject DOMPerformanceEntry) result
touchManagedPtr _obj
return result'
-- object DOMPerformanceNavigation
newtype DOMPerformanceNavigation = DOMPerformanceNavigation (ForeignPtr DOMPerformanceNavigation)
noDOMPerformanceNavigation :: Maybe DOMPerformanceNavigation
noDOMPerformanceNavigation = Nothing
foreign import ccall "webkit_dom_performance_navigation_get_type"
c_webkit_dom_performance_navigation_get_type :: IO GType
type instance ParentTypes DOMPerformanceNavigation = '[DOMObject, GObject.Object]
instance GObject DOMPerformanceNavigation where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_performance_navigation_get_type
class GObject o => DOMPerformanceNavigationK o
instance (GObject o, IsDescendantOf DOMPerformanceNavigation o) => DOMPerformanceNavigationK o
toDOMPerformanceNavigation :: DOMPerformanceNavigationK o => o -> IO DOMPerformanceNavigation
toDOMPerformanceNavigation = unsafeCastTo DOMPerformanceNavigation
-- method DOMPerformanceNavigation::get_redirect_count
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceNavigation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceNavigation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_performance_navigation_get_redirect_count" webkit_dom_performance_navigation_get_redirect_count ::
Ptr DOMPerformanceNavigation -> -- _obj : TInterface "WebKit" "DOMPerformanceNavigation"
IO Word16
dOMPerformanceNavigationGetRedirectCount ::
(MonadIO m, DOMPerformanceNavigationK a) =>
a -> -- _obj
m Word16
dOMPerformanceNavigationGetRedirectCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_navigation_get_redirect_count _obj'
touchManagedPtr _obj
return result
-- object DOMPerformanceTiming
newtype DOMPerformanceTiming = DOMPerformanceTiming (ForeignPtr DOMPerformanceTiming)
noDOMPerformanceTiming :: Maybe DOMPerformanceTiming
noDOMPerformanceTiming = Nothing
foreign import ccall "webkit_dom_performance_timing_get_type"
c_webkit_dom_performance_timing_get_type :: IO GType
type instance ParentTypes DOMPerformanceTiming = '[DOMObject, GObject.Object]
instance GObject DOMPerformanceTiming where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_performance_timing_get_type
class GObject o => DOMPerformanceTimingK o
instance (GObject o, IsDescendantOf DOMPerformanceTiming o) => DOMPerformanceTimingK o
toDOMPerformanceTiming :: DOMPerformanceTimingK o => o -> IO DOMPerformanceTiming
toDOMPerformanceTiming = unsafeCastTo DOMPerformanceTiming
-- method DOMPerformanceTiming::get_connect_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_connect_end" webkit_dom_performance_timing_get_connect_end ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetConnectEnd ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetConnectEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_connect_end _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_connect_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_connect_start" webkit_dom_performance_timing_get_connect_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetConnectStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetConnectStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_connect_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_dom_complete
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_dom_complete" webkit_dom_performance_timing_get_dom_complete ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetDomComplete ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetDomComplete _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_dom_complete _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_dom_content_loaded_event_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_dom_content_loaded_event_end" webkit_dom_performance_timing_get_dom_content_loaded_event_end ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetDomContentLoadedEventEnd ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetDomContentLoadedEventEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_dom_content_loaded_event_end _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_dom_content_loaded_event_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_dom_content_loaded_event_start" webkit_dom_performance_timing_get_dom_content_loaded_event_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetDomContentLoadedEventStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetDomContentLoadedEventStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_dom_content_loaded_event_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_dom_interactive
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_dom_interactive" webkit_dom_performance_timing_get_dom_interactive ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetDomInteractive ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetDomInteractive _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_dom_interactive _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_dom_loading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_dom_loading" webkit_dom_performance_timing_get_dom_loading ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetDomLoading ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetDomLoading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_dom_loading _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_domain_lookup_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_domain_lookup_end" webkit_dom_performance_timing_get_domain_lookup_end ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetDomainLookupEnd ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetDomainLookupEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_domain_lookup_end _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_domain_lookup_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_domain_lookup_start" webkit_dom_performance_timing_get_domain_lookup_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetDomainLookupStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetDomainLookupStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_domain_lookup_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_fetch_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_fetch_start" webkit_dom_performance_timing_get_fetch_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetFetchStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetFetchStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_fetch_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_load_event_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_load_event_end" webkit_dom_performance_timing_get_load_event_end ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetLoadEventEnd ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetLoadEventEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_load_event_end _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_load_event_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_load_event_start" webkit_dom_performance_timing_get_load_event_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetLoadEventStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetLoadEventStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_load_event_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_navigation_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_navigation_start" webkit_dom_performance_timing_get_navigation_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetNavigationStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetNavigationStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_navigation_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_redirect_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_redirect_end" webkit_dom_performance_timing_get_redirect_end ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetRedirectEnd ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetRedirectEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_redirect_end _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_redirect_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_redirect_start" webkit_dom_performance_timing_get_redirect_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetRedirectStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetRedirectStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_redirect_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_request_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_request_start" webkit_dom_performance_timing_get_request_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetRequestStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetRequestStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_request_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_response_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_response_end" webkit_dom_performance_timing_get_response_end ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetResponseEnd ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetResponseEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_response_end _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_response_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_response_start" webkit_dom_performance_timing_get_response_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetResponseStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetResponseStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_response_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_secure_connection_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_secure_connection_start" webkit_dom_performance_timing_get_secure_connection_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetSecureConnectionStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetSecureConnectionStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_secure_connection_start _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_unload_event_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_unload_event_end" webkit_dom_performance_timing_get_unload_event_end ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetUnloadEventEnd ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetUnloadEventEnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_unload_event_end _obj'
touchManagedPtr _obj
return result
-- method DOMPerformanceTiming::get_unload_event_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMPerformanceTiming", 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_performance_timing_get_unload_event_start" webkit_dom_performance_timing_get_unload_event_start ::
Ptr DOMPerformanceTiming -> -- _obj : TInterface "WebKit" "DOMPerformanceTiming"
IO Word64
dOMPerformanceTimingGetUnloadEventStart ::
(MonadIO m, DOMPerformanceTimingK a) =>
a -> -- _obj
m Word64
dOMPerformanceTimingGetUnloadEventStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_timing_get_unload_event_start _obj'
touchManagedPtr _obj
return result
-- object DOMProcessingInstruction
newtype DOMProcessingInstruction = DOMProcessingInstruction (ForeignPtr DOMProcessingInstruction)
noDOMProcessingInstruction :: Maybe DOMProcessingInstruction
noDOMProcessingInstruction = Nothing
foreign import ccall "webkit_dom_processing_instruction_get_type"
c_webkit_dom_processing_instruction_get_type :: IO GType
type instance ParentTypes DOMProcessingInstruction = '[DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMProcessingInstruction where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_processing_instruction_get_type
class GObject o => DOMProcessingInstructionK o
instance (GObject o, IsDescendantOf DOMProcessingInstruction o) => DOMProcessingInstructionK o
toDOMProcessingInstruction :: DOMProcessingInstructionK o => o -> IO DOMProcessingInstruction
toDOMProcessingInstruction = unsafeCastTo DOMProcessingInstruction
-- method DOMProcessingInstruction::get_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", 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_processing_instruction_get_data" webkit_dom_processing_instruction_get_data ::
Ptr DOMProcessingInstruction -> -- _obj : TInterface "WebKit" "DOMProcessingInstruction"
IO CString
{-# DEPRECATED dOMProcessingInstructionGetData ["(Since version 2.4)"]#-}
dOMProcessingInstructionGetData ::
(MonadIO m, DOMProcessingInstructionK a) =>
a -> -- _obj
m T.Text
dOMProcessingInstructionGetData _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_processing_instruction_get_data _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMProcessingInstruction::get_sheet
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMStyleSheet"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_processing_instruction_get_sheet" webkit_dom_processing_instruction_get_sheet ::
Ptr DOMProcessingInstruction -> -- _obj : TInterface "WebKit" "DOMProcessingInstruction"
IO (Ptr DOMStyleSheet)
dOMProcessingInstructionGetSheet ::
(MonadIO m, DOMProcessingInstructionK a) =>
a -> -- _obj
m DOMStyleSheet
dOMProcessingInstructionGetSheet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_processing_instruction_get_sheet _obj'
result' <- (wrapObject DOMStyleSheet) result
touchManagedPtr _obj
return result'
-- method DOMProcessingInstruction::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", 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_processing_instruction_get_target" webkit_dom_processing_instruction_get_target ::
Ptr DOMProcessingInstruction -> -- _obj : TInterface "WebKit" "DOMProcessingInstruction"
IO CString
dOMProcessingInstructionGetTarget ::
(MonadIO m, DOMProcessingInstructionK a) =>
a -> -- _obj
m T.Text
dOMProcessingInstructionGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_processing_instruction_get_target _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMProcessingInstruction::set_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMProcessingInstruction", 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" "DOMProcessingInstruction", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_processing_instruction_set_data" webkit_dom_processing_instruction_set_data ::
Ptr DOMProcessingInstruction -> -- _obj : TInterface "WebKit" "DOMProcessingInstruction"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
{-# DEPRECATED dOMProcessingInstructionSetData ["(Since version 2.4)"]#-}
dOMProcessingInstructionSetData ::
(MonadIO m, DOMProcessingInstructionK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMProcessingInstructionSetData _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_processing_instruction_set_data _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- object DOMPropertyNodeList
newtype DOMPropertyNodeList = DOMPropertyNodeList (ForeignPtr DOMPropertyNodeList)
noDOMPropertyNodeList :: Maybe DOMPropertyNodeList
noDOMPropertyNodeList = Nothing
foreign import ccall "webkit_dom_property_node_list_get_type"
c_webkit_dom_property_node_list_get_type :: IO GType
type instance ParentTypes DOMPropertyNodeList = '[DOMNodeList, DOMObject, GObject.Object]
instance GObject DOMPropertyNodeList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_property_node_list_get_type
class GObject o => DOMPropertyNodeListK o
instance (GObject o, IsDescendantOf DOMPropertyNodeList o) => DOMPropertyNodeListK o
toDOMPropertyNodeList :: DOMPropertyNodeListK o => o -> IO DOMPropertyNodeList
toDOMPropertyNodeList = unsafeCastTo DOMPropertyNodeList
-- method DOMPropertyNodeList::get_length
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, 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_property_node_list_get_length" webkit_dom_property_node_list_get_length ::
Ptr () -> -- self : TBasicType TVoid
IO Word64
{-# DEPRECATED dOMPropertyNodeListGetLength ["(Since version 2.2)"]#-}
dOMPropertyNodeListGetLength ::
(MonadIO m) =>
Ptr () -> -- self
m Word64
dOMPropertyNodeListGetLength self = liftIO $ do
result <- webkit_dom_property_node_list_get_length self
return result
-- method DOMPropertyNodeList::item
-- method type : MemberFunction
-- Args : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "self", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_property_node_list_item" webkit_dom_property_node_list_item ::
Ptr () -> -- self : TBasicType TVoid
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMNode)
{-# DEPRECATED dOMPropertyNodeListItem ["(Since version 2.2)"]#-}
dOMPropertyNodeListItem ::
(MonadIO m) =>
Ptr () -> -- self
Word64 -> -- index
m DOMNode
dOMPropertyNodeListItem self index = liftIO $ do
result <- webkit_dom_property_node_list_item self index
result' <- (newObject DOMNode) result
return result'
-- object DOMRange
newtype DOMRange = DOMRange (ForeignPtr DOMRange)
noDOMRange :: Maybe DOMRange
noDOMRange = Nothing
foreign import ccall "webkit_dom_range_get_type"
c_webkit_dom_range_get_type :: IO GType
type instance ParentTypes DOMRange = '[DOMObject, GObject.Object]
instance GObject DOMRange where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_range_get_type
class GObject o => DOMRangeK o
instance (GObject o, IsDescendantOf DOMRange o) => DOMRangeK o
toDOMRange :: DOMRangeK o => o -> IO DOMRange
toDOMRange = unsafeCastTo DOMRange
-- method DOMRange::clone_contents
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDocumentFragment"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_clone_contents" webkit_dom_range_clone_contents ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMDocumentFragment)
dOMRangeCloneContents ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m DOMDocumentFragment
dOMRangeCloneContents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_clone_contents _obj'
result' <- (newObject DOMDocumentFragment) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMRange::clone_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMRange"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_clone_range" webkit_dom_range_clone_range ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMRange)
dOMRangeCloneRange ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m DOMRange
dOMRangeCloneRange _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_clone_range _obj'
result' <- (wrapObject DOMRange) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMRange::collapse
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toStart", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toStart", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_collapse" webkit_dom_range_collapse ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
CInt -> -- toStart : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeCollapse ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
Bool -> -- toStart
m ()
dOMRangeCollapse _obj toStart = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let toStart' = (fromIntegral . fromEnum) toStart
onException (do
propagateGError $ webkit_dom_range_collapse _obj' toStart'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMRange::compare_boundary_points
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "how", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sourceRange", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "how", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sourceRange", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt16
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_compare_boundary_points" webkit_dom_range_compare_boundary_points ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Word16 -> -- how : TBasicType TUInt16
Ptr DOMRange -> -- sourceRange : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO Int16
dOMRangeCompareBoundaryPoints ::
(MonadIO m, DOMRangeK a, DOMRangeK b) =>
a -> -- _obj
Word16 -> -- how
b -> -- sourceRange
m Int16
dOMRangeCompareBoundaryPoints _obj how sourceRange = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sourceRange' = unsafeManagedPtrCastPtr sourceRange
onException (do
result <- propagateGError $ webkit_dom_range_compare_boundary_points _obj' how sourceRange'
touchManagedPtr _obj
touchManagedPtr sourceRange
return result
) (do
return ()
)
-- method DOMRange::compare_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt16
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_compare_node" webkit_dom_range_compare_node ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO Int16
dOMRangeCompareNode ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
m Int16
dOMRangeCompareNode _obj refNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
result <- propagateGError $ webkit_dom_range_compare_node _obj' refNode'
touchManagedPtr _obj
touchManagedPtr refNode
return result
) (do
return ()
)
-- method DOMRange::compare_point
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt16
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_compare_point" webkit_dom_range_compare_point ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Int64 -> -- offset : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO Int16
dOMRangeComparePoint ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
Int64 -> -- offset
m Int16
dOMRangeComparePoint _obj refNode offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
result <- propagateGError $ webkit_dom_range_compare_point _obj' refNode' offset
touchManagedPtr _obj
touchManagedPtr refNode
return result
) (do
return ()
)
-- method DOMRange::create_contextual_fragment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "html", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDocumentFragment"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_create_contextual_fragment" webkit_dom_range_create_contextual_fragment ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
CString -> -- html : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMDocumentFragment)
dOMRangeCreateContextualFragment ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
T.Text -> -- html
m DOMDocumentFragment
dOMRangeCreateContextualFragment _obj html = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
html' <- textToCString html
onException (do
result <- propagateGError $ webkit_dom_range_create_contextual_fragment _obj' html'
result' <- (newObject DOMDocumentFragment) result
touchManagedPtr _obj
freeMem html'
return result'
) (do
freeMem html'
)
-- method DOMRange::delete_contents
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_delete_contents" webkit_dom_range_delete_contents ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeDeleteContents ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m ()
dOMRangeDeleteContents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_range_delete_contents _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMRange::detach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_detach" webkit_dom_range_detach ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeDetach ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m ()
dOMRangeDetach _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_range_detach _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMRange::expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_expand" webkit_dom_range_expand ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
CString -> -- unit : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeExpand ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
T.Text -> -- unit
m ()
dOMRangeExpand _obj unit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
unit' <- textToCString unit
onException (do
propagateGError $ webkit_dom_range_expand _obj' unit'
touchManagedPtr _obj
freeMem unit'
return ()
) (do
freeMem unit'
)
-- method DOMRange::extract_contents
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDocumentFragment"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_extract_contents" webkit_dom_range_extract_contents ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMDocumentFragment)
dOMRangeExtractContents ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m DOMDocumentFragment
dOMRangeExtractContents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_extract_contents _obj'
result' <- (newObject DOMDocumentFragment) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMRange::get_collapsed
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", 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_range_get_collapsed" webkit_dom_range_get_collapsed ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO CInt
dOMRangeGetCollapsed ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m ()
dOMRangeGetCollapsed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
_ <- propagateGError $ webkit_dom_range_get_collapsed _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMRange::get_common_ancestor_container
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_get_common_ancestor_container" webkit_dom_range_get_common_ancestor_container ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMRangeGetCommonAncestorContainer ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m DOMNode
dOMRangeGetCommonAncestorContainer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_get_common_ancestor_container _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMRange::get_end_container
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_get_end_container" webkit_dom_range_get_end_container ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMRangeGetEndContainer ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m DOMNode
dOMRangeGetEndContainer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_get_end_container _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMRange::get_end_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_get_end_offset" webkit_dom_range_get_end_offset ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO Int64
dOMRangeGetEndOffset ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m Int64
dOMRangeGetEndOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_get_end_offset _obj'
touchManagedPtr _obj
return result
) (do
return ()
)
-- method DOMRange::get_start_container
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_get_start_container" webkit_dom_range_get_start_container ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMRangeGetStartContainer ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m DOMNode
dOMRangeGetStartContainer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_get_start_container _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMRange::get_start_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_get_start_offset" webkit_dom_range_get_start_offset ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO Int64
dOMRangeGetStartOffset ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m Int64
dOMRangeGetStartOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_get_start_offset _obj'
touchManagedPtr _obj
return result
) (do
return ()
)
-- method DOMRange::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", 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_range_get_text" webkit_dom_range_get_text ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
IO CString
dOMRangeGetText ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m T.Text
dOMRangeGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_range_get_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMRange::insert_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_insert_node" webkit_dom_range_insert_node ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- newNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeInsertNode ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- newNode
m ()
dOMRangeInsertNode _obj newNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let newNode' = unsafeManagedPtrCastPtr newNode
onException (do
propagateGError $ webkit_dom_range_insert_node _obj' newNode'
touchManagedPtr _obj
touchManagedPtr newNode
return ()
) (do
return ()
)
-- method DOMRange::intersects_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", 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_range_intersects_node" webkit_dom_range_intersects_node ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO CInt
dOMRangeIntersectsNode ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
m ()
dOMRangeIntersectsNode _obj refNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
_ <- propagateGError $ webkit_dom_range_intersects_node _obj' refNode'
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::is_point_in_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, 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_range_is_point_in_range" webkit_dom_range_is_point_in_range ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Int64 -> -- offset : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO CInt
dOMRangeIsPointInRange ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
Int64 -> -- offset
m ()
dOMRangeIsPointInRange _obj refNode offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
_ <- propagateGError $ webkit_dom_range_is_point_in_range _obj' refNode' offset
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::select_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_select_node" webkit_dom_range_select_node ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSelectNode ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
m ()
dOMRangeSelectNode _obj refNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_select_node _obj' refNode'
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::select_node_contents
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_select_node_contents" webkit_dom_range_select_node_contents ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSelectNodeContents ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
m ()
dOMRangeSelectNodeContents _obj refNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_select_node_contents _obj' refNode'
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::set_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_set_end" webkit_dom_range_set_end ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Int64 -> -- offset : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSetEnd ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
Int64 -> -- offset
m ()
dOMRangeSetEnd _obj refNode offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_end _obj' refNode' offset
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::set_end_after
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_set_end_after" webkit_dom_range_set_end_after ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSetEndAfter ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
m ()
dOMRangeSetEndAfter _obj refNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_end_after _obj' refNode'
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::set_end_before
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_set_end_before" webkit_dom_range_set_end_before ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSetEndBefore ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
m ()
dOMRangeSetEndBefore _obj refNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_end_before _obj' refNode'
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::set_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_set_start" webkit_dom_range_set_start ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Int64 -> -- offset : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSetStart ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
Int64 -> -- offset
m ()
dOMRangeSetStart _obj refNode offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_start _obj' refNode' offset
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::set_start_after
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_set_start_after" webkit_dom_range_set_start_after ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSetStartAfter ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
m ()
dOMRangeSetStartAfter _obj refNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_start_after _obj' refNode'
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::set_start_before
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_set_start_before" webkit_dom_range_set_start_before ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- refNode : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSetStartBefore ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- refNode
m ()
dOMRangeSetStartBefore _obj refNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let refNode' = unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_start_before _obj' refNode'
touchManagedPtr _obj
touchManagedPtr refNode
return ()
) (do
return ()
)
-- method DOMRange::surround_contents
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newParent", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newParent", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_range_surround_contents" webkit_dom_range_surround_contents ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr DOMNode -> -- newParent : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMRangeSurroundContents ::
(MonadIO m, DOMRangeK a, DOMNodeK b) =>
a -> -- _obj
b -> -- newParent
m ()
dOMRangeSurroundContents _obj newParent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let newParent' = unsafeManagedPtrCastPtr newParent
onException (do
propagateGError $ webkit_dom_range_surround_contents _obj' newParent'
touchManagedPtr _obj
touchManagedPtr newParent
return ()
) (do
return ()
)
-- method DOMRange::to_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMRange", 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_range_to_string" webkit_dom_range_to_string ::
Ptr DOMRange -> -- _obj : TInterface "WebKit" "DOMRange"
Ptr (Ptr GError) -> -- error
IO CString
dOMRangeToString ::
(MonadIO m, DOMRangeK a) =>
a -> -- _obj
m T.Text
dOMRangeToString _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_range_to_string _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- object DOMScreen
newtype DOMScreen = DOMScreen (ForeignPtr DOMScreen)
noDOMScreen :: Maybe DOMScreen
noDOMScreen = Nothing
foreign import ccall "webkit_dom_screen_get_type"
c_webkit_dom_screen_get_type :: IO GType
type instance ParentTypes DOMScreen = '[DOMObject, GObject.Object]
instance GObject DOMScreen where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_screen_get_type
class GObject o => DOMScreenK o
instance (GObject o, IsDescendantOf DOMScreen o) => DOMScreenK o
toDOMScreen :: DOMScreenK o => o -> IO DOMScreen
toDOMScreen = unsafeCastTo DOMScreen
-- method DOMScreen::get_avail_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", 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_screen_get_avail_height" webkit_dom_screen_get_avail_height ::
Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen"
IO Word64
dOMScreenGetAvailHeight ::
(MonadIO m, DOMScreenK a) =>
a -> -- _obj
m Word64
dOMScreenGetAvailHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_screen_get_avail_height _obj'
touchManagedPtr _obj
return result
-- method DOMScreen::get_avail_left
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", 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_screen_get_avail_left" webkit_dom_screen_get_avail_left ::
Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen"
IO Int64
dOMScreenGetAvailLeft ::
(MonadIO m, DOMScreenK a) =>
a -> -- _obj
m Int64
dOMScreenGetAvailLeft _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_screen_get_avail_left _obj'
touchManagedPtr _obj
return result
-- method DOMScreen::get_avail_top
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", 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_screen_get_avail_top" webkit_dom_screen_get_avail_top ::
Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen"
IO Int64
dOMScreenGetAvailTop ::
(MonadIO m, DOMScreenK a) =>
a -> -- _obj
m Int64
dOMScreenGetAvailTop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_screen_get_avail_top _obj'
touchManagedPtr _obj
return result
-- method DOMScreen::get_avail_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", 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_screen_get_avail_width" webkit_dom_screen_get_avail_width ::
Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen"
IO Word64
dOMScreenGetAvailWidth ::
(MonadIO m, DOMScreenK a) =>
a -> -- _obj
m Word64
dOMScreenGetAvailWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_screen_get_avail_width _obj'
touchManagedPtr _obj
return result
-- method DOMScreen::get_color_depth
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", 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_screen_get_color_depth" webkit_dom_screen_get_color_depth ::
Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen"
IO Word64
dOMScreenGetColorDepth ::
(MonadIO m, DOMScreenK a) =>
a -> -- _obj
m Word64
dOMScreenGetColorDepth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_screen_get_color_depth _obj'
touchManagedPtr _obj
return result
-- method DOMScreen::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", 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_screen_get_height" webkit_dom_screen_get_height ::
Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen"
IO Word64
dOMScreenGetHeight ::
(MonadIO m, DOMScreenK a) =>
a -> -- _obj
m Word64
dOMScreenGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_screen_get_height _obj'
touchManagedPtr _obj
return result
-- method DOMScreen::get_pixel_depth
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", 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_screen_get_pixel_depth" webkit_dom_screen_get_pixel_depth ::
Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen"
IO Word64
dOMScreenGetPixelDepth ::
(MonadIO m, DOMScreenK a) =>
a -> -- _obj
m Word64
dOMScreenGetPixelDepth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_screen_get_pixel_depth _obj'
touchManagedPtr _obj
return result
-- method DOMScreen::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMScreen", 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_screen_get_width" webkit_dom_screen_get_width ::
Ptr DOMScreen -> -- _obj : TInterface "WebKit" "DOMScreen"
IO Word64
dOMScreenGetWidth ::
(MonadIO m, DOMScreenK a) =>
a -> -- _obj
m Word64
dOMScreenGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_screen_get_width _obj'
touchManagedPtr _obj
return result
-- object DOMShadowRoot
newtype DOMShadowRoot = DOMShadowRoot (ForeignPtr DOMShadowRoot)
noDOMShadowRoot :: Maybe DOMShadowRoot
noDOMShadowRoot = Nothing
foreign import ccall "webkit_dom_shadow_root_get_type"
c_webkit_dom_shadow_root_get_type :: IO GType
type instance ParentTypes DOMShadowRoot = '[DOMDocumentFragment, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMShadowRoot where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_shadow_root_get_type
class GObject o => DOMShadowRootK o
instance (GObject o, IsDescendantOf DOMShadowRoot o) => DOMShadowRootK o
toDOMShadowRoot :: DOMShadowRootK o => o -> IO DOMShadowRoot
toDOMShadowRoot = unsafeCastTo DOMShadowRoot
-- method DOMShadowRoot::element_from_point
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", 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" "DOMShadowRoot", 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 : TInterface "WebKit" "DOMElement"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_shadow_root_element_from_point" webkit_dom_shadow_root_element_from_point ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
Int64 -> -- x : TBasicType TInt64
Int64 -> -- y : TBasicType TInt64
IO (Ptr DOMElement)
dOMShadowRootElementFromPoint ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
Int64 -> -- x
Int64 -> -- y
m DOMElement
dOMShadowRootElementFromPoint _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_element_from_point _obj' x y
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMShadowRoot::get_active_element
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", 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_shadow_root_get_active_element" webkit_dom_shadow_root_get_active_element ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
IO (Ptr DOMElement)
dOMShadowRootGetActiveElement ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
m DOMElement
dOMShadowRootGetActiveElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_active_element _obj'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
-- method DOMShadowRoot::get_apply_author_styles
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", 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_shadow_root_get_apply_author_styles" webkit_dom_shadow_root_get_apply_author_styles ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
IO CInt
dOMShadowRootGetApplyAuthorStyles ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
m Bool
dOMShadowRootGetApplyAuthorStyles _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_apply_author_styles _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMShadowRoot::get_element_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementId", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "elementId", argType = TBasicType TUTF8, 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_shadow_root_get_element_by_id" webkit_dom_shadow_root_get_element_by_id ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
CString -> -- elementId : TBasicType TUTF8
IO (Ptr DOMElement)
dOMShadowRootGetElementById ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
T.Text -> -- elementId
m DOMElement
dOMShadowRootGetElementById _obj elementId = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
elementId' <- textToCString elementId
result <- webkit_dom_shadow_root_get_element_by_id _obj' elementId'
result' <- (newObject DOMElement) result
touchManagedPtr _obj
freeMem elementId'
return result'
-- method DOMShadowRoot::get_elements_by_class_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "className", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "className", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_shadow_root_get_elements_by_class_name" webkit_dom_shadow_root_get_elements_by_class_name ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
CString -> -- className : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMShadowRootGetElementsByClassName ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
T.Text -> -- className
m DOMNodeList
dOMShadowRootGetElementsByClassName _obj className = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
className' <- textToCString className
result <- webkit_dom_shadow_root_get_elements_by_class_name _obj' className'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem className'
return result'
-- method DOMShadowRoot::get_elements_by_tag_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_shadow_root_get_elements_by_tag_name" webkit_dom_shadow_root_get_elements_by_tag_name ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
CString -> -- tagName : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMShadowRootGetElementsByTagName ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
T.Text -> -- tagName
m DOMNodeList
dOMShadowRootGetElementsByTagName _obj tagName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tagName' <- textToCString tagName
result <- webkit_dom_shadow_root_get_elements_by_tag_name _obj' tagName'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem tagName'
return result'
-- method DOMShadowRoot::get_elements_by_tag_name_ns
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "namespaceURI", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "localName", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_shadow_root_get_elements_by_tag_name_ns" webkit_dom_shadow_root_get_elements_by_tag_name_ns ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
CString -> -- namespaceURI : TBasicType TUTF8
CString -> -- localName : TBasicType TUTF8
IO (Ptr DOMNodeList)
dOMShadowRootGetElementsByTagNameNs ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
T.Text -> -- namespaceURI
T.Text -> -- localName
m DOMNodeList
dOMShadowRootGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
result <- webkit_dom_shadow_root_get_elements_by_tag_name_ns _obj' namespaceURI' localName'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
-- method DOMShadowRoot::get_inner_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", 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_shadow_root_get_inner_html" webkit_dom_shadow_root_get_inner_html ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
IO CString
dOMShadowRootGetInnerHtml ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
m T.Text
dOMShadowRootGetInnerHtml _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_inner_html _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMShadowRoot::get_reset_style_inheritance
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", 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_shadow_root_get_reset_style_inheritance" webkit_dom_shadow_root_get_reset_style_inheritance ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
IO CInt
dOMShadowRootGetResetStyleInheritance ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
m Bool
dOMShadowRootGetResetStyleInheritance _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_reset_style_inheritance _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMShadowRoot::get_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", 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_shadow_root_get_selection" webkit_dom_shadow_root_get_selection ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
IO (Ptr DOMDOMSelection)
dOMShadowRootGetSelection ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
m DOMDOMSelection
dOMShadowRootGetSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_selection _obj'
result' <- (wrapObject DOMDOMSelection) result
touchManagedPtr _obj
return result'
-- method DOMShadowRoot::set_apply_author_styles
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_shadow_root_set_apply_author_styles" webkit_dom_shadow_root_set_apply_author_styles ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMShadowRootSetApplyAuthorStyles ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMShadowRootSetApplyAuthorStyles _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_shadow_root_set_apply_author_styles _obj' value'
touchManagedPtr _obj
return ()
-- method DOMShadowRoot::set_inner_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", 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" "DOMShadowRoot", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_shadow_root_set_inner_html" webkit_dom_shadow_root_set_inner_html ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMShadowRootSetInnerHtml ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMShadowRootSetInnerHtml _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_shadow_root_set_inner_html _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMShadowRoot::set_reset_style_inheritance
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMShadowRoot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_shadow_root_set_reset_style_inheritance" webkit_dom_shadow_root_set_reset_style_inheritance ::
Ptr DOMShadowRoot -> -- _obj : TInterface "WebKit" "DOMShadowRoot"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMShadowRootSetResetStyleInheritance ::
(MonadIO m, DOMShadowRootK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMShadowRootSetResetStyleInheritance _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_shadow_root_set_reset_style_inheritance _obj' value'
touchManagedPtr _obj
return ()
-- object DOMStorage
newtype DOMStorage = DOMStorage (ForeignPtr DOMStorage)
noDOMStorage :: Maybe DOMStorage
noDOMStorage = Nothing
foreign import ccall "webkit_dom_storage_get_type"
c_webkit_dom_storage_get_type :: IO GType
type instance ParentTypes DOMStorage = '[DOMObject, GObject.Object]
instance GObject DOMStorage where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_storage_get_type
class GObject o => DOMStorageK o
instance (GObject o, IsDescendantOf DOMStorage o) => DOMStorageK o
toDOMStorage :: DOMStorageK o => o -> IO DOMStorage
toDOMStorage = unsafeCastTo DOMStorage
-- method DOMStorage::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_storage_clear" webkit_dom_storage_clear ::
Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage"
Ptr (Ptr GError) -> -- error
IO ()
dOMStorageClear ::
(MonadIO m, DOMStorageK a) =>
a -> -- _obj
m ()
dOMStorageClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_storage_clear _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMStorage::get_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", 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_storage_get_item" webkit_dom_storage_get_item ::
Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage"
CString -> -- key : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CString
dOMStorageGetItem ::
(MonadIO m, DOMStorageK a) =>
a -> -- _obj
T.Text -> -- key
m T.Text
dOMStorageGetItem _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
onException (do
result <- propagateGError $ webkit_dom_storage_get_item _obj' key'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem key'
return result'
) (do
freeMem key'
)
-- method DOMStorage::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_storage_get_length" webkit_dom_storage_get_length ::
Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage"
Ptr (Ptr GError) -> -- error
IO Word64
dOMStorageGetLength ::
(MonadIO m, DOMStorageK a) =>
a -> -- _obj
m Word64
dOMStorageGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_storage_get_length _obj'
touchManagedPtr _obj
return result
) (do
return ()
)
-- method DOMStorage::key
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, 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_storage_key" webkit_dom_storage_key ::
Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage"
Word64 -> -- index : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO CString
dOMStorageKey ::
(MonadIO m, DOMStorageK a) =>
a -> -- _obj
Word64 -> -- index
m T.Text
dOMStorageKey _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_storage_key _obj' index
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMStorage::remove_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_storage_remove_item" webkit_dom_storage_remove_item ::
Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage"
CString -> -- key : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMStorageRemoveItem ::
(MonadIO m, DOMStorageK a) =>
a -> -- _obj
T.Text -> -- key
m ()
dOMStorageRemoveItem _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
onException (do
propagateGError $ webkit_dom_storage_remove_item _obj' key'
touchManagedPtr _obj
freeMem key'
return ()
) (do
freeMem key'
)
-- method DOMStorage::set_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStorage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_storage_set_item" webkit_dom_storage_set_item ::
Ptr DOMStorage -> -- _obj : TInterface "WebKit" "DOMStorage"
CString -> -- key : TBasicType TUTF8
CString -> -- data : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMStorageSetItem ::
(MonadIO m, DOMStorageK a) =>
a -> -- _obj
T.Text -> -- key
T.Text -> -- data
m ()
dOMStorageSetItem _obj key data_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
data_' <- textToCString data_
onException (do
propagateGError $ webkit_dom_storage_set_item _obj' key' data_'
touchManagedPtr _obj
freeMem key'
freeMem data_'
return ()
) (do
freeMem key'
freeMem data_'
)
-- object DOMStorageInfo
newtype DOMStorageInfo = DOMStorageInfo (ForeignPtr DOMStorageInfo)
noDOMStorageInfo :: Maybe DOMStorageInfo
noDOMStorageInfo = Nothing
foreign import ccall "webkit_dom_storage_info_get_type"
c_webkit_dom_storage_info_get_type :: IO GType
type instance ParentTypes DOMStorageInfo = '[DOMObject, GObject.Object]
instance GObject DOMStorageInfo where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_storage_info_get_type
class GObject o => DOMStorageInfoK o
instance (GObject o, IsDescendantOf DOMStorageInfo o) => DOMStorageInfoK o
toDOMStorageInfo :: DOMStorageInfoK o => o -> IO DOMStorageInfo
toDOMStorageInfo = unsafeCastTo DOMStorageInfo
-- object DOMStorageQuota
newtype DOMStorageQuota = DOMStorageQuota (ForeignPtr DOMStorageQuota)
noDOMStorageQuota :: Maybe DOMStorageQuota
noDOMStorageQuota = Nothing
foreign import ccall "webkit_dom_storage_quota_get_type"
c_webkit_dom_storage_quota_get_type :: IO GType
type instance ParentTypes DOMStorageQuota = '[DOMObject, GObject.Object]
instance GObject DOMStorageQuota where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_storage_quota_get_type
class GObject o => DOMStorageQuotaK o
instance (GObject o, IsDescendantOf DOMStorageQuota o) => DOMStorageQuotaK o
toDOMStorageQuota :: DOMStorageQuotaK o => o -> IO DOMStorageQuota
toDOMStorageQuota = unsafeCastTo DOMStorageQuota
-- object DOMStyleMedia
newtype DOMStyleMedia = DOMStyleMedia (ForeignPtr DOMStyleMedia)
noDOMStyleMedia :: Maybe DOMStyleMedia
noDOMStyleMedia = Nothing
foreign import ccall "webkit_dom_style_media_get_type"
c_webkit_dom_style_media_get_type :: IO GType
type instance ParentTypes DOMStyleMedia = '[DOMObject, GObject.Object]
instance GObject DOMStyleMedia where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_style_media_get_type
class GObject o => DOMStyleMediaK o
instance (GObject o, IsDescendantOf DOMStyleMedia o) => DOMStyleMediaK o
toDOMStyleMedia :: DOMStyleMediaK o => o -> IO DOMStyleMedia
toDOMStyleMedia = unsafeCastTo DOMStyleMedia
-- method DOMStyleMedia::match_medium
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleMedia", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mediaquery", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleMedia", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mediaquery", 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_style_media_match_medium" webkit_dom_style_media_match_medium ::
Ptr DOMStyleMedia -> -- _obj : TInterface "WebKit" "DOMStyleMedia"
CString -> -- mediaquery : TBasicType TUTF8
IO CInt
dOMStyleMediaMatchMedium ::
(MonadIO m, DOMStyleMediaK a) =>
a -> -- _obj
T.Text -> -- mediaquery
m Bool
dOMStyleMediaMatchMedium _obj mediaquery = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mediaquery' <- textToCString mediaquery
result <- webkit_dom_style_media_match_medium _obj' mediaquery'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem mediaquery'
return result'
-- object DOMStyleSheet
newtype DOMStyleSheet = DOMStyleSheet (ForeignPtr DOMStyleSheet)
noDOMStyleSheet :: Maybe DOMStyleSheet
noDOMStyleSheet = Nothing
foreign import ccall "webkit_dom_style_sheet_get_type"
c_webkit_dom_style_sheet_get_type :: IO GType
type instance ParentTypes DOMStyleSheet = '[DOMObject, GObject.Object]
instance GObject DOMStyleSheet where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_style_sheet_get_type
class GObject o => DOMStyleSheetK o
instance (GObject o, IsDescendantOf DOMStyleSheet o) => DOMStyleSheetK o
toDOMStyleSheet :: DOMStyleSheetK o => o -> IO DOMStyleSheet
toDOMStyleSheet = unsafeCastTo DOMStyleSheet
-- method DOMStyleSheet::get_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", 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_style_sheet_get_disabled" webkit_dom_style_sheet_get_disabled ::
Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet"
IO CInt
dOMStyleSheetGetDisabled ::
(MonadIO m, DOMStyleSheetK a) =>
a -> -- _obj
m Bool
dOMStyleSheetGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMStyleSheet::get_href
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", 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_style_sheet_get_href" webkit_dom_style_sheet_get_href ::
Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet"
IO CString
dOMStyleSheetGetHref ::
(MonadIO m, DOMStyleSheetK a) =>
a -> -- _obj
m T.Text
dOMStyleSheetGetHref _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_get_href _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMStyleSheet::get_media
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMMediaList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_style_sheet_get_media" webkit_dom_style_sheet_get_media ::
Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet"
IO (Ptr DOMMediaList)
dOMStyleSheetGetMedia ::
(MonadIO m, DOMStyleSheetK a) =>
a -> -- _obj
m DOMMediaList
dOMStyleSheetGetMedia _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_get_media _obj'
result' <- (wrapObject DOMMediaList) result
touchManagedPtr _obj
return result'
-- method DOMStyleSheet::get_owner_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_style_sheet_get_owner_node" webkit_dom_style_sheet_get_owner_node ::
Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet"
IO (Ptr DOMNode)
dOMStyleSheetGetOwnerNode ::
(MonadIO m, DOMStyleSheetK a) =>
a -> -- _obj
m DOMNode
dOMStyleSheetGetOwnerNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_get_owner_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMStyleSheet::get_parent_style_sheet
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMStyleSheet"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_style_sheet_get_parent_style_sheet" webkit_dom_style_sheet_get_parent_style_sheet ::
Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet"
IO (Ptr DOMStyleSheet)
dOMStyleSheetGetParentStyleSheet ::
(MonadIO m, DOMStyleSheetK a) =>
a -> -- _obj
m DOMStyleSheet
dOMStyleSheetGetParentStyleSheet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_get_parent_style_sheet _obj'
result' <- (wrapObject DOMStyleSheet) result
touchManagedPtr _obj
return result'
-- method DOMStyleSheet::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", 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_style_sheet_get_title" webkit_dom_style_sheet_get_title ::
Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet"
IO CString
dOMStyleSheetGetTitle ::
(MonadIO m, DOMStyleSheetK a) =>
a -> -- _obj
m T.Text
dOMStyleSheetGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_get_title _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMStyleSheet::set_disabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_style_sheet_set_disabled" webkit_dom_style_sheet_set_disabled ::
Ptr DOMStyleSheet -> -- _obj : TInterface "WebKit" "DOMStyleSheet"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMStyleSheetSetDisabled ::
(MonadIO m, DOMStyleSheetK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMStyleSheetSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_style_sheet_set_disabled _obj' value'
touchManagedPtr _obj
return ()
-- object DOMStyleSheetList
newtype DOMStyleSheetList = DOMStyleSheetList (ForeignPtr DOMStyleSheetList)
noDOMStyleSheetList :: Maybe DOMStyleSheetList
noDOMStyleSheetList = Nothing
foreign import ccall "webkit_dom_style_sheet_list_get_type"
c_webkit_dom_style_sheet_list_get_type :: IO GType
type instance ParentTypes DOMStyleSheetList = '[DOMObject, GObject.Object]
instance GObject DOMStyleSheetList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_style_sheet_list_get_type
class GObject o => DOMStyleSheetListK o
instance (GObject o, IsDescendantOf DOMStyleSheetList o) => DOMStyleSheetListK o
toDOMStyleSheetList :: DOMStyleSheetListK o => o -> IO DOMStyleSheetList
toDOMStyleSheetList = unsafeCastTo DOMStyleSheetList
-- method DOMStyleSheetList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", 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_style_sheet_list_get_length" webkit_dom_style_sheet_list_get_length ::
Ptr DOMStyleSheetList -> -- _obj : TInterface "WebKit" "DOMStyleSheetList"
IO Word64
dOMStyleSheetListGetLength ::
(MonadIO m, DOMStyleSheetListK a) =>
a -> -- _obj
m Word64
dOMStyleSheetListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMStyleSheetList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMStyleSheet"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_style_sheet_list_item" webkit_dom_style_sheet_list_item ::
Ptr DOMStyleSheetList -> -- _obj : TInterface "WebKit" "DOMStyleSheetList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMStyleSheet)
dOMStyleSheetListItem ::
(MonadIO m, DOMStyleSheetListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMStyleSheet
dOMStyleSheetListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_style_sheet_list_item _obj' index
result' <- (wrapObject DOMStyleSheet) result
touchManagedPtr _obj
return result'
-- object DOMText
newtype DOMText = DOMText (ForeignPtr DOMText)
noDOMText :: Maybe DOMText
noDOMText = Nothing
foreign import ccall "webkit_dom_text_get_type"
c_webkit_dom_text_get_type :: IO GType
type instance ParentTypes DOMText = '[DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMText where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_text_get_type
class GObject o => DOMTextK o
instance (GObject o, IsDescendantOf DOMText o) => DOMTextK o
toDOMText :: DOMTextK o => o -> IO DOMText
toDOMText = unsafeCastTo DOMText
-- method DOMText::get_whole_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", 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_text_get_whole_text" webkit_dom_text_get_whole_text ::
Ptr DOMText -> -- _obj : TInterface "WebKit" "DOMText"
IO CString
dOMTextGetWholeText ::
(MonadIO m, DOMTextK a) =>
a -> -- _obj
m T.Text
dOMTextGetWholeText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_get_whole_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMText::replace_whole_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMText"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_text_replace_whole_text" webkit_dom_text_replace_whole_text ::
Ptr DOMText -> -- _obj : TInterface "WebKit" "DOMText"
CString -> -- content : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr DOMText)
dOMTextReplaceWholeText ::
(MonadIO m, DOMTextK a) =>
a -> -- _obj
T.Text -> -- content
m DOMText
dOMTextReplaceWholeText _obj content = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
onException (do
result <- propagateGError $ webkit_dom_text_replace_whole_text _obj' content'
result' <- (newObject DOMText) result
touchManagedPtr _obj
freeMem content'
return result'
) (do
freeMem content'
)
-- method DOMText::split_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMText"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text ::
Ptr DOMText -> -- _obj : TInterface "WebKit" "DOMText"
Word64 -> -- offset : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO (Ptr DOMText)
dOMTextSplitText ::
(MonadIO m, DOMTextK a) =>
a -> -- _obj
Word64 -> -- offset
m DOMText
dOMTextSplitText _obj offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_text_split_text _obj' offset
result' <- (newObject DOMText) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- object DOMTextTrack
newtype DOMTextTrack = DOMTextTrack (ForeignPtr DOMTextTrack)
noDOMTextTrack :: Maybe DOMTextTrack
noDOMTextTrack = Nothing
foreign import ccall "webkit_dom_text_track_get_type"
c_webkit_dom_text_track_get_type :: IO GType
type instance ParentTypes DOMTextTrack = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMTextTrack where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_text_track_get_type
class GObject o => DOMTextTrackK o
instance (GObject o, IsDescendantOf DOMTextTrack o) => DOMTextTrackK o
toDOMTextTrack :: DOMTextTrackK o => o -> IO DOMTextTrack
toDOMTextTrack = unsafeCastTo DOMTextTrack
-- method DOMTextTrack::add_cue
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_add_cue" webkit_dom_text_track_add_cue ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
Ptr DOMTextTrackCue -> -- cue : TInterface "WebKit" "DOMTextTrackCue"
IO ()
dOMTextTrackAddCue ::
(MonadIO m, DOMTextTrackK a, DOMTextTrackCueK b) =>
a -> -- _obj
b -> -- cue
m ()
dOMTextTrackAddCue _obj cue = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cue' = unsafeManagedPtrCastPtr cue
webkit_dom_text_track_add_cue _obj' cue'
touchManagedPtr _obj
touchManagedPtr cue
return ()
-- method DOMTextTrack::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", 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" "DOMTextTrack", 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_text_track_dispatch_event" webkit_dom_text_track_dispatch_event ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMTextTrackDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMTextTrackDispatchEvent ::
(MonadIO m, DOMTextTrackK a, DOMEventK b) =>
a -> -- _obj
b -> -- evt
m ()
dOMTextTrackDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_text_track_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
-- method DOMTextTrack::get_active_cues
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrackCueList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_get_active_cues" webkit_dom_text_track_get_active_cues ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
IO (Ptr DOMTextTrackCueList)
dOMTextTrackGetActiveCues ::
(MonadIO m, DOMTextTrackK a) =>
a -> -- _obj
m DOMTextTrackCueList
dOMTextTrackGetActiveCues _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_get_active_cues _obj'
result' <- (wrapObject DOMTextTrackCueList) result
touchManagedPtr _obj
return result'
-- method DOMTextTrack::get_cues
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrackCueList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_get_cues" webkit_dom_text_track_get_cues ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
IO (Ptr DOMTextTrackCueList)
dOMTextTrackGetCues ::
(MonadIO m, DOMTextTrackK a) =>
a -> -- _obj
m DOMTextTrackCueList
dOMTextTrackGetCues _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_get_cues _obj'
result' <- (wrapObject DOMTextTrackCueList) result
touchManagedPtr _obj
return result'
-- method DOMTextTrack::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", 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_text_track_get_id" webkit_dom_text_track_get_id ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
IO CString
dOMTextTrackGetId ::
(MonadIO m, DOMTextTrackK a) =>
a -> -- _obj
m T.Text
dOMTextTrackGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_get_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrack::get_kind
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", 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_text_track_get_kind" webkit_dom_text_track_get_kind ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
IO CString
dOMTextTrackGetKind ::
(MonadIO m, DOMTextTrackK a) =>
a -> -- _obj
m T.Text
dOMTextTrackGetKind _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_get_kind _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrack::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", 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_text_track_get_label" webkit_dom_text_track_get_label ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
IO CString
dOMTextTrackGetLabel ::
(MonadIO m, DOMTextTrackK a) =>
a -> -- _obj
m T.Text
dOMTextTrackGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_get_label _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrack::get_language
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", 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_text_track_get_language" webkit_dom_text_track_get_language ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
IO CString
dOMTextTrackGetLanguage ::
(MonadIO m, DOMTextTrackK a) =>
a -> -- _obj
m T.Text
dOMTextTrackGetLanguage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_get_language _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrack::get_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", 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_text_track_get_mode" webkit_dom_text_track_get_mode ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
IO CString
dOMTextTrackGetMode ::
(MonadIO m, DOMTextTrackK a) =>
a -> -- _obj
m T.Text
dOMTextTrackGetMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_get_mode _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrack::remove_cue
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cue", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_text_track_remove_cue" webkit_dom_text_track_remove_cue ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
Ptr DOMTextTrackCue -> -- cue : TInterface "WebKit" "DOMTextTrackCue"
Ptr (Ptr GError) -> -- error
IO ()
dOMTextTrackRemoveCue ::
(MonadIO m, DOMTextTrackK a, DOMTextTrackCueK b) =>
a -> -- _obj
b -> -- cue
m ()
dOMTextTrackRemoveCue _obj cue = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cue' = unsafeManagedPtrCastPtr cue
onException (do
propagateGError $ webkit_dom_text_track_remove_cue _obj' cue'
touchManagedPtr _obj
touchManagedPtr cue
return ()
) (do
return ()
)
-- method DOMTextTrack::set_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrack", 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" "DOMTextTrack", 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_text_track_set_mode" webkit_dom_text_track_set_mode ::
Ptr DOMTextTrack -> -- _obj : TInterface "WebKit" "DOMTextTrack"
CString -> -- value : TBasicType TUTF8
IO ()
dOMTextTrackSetMode ::
(MonadIO m, DOMTextTrackK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMTextTrackSetMode _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_text_track_set_mode _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- object DOMTextTrackCue
newtype DOMTextTrackCue = DOMTextTrackCue (ForeignPtr DOMTextTrackCue)
noDOMTextTrackCue :: Maybe DOMTextTrackCue
noDOMTextTrackCue = Nothing
foreign import ccall "webkit_dom_text_track_cue_get_type"
c_webkit_dom_text_track_cue_get_type :: IO GType
type instance ParentTypes DOMTextTrackCue = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMTextTrackCue where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_text_track_cue_get_type
class GObject o => DOMTextTrackCueK o
instance (GObject o, IsDescendantOf DOMTextTrackCue o) => DOMTextTrackCueK o
toDOMTextTrackCue :: DOMTextTrackCueK o => o -> IO DOMTextTrackCue
toDOMTextTrackCue = unsafeCastTo DOMTextTrackCue
-- method DOMTextTrackCue::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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" "DOMTextTrackCue", 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_text_track_cue_dispatch_event" webkit_dom_text_track_cue_dispatch_event ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMTextTrackCueDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMTextTrackCueDispatchEvent ::
(MonadIO m, DOMTextTrackCueK a, DOMEventK b) =>
a -> -- _obj
b -> -- evt
m ()
dOMTextTrackCueDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_text_track_cue_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
-- method DOMTextTrackCue::get_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_align" webkit_dom_text_track_cue_get_align ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO CString
dOMTextTrackCueGetAlign ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m T.Text
dOMTextTrackCueGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_align _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_cue_as_html
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMDocumentFragment"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_get_cue_as_html" webkit_dom_text_track_cue_get_cue_as_html ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO (Ptr DOMDocumentFragment)
dOMTextTrackCueGetCueAsHtml ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m DOMDocumentFragment
dOMTextTrackCueGetCueAsHtml _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_cue_as_html _obj'
result' <- (newObject DOMDocumentFragment) result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_end_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_end_time" webkit_dom_text_track_cue_get_end_time ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO CDouble
dOMTextTrackCueGetEndTime ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m Double
dOMTextTrackCueGetEndTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_end_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_id" webkit_dom_text_track_cue_get_id ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO CString
dOMTextTrackCueGetId ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m T.Text
dOMTextTrackCueGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_line" webkit_dom_text_track_cue_get_line ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO Int64
dOMTextTrackCueGetLine ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m Int64
dOMTextTrackCueGetLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_line _obj'
touchManagedPtr _obj
return result
-- method DOMTextTrackCue::get_pause_on_exit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_pause_on_exit" webkit_dom_text_track_cue_get_pause_on_exit ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO CInt
dOMTextTrackCueGetPauseOnExit ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m Bool
dOMTextTrackCueGetPauseOnExit _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_pause_on_exit _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_position" webkit_dom_text_track_cue_get_position ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO Int64
dOMTextTrackCueGetPosition ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m Int64
dOMTextTrackCueGetPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_position _obj'
touchManagedPtr _obj
return result
-- method DOMTextTrackCue::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_size" webkit_dom_text_track_cue_get_size ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO Int64
dOMTextTrackCueGetSize ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m Int64
dOMTextTrackCueGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_size _obj'
touchManagedPtr _obj
return result
-- method DOMTextTrackCue::get_snap_to_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_snap_to_lines" webkit_dom_text_track_cue_get_snap_to_lines ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO CInt
dOMTextTrackCueGetSnapToLines ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m Bool
dOMTextTrackCueGetSnapToLines _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_snap_to_lines _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_start_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_start_time" webkit_dom_text_track_cue_get_start_time ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO CDouble
dOMTextTrackCueGetStartTime ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m Double
dOMTextTrackCueGetStartTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_start_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_text" webkit_dom_text_track_cue_get_text ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO CString
dOMTextTrackCueGetText ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m T.Text
dOMTextTrackCueGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_text _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_track
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrack"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_get_track" webkit_dom_text_track_cue_get_track ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO (Ptr DOMTextTrack)
dOMTextTrackCueGetTrack ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m DOMTextTrack
dOMTextTrackCueGetTrack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_track _obj'
result' <- (wrapObject DOMTextTrack) result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::get_vertical
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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_text_track_cue_get_vertical" webkit_dom_text_track_cue_get_vertical ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
IO CString
dOMTextTrackCueGetVertical ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
m T.Text
dOMTextTrackCueGetVertical _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_vertical _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMTextTrackCue::set_align
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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" "DOMTextTrackCue", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_align" webkit_dom_text_track_cue_set_align ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMTextTrackCueSetAlign ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMTextTrackCueSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_text_track_cue_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- method DOMTextTrackCue::set_end_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_end_time" webkit_dom_text_track_cue_set_end_time ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
CDouble -> -- value : TBasicType TDouble
Ptr (Ptr GError) -> -- error
IO ()
dOMTextTrackCueSetEndTime ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMTextTrackCueSetEndTime _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_text_track_cue_set_end_time _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMTextTrackCue::set_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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" "DOMTextTrackCue", 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_text_track_cue_set_id" webkit_dom_text_track_cue_set_id ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
CString -> -- value : TBasicType TUTF8
IO ()
dOMTextTrackCueSetId ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMTextTrackCueSetId _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_text_track_cue_set_id _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMTextTrackCue::set_line
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_line" webkit_dom_text_track_cue_set_line ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
Int64 -> -- value : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMTextTrackCueSetLine ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMTextTrackCueSetLine _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_text_track_cue_set_line _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMTextTrackCue::set_pause_on_exit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_pause_on_exit" webkit_dom_text_track_cue_set_pause_on_exit ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMTextTrackCueSetPauseOnExit ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMTextTrackCueSetPauseOnExit _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_text_track_cue_set_pause_on_exit _obj' value'
touchManagedPtr _obj
return ()
-- method DOMTextTrackCue::set_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_position" webkit_dom_text_track_cue_set_position ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
Int64 -> -- value : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMTextTrackCueSetPosition ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMTextTrackCueSetPosition _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_text_track_cue_set_position _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMTextTrackCue::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_size" webkit_dom_text_track_cue_set_size ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
Int64 -> -- value : TBasicType TInt64
Ptr (Ptr GError) -> -- error
IO ()
dOMTextTrackCueSetSize ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
Int64 -> -- value
m ()
dOMTextTrackCueSetSize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_text_track_cue_set_size _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMTextTrackCue::set_snap_to_lines
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_snap_to_lines" webkit_dom_text_track_cue_set_snap_to_lines ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMTextTrackCueSetSnapToLines ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMTextTrackCueSetSnapToLines _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_text_track_cue_set_snap_to_lines _obj' value'
touchManagedPtr _obj
return ()
-- method DOMTextTrackCue::set_start_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_start_time" webkit_dom_text_track_cue_set_start_time ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
CDouble -> -- value : TBasicType TDouble
Ptr (Ptr GError) -> -- error
IO ()
dOMTextTrackCueSetStartTime ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
Double -> -- value
m ()
dOMTextTrackCueSetStartTime _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_text_track_cue_set_start_time _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMTextTrackCue::set_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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" "DOMTextTrackCue", 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_text_track_cue_set_text" webkit_dom_text_track_cue_set_text ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
CString -> -- value : TBasicType TUTF8
IO ()
dOMTextTrackCueSetText ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMTextTrackCueSetText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_text_track_cue_set_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
-- method DOMTextTrackCue::set_vertical
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCue", 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" "DOMTextTrackCue", 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 : True
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_set_vertical" webkit_dom_text_track_cue_set_vertical ::
Ptr DOMTextTrackCue -> -- _obj : TInterface "WebKit" "DOMTextTrackCue"
CString -> -- value : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO ()
dOMTextTrackCueSetVertical ::
(MonadIO m, DOMTextTrackCueK a) =>
a -> -- _obj
T.Text -> -- value
m ()
dOMTextTrackCueSetVertical _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_text_track_cue_set_vertical _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
-- object DOMTextTrackCueList
newtype DOMTextTrackCueList = DOMTextTrackCueList (ForeignPtr DOMTextTrackCueList)
noDOMTextTrackCueList :: Maybe DOMTextTrackCueList
noDOMTextTrackCueList = Nothing
foreign import ccall "webkit_dom_text_track_cue_list_get_type"
c_webkit_dom_text_track_cue_list_get_type :: IO GType
type instance ParentTypes DOMTextTrackCueList = '[DOMObject, GObject.Object]
instance GObject DOMTextTrackCueList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_text_track_cue_list_get_type
class GObject o => DOMTextTrackCueListK o
instance (GObject o, IsDescendantOf DOMTextTrackCueList o) => DOMTextTrackCueListK o
toDOMTextTrackCueList :: DOMTextTrackCueListK o => o -> IO DOMTextTrackCueList
toDOMTextTrackCueList = unsafeCastTo DOMTextTrackCueList
-- method DOMTextTrackCueList::get_cue_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrackCue"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_list_get_cue_by_id" webkit_dom_text_track_cue_list_get_cue_by_id ::
Ptr DOMTextTrackCueList -> -- _obj : TInterface "WebKit" "DOMTextTrackCueList"
CString -> -- id : TBasicType TUTF8
IO (Ptr DOMTextTrackCue)
dOMTextTrackCueListGetCueById ::
(MonadIO m, DOMTextTrackCueListK a) =>
a -> -- _obj
T.Text -> -- id
m DOMTextTrackCue
dOMTextTrackCueListGetCueById _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
id' <- textToCString id
result <- webkit_dom_text_track_cue_list_get_cue_by_id _obj' id'
result' <- (newObject DOMTextTrackCue) result
touchManagedPtr _obj
freeMem id'
return result'
-- method DOMTextTrackCueList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", 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_text_track_cue_list_get_length" webkit_dom_text_track_cue_list_get_length ::
Ptr DOMTextTrackCueList -> -- _obj : TInterface "WebKit" "DOMTextTrackCueList"
IO Word64
dOMTextTrackCueListGetLength ::
(MonadIO m, DOMTextTrackCueListK a) =>
a -> -- _obj
m Word64
dOMTextTrackCueListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMTextTrackCueList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackCueList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrackCue"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_cue_list_item" webkit_dom_text_track_cue_list_item ::
Ptr DOMTextTrackCueList -> -- _obj : TInterface "WebKit" "DOMTextTrackCueList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMTextTrackCue)
dOMTextTrackCueListItem ::
(MonadIO m, DOMTextTrackCueListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMTextTrackCue
dOMTextTrackCueListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_list_item _obj' index
result' <- (newObject DOMTextTrackCue) result
touchManagedPtr _obj
return result'
-- object DOMTextTrackList
newtype DOMTextTrackList = DOMTextTrackList (ForeignPtr DOMTextTrackList)
noDOMTextTrackList :: Maybe DOMTextTrackList
noDOMTextTrackList = Nothing
foreign import ccall "webkit_dom_text_track_list_get_type"
c_webkit_dom_text_track_list_get_type :: IO GType
type instance ParentTypes DOMTextTrackList = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMTextTrackList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_text_track_list_get_type
class GObject o => DOMTextTrackListK o
instance (GObject o, IsDescendantOf DOMTextTrackList o) => DOMTextTrackListK o
toDOMTextTrackList :: DOMTextTrackListK o => o -> IO DOMTextTrackList
toDOMTextTrackList = unsafeCastTo DOMTextTrackList
-- method DOMTextTrackList::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", 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" "DOMTextTrackList", 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_text_track_list_dispatch_event" webkit_dom_text_track_list_dispatch_event ::
Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList"
Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMTextTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMTextTrackListDispatchEvent ::
(MonadIO m, DOMTextTrackListK a, DOMEventK b) =>
a -> -- _obj
b -> -- evt
m ()
dOMTextTrackListDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_text_track_list_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
-- method DOMTextTrackList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", 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_text_track_list_get_length" webkit_dom_text_track_list_get_length ::
Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList"
IO Word64
dOMTextTrackListGetLength ::
(MonadIO m, DOMTextTrackListK a) =>
a -> -- _obj
m Word64
dOMTextTrackListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMTextTrackList::get_track_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrack"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_list_get_track_by_id" webkit_dom_text_track_list_get_track_by_id ::
Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList"
CString -> -- id : TBasicType TUTF8
IO (Ptr DOMTextTrack)
dOMTextTrackListGetTrackById ::
(MonadIO m, DOMTextTrackListK a) =>
a -> -- _obj
T.Text -> -- id
m DOMTextTrack
dOMTextTrackListGetTrackById _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
id' <- textToCString id
result <- webkit_dom_text_track_list_get_track_by_id _obj' id'
result' <- (wrapObject DOMTextTrack) result
touchManagedPtr _obj
freeMem id'
return result'
-- method DOMTextTrackList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMTextTrack"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_text_track_list_item" webkit_dom_text_track_list_item ::
Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMTextTrack)
dOMTextTrackListItem ::
(MonadIO m, DOMTextTrackListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMTextTrack
dOMTextTrackListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_list_item _obj' index
result' <- (wrapObject DOMTextTrack) result
touchManagedPtr _obj
return result'
-- object DOMTimeRanges
newtype DOMTimeRanges = DOMTimeRanges (ForeignPtr DOMTimeRanges)
noDOMTimeRanges :: Maybe DOMTimeRanges
noDOMTimeRanges = Nothing
foreign import ccall "webkit_dom_time_ranges_get_type"
c_webkit_dom_time_ranges_get_type :: IO GType
type instance ParentTypes DOMTimeRanges = '[DOMObject, GObject.Object]
instance GObject DOMTimeRanges where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_time_ranges_get_type
class GObject o => DOMTimeRangesK o
instance (GObject o, IsDescendantOf DOMTimeRanges o) => DOMTimeRangesK o
toDOMTimeRanges :: DOMTimeRangesK o => o -> IO DOMTimeRanges
toDOMTimeRanges = unsafeCastTo DOMTimeRanges
-- method DOMTimeRanges::end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_time_ranges_end" webkit_dom_time_ranges_end ::
Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges"
Word64 -> -- index : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO CDouble
dOMTimeRangesEnd ::
(MonadIO m, DOMTimeRangesK a) =>
a -> -- _obj
Word64 -> -- index
m Double
dOMTimeRangesEnd _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_time_ranges_end _obj' index
let result' = realToFrac result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMTimeRanges::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", 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_time_ranges_get_length" webkit_dom_time_ranges_get_length ::
Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges"
IO Word64
dOMTimeRangesGetLength ::
(MonadIO m, DOMTimeRangesK a) =>
a -> -- _obj
m Word64
dOMTimeRangesGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_time_ranges_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMTimeRanges::start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTimeRanges", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_time_ranges_start" webkit_dom_time_ranges_start ::
Ptr DOMTimeRanges -> -- _obj : TInterface "WebKit" "DOMTimeRanges"
Word64 -> -- index : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO CDouble
dOMTimeRangesStart ::
(MonadIO m, DOMTimeRangesK a) =>
a -> -- _obj
Word64 -> -- index
m Double
dOMTimeRangesStart _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_time_ranges_start _obj' index
let result' = realToFrac result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- object DOMTouch
newtype DOMTouch = DOMTouch (ForeignPtr DOMTouch)
noDOMTouch :: Maybe DOMTouch
noDOMTouch = Nothing
foreign import ccall "webkit_dom_touch_get_type"
c_webkit_dom_touch_get_type :: IO GType
type instance ParentTypes DOMTouch = '[DOMObject, GObject.Object]
instance GObject DOMTouch where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_touch_get_type
class GObject o => DOMTouchK o
instance (GObject o, IsDescendantOf DOMTouch o) => DOMTouchK o
toDOMTouch :: DOMTouchK o => o -> IO DOMTouch
toDOMTouch = unsafeCastTo DOMTouch
-- method DOMTouch::get_client_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_client_x" webkit_dom_touch_get_client_x ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Int64
dOMTouchGetClientX ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Int64
dOMTouchGetClientX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_client_x _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_client_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_client_y" webkit_dom_touch_get_client_y ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Int64
dOMTouchGetClientY ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Int64
dOMTouchGetClientY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_client_y _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_identifier
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_identifier" webkit_dom_touch_get_identifier ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Word64
dOMTouchGetIdentifier ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Word64
dOMTouchGetIdentifier _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_identifier _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_page_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_page_x" webkit_dom_touch_get_page_x ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Int64
dOMTouchGetPageX ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Int64
dOMTouchGetPageX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_page_x _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_page_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_page_y" webkit_dom_touch_get_page_y ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Int64
dOMTouchGetPageY ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Int64
dOMTouchGetPageY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_page_y _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_screen_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_screen_x" webkit_dom_touch_get_screen_x ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Int64
dOMTouchGetScreenX ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Int64
dOMTouchGetScreenX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_screen_x _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_screen_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_screen_y" webkit_dom_touch_get_screen_y ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Int64
dOMTouchGetScreenY ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Int64
dOMTouchGetScreenY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_screen_y _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMEventTarget"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_touch_get_target" webkit_dom_touch_get_target ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO (Ptr DOMEventTarget)
dOMTouchGetTarget ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m DOMEventTarget
dOMTouchGetTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_target _obj'
result' <- (wrapObject DOMEventTarget) result
touchManagedPtr _obj
return result'
-- method DOMTouch::get_webkit_force
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_touch_get_webkit_force" webkit_dom_touch_get_webkit_force ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO CFloat
dOMTouchGetWebkitForce ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Float
dOMTouchGetWebkitForce _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_webkit_force _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMTouch::get_webkit_radius_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_webkit_radius_x" webkit_dom_touch_get_webkit_radius_x ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Int64
dOMTouchGetWebkitRadiusX ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Int64
dOMTouchGetWebkitRadiusX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_webkit_radius_x _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_webkit_radius_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", 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_touch_get_webkit_radius_y" webkit_dom_touch_get_webkit_radius_y ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO Int64
dOMTouchGetWebkitRadiusY ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Int64
dOMTouchGetWebkitRadiusY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_webkit_radius_y _obj'
touchManagedPtr _obj
return result
-- method DOMTouch::get_webkit_rotation_angle
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTouch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_touch_get_webkit_rotation_angle" webkit_dom_touch_get_webkit_rotation_angle ::
Ptr DOMTouch -> -- _obj : TInterface "WebKit" "DOMTouch"
IO CFloat
dOMTouchGetWebkitRotationAngle ::
(MonadIO m, DOMTouchK a) =>
a -> -- _obj
m Float
dOMTouchGetWebkitRotationAngle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_touch_get_webkit_rotation_angle _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- object DOMTrackEvent
newtype DOMTrackEvent = DOMTrackEvent (ForeignPtr DOMTrackEvent)
noDOMTrackEvent :: Maybe DOMTrackEvent
noDOMTrackEvent = Nothing
foreign import ccall "webkit_dom_track_event_get_type"
c_webkit_dom_track_event_get_type :: IO GType
type instance ParentTypes DOMTrackEvent = '[DOMEvent, DOMObject, GObject.Object]
instance GObject DOMTrackEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_track_event_get_type
class GObject o => DOMTrackEventK o
instance (GObject o, IsDescendantOf DOMTrackEvent o) => DOMTrackEventK o
toDOMTrackEvent :: DOMTrackEventK o => o -> IO DOMTrackEvent
toDOMTrackEvent = unsafeCastTo DOMTrackEvent
-- object DOMTreeWalker
newtype DOMTreeWalker = DOMTreeWalker (ForeignPtr DOMTreeWalker)
noDOMTreeWalker :: Maybe DOMTreeWalker
noDOMTreeWalker = Nothing
foreign import ccall "webkit_dom_tree_walker_get_type"
c_webkit_dom_tree_walker_get_type :: IO GType
type instance ParentTypes DOMTreeWalker = '[DOMObject, GObject.Object]
instance GObject DOMTreeWalker where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_tree_walker_get_type
class GObject o => DOMTreeWalkerK o
instance (GObject o, IsDescendantOf DOMTreeWalker o) => DOMTreeWalkerK o
toDOMTreeWalker :: DOMTreeWalkerK o => o -> IO DOMTreeWalker
toDOMTreeWalker = unsafeCastTo DOMTreeWalker
-- method DOMTreeWalker::first_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_first_child" webkit_dom_tree_walker_first_child ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerFirstChild ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerFirstChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_first_child _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::get_current_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_get_current_node" webkit_dom_tree_walker_get_current_node ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerGetCurrentNode ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerGetCurrentNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_get_current_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::get_expand_entity_references
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", 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_tree_walker_get_expand_entity_references" webkit_dom_tree_walker_get_expand_entity_references ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO CInt
dOMTreeWalkerGetExpandEntityReferences ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m Bool
dOMTreeWalkerGetExpandEntityReferences _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_get_expand_entity_references _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::get_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeFilter"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_get_filter" webkit_dom_tree_walker_get_filter ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNodeFilter)
dOMTreeWalkerGetFilter ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNodeFilter
dOMTreeWalkerGetFilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_get_filter _obj'
result' <- (wrapObject DOMNodeFilter) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::get_root
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_get_root" webkit_dom_tree_walker_get_root ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerGetRoot ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerGetRoot _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_get_root _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::get_what_to_show
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", 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_tree_walker_get_what_to_show" webkit_dom_tree_walker_get_what_to_show ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO Word64
dOMTreeWalkerGetWhatToShow ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m Word64
dOMTreeWalkerGetWhatToShow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_get_what_to_show _obj'
touchManagedPtr _obj
return result
-- method DOMTreeWalker::last_child
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_last_child" webkit_dom_tree_walker_last_child ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerLastChild ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerLastChild _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_last_child _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::next_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_next_node" webkit_dom_tree_walker_next_node ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerNextNode ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerNextNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_next_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::next_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_next_sibling" webkit_dom_tree_walker_next_sibling ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerNextSibling ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerNextSibling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_next_sibling _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::parent_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_parent_node" webkit_dom_tree_walker_parent_node ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerParentNode ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerParentNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_parent_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::previous_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_previous_node" webkit_dom_tree_walker_previous_node ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerPreviousNode ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerPreviousNode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_previous_node _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::previous_sibling
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_previous_sibling" webkit_dom_tree_walker_previous_sibling ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
IO (Ptr DOMNode)
dOMTreeWalkerPreviousSibling ::
(MonadIO m, DOMTreeWalkerK a) =>
a -> -- _obj
m DOMNode
dOMTreeWalkerPreviousSibling _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_tree_walker_previous_sibling _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
-- method DOMTreeWalker::set_current_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_tree_walker_set_current_node" webkit_dom_tree_walker_set_current_node ::
Ptr DOMTreeWalker -> -- _obj : TInterface "WebKit" "DOMTreeWalker"
Ptr DOMNode -> -- value : TInterface "WebKit" "DOMNode"
Ptr (Ptr GError) -> -- error
IO ()
dOMTreeWalkerSetCurrentNode ::
(MonadIO m, DOMTreeWalkerK a, DOMNodeK b) =>
a -> -- _obj
b -> -- value
m ()
dOMTreeWalkerSetCurrentNode _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = unsafeManagedPtrCastPtr value
onException (do
propagateGError $ webkit_dom_tree_walker_set_current_node _obj' value'
touchManagedPtr _obj
touchManagedPtr value
return ()
) (do
return ()
)
-- object DOMUIEvent
newtype DOMUIEvent = DOMUIEvent (ForeignPtr DOMUIEvent)
noDOMUIEvent :: Maybe DOMUIEvent
noDOMUIEvent = Nothing
foreign import ccall "webkit_dom_ui_event_get_type"
c_webkit_dom_ui_event_get_type :: IO GType
type instance ParentTypes DOMUIEvent = '[DOMEvent, DOMObject, GObject.Object]
instance GObject DOMUIEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_ui_event_get_type
class GObject o => DOMUIEventK o
instance (GObject o, IsDescendantOf DOMUIEvent o) => DOMUIEventK o
toDOMUIEvent :: DOMUIEventK o => o -> IO DOMUIEvent
toDOMUIEvent = unsafeCastTo DOMUIEvent
-- method DOMUIEvent::get_char_code
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_char_code" webkit_dom_ui_event_get_char_code ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO Int64
dOMUIEventGetCharCode ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m Int64
dOMUIEventGetCharCode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_char_code _obj'
touchManagedPtr _obj
return result
-- method DOMUIEvent::get_detail
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_detail" webkit_dom_ui_event_get_detail ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO Int64
dOMUIEventGetDetail ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m Int64
dOMUIEventGetDetail _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_detail _obj'
touchManagedPtr _obj
return result
-- method DOMUIEvent::get_key_code
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_key_code" webkit_dom_ui_event_get_key_code ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO Int64
dOMUIEventGetKeyCode ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m Int64
dOMUIEventGetKeyCode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_key_code _obj'
touchManagedPtr _obj
return result
-- method DOMUIEvent::get_layer_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_layer_x" webkit_dom_ui_event_get_layer_x ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO Int64
dOMUIEventGetLayerX ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m Int64
dOMUIEventGetLayerX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_layer_x _obj'
touchManagedPtr _obj
return result
-- method DOMUIEvent::get_layer_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_layer_y" webkit_dom_ui_event_get_layer_y ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO Int64
dOMUIEventGetLayerY ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m Int64
dOMUIEventGetLayerY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_layer_y _obj'
touchManagedPtr _obj
return result
-- method DOMUIEvent::get_page_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_page_x" webkit_dom_ui_event_get_page_x ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO Int64
dOMUIEventGetPageX ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m Int64
dOMUIEventGetPageX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_page_x _obj'
touchManagedPtr _obj
return result
-- method DOMUIEvent::get_page_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_page_y" webkit_dom_ui_event_get_page_y ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO Int64
dOMUIEventGetPageY ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m Int64
dOMUIEventGetPageY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_page_y _obj'
touchManagedPtr _obj
return result
-- method DOMUIEvent::get_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_view" webkit_dom_ui_event_get_view ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO (Ptr DOMDOMWindow)
dOMUIEventGetView ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m DOMDOMWindow
dOMUIEventGetView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_view _obj'
result' <- (wrapObject DOMDOMWindow) result
touchManagedPtr _obj
return result'
-- method DOMUIEvent::get_which
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", 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_ui_event_get_which" webkit_dom_ui_event_get_which ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
IO Int64
dOMUIEventGetWhich ::
(MonadIO m, DOMUIEventK a) =>
a -> -- _obj
m Int64
dOMUIEventGetWhich _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_which _obj'
touchManagedPtr _obj
return result
-- method DOMUIEvent::init_ui_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubble", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", 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_ui_event_init_ui_event" webkit_dom_ui_event_init_ui_event ::
Ptr DOMUIEvent -> -- _obj : TInterface "WebKit" "DOMUIEvent"
CString -> -- type : TBasicType TUTF8
CInt -> -- canBubble : TBasicType TBoolean
CInt -> -- cancelable : TBasicType TBoolean
Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow"
Int64 -> -- detail : TBasicType TInt64
IO ()
dOMUIEventInitUiEvent ::
(MonadIO m, DOMUIEventK a, DOMDOMWindowK b) =>
a -> -- _obj
T.Text -> -- type
Bool -> -- canBubble
Bool -> -- cancelable
b -> -- view
Int64 -> -- detail
m ()
dOMUIEventInitUiEvent _obj type_ canBubble cancelable view detail = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
let canBubble' = (fromIntegral . fromEnum) canBubble
let cancelable' = (fromIntegral . fromEnum) cancelable
let view' = unsafeManagedPtrCastPtr view
webkit_dom_ui_event_init_ui_event _obj' type_' canBubble' cancelable' view' detail
touchManagedPtr _obj
touchManagedPtr view
freeMem type_'
return ()
-- object DOMValidityState
newtype DOMValidityState = DOMValidityState (ForeignPtr DOMValidityState)
noDOMValidityState :: Maybe DOMValidityState
noDOMValidityState = Nothing
foreign import ccall "webkit_dom_validity_state_get_type"
c_webkit_dom_validity_state_get_type :: IO GType
type instance ParentTypes DOMValidityState = '[DOMObject, GObject.Object]
instance GObject DOMValidityState where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_validity_state_get_type
class GObject o => DOMValidityStateK o
instance (GObject o, IsDescendantOf DOMValidityState o) => DOMValidityStateK o
toDOMValidityState :: DOMValidityStateK o => o -> IO DOMValidityState
toDOMValidityState = unsafeCastTo DOMValidityState
-- method DOMValidityState::get_bad_input
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_bad_input" webkit_dom_validity_state_get_bad_input ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetBadInput ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetBadInput _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_bad_input _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_custom_error
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_custom_error" webkit_dom_validity_state_get_custom_error ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetCustomError ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetCustomError _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_custom_error _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_pattern_mismatch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_pattern_mismatch" webkit_dom_validity_state_get_pattern_mismatch ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetPatternMismatch ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetPatternMismatch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_pattern_mismatch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_range_overflow
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_range_overflow" webkit_dom_validity_state_get_range_overflow ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetRangeOverflow ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetRangeOverflow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_range_overflow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_range_underflow
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_range_underflow" webkit_dom_validity_state_get_range_underflow ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetRangeUnderflow ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetRangeUnderflow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_range_underflow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_step_mismatch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_step_mismatch" webkit_dom_validity_state_get_step_mismatch ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetStepMismatch ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetStepMismatch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_step_mismatch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_too_long
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_too_long" webkit_dom_validity_state_get_too_long ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetTooLong ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetTooLong _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_too_long _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_type_mismatch
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_type_mismatch" webkit_dom_validity_state_get_type_mismatch ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetTypeMismatch ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetTypeMismatch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_type_mismatch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_valid
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_valid" webkit_dom_validity_state_get_valid ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetValid ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetValid _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_valid _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMValidityState::get_value_missing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMValidityState", 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_validity_state_get_value_missing" webkit_dom_validity_state_get_value_missing ::
Ptr DOMValidityState -> -- _obj : TInterface "WebKit" "DOMValidityState"
IO CInt
dOMValidityStateGetValueMissing ::
(MonadIO m, DOMValidityStateK a) =>
a -> -- _obj
m Bool
dOMValidityStateGetValueMissing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_value_missing _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- object DOMVideoPlaybackQuality
newtype DOMVideoPlaybackQuality = DOMVideoPlaybackQuality (ForeignPtr DOMVideoPlaybackQuality)
noDOMVideoPlaybackQuality :: Maybe DOMVideoPlaybackQuality
noDOMVideoPlaybackQuality = Nothing
foreign import ccall "webkit_dom_video_playback_quality_get_type"
c_webkit_dom_video_playback_quality_get_type :: IO GType
type instance ParentTypes DOMVideoPlaybackQuality = '[DOMObject, GObject.Object]
instance GObject DOMVideoPlaybackQuality where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_video_playback_quality_get_type
class GObject o => DOMVideoPlaybackQualityK o
instance (GObject o, IsDescendantOf DOMVideoPlaybackQuality o) => DOMVideoPlaybackQualityK o
toDOMVideoPlaybackQuality :: DOMVideoPlaybackQualityK o => o -> IO DOMVideoPlaybackQuality
toDOMVideoPlaybackQuality = unsafeCastTo DOMVideoPlaybackQuality
-- method DOMVideoPlaybackQuality::get_corrupted_video_frames
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", 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_video_playback_quality_get_corrupted_video_frames" webkit_dom_video_playback_quality_get_corrupted_video_frames ::
Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality"
IO Word64
dOMVideoPlaybackQualityGetCorruptedVideoFrames ::
(MonadIO m, DOMVideoPlaybackQualityK a) =>
a -> -- _obj
m Word64
dOMVideoPlaybackQualityGetCorruptedVideoFrames _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_playback_quality_get_corrupted_video_frames _obj'
touchManagedPtr _obj
return result
-- method DOMVideoPlaybackQuality::get_creation_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", 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_video_playback_quality_get_creation_time" webkit_dom_video_playback_quality_get_creation_time ::
Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality"
IO CDouble
dOMVideoPlaybackQualityGetCreationTime ::
(MonadIO m, DOMVideoPlaybackQualityK a) =>
a -> -- _obj
m Double
dOMVideoPlaybackQualityGetCreationTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_playback_quality_get_creation_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMVideoPlaybackQuality::get_dropped_video_frames
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", 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_video_playback_quality_get_dropped_video_frames" webkit_dom_video_playback_quality_get_dropped_video_frames ::
Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality"
IO Word64
dOMVideoPlaybackQualityGetDroppedVideoFrames ::
(MonadIO m, DOMVideoPlaybackQualityK a) =>
a -> -- _obj
m Word64
dOMVideoPlaybackQualityGetDroppedVideoFrames _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_playback_quality_get_dropped_video_frames _obj'
touchManagedPtr _obj
return result
-- method DOMVideoPlaybackQuality::get_total_frame_delay
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", 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_video_playback_quality_get_total_frame_delay" webkit_dom_video_playback_quality_get_total_frame_delay ::
Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality"
IO CDouble
dOMVideoPlaybackQualityGetTotalFrameDelay ::
(MonadIO m, DOMVideoPlaybackQualityK a) =>
a -> -- _obj
m Double
dOMVideoPlaybackQualityGetTotalFrameDelay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_playback_quality_get_total_frame_delay _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMVideoPlaybackQuality::get_total_video_frames
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoPlaybackQuality", 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_video_playback_quality_get_total_video_frames" webkit_dom_video_playback_quality_get_total_video_frames ::
Ptr DOMVideoPlaybackQuality -> -- _obj : TInterface "WebKit" "DOMVideoPlaybackQuality"
IO Word64
dOMVideoPlaybackQualityGetTotalVideoFrames ::
(MonadIO m, DOMVideoPlaybackQualityK a) =>
a -> -- _obj
m Word64
dOMVideoPlaybackQualityGetTotalVideoFrames _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_playback_quality_get_total_video_frames _obj'
touchManagedPtr _obj
return result
-- object DOMVideoTrack
newtype DOMVideoTrack = DOMVideoTrack (ForeignPtr DOMVideoTrack)
noDOMVideoTrack :: Maybe DOMVideoTrack
noDOMVideoTrack = Nothing
foreign import ccall "webkit_dom_video_track_get_type"
c_webkit_dom_video_track_get_type :: IO GType
type instance ParentTypes DOMVideoTrack = '[DOMObject, GObject.Object]
instance GObject DOMVideoTrack where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_video_track_get_type
class GObject o => DOMVideoTrackK o
instance (GObject o, IsDescendantOf DOMVideoTrack o) => DOMVideoTrackK o
toDOMVideoTrack :: DOMVideoTrackK o => o -> IO DOMVideoTrack
toDOMVideoTrack = unsafeCastTo DOMVideoTrack
-- method DOMVideoTrack::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", 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_video_track_get_id" webkit_dom_video_track_get_id ::
Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack"
IO CString
dOMVideoTrackGetId ::
(MonadIO m, DOMVideoTrackK a) =>
a -> -- _obj
m T.Text
dOMVideoTrackGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_id _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMVideoTrack::get_kind
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", 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_video_track_get_kind" webkit_dom_video_track_get_kind ::
Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack"
IO CString
dOMVideoTrackGetKind ::
(MonadIO m, DOMVideoTrackK a) =>
a -> -- _obj
m T.Text
dOMVideoTrackGetKind _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_kind _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMVideoTrack::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", 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_video_track_get_label" webkit_dom_video_track_get_label ::
Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack"
IO CString
dOMVideoTrackGetLabel ::
(MonadIO m, DOMVideoTrackK a) =>
a -> -- _obj
m T.Text
dOMVideoTrackGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_label _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMVideoTrack::get_language
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", 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_video_track_get_language" webkit_dom_video_track_get_language ::
Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack"
IO CString
dOMVideoTrackGetLanguage ::
(MonadIO m, DOMVideoTrackK a) =>
a -> -- _obj
m T.Text
dOMVideoTrackGetLanguage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_language _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMVideoTrack::get_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", 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_video_track_get_selected" webkit_dom_video_track_get_selected ::
Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack"
IO CInt
dOMVideoTrackGetSelected ::
(MonadIO m, DOMVideoTrackK a) =>
a -> -- _obj
m Bool
dOMVideoTrackGetSelected _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_selected _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMVideoTrack::set_selected
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_video_track_set_selected" webkit_dom_video_track_set_selected ::
Ptr DOMVideoTrack -> -- _obj : TInterface "WebKit" "DOMVideoTrack"
CInt -> -- value : TBasicType TBoolean
IO ()
dOMVideoTrackSetSelected ::
(MonadIO m, DOMVideoTrackK a) =>
a -> -- _obj
Bool -> -- value
m ()
dOMVideoTrackSetSelected _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_video_track_set_selected _obj' value'
touchManagedPtr _obj
return ()
-- object DOMVideoTrackList
newtype DOMVideoTrackList = DOMVideoTrackList (ForeignPtr DOMVideoTrackList)
noDOMVideoTrackList :: Maybe DOMVideoTrackList
noDOMVideoTrackList = Nothing
foreign import ccall "webkit_dom_video_track_list_get_type"
c_webkit_dom_video_track_list_get_type :: IO GType
type instance ParentTypes DOMVideoTrackList = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMVideoTrackList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_video_track_list_get_type
class GObject o => DOMVideoTrackListK o
instance (GObject o, IsDescendantOf DOMVideoTrackList o) => DOMVideoTrackListK o
toDOMVideoTrackList :: DOMVideoTrackListK o => o -> IO DOMVideoTrackList
toDOMVideoTrackList = unsafeCastTo DOMVideoTrackList
-- method DOMVideoTrackList::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", 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" "DOMVideoTrackList", 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_video_track_list_dispatch_event" webkit_dom_video_track_list_dispatch_event ::
Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList"
Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMVideoTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMVideoTrackListDispatchEvent ::
(MonadIO m, DOMVideoTrackListK a, DOMEventK b) =>
a -> -- _obj
b -> -- evt
m ()
dOMVideoTrackListDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_video_track_list_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
-- method DOMVideoTrackList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", 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_video_track_list_get_length" webkit_dom_video_track_list_get_length ::
Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList"
IO Word64
dOMVideoTrackListGetLength ::
(MonadIO m, DOMVideoTrackListK a) =>
a -> -- _obj
m Word64
dOMVideoTrackListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_list_get_length _obj'
touchManagedPtr _obj
return result
-- method DOMVideoTrackList::get_track_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMVideoTrack"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_video_track_list_get_track_by_id" webkit_dom_video_track_list_get_track_by_id ::
Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList"
CString -> -- id : TBasicType TUTF8
IO (Ptr DOMVideoTrack)
dOMVideoTrackListGetTrackById ::
(MonadIO m, DOMVideoTrackListK a) =>
a -> -- _obj
T.Text -> -- id
m DOMVideoTrack
dOMVideoTrackListGetTrackById _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
id' <- textToCString id
result <- webkit_dom_video_track_list_get_track_by_id _obj' id'
result' <- (wrapObject DOMVideoTrack) result
touchManagedPtr _obj
freeMem id'
return result'
-- method DOMVideoTrackList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMVideoTrack"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_video_track_list_item" webkit_dom_video_track_list_item ::
Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList"
Word64 -> -- index : TBasicType TUInt64
IO (Ptr DOMVideoTrack)
dOMVideoTrackListItem ::
(MonadIO m, DOMVideoTrackListK a) =>
a -> -- _obj
Word64 -> -- index
m DOMVideoTrack
dOMVideoTrackListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_list_item _obj' index
result' <- (wrapObject DOMVideoTrack) result
touchManagedPtr _obj
return result'
-- object DOMWebKitNamedFlow
newtype DOMWebKitNamedFlow = DOMWebKitNamedFlow (ForeignPtr DOMWebKitNamedFlow)
noDOMWebKitNamedFlow :: Maybe DOMWebKitNamedFlow
noDOMWebKitNamedFlow = Nothing
foreign import ccall "webkit_dom_webkit_named_flow_get_type"
c_webkit_dom_webkit_named_flow_get_type :: IO GType
type instance ParentTypes DOMWebKitNamedFlow = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMWebKitNamedFlow where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_webkit_named_flow_get_type
class GObject o => DOMWebKitNamedFlowK o
instance (GObject o, IsDescendantOf DOMWebKitNamedFlow o) => DOMWebKitNamedFlowK o
toDOMWebKitNamedFlow :: DOMWebKitNamedFlowK o => o -> IO DOMWebKitNamedFlow
toDOMWebKitNamedFlow = unsafeCastTo DOMWebKitNamedFlow
-- method DOMWebKitNamedFlow::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", 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_webkit_named_flow_dispatch_event" webkit_dom_webkit_named_flow_dispatch_event ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
Ptr DOMEvent -> -- event : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMWebKitNamedFlowDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMWebKitNamedFlowDispatchEvent ::
(MonadIO m, DOMWebKitNamedFlowK a, DOMEventK b) =>
a -> -- _obj
b -> -- event
m ()
dOMWebKitNamedFlowDispatchEvent _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrCastPtr event
onException (do
_ <- propagateGError $ webkit_dom_webkit_named_flow_dispatch_event _obj' event'
touchManagedPtr _obj
touchManagedPtr event
return ()
) (do
return ()
)
-- method DOMWebKitNamedFlow::get_content
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_webkit_named_flow_get_content" webkit_dom_webkit_named_flow_get_content ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
IO (Ptr DOMNodeList)
dOMWebKitNamedFlowGetContent ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a -> -- _obj
m DOMNodeList
dOMWebKitNamedFlowGetContent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_content _obj'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMWebKitNamedFlow::get_content_nodes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_webkit_named_flow_get_content_nodes" webkit_dom_webkit_named_flow_get_content_nodes ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
IO (Ptr DOMNodeList)
{-# DEPRECATED dOMWebKitNamedFlowGetContentNodes ["(Since version 1.10)","Use webkit_dom_webkit_named_flow_get_content() instead."]#-}
dOMWebKitNamedFlowGetContentNodes ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a -> -- _obj
m DOMNodeList
dOMWebKitNamedFlowGetContentNodes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_content_nodes _obj'
result' <- (newObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMWebKitNamedFlow::get_first_empty_region_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", 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_webkit_named_flow_get_first_empty_region_index" webkit_dom_webkit_named_flow_get_first_empty_region_index ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
IO Int64
dOMWebKitNamedFlowGetFirstEmptyRegionIndex ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a -> -- _obj
m Int64
dOMWebKitNamedFlowGetFirstEmptyRegionIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_first_empty_region_index _obj'
touchManagedPtr _obj
return result
-- method DOMWebKitNamedFlow::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", 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_webkit_named_flow_get_name" webkit_dom_webkit_named_flow_get_name ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
IO CString
dOMWebKitNamedFlowGetName ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a -> -- _obj
m T.Text
dOMWebKitNamedFlowGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_name _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
-- method DOMWebKitNamedFlow::get_overflow
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", 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_webkit_named_flow_get_overflow" webkit_dom_webkit_named_flow_get_overflow ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
IO CInt
{-# DEPRECATED dOMWebKitNamedFlowGetOverflow ["(Since version 1.10)","Use webkit_dom_webkit_named_flow_get_overset() instead."]#-}
dOMWebKitNamedFlowGetOverflow ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a -> -- _obj
m Bool
dOMWebKitNamedFlowGetOverflow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_overflow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMWebKitNamedFlow::get_overset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", 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_webkit_named_flow_get_overset" webkit_dom_webkit_named_flow_get_overset ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
IO CInt
dOMWebKitNamedFlowGetOverset ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a -> -- _obj
m Bool
dOMWebKitNamedFlowGetOverset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_overset _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMWebKitNamedFlow::get_regions
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_webkit_named_flow_get_regions" webkit_dom_webkit_named_flow_get_regions ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
IO (Ptr DOMNodeList)
dOMWebKitNamedFlowGetRegions ::
(MonadIO m, DOMWebKitNamedFlowK a) =>
a -> -- _obj
m DOMNodeList
dOMWebKitNamedFlowGetRegions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_named_flow_get_regions _obj'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
-- method DOMWebKitNamedFlow::get_regions_by_content
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contentNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_webkit_named_flow_get_regions_by_content" webkit_dom_webkit_named_flow_get_regions_by_content ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
Ptr DOMNode -> -- contentNode : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNodeList)
dOMWebKitNamedFlowGetRegionsByContent ::
(MonadIO m, DOMWebKitNamedFlowK a, DOMNodeK b) =>
a -> -- _obj
b -> -- contentNode
m DOMNodeList
dOMWebKitNamedFlowGetRegionsByContent _obj contentNode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let contentNode' = unsafeManagedPtrCastPtr contentNode
result <- webkit_dom_webkit_named_flow_get_regions_by_content _obj' contentNode'
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
touchManagedPtr contentNode
return result'
-- method DOMWebKitNamedFlow::get_regions_by_content_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitNamedFlow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_node", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNodeList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_webkit_named_flow_get_regions_by_content_node" webkit_dom_webkit_named_flow_get_regions_by_content_node ::
Ptr DOMWebKitNamedFlow -> -- _obj : TInterface "WebKit" "DOMWebKitNamedFlow"
Ptr DOMNode -> -- content_node : TInterface "WebKit" "DOMNode"
IO (Ptr DOMNodeList)
{-# DEPRECATED dOMWebKitNamedFlowGetRegionsByContentNode ["(Since version 1.10)","Use webkit_dom_webkit_named_flow_get_regions_by_content() instead."]#-}
dOMWebKitNamedFlowGetRegionsByContentNode ::
(MonadIO m, DOMWebKitNamedFlowK a, DOMNodeK b) =>
a -> -- _obj
b -> -- content_node
m DOMNodeList
dOMWebKitNamedFlowGetRegionsByContentNode _obj content_node = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let content_node' = unsafeManagedPtrCastPtr content_node
result <- webkit_dom_webkit_named_flow_get_regions_by_content_node _obj' content_node'
result' <- (newObject DOMNodeList) result
touchManagedPtr _obj
touchManagedPtr content_node
return result'
-- object DOMWebKitPoint
newtype DOMWebKitPoint = DOMWebKitPoint (ForeignPtr DOMWebKitPoint)
noDOMWebKitPoint :: Maybe DOMWebKitPoint
noDOMWebKitPoint = Nothing
foreign import ccall "webkit_dom_webkit_point_get_type"
c_webkit_dom_webkit_point_get_type :: IO GType
type instance ParentTypes DOMWebKitPoint = '[DOMObject, GObject.Object]
instance GObject DOMWebKitPoint where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_webkit_point_get_type
class GObject o => DOMWebKitPointK o
instance (GObject o, IsDescendantOf DOMWebKitPoint o) => DOMWebKitPointK o
toDOMWebKitPoint :: DOMWebKitPointK o => o -> IO DOMWebKitPoint
toDOMWebKitPoint = unsafeCastTo DOMWebKitPoint
-- method DOMWebKitPoint::get_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_webkit_point_get_x" webkit_dom_webkit_point_get_x ::
Ptr DOMWebKitPoint -> -- _obj : TInterface "WebKit" "DOMWebKitPoint"
IO CFloat
dOMWebKitPointGetX ::
(MonadIO m, DOMWebKitPointK a) =>
a -> -- _obj
m Float
dOMWebKitPointGetX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_point_get_x _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMWebKitPoint::get_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_webkit_point_get_y" webkit_dom_webkit_point_get_y ::
Ptr DOMWebKitPoint -> -- _obj : TInterface "WebKit" "DOMWebKitPoint"
IO CFloat
dOMWebKitPointGetY ::
(MonadIO m, DOMWebKitPointK a) =>
a -> -- _obj
m Float
dOMWebKitPointGetY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_webkit_point_get_y _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMWebKitPoint::set_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_webkit_point_set_x" webkit_dom_webkit_point_set_x ::
Ptr DOMWebKitPoint -> -- _obj : TInterface "WebKit" "DOMWebKitPoint"
CFloat -> -- value : TBasicType TFloat
IO ()
dOMWebKitPointSetX ::
(MonadIO m, DOMWebKitPointK a) =>
a -> -- _obj
Float -> -- value
m ()
dOMWebKitPointSetX _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_webkit_point_set_x _obj' value'
touchManagedPtr _obj
return ()
-- method DOMWebKitPoint::set_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWebKitPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_webkit_point_set_y" webkit_dom_webkit_point_set_y ::
Ptr DOMWebKitPoint -> -- _obj : TInterface "WebKit" "DOMWebKitPoint"
CFloat -> -- value : TBasicType TFloat
IO ()
dOMWebKitPointSetY ::
(MonadIO m, DOMWebKitPointK a) =>
a -> -- _obj
Float -> -- value
m ()
dOMWebKitPointSetY _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_webkit_point_set_y _obj' value'
touchManagedPtr _obj
return ()
-- object DOMWheelEvent
newtype DOMWheelEvent = DOMWheelEvent (ForeignPtr DOMWheelEvent)
noDOMWheelEvent :: Maybe DOMWheelEvent
noDOMWheelEvent = Nothing
foreign import ccall "webkit_dom_wheel_event_get_type"
c_webkit_dom_wheel_event_get_type :: IO GType
type instance ParentTypes DOMWheelEvent = '[DOMMouseEvent, DOMUIEvent, DOMEvent, DOMObject, GObject.Object]
instance GObject DOMWheelEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_wheel_event_get_type
class GObject o => DOMWheelEventK o
instance (GObject o, IsDescendantOf DOMWheelEvent o) => DOMWheelEventK o
toDOMWheelEvent :: DOMWheelEventK o => o -> IO DOMWheelEvent
toDOMWheelEvent = unsafeCastTo DOMWheelEvent
-- method DOMWheelEvent::get_delta_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", 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_wheel_event_get_delta_mode" webkit_dom_wheel_event_get_delta_mode ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
IO Word64
dOMWheelEventGetDeltaMode ::
(MonadIO m, DOMWheelEventK a) =>
a -> -- _obj
m Word64
dOMWheelEventGetDeltaMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_wheel_event_get_delta_mode _obj'
touchManagedPtr _obj
return result
-- method DOMWheelEvent::get_delta_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", 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_wheel_event_get_delta_x" webkit_dom_wheel_event_get_delta_x ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
IO CDouble
dOMWheelEventGetDeltaX ::
(MonadIO m, DOMWheelEventK a) =>
a -> -- _obj
m Double
dOMWheelEventGetDeltaX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_wheel_event_get_delta_x _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMWheelEvent::get_delta_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", 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_wheel_event_get_delta_y" webkit_dom_wheel_event_get_delta_y ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
IO CDouble
dOMWheelEventGetDeltaY ::
(MonadIO m, DOMWheelEventK a) =>
a -> -- _obj
m Double
dOMWheelEventGetDeltaY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_wheel_event_get_delta_y _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMWheelEvent::get_delta_z
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", 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_wheel_event_get_delta_z" webkit_dom_wheel_event_get_delta_z ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
IO CDouble
dOMWheelEventGetDeltaZ ::
(MonadIO m, DOMWheelEventK a) =>
a -> -- _obj
m Double
dOMWheelEventGetDeltaZ _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_wheel_event_get_delta_z _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method DOMWheelEvent::get_webkit_direction_inverted_from_device
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", 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_wheel_event_get_webkit_direction_inverted_from_device" webkit_dom_wheel_event_get_webkit_direction_inverted_from_device ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
IO CInt
dOMWheelEventGetWebkitDirectionInvertedFromDevice ::
(MonadIO m, DOMWheelEventK a) =>
a -> -- _obj
m Bool
dOMWheelEventGetWebkitDirectionInvertedFromDevice _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_wheel_event_get_webkit_direction_inverted_from_device _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMWheelEvent::get_wheel_delta
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", 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_wheel_event_get_wheel_delta" webkit_dom_wheel_event_get_wheel_delta ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
IO Int64
dOMWheelEventGetWheelDelta ::
(MonadIO m, DOMWheelEventK a) =>
a -> -- _obj
m Int64
dOMWheelEventGetWheelDelta _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_wheel_event_get_wheel_delta _obj'
touchManagedPtr _obj
return result
-- method DOMWheelEvent::get_wheel_delta_x
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", 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_wheel_event_get_wheel_delta_x" webkit_dom_wheel_event_get_wheel_delta_x ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
IO Int64
dOMWheelEventGetWheelDeltaX ::
(MonadIO m, DOMWheelEventK a) =>
a -> -- _obj
m Int64
dOMWheelEventGetWheelDeltaX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_wheel_event_get_wheel_delta_x _obj'
touchManagedPtr _obj
return result
-- method DOMWheelEvent::get_wheel_delta_y
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", 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_wheel_event_get_wheel_delta_y" webkit_dom_wheel_event_get_wheel_delta_y ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
IO Int64
dOMWheelEventGetWheelDeltaY ::
(MonadIO m, DOMWheelEventK a) =>
a -> -- _obj
m Int64
dOMWheelEventGetWheelDeltaY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_wheel_event_get_wheel_delta_y _obj'
touchManagedPtr _obj
return result
-- method DOMWheelEvent::init_wheel_event
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wheelDeltaX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wheelDeltaY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wheelDeltaX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wheelDeltaY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view", argType = TInterface "WebKit" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screenY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientX", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clientY", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ctrlKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "altKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shiftKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "metaKey", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_wheel_event_init_wheel_event" webkit_dom_wheel_event_init_wheel_event ::
Ptr DOMWheelEvent -> -- _obj : TInterface "WebKit" "DOMWheelEvent"
Int64 -> -- wheelDeltaX : TBasicType TInt64
Int64 -> -- wheelDeltaY : TBasicType TInt64
Ptr DOMDOMWindow -> -- view : TInterface "WebKit" "DOMDOMWindow"
Int64 -> -- screenX : TBasicType TInt64
Int64 -> -- screenY : TBasicType TInt64
Int64 -> -- clientX : TBasicType TInt64
Int64 -> -- clientY : TBasicType TInt64
CInt -> -- ctrlKey : TBasicType TBoolean
CInt -> -- altKey : TBasicType TBoolean
CInt -> -- shiftKey : TBasicType TBoolean
CInt -> -- metaKey : TBasicType TBoolean
IO ()
dOMWheelEventInitWheelEvent ::
(MonadIO m, DOMWheelEventK a, DOMDOMWindowK b) =>
a -> -- _obj
Int64 -> -- wheelDeltaX
Int64 -> -- wheelDeltaY
b -> -- view
Int64 -> -- screenX
Int64 -> -- screenY
Int64 -> -- clientX
Int64 -> -- clientY
Bool -> -- ctrlKey
Bool -> -- altKey
Bool -> -- shiftKey
Bool -> -- metaKey
m ()
dOMWheelEventInitWheelEvent _obj wheelDeltaX wheelDeltaY view screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let view' = unsafeManagedPtrCastPtr view
let ctrlKey' = (fromIntegral . fromEnum) ctrlKey
let altKey' = (fromIntegral . fromEnum) altKey
let shiftKey' = (fromIntegral . fromEnum) shiftKey
let metaKey' = (fromIntegral . fromEnum) metaKey
webkit_dom_wheel_event_init_wheel_event _obj' wheelDeltaX wheelDeltaY view' screenX screenY clientX clientY ctrlKey' altKey' shiftKey' metaKey'
touchManagedPtr _obj
touchManagedPtr view
return ()
-- object DOMXPathExpression
newtype DOMXPathExpression = DOMXPathExpression (ForeignPtr DOMXPathExpression)
noDOMXPathExpression :: Maybe DOMXPathExpression
noDOMXPathExpression = Nothing
foreign import ccall "webkit_dom_xpath_expression_get_type"
c_webkit_dom_xpath_expression_get_type :: IO GType
type instance ParentTypes DOMXPathExpression = '[DOMObject, GObject.Object]
instance GObject DOMXPathExpression where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_xpath_expression_get_type
class GObject o => DOMXPathExpressionK o
instance (GObject o, IsDescendantOf DOMXPathExpression o) => DOMXPathExpressionK o
toDOMXPathExpression :: DOMXPathExpressionK o => o -> IO DOMXPathExpression
toDOMXPathExpression = unsafeCastTo DOMXPathExpression
-- method DOMXPathExpression::evaluate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inResult", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMXPathResult"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_xpath_expression_evaluate" webkit_dom_xpath_expression_evaluate ::
Ptr DOMXPathExpression -> -- _obj : TInterface "WebKit" "DOMXPathExpression"
Ptr DOMNode -> -- contextNode : TInterface "WebKit" "DOMNode"
Word16 -> -- type : TBasicType TUInt16
Ptr DOMXPathResult -> -- inResult : TInterface "WebKit" "DOMXPathResult"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMXPathResult)
dOMXPathExpressionEvaluate ::
(MonadIO m, DOMXPathExpressionK a, DOMNodeK b, DOMXPathResultK c) =>
a -> -- _obj
b -> -- contextNode
Word16 -> -- type
c -> -- inResult
m DOMXPathResult
dOMXPathExpressionEvaluate _obj contextNode type_ inResult = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let contextNode' = unsafeManagedPtrCastPtr contextNode
let inResult' = unsafeManagedPtrCastPtr inResult
onException (do
result <- propagateGError $ webkit_dom_xpath_expression_evaluate _obj' contextNode' type_ inResult'
result' <- (wrapObject DOMXPathResult) result
touchManagedPtr _obj
touchManagedPtr contextNode
touchManagedPtr inResult
return result'
) (do
return ()
)
-- object DOMXPathNSResolver
newtype DOMXPathNSResolver = DOMXPathNSResolver (ForeignPtr DOMXPathNSResolver)
noDOMXPathNSResolver :: Maybe DOMXPathNSResolver
noDOMXPathNSResolver = Nothing
foreign import ccall "webkit_dom_xpath_ns_resolver_get_type"
c_webkit_dom_xpath_ns_resolver_get_type :: IO GType
type instance ParentTypes DOMXPathNSResolver = '[DOMObject, GObject.Object]
instance GObject DOMXPathNSResolver where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_xpath_ns_resolver_get_type
class GObject o => DOMXPathNSResolverK o
instance (GObject o, IsDescendantOf DOMXPathNSResolver o) => DOMXPathNSResolverK o
toDOMXPathNSResolver :: DOMXPathNSResolverK o => o -> IO DOMXPathNSResolver
toDOMXPathNSResolver = unsafeCastTo DOMXPathNSResolver
-- method DOMXPathNSResolver::lookup_namespace_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", 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_xpath_ns_resolver_lookup_namespace_uri" webkit_dom_xpath_ns_resolver_lookup_namespace_uri ::
Ptr DOMXPathNSResolver -> -- _obj : TInterface "WebKit" "DOMXPathNSResolver"
CString -> -- prefix : TBasicType TUTF8
IO CString
dOMXPathNSResolverLookupNamespaceUri ::
(MonadIO m, DOMXPathNSResolverK a) =>
a -> -- _obj
T.Text -> -- prefix
m T.Text
dOMXPathNSResolverLookupNamespaceUri _obj prefix = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
prefix' <- textToCString prefix
result <- webkit_dom_xpath_ns_resolver_lookup_namespace_uri _obj' prefix'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem prefix'
return result'
-- object DOMXPathResult
newtype DOMXPathResult = DOMXPathResult (ForeignPtr DOMXPathResult)
noDOMXPathResult :: Maybe DOMXPathResult
noDOMXPathResult = Nothing
foreign import ccall "webkit_dom_xpath_result_get_type"
c_webkit_dom_xpath_result_get_type :: IO GType
type instance ParentTypes DOMXPathResult = '[DOMObject, GObject.Object]
instance GObject DOMXPathResult where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_xpath_result_get_type
class GObject o => DOMXPathResultK o
instance (GObject o, IsDescendantOf DOMXPathResult o) => DOMXPathResultK o
toDOMXPathResult :: DOMXPathResultK o => o -> IO DOMXPathResult
toDOMXPathResult = unsafeCastTo DOMXPathResult
-- method DOMXPathResult::get_boolean_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", 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_xpath_result_get_boolean_value" webkit_dom_xpath_result_get_boolean_value ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
Ptr (Ptr GError) -> -- error
IO CInt
dOMXPathResultGetBooleanValue ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
m ()
dOMXPathResultGetBooleanValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
_ <- propagateGError $ webkit_dom_xpath_result_get_boolean_value _obj'
touchManagedPtr _obj
return ()
) (do
return ()
)
-- method DOMXPathResult::get_invalid_iterator_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", 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_xpath_result_get_invalid_iterator_state" webkit_dom_xpath_result_get_invalid_iterator_state ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
IO CInt
dOMXPathResultGetInvalidIteratorState ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
m Bool
dOMXPathResultGetInvalidIteratorState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_xpath_result_get_invalid_iterator_state _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method DOMXPathResult::get_number_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_xpath_result_get_number_value" webkit_dom_xpath_result_get_number_value ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
Ptr (Ptr GError) -> -- error
IO CDouble
dOMXPathResultGetNumberValue ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
m Double
dOMXPathResultGetNumberValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_xpath_result_get_number_value _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMXPathResult::get_result_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt16
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_xpath_result_get_result_type" webkit_dom_xpath_result_get_result_type ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
IO Word16
dOMXPathResultGetResultType ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
m Word16
dOMXPathResultGetResultType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_xpath_result_get_result_type _obj'
touchManagedPtr _obj
return result
-- method DOMXPathResult::get_single_node_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_xpath_result_get_single_node_value" webkit_dom_xpath_result_get_single_node_value ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMXPathResultGetSingleNodeValue ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
m DOMNode
dOMXPathResultGetSingleNodeValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_xpath_result_get_single_node_value _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMXPathResult::get_snapshot_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_xpath_result_get_snapshot_length" webkit_dom_xpath_result_get_snapshot_length ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
Ptr (Ptr GError) -> -- error
IO Word64
dOMXPathResultGetSnapshotLength ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
m Word64
dOMXPathResultGetSnapshotLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_xpath_result_get_snapshot_length _obj'
touchManagedPtr _obj
return result
) (do
return ()
)
-- method DOMXPathResult::get_string_value
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", 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_xpath_result_get_string_value" webkit_dom_xpath_result_get_string_value ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
Ptr (Ptr GError) -> -- error
IO CString
dOMXPathResultGetStringValue ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
m T.Text
dOMXPathResultGetStringValue _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_xpath_result_get_string_value _obj'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMXPathResult::iterate_next
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_xpath_result_iterate_next" webkit_dom_xpath_result_iterate_next ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMXPathResultIterateNext ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
m DOMNode
dOMXPathResultIterateNext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_xpath_result_iterate_next _obj'
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- method DOMXPathResult::snapshot_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMNode"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_xpath_result_snapshot_item" webkit_dom_xpath_result_snapshot_item ::
Ptr DOMXPathResult -> -- _obj : TInterface "WebKit" "DOMXPathResult"
Word64 -> -- index : TBasicType TUInt64
Ptr (Ptr GError) -> -- error
IO (Ptr DOMNode)
dOMXPathResultSnapshotItem ::
(MonadIO m, DOMXPathResultK a) =>
a -> -- _obj
Word64 -> -- index
m DOMNode
dOMXPathResultSnapshotItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_xpath_result_snapshot_item _obj' index
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
) (do
return ()
)
-- object Download
newtype Download = Download (ForeignPtr Download)
noDownload :: Maybe Download
noDownload = Nothing
foreign import ccall "webkit_download_get_type"
c_webkit_download_get_type :: IO GType
type instance ParentTypes Download = '[GObject.Object]
instance GObject Download where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_download_get_type
class GObject o => DownloadK o
instance (GObject o, IsDescendantOf Download o) => DownloadK o
toDownload :: DownloadK o => o -> IO Download
toDownload = unsafeCastTo Download
-- method Download::new
-- method type : Constructor
-- Args : [Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "Download"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_new" webkit_download_new ::
Ptr NetworkRequest -> -- request : TInterface "WebKit" "NetworkRequest"
IO (Ptr Download)
downloadNew ::
(MonadIO m, NetworkRequestK a) =>
a -> -- request
m Download
downloadNew request = liftIO $ do
let request' = unsafeManagedPtrCastPtr request
result <- webkit_download_new request'
result' <- (wrapObject Download) result
touchManagedPtr request
return result'
-- method Download::cancel
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_cancel" webkit_download_cancel ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO ()
downloadCancel ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m ()
downloadCancel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_download_cancel _obj'
touchManagedPtr _obj
return ()
-- method Download::get_current_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_current_size" webkit_download_get_current_size ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO Word64
downloadGetCurrentSize ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m Word64
downloadGetCurrentSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_current_size _obj'
touchManagedPtr _obj
return result
-- method Download::get_destination_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_destination_uri" webkit_download_get_destination_uri ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO CString
downloadGetDestinationUri ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m T.Text
downloadGetDestinationUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_destination_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Download::get_elapsed_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_elapsed_time" webkit_download_get_elapsed_time ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO CDouble
downloadGetElapsedTime ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m Double
downloadGetElapsedTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_elapsed_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Download::get_network_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "NetworkRequest"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_network_request" webkit_download_get_network_request ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO (Ptr NetworkRequest)
downloadGetNetworkRequest ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m NetworkRequest
downloadGetNetworkRequest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_network_request _obj'
result' <- (newObject NetworkRequest) result
touchManagedPtr _obj
return result'
-- method Download::get_network_response
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "NetworkResponse"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_network_response" webkit_download_get_network_response ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO (Ptr NetworkResponse)
downloadGetNetworkResponse ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m NetworkResponse
downloadGetNetworkResponse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_network_response _obj'
result' <- (newObject NetworkResponse) result
touchManagedPtr _obj
return result'
-- method Download::get_progress
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_progress" webkit_download_get_progress ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO CDouble
downloadGetProgress ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m Double
downloadGetProgress _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_progress _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Download::get_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DownloadStatus"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_status" webkit_download_get_status ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO CUInt
downloadGetStatus ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m DownloadStatus
downloadGetStatus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_status _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Download::get_suggested_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_suggested_filename" webkit_download_get_suggested_filename ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO CString
downloadGetSuggestedFilename ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m T.Text
downloadGetSuggestedFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_suggested_filename _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Download::get_total_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_total_size" webkit_download_get_total_size ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO Word64
downloadGetTotalSize ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m Word64
downloadGetTotalSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_total_size _obj'
touchManagedPtr _obj
return result
-- method Download::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_get_uri" webkit_download_get_uri ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO CString
downloadGetUri ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m T.Text
downloadGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_download_get_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method Download::set_destination_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destination_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_set_destination_uri" webkit_download_set_destination_uri ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
CString -> -- destination_uri : TBasicType TUTF8
IO ()
downloadSetDestinationUri ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
T.Text -> -- destination_uri
m ()
downloadSetDestinationUri _obj destination_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
destination_uri' <- textToCString destination_uri
webkit_download_set_destination_uri _obj' destination_uri'
touchManagedPtr _obj
freeMem destination_uri'
return ()
-- method Download::start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "Download", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_download_start" webkit_download_start ::
Ptr Download -> -- _obj : TInterface "WebKit" "Download"
IO ()
downloadStart ::
(MonadIO m, DownloadK a) =>
a -> -- _obj
m ()
downloadStart _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_download_start _obj'
touchManagedPtr _obj
return ()
-- signal Download::error
type DownloadErrorCallback =
Int32 ->
Int32 ->
T.Text ->
IO Bool
noDownloadErrorCallback :: Maybe DownloadErrorCallback
noDownloadErrorCallback = Nothing
type DownloadErrorCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
CString ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkDownloadErrorCallback :: DownloadErrorCallbackC -> IO (FunPtr DownloadErrorCallbackC)
downloadErrorClosure :: DownloadErrorCallback -> IO Closure
downloadErrorClosure cb = newCClosure =<< mkDownloadErrorCallback wrapped
where wrapped = downloadErrorCallbackWrapper cb
downloadErrorCallbackWrapper ::
DownloadErrorCallback ->
Ptr () ->
Int32 ->
Int32 ->
CString ->
Ptr () ->
IO CInt
downloadErrorCallbackWrapper _cb _ error_code error_detail reason _ = do
reason' <- cstringToText reason
result <- _cb error_code error_detail reason'
let result' = (fromIntegral . fromEnum) result
return result'
onDownloadError :: (GObject a, MonadIO m) => a -> DownloadErrorCallback -> m SignalHandlerId
onDownloadError obj cb = liftIO $ connectDownloadError obj cb SignalConnectBefore
afterDownloadError :: (GObject a, MonadIO m) => a -> DownloadErrorCallback -> m SignalHandlerId
afterDownloadError obj cb = connectDownloadError obj cb SignalConnectAfter
connectDownloadError :: (GObject a, MonadIO m) =>
a -> DownloadErrorCallback -> SignalConnectMode -> m SignalHandlerId
connectDownloadError obj cb after = liftIO $ do
cb' <- mkDownloadErrorCallback (downloadErrorCallbackWrapper cb)
connectSignalFunPtr obj "error" cb' after
-- Enum DownloadError
data DownloadError =
DownloadErrorCancelledByUser
| DownloadErrorDestination
| DownloadErrorNetwork
| AnotherDownloadError Int
deriving (Show, Eq)
instance Enum DownloadError where
fromEnum DownloadErrorCancelledByUser = 0
fromEnum DownloadErrorDestination = 1
fromEnum DownloadErrorNetwork = 2
fromEnum (AnotherDownloadError k) = k
toEnum 0 = DownloadErrorCancelledByUser
toEnum 1 = DownloadErrorDestination
toEnum 2 = DownloadErrorNetwork
toEnum k = AnotherDownloadError k
foreign import ccall "webkit_download_error_get_type" c_webkit_download_error_get_type ::
IO GType
instance BoxedEnum DownloadError where
boxedEnumType _ = c_webkit_download_error_get_type
-- Enum DownloadStatus
data DownloadStatus =
DownloadStatusError
| DownloadStatusCreated
| DownloadStatusStarted
| DownloadStatusCancelled
| DownloadStatusFinished
| AnotherDownloadStatus Int
deriving (Show, Eq)
instance Enum DownloadStatus where
fromEnum DownloadStatusError = -1
fromEnum DownloadStatusCreated = 0
fromEnum DownloadStatusStarted = 1
fromEnum DownloadStatusCancelled = 2
fromEnum DownloadStatusFinished = 3
fromEnum (AnotherDownloadStatus k) = k
toEnum -1 = DownloadStatusError
toEnum 0 = DownloadStatusCreated
toEnum 1 = DownloadStatusStarted
toEnum 2 = DownloadStatusCancelled
toEnum 3 = DownloadStatusFinished
toEnum k = AnotherDownloadStatus k
foreign import ccall "webkit_download_status_get_type" c_webkit_download_status_get_type ::
IO GType
instance BoxedEnum DownloadStatus where
boxedEnumType _ = c_webkit_download_status_get_type
-- Enum EditingBehavior
data EditingBehavior =
EditingBehaviorMac
| EditingBehaviorWindows
| EditingBehaviorUnix
| AnotherEditingBehavior Int
deriving (Show, Eq)
instance Enum EditingBehavior where
fromEnum EditingBehaviorMac = 0
fromEnum EditingBehaviorWindows = 1
fromEnum EditingBehaviorUnix = 2
fromEnum (AnotherEditingBehavior k) = k
toEnum 0 = EditingBehaviorMac
toEnum 1 = EditingBehaviorWindows
toEnum 2 = EditingBehaviorUnix
toEnum k = AnotherEditingBehavior k
foreign import ccall "webkit_editing_behavior_get_type" c_webkit_editing_behavior_get_type ::
IO GType
instance BoxedEnum EditingBehavior where
boxedEnumType _ = c_webkit_editing_behavior_get_type
-- object FaviconDatabase
newtype FaviconDatabase = FaviconDatabase (ForeignPtr FaviconDatabase)
noFaviconDatabase :: Maybe FaviconDatabase
noFaviconDatabase = Nothing
foreign import ccall "webkit_favicon_database_get_type"
c_webkit_favicon_database_get_type :: IO GType
type instance ParentTypes FaviconDatabase = '[GObject.Object]
instance GObject FaviconDatabase where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_favicon_database_get_type
class GObject o => FaviconDatabaseK o
instance (GObject o, IsDescendantOf FaviconDatabase o) => FaviconDatabaseK o
toFaviconDatabase :: FaviconDatabaseK o => o -> IO FaviconDatabase
toFaviconDatabase = unsafeCastTo FaviconDatabase
-- method FaviconDatabase::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_favicon_database_clear" webkit_favicon_database_clear ::
Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase"
IO ()
faviconDatabaseClear ::
(MonadIO m, FaviconDatabaseK a) =>
a -> -- _obj
m ()
faviconDatabaseClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_favicon_database_clear _obj'
touchManagedPtr _obj
return ()
-- method FaviconDatabase::get_favicon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_favicon_database_get_favicon_pixbuf" webkit_favicon_database_get_favicon_pixbuf ::
Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase"
CString -> -- page_uri : TBasicType TUTF8
Word32 -> -- width : TBasicType TUInt32
Word32 -> -- height : TBasicType TUInt32
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
faviconDatabaseGetFaviconPixbuf ::
(MonadIO m, FaviconDatabaseK a, Gio.CancellableK b) =>
a -> -- _obj
T.Text -> -- page_uri
Word32 -> -- width
Word32 -> -- height
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
faviconDatabaseGetFaviconPixbuf _obj page_uri width height cancellable callback = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
page_uri' <- textToCString page_uri
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocBytes $ sizeOf (undefined :: FunPtr Gio.AsyncReadyCallbackC)
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
webkit_favicon_database_get_favicon_pixbuf _obj' page_uri' width height maybeCancellable maybeCallback user_data
touchManagedPtr _obj
whenJust cancellable touchManagedPtr
freeMem page_uri'
return ()
-- method FaviconDatabase::get_favicon_pixbuf_finish
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_favicon_database_get_favicon_pixbuf_finish" webkit_favicon_database_get_favicon_pixbuf_finish ::
Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase"
Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO (Ptr GdkPixbuf.Pixbuf)
faviconDatabaseGetFaviconPixbufFinish ::
(MonadIO m, FaviconDatabaseK a, Gio.AsyncResultK b) =>
a -> -- _obj
b -> -- result
m GdkPixbuf.Pixbuf
faviconDatabaseGetFaviconPixbufFinish _obj result_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let result_' = unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ webkit_favicon_database_get_favicon_pixbuf_finish _obj' result_'
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
touchManagedPtr result_
return result'
) (do
return ()
)
-- method FaviconDatabase::get_favicon_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", 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_favicon_database_get_favicon_uri" webkit_favicon_database_get_favicon_uri ::
Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase"
CString -> -- page_uri : TBasicType TUTF8
IO CString
faviconDatabaseGetFaviconUri ::
(MonadIO m, FaviconDatabaseK a) =>
a -> -- _obj
T.Text -> -- page_uri
m T.Text
faviconDatabaseGetFaviconUri _obj page_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
page_uri' <- textToCString page_uri
result <- webkit_favicon_database_get_favicon_uri _obj' page_uri'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem page_uri'
return result'
-- method FaviconDatabase::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_favicon_database_get_path" webkit_favicon_database_get_path ::
Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase"
IO CString
faviconDatabaseGetPath ::
(MonadIO m, FaviconDatabaseK a) =>
a -> -- _obj
m T.Text
faviconDatabaseGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_favicon_database_get_path _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FaviconDatabase::set_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_favicon_database_set_path" webkit_favicon_database_set_path ::
Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase"
CString -> -- path : TBasicType TUTF8
IO ()
faviconDatabaseSetPath ::
(MonadIO m, FaviconDatabaseK a) =>
a -> -- _obj
Maybe (T.Text) -> -- path
m ()
faviconDatabaseSetPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePath <- case path of
Nothing -> return nullPtr
Just jPath -> do
jPath' <- textToCString jPath
return jPath'
webkit_favicon_database_set_path _obj' maybePath
touchManagedPtr _obj
freeMem maybePath
return ()
-- method FaviconDatabase::try_get_favicon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FaviconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_favicon_database_try_get_favicon_pixbuf" webkit_favicon_database_try_get_favicon_pixbuf ::
Ptr FaviconDatabase -> -- _obj : TInterface "WebKit" "FaviconDatabase"
CString -> -- page_uri : TBasicType TUTF8
Word32 -> -- width : TBasicType TUInt32
Word32 -> -- height : TBasicType TUInt32
IO (Ptr GdkPixbuf.Pixbuf)
faviconDatabaseTryGetFaviconPixbuf ::
(MonadIO m, FaviconDatabaseK a) =>
a -> -- _obj
T.Text -> -- page_uri
Word32 -> -- width
Word32 -> -- height
m GdkPixbuf.Pixbuf
faviconDatabaseTryGetFaviconPixbuf _obj page_uri width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
page_uri' <- textToCString page_uri
result <- webkit_favicon_database_try_get_favicon_pixbuf _obj' page_uri' width height
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem page_uri'
return result'
-- signal FaviconDatabase::icon-loaded
type FaviconDatabaseIconLoadedCallback =
T.Text ->
IO ()
noFaviconDatabaseIconLoadedCallback :: Maybe FaviconDatabaseIconLoadedCallback
noFaviconDatabaseIconLoadedCallback = Nothing
type FaviconDatabaseIconLoadedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkFaviconDatabaseIconLoadedCallback :: FaviconDatabaseIconLoadedCallbackC -> IO (FunPtr FaviconDatabaseIconLoadedCallbackC)
faviconDatabaseIconLoadedClosure :: FaviconDatabaseIconLoadedCallback -> IO Closure
faviconDatabaseIconLoadedClosure cb = newCClosure =<< mkFaviconDatabaseIconLoadedCallback wrapped
where wrapped = faviconDatabaseIconLoadedCallbackWrapper cb
faviconDatabaseIconLoadedCallbackWrapper ::
FaviconDatabaseIconLoadedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
faviconDatabaseIconLoadedCallbackWrapper _cb _ frame_uri _ = do
frame_uri' <- cstringToText frame_uri
_cb frame_uri'
onFaviconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> FaviconDatabaseIconLoadedCallback -> m SignalHandlerId
onFaviconDatabaseIconLoaded obj cb = liftIO $ connectFaviconDatabaseIconLoaded obj cb SignalConnectBefore
afterFaviconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> FaviconDatabaseIconLoadedCallback -> m SignalHandlerId
afterFaviconDatabaseIconLoaded obj cb = connectFaviconDatabaseIconLoaded obj cb SignalConnectAfter
connectFaviconDatabaseIconLoaded :: (GObject a, MonadIO m) =>
a -> FaviconDatabaseIconLoadedCallback -> SignalConnectMode -> m SignalHandlerId
connectFaviconDatabaseIconLoaded obj cb after = liftIO $ do
cb' <- mkFaviconDatabaseIconLoadedCallback (faviconDatabaseIconLoadedCallbackWrapper cb)
connectSignalFunPtr obj "icon-loaded" cb' after
-- object FileChooserRequest
newtype FileChooserRequest = FileChooserRequest (ForeignPtr FileChooserRequest)
noFileChooserRequest :: Maybe FileChooserRequest
noFileChooserRequest = Nothing
foreign import ccall "webkit_file_chooser_request_get_type"
c_webkit_file_chooser_request_get_type :: IO GType
type instance ParentTypes FileChooserRequest = '[GObject.Object]
instance GObject FileChooserRequest where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_file_chooser_request_get_type
class GObject o => FileChooserRequestK o
instance (GObject o, IsDescendantOf FileChooserRequest o) => FileChooserRequestK o
toFileChooserRequest :: FileChooserRequestK o => o -> IO FileChooserRequest
toFileChooserRequest = unsafeCastTo FileChooserRequest
-- method FileChooserRequest::get_mime_types
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "webkit_file_chooser_request_get_mime_types" webkit_file_chooser_request_get_mime_types ::
Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest"
IO (Ptr CString)
fileChooserRequestGetMimeTypes ::
(MonadIO m, FileChooserRequestK a) =>
a -> -- _obj
m [T.Text]
fileChooserRequestGetMimeTypes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_file_chooser_request_get_mime_types _obj'
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr _obj
return result'
-- method FileChooserRequest::get_mime_types_filter
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "FileFilter"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_file_chooser_request_get_mime_types_filter" webkit_file_chooser_request_get_mime_types_filter ::
Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest"
IO (Ptr Gtk.FileFilter)
fileChooserRequestGetMimeTypesFilter ::
(MonadIO m, FileChooserRequestK a) =>
a -> -- _obj
m Gtk.FileFilter
fileChooserRequestGetMimeTypesFilter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_file_chooser_request_get_mime_types_filter _obj'
result' <- (newObject Gtk.FileFilter) result
touchManagedPtr _obj
return result'
-- method FileChooserRequest::get_select_multiple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_file_chooser_request_get_select_multiple" webkit_file_chooser_request_get_select_multiple ::
Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest"
IO CInt
fileChooserRequestGetSelectMultiple ::
(MonadIO m, FileChooserRequestK a) =>
a -> -- _obj
m Bool
fileChooserRequestGetSelectMultiple _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_file_chooser_request_get_select_multiple _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileChooserRequest::get_selected_files
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "webkit_file_chooser_request_get_selected_files" webkit_file_chooser_request_get_selected_files ::
Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest"
IO (Ptr CString)
fileChooserRequestGetSelectedFiles ::
(MonadIO m, FileChooserRequestK a) =>
a -> -- _obj
m [T.Text]
fileChooserRequestGetSelectedFiles _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_file_chooser_request_get_selected_files _obj'
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr _obj
return result'
-- method FileChooserRequest::select_files
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "FileChooserRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "files", argType = TCArray True (-1) (-1) (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_file_chooser_request_select_files" webkit_file_chooser_request_select_files ::
Ptr FileChooserRequest -> -- _obj : TInterface "WebKit" "FileChooserRequest"
Ptr CString -> -- files : TCArray True (-1) (-1) (TBasicType TUTF8)
IO ()
fileChooserRequestSelectFiles ::
(MonadIO m, FileChooserRequestK a) =>
a -> -- _obj
[T.Text] -> -- files
m ()
fileChooserRequestSelectFiles _obj files = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
files' <- packZeroTerminatedUTF8CArray files
webkit_file_chooser_request_select_files _obj' files'
touchManagedPtr _obj
mapZeroTerminatedCArray freeMem files'
freeMem files'
return ()
-- object GeolocationPolicyDecision
newtype GeolocationPolicyDecision = GeolocationPolicyDecision (ForeignPtr GeolocationPolicyDecision)
noGeolocationPolicyDecision :: Maybe GeolocationPolicyDecision
noGeolocationPolicyDecision = Nothing
foreign import ccall "webkit_geolocation_policy_decision_get_type"
c_webkit_geolocation_policy_decision_get_type :: IO GType
type instance ParentTypes GeolocationPolicyDecision = '[GObject.Object]
instance GObject GeolocationPolicyDecision where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_geolocation_policy_decision_get_type
class GObject o => GeolocationPolicyDecisionK o
instance (GObject o, IsDescendantOf GeolocationPolicyDecision o) => GeolocationPolicyDecisionK o
toGeolocationPolicyDecision :: GeolocationPolicyDecisionK o => o -> IO GeolocationPolicyDecision
toGeolocationPolicyDecision = unsafeCastTo GeolocationPolicyDecision
-- object HitTestResult
newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult)
noHitTestResult :: Maybe HitTestResult
noHitTestResult = Nothing
foreign import ccall "webkit_hit_test_result_get_type"
c_webkit_hit_test_result_get_type :: IO GType
type instance ParentTypes HitTestResult = '[GObject.Object]
instance GObject HitTestResult where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_hit_test_result_get_type
class GObject o => HitTestResultK o
instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o
toHitTestResult :: HitTestResultK o => o -> IO HitTestResult
toHitTestResult = unsafeCastTo HitTestResult
-- Flags HitTestResultContext
data HitTestResultContext =
HitTestResultContextDocument
| HitTestResultContextLink
| HitTestResultContextImage
| HitTestResultContextMedia
| HitTestResultContextSelection
| HitTestResultContextEditable
| AnotherHitTestResultContext Int
deriving (Show, Eq)
instance Enum HitTestResultContext where
fromEnum HitTestResultContextDocument = 2
fromEnum HitTestResultContextLink = 4
fromEnum HitTestResultContextImage = 8
fromEnum HitTestResultContextMedia = 16
fromEnum HitTestResultContextSelection = 32
fromEnum HitTestResultContextEditable = 64
fromEnum (AnotherHitTestResultContext k) = k
toEnum 2 = HitTestResultContextDocument
toEnum 4 = HitTestResultContextLink
toEnum 8 = HitTestResultContextImage
toEnum 16 = HitTestResultContextMedia
toEnum 32 = HitTestResultContextSelection
toEnum 64 = HitTestResultContextEditable
toEnum k = AnotherHitTestResultContext k
foreign import ccall "webkit_hit_test_result_context_get_type" c_webkit_hit_test_result_context_get_type ::
IO GType
instance BoxedEnum HitTestResultContext where
boxedEnumType _ = c_webkit_hit_test_result_context_get_type
instance IsGFlag HitTestResultContext
-- object IconDatabase
newtype IconDatabase = IconDatabase (ForeignPtr IconDatabase)
noIconDatabase :: Maybe IconDatabase
noIconDatabase = Nothing
foreign import ccall "webkit_icon_database_get_type"
c_webkit_icon_database_get_type :: IO GType
type instance ParentTypes IconDatabase = '[GObject.Object]
instance GObject IconDatabase where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_icon_database_get_type
class GObject o => IconDatabaseK o
instance (GObject o, IsDescendantOf IconDatabase o) => IconDatabaseK o
toIconDatabase :: IconDatabaseK o => o -> IO IconDatabase
toIconDatabase = unsafeCastTo IconDatabase
-- method IconDatabase::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_icon_database_clear" webkit_icon_database_clear ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
IO ()
{-# DEPRECATED iconDatabaseClear ["(Since version 1.8)","Use webkit_favicon_database_clear() instead."]#-}
iconDatabaseClear ::
(MonadIO m, IconDatabaseK a) =>
a -> -- _obj
m ()
iconDatabaseClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_icon_database_clear _obj'
touchManagedPtr _obj
return ()
-- method IconDatabase::get_icon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_icon_database_get_icon_pixbuf" webkit_icon_database_get_icon_pixbuf ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
CString -> -- page_uri : TBasicType TUTF8
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED iconDatabaseGetIconPixbuf ["(Since version 1.8)","Use webkit_favicon_database_try_get_favicon_pixbuf() instead."]#-}
iconDatabaseGetIconPixbuf ::
(MonadIO m, IconDatabaseK a) =>
a -> -- _obj
T.Text -> -- page_uri
m GdkPixbuf.Pixbuf
iconDatabaseGetIconPixbuf _obj page_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
page_uri' <- textToCString page_uri
result <- webkit_icon_database_get_icon_pixbuf _obj' page_uri'
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
freeMem page_uri'
return result'
-- method IconDatabase::get_icon_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_uri", 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_icon_database_get_icon_uri" webkit_icon_database_get_icon_uri ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
CString -> -- page_uri : TBasicType TUTF8
IO CString
{-# DEPRECATED iconDatabaseGetIconUri ["(Since version 1.8)","Use webkit_favicon_database_get_favicon_uri() instead."]#-}
iconDatabaseGetIconUri ::
(MonadIO m, IconDatabaseK a) =>
a -> -- _obj
T.Text -> -- page_uri
m T.Text
iconDatabaseGetIconUri _obj page_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
page_uri' <- textToCString page_uri
result <- webkit_icon_database_get_icon_uri _obj' page_uri'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem page_uri'
return result'
-- method IconDatabase::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_icon_database_get_path" webkit_icon_database_get_path ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
IO CString
{-# DEPRECATED iconDatabaseGetPath ["(Since version 1.8)","Use webkit_favicon_database_get_path() instead."]#-}
iconDatabaseGetPath ::
(MonadIO m, IconDatabaseK a) =>
a -> -- _obj
m T.Text
iconDatabaseGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_icon_database_get_path _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method IconDatabase::set_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "IconDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_icon_database_set_path" webkit_icon_database_set_path ::
Ptr IconDatabase -> -- _obj : TInterface "WebKit" "IconDatabase"
CString -> -- path : TBasicType TUTF8
IO ()
{-# DEPRECATED iconDatabaseSetPath ["(Since version 1.8)","Use webkit_favicon_database_set_path() instead."]#-}
iconDatabaseSetPath ::
(MonadIO m, IconDatabaseK a) =>
a -> -- _obj
T.Text -> -- path
m ()
iconDatabaseSetPath _obj path = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
path' <- textToCString path
webkit_icon_database_set_path _obj' path'
touchManagedPtr _obj
freeMem path'
return ()
-- signal IconDatabase::icon-loaded
type IconDatabaseIconLoadedCallback =
WebFrame ->
T.Text ->
IO ()
noIconDatabaseIconLoadedCallback :: Maybe IconDatabaseIconLoadedCallback
noIconDatabaseIconLoadedCallback = Nothing
type IconDatabaseIconLoadedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkIconDatabaseIconLoadedCallback :: IconDatabaseIconLoadedCallbackC -> IO (FunPtr IconDatabaseIconLoadedCallbackC)
iconDatabaseIconLoadedClosure :: IconDatabaseIconLoadedCallback -> IO Closure
iconDatabaseIconLoadedClosure cb = newCClosure =<< mkIconDatabaseIconLoadedCallback wrapped
where wrapped = iconDatabaseIconLoadedCallbackWrapper cb
iconDatabaseIconLoadedCallbackWrapper ::
IconDatabaseIconLoadedCallback ->
Ptr () ->
Ptr WebFrame ->
CString ->
Ptr () ->
IO ()
iconDatabaseIconLoadedCallbackWrapper _cb _ frame frame_uri _ = do
frame' <- (newObject WebFrame) frame
frame_uri' <- cstringToText frame_uri
_cb frame' frame_uri'
onIconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> IconDatabaseIconLoadedCallback -> m SignalHandlerId
onIconDatabaseIconLoaded obj cb = liftIO $ connectIconDatabaseIconLoaded obj cb SignalConnectBefore
afterIconDatabaseIconLoaded :: (GObject a, MonadIO m) => a -> IconDatabaseIconLoadedCallback -> m SignalHandlerId
afterIconDatabaseIconLoaded obj cb = connectIconDatabaseIconLoaded obj cb SignalConnectAfter
connectIconDatabaseIconLoaded :: (GObject a, MonadIO m) =>
a -> IconDatabaseIconLoadedCallback -> SignalConnectMode -> m SignalHandlerId
connectIconDatabaseIconLoaded obj cb after = liftIO $ do
cb' <- mkIconDatabaseIconLoadedCallback (iconDatabaseIconLoadedCallbackWrapper cb)
connectSignalFunPtr obj "icon-loaded" cb' after
-- Enum InsertAction
data InsertAction =
InsertActionTyped
| InsertActionPasted
| InsertActionDropped
| AnotherInsertAction Int
deriving (Show, Eq)
instance Enum InsertAction where
fromEnum InsertActionTyped = 0
fromEnum InsertActionPasted = 1
fromEnum InsertActionDropped = 2
fromEnum (AnotherInsertAction k) = k
toEnum 0 = InsertActionTyped
toEnum 1 = InsertActionPasted
toEnum 2 = InsertActionDropped
toEnum k = AnotherInsertAction k
foreign import ccall "webkit_insert_action_get_type" c_webkit_insert_action_get_type ::
IO GType
instance BoxedEnum InsertAction where
boxedEnumType _ = c_webkit_insert_action_get_type
-- Enum LoadStatus
data LoadStatus =
LoadStatusProvisional
| LoadStatusCommitted
| LoadStatusFinished
| LoadStatusFirstVisuallyNonEmptyLayout
| LoadStatusFailed
| AnotherLoadStatus Int
deriving (Show, Eq)
instance Enum LoadStatus where
fromEnum LoadStatusProvisional = 0
fromEnum LoadStatusCommitted = 1
fromEnum LoadStatusFinished = 2
fromEnum LoadStatusFirstVisuallyNonEmptyLayout = 3
fromEnum LoadStatusFailed = 4
fromEnum (AnotherLoadStatus k) = k
toEnum 0 = LoadStatusProvisional
toEnum 1 = LoadStatusCommitted
toEnum 2 = LoadStatusFinished
toEnum 3 = LoadStatusFirstVisuallyNonEmptyLayout
toEnum 4 = LoadStatusFailed
toEnum k = AnotherLoadStatus k
foreign import ccall "webkit_load_status_get_type" c_webkit_load_status_get_type ::
IO GType
instance BoxedEnum LoadStatus where
boxedEnumType _ = c_webkit_load_status_get_type
-- Enum NavigationResponse
data NavigationResponse =
NavigationResponseAccept
| NavigationResponseIgnore
| NavigationResponseDownload
| AnotherNavigationResponse Int
deriving (Show, Eq)
instance Enum NavigationResponse where
fromEnum NavigationResponseAccept = 0
fromEnum NavigationResponseIgnore = 1
fromEnum NavigationResponseDownload = 2
fromEnum (AnotherNavigationResponse k) = k
toEnum 0 = NavigationResponseAccept
toEnum 1 = NavigationResponseIgnore
toEnum 2 = NavigationResponseDownload
toEnum k = AnotherNavigationResponse k
foreign import ccall "webkit_navigation_response_get_type" c_webkit_navigation_response_get_type ::
IO GType
instance BoxedEnum NavigationResponse where
boxedEnumType _ = c_webkit_navigation_response_get_type
-- Enum NetworkError
data NetworkError =
NetworkErrorFailed
| NetworkErrorTransport
| NetworkErrorUnknownProtocol
| NetworkErrorCancelled
| NetworkErrorFileDoesNotExist
| AnotherNetworkError Int
deriving (Show, Eq)
instance Enum NetworkError where
fromEnum NetworkErrorFailed = 399
fromEnum NetworkErrorTransport = 300
fromEnum NetworkErrorUnknownProtocol = 301
fromEnum NetworkErrorCancelled = 302
fromEnum NetworkErrorFileDoesNotExist = 303
fromEnum (AnotherNetworkError k) = k
toEnum 300 = NetworkErrorTransport
toEnum 301 = NetworkErrorUnknownProtocol
toEnum 302 = NetworkErrorCancelled
toEnum 303 = NetworkErrorFileDoesNotExist
toEnum 399 = NetworkErrorFailed
toEnum k = AnotherNetworkError k
instance GErrorClass NetworkError where
gerrorClassDomain _ = "WebKitNetworkError"
catchNetworkError ::
IO a ->
(NetworkError -> GErrorMessage -> IO a) ->
IO a
catchNetworkError = catchGErrorJustDomain
handleNetworkError ::
(NetworkError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handleNetworkError = handleGErrorJustDomain
foreign import ccall "webkit_network_error_get_type" c_webkit_network_error_get_type ::
IO GType
instance BoxedEnum NetworkError where
boxedEnumType _ = c_webkit_network_error_get_type
-- object NetworkRequest
newtype NetworkRequest = NetworkRequest (ForeignPtr NetworkRequest)
noNetworkRequest :: Maybe NetworkRequest
noNetworkRequest = Nothing
foreign import ccall "webkit_network_request_get_type"
c_webkit_network_request_get_type :: IO GType
type instance ParentTypes NetworkRequest = '[GObject.Object]
instance GObject NetworkRequest where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_network_request_get_type
class GObject o => NetworkRequestK o
instance (GObject o, IsDescendantOf NetworkRequest o) => NetworkRequestK o
toNetworkRequest :: NetworkRequestK o => o -> IO NetworkRequest
toNetworkRequest = unsafeCastTo NetworkRequest
-- method NetworkRequest::new
-- method type : Constructor
-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "NetworkRequest"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_request_new" webkit_network_request_new ::
CString -> -- uri : TBasicType TUTF8
IO (Ptr NetworkRequest)
networkRequestNew ::
(MonadIO m) =>
T.Text -> -- uri
m NetworkRequest
networkRequestNew uri = liftIO $ do
uri' <- textToCString uri
result <- webkit_network_request_new uri'
result' <- (wrapObject NetworkRequest) result
freeMem uri'
return result'
-- method NetworkRequest::get_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Soup" "Message"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_request_get_message" webkit_network_request_get_message ::
Ptr NetworkRequest -> -- _obj : TInterface "WebKit" "NetworkRequest"
IO (Ptr Soup.Message)
networkRequestGetMessage ::
(MonadIO m, NetworkRequestK a) =>
a -> -- _obj
m Soup.Message
networkRequestGetMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_network_request_get_message _obj'
result' <- (newObject Soup.Message) result
touchManagedPtr _obj
return result'
-- method NetworkRequest::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_request_get_uri" webkit_network_request_get_uri ::
Ptr NetworkRequest -> -- _obj : TInterface "WebKit" "NetworkRequest"
IO CString
networkRequestGetUri ::
(MonadIO m, NetworkRequestK a) =>
a -> -- _obj
m T.Text
networkRequestGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_network_request_get_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method NetworkRequest::set_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_request_set_uri" webkit_network_request_set_uri ::
Ptr NetworkRequest -> -- _obj : TInterface "WebKit" "NetworkRequest"
CString -> -- uri : TBasicType TUTF8
IO ()
networkRequestSetUri ::
(MonadIO m, NetworkRequestK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
networkRequestSetUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
webkit_network_request_set_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- object NetworkResponse
newtype NetworkResponse = NetworkResponse (ForeignPtr NetworkResponse)
noNetworkResponse :: Maybe NetworkResponse
noNetworkResponse = Nothing
foreign import ccall "webkit_network_response_get_type"
c_webkit_network_response_get_type :: IO GType
type instance ParentTypes NetworkResponse = '[GObject.Object]
instance GObject NetworkResponse where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_network_response_get_type
class GObject o => NetworkResponseK o
instance (GObject o, IsDescendantOf NetworkResponse o) => NetworkResponseK o
toNetworkResponse :: NetworkResponseK o => o -> IO NetworkResponse
toNetworkResponse = unsafeCastTo NetworkResponse
-- method NetworkResponse::new
-- method type : Constructor
-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "NetworkResponse"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_response_new" webkit_network_response_new ::
CString -> -- uri : TBasicType TUTF8
IO (Ptr NetworkResponse)
networkResponseNew ::
(MonadIO m) =>
T.Text -> -- uri
m NetworkResponse
networkResponseNew uri = liftIO $ do
uri' <- textToCString uri
result <- webkit_network_response_new uri'
result' <- (wrapObject NetworkResponse) result
freeMem uri'
return result'
-- method NetworkResponse::get_message
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Soup" "Message"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_response_get_message" webkit_network_response_get_message ::
Ptr NetworkResponse -> -- _obj : TInterface "WebKit" "NetworkResponse"
IO (Ptr Soup.Message)
networkResponseGetMessage ::
(MonadIO m, NetworkResponseK a) =>
a -> -- _obj
m Soup.Message
networkResponseGetMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_network_response_get_message _obj'
result' <- (newObject Soup.Message) result
touchManagedPtr _obj
return result'
-- method NetworkResponse::get_suggested_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_response_get_suggested_filename" webkit_network_response_get_suggested_filename ::
Ptr NetworkResponse -> -- _obj : TInterface "WebKit" "NetworkResponse"
IO CString
networkResponseGetSuggestedFilename ::
(MonadIO m, NetworkResponseK a) =>
a -> -- _obj
m T.Text
networkResponseGetSuggestedFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_network_response_get_suggested_filename _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method NetworkResponse::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_response_get_uri" webkit_network_response_get_uri ::
Ptr NetworkResponse -> -- _obj : TInterface "WebKit" "NetworkResponse"
IO CString
networkResponseGetUri ::
(MonadIO m, NetworkResponseK a) =>
a -> -- _obj
m T.Text
networkResponseGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_network_response_get_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method NetworkResponse::set_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "NetworkResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_response_set_uri" webkit_network_response_set_uri ::
Ptr NetworkResponse -> -- _obj : TInterface "WebKit" "NetworkResponse"
CString -> -- uri : TBasicType TUTF8
IO ()
networkResponseSetUri ::
(MonadIO m, NetworkResponseK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
networkResponseSetUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
webkit_network_response_set_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- Enum PluginError
data PluginError =
PluginErrorFailed
| PluginErrorCannotFindPlugin
| PluginErrorCannotLoadPlugin
| PluginErrorJavaUnavailable
| PluginErrorConnectionCancelled
| PluginErrorWillHandleLoad
| AnotherPluginError Int
deriving (Show, Eq)
instance Enum PluginError where
fromEnum PluginErrorFailed = 299
fromEnum PluginErrorCannotFindPlugin = 200
fromEnum PluginErrorCannotLoadPlugin = 201
fromEnum PluginErrorJavaUnavailable = 202
fromEnum PluginErrorConnectionCancelled = 203
fromEnum PluginErrorWillHandleLoad = 204
fromEnum (AnotherPluginError k) = k
toEnum 200 = PluginErrorCannotFindPlugin
toEnum 201 = PluginErrorCannotLoadPlugin
toEnum 202 = PluginErrorJavaUnavailable
toEnum 203 = PluginErrorConnectionCancelled
toEnum 204 = PluginErrorWillHandleLoad
toEnum 299 = PluginErrorFailed
toEnum k = AnotherPluginError k
instance GErrorClass PluginError where
gerrorClassDomain _ = "WebKitPluginError"
catchPluginError ::
IO a ->
(PluginError -> GErrorMessage -> IO a) ->
IO a
catchPluginError = catchGErrorJustDomain
handlePluginError ::
(PluginError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handlePluginError = handleGErrorJustDomain
foreign import ccall "webkit_plugin_error_get_type" c_webkit_plugin_error_get_type ::
IO GType
instance BoxedEnum PluginError where
boxedEnumType _ = c_webkit_plugin_error_get_type
-- Enum PolicyError
data PolicyError =
PolicyErrorFailed
| PolicyErrorCannotShowMimeType
| PolicyErrorCannotShowUrl
| PolicyErrorFrameLoadInterruptedByPolicyChange
| PolicyErrorCannotUseRestrictedPort
| AnotherPolicyError Int
deriving (Show, Eq)
instance Enum PolicyError where
fromEnum PolicyErrorFailed = 199
fromEnum PolicyErrorCannotShowMimeType = 100
fromEnum PolicyErrorCannotShowUrl = 101
fromEnum PolicyErrorFrameLoadInterruptedByPolicyChange = 102
fromEnum PolicyErrorCannotUseRestrictedPort = 103
fromEnum (AnotherPolicyError k) = k
toEnum 100 = PolicyErrorCannotShowMimeType
toEnum 101 = PolicyErrorCannotShowUrl
toEnum 102 = PolicyErrorFrameLoadInterruptedByPolicyChange
toEnum 103 = PolicyErrorCannotUseRestrictedPort
toEnum 199 = PolicyErrorFailed
toEnum k = AnotherPolicyError k
instance GErrorClass PolicyError where
gerrorClassDomain _ = "WebKitPolicyError"
catchPolicyError ::
IO a ->
(PolicyError -> GErrorMessage -> IO a) ->
IO a
catchPolicyError = catchGErrorJustDomain
handlePolicyError ::
(PolicyError -> GErrorMessage -> IO a) ->
IO a ->
IO a
handlePolicyError = handleGErrorJustDomain
foreign import ccall "webkit_policy_error_get_type" c_webkit_policy_error_get_type ::
IO GType
instance BoxedEnum PolicyError where
boxedEnumType _ = c_webkit_policy_error_get_type
-- object SecurityOrigin
newtype SecurityOrigin = SecurityOrigin (ForeignPtr SecurityOrigin)
noSecurityOrigin :: Maybe SecurityOrigin
noSecurityOrigin = Nothing
foreign import ccall "webkit_security_origin_get_type"
c_webkit_security_origin_get_type :: IO GType
type instance ParentTypes SecurityOrigin = '[GObject.Object]
instance GObject SecurityOrigin where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_security_origin_get_type
class GObject o => SecurityOriginK o
instance (GObject o, IsDescendantOf SecurityOrigin o) => SecurityOriginK o
toSecurityOrigin :: SecurityOriginK o => o -> IO SecurityOrigin
toSecurityOrigin = unsafeCastTo SecurityOrigin
-- method SecurityOrigin::get_all_web_databases
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "WebKit" "WebDatabase")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_security_origin_get_all_web_databases" webkit_security_origin_get_all_web_databases ::
Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin"
IO (Ptr (GList (Ptr WebDatabase)))
securityOriginGetAllWebDatabases ::
(MonadIO m, SecurityOriginK a) =>
a -> -- _obj
m [WebDatabase]
securityOriginGetAllWebDatabases _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_all_web_databases _obj'
result' <- unpackGList result
result'' <- mapM (newObject WebDatabase) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method SecurityOrigin::get_host
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_security_origin_get_host" webkit_security_origin_get_host ::
Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin"
IO CString
securityOriginGetHost ::
(MonadIO m, SecurityOriginK a) =>
a -> -- _obj
m T.Text
securityOriginGetHost _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_host _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method SecurityOrigin::get_port
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_security_origin_get_port" webkit_security_origin_get_port ::
Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin"
IO Word32
securityOriginGetPort ::
(MonadIO m, SecurityOriginK a) =>
a -> -- _obj
m Word32
securityOriginGetPort _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_port _obj'
touchManagedPtr _obj
return result
-- method SecurityOrigin::get_protocol
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_security_origin_get_protocol" webkit_security_origin_get_protocol ::
Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin"
IO CString
securityOriginGetProtocol ::
(MonadIO m, SecurityOriginK a) =>
a -> -- _obj
m T.Text
securityOriginGetProtocol _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_protocol _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method SecurityOrigin::get_web_database_quota
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_security_origin_get_web_database_quota" webkit_security_origin_get_web_database_quota ::
Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin"
IO Word64
securityOriginGetWebDatabaseQuota ::
(MonadIO m, SecurityOriginK a) =>
a -> -- _obj
m Word64
securityOriginGetWebDatabaseQuota _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_web_database_quota _obj'
touchManagedPtr _obj
return result
-- method SecurityOrigin::get_web_database_usage
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_security_origin_get_web_database_usage" webkit_security_origin_get_web_database_usage ::
Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin"
IO Word64
securityOriginGetWebDatabaseUsage ::
(MonadIO m, SecurityOriginK a) =>
a -> -- _obj
m Word64
securityOriginGetWebDatabaseUsage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_security_origin_get_web_database_usage _obj'
touchManagedPtr _obj
return result
-- method SecurityOrigin::set_web_database_quota
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SecurityOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_security_origin_set_web_database_quota" webkit_security_origin_set_web_database_quota ::
Ptr SecurityOrigin -> -- _obj : TInterface "WebKit" "SecurityOrigin"
Word64 -> -- quota : TBasicType TUInt64
IO ()
securityOriginSetWebDatabaseQuota ::
(MonadIO m, SecurityOriginK a) =>
a -> -- _obj
Word64 -> -- quota
m ()
securityOriginSetWebDatabaseQuota _obj quota = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_security_origin_set_web_database_quota _obj' quota
touchManagedPtr _obj
return ()
-- Flags SecurityPolicy
data SecurityPolicy =
SecurityPolicyLocal
| SecurityPolicyNoAccessToOtherScheme
| SecurityPolicyDisplayIsolated
| SecurityPolicySecure
| SecurityPolicyCorsEnabled
| SecurityPolicyEmptyDocument
| AnotherSecurityPolicy Int
deriving (Show, Eq)
instance Enum SecurityPolicy where
fromEnum SecurityPolicyLocal = 2
fromEnum SecurityPolicyNoAccessToOtherScheme = 4
fromEnum SecurityPolicyDisplayIsolated = 8
fromEnum SecurityPolicySecure = 16
fromEnum SecurityPolicyCorsEnabled = 32
fromEnum SecurityPolicyEmptyDocument = 64
fromEnum (AnotherSecurityPolicy k) = k
toEnum 2 = SecurityPolicyLocal
toEnum 4 = SecurityPolicyNoAccessToOtherScheme
toEnum 8 = SecurityPolicyDisplayIsolated
toEnum 16 = SecurityPolicySecure
toEnum 32 = SecurityPolicyCorsEnabled
toEnum 64 = SecurityPolicyEmptyDocument
toEnum k = AnotherSecurityPolicy k
foreign import ccall "webkit_security_policy_get_type" c_webkit_security_policy_get_type ::
IO GType
instance BoxedEnum SecurityPolicy where
boxedEnumType _ = c_webkit_security_policy_get_type
instance IsGFlag SecurityPolicy
-- Enum SelectionAffinity
data SelectionAffinity =
SelectionAffinityUpstream
| SelectionAffinityDownstream
| AnotherSelectionAffinity Int
deriving (Show, Eq)
instance Enum SelectionAffinity where
fromEnum SelectionAffinityUpstream = 0
fromEnum SelectionAffinityDownstream = 1
fromEnum (AnotherSelectionAffinity k) = k
toEnum 0 = SelectionAffinityUpstream
toEnum 1 = SelectionAffinityDownstream
toEnum k = AnotherSelectionAffinity k
foreign import ccall "webkit_selection_affinity_get_type" c_webkit_selection_affinity_get_type ::
IO GType
instance BoxedEnum SelectionAffinity where
boxedEnumType _ = c_webkit_selection_affinity_get_type
-- object SoupAuthDialog
newtype SoupAuthDialog = SoupAuthDialog (ForeignPtr SoupAuthDialog)
noSoupAuthDialog :: Maybe SoupAuthDialog
noSoupAuthDialog = Nothing
foreign import ccall "webkit_soup_auth_dialog_get_type"
c_webkit_soup_auth_dialog_get_type :: IO GType
type instance ParentTypes SoupAuthDialog = '[GObject.Object, Soup.SessionFeature]
instance GObject SoupAuthDialog where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_soup_auth_dialog_get_type
class GObject o => SoupAuthDialogK o
instance (GObject o, IsDescendantOf SoupAuthDialog o) => SoupAuthDialogK o
toSoupAuthDialog :: SoupAuthDialogK o => o -> IO SoupAuthDialog
toSoupAuthDialog = unsafeCastTo SoupAuthDialog
-- signal SoupAuthDialog::current-toplevel
type SoupAuthDialogCurrentToplevelCallback =
Soup.Message ->
IO Gtk.Widget
noSoupAuthDialogCurrentToplevelCallback :: Maybe SoupAuthDialogCurrentToplevelCallback
noSoupAuthDialogCurrentToplevelCallback = Nothing
type SoupAuthDialogCurrentToplevelCallbackC =
Ptr () -> -- object
Ptr Soup.Message ->
Ptr () -> -- user_data
IO (Ptr Gtk.Widget)
foreign import ccall "wrapper"
mkSoupAuthDialogCurrentToplevelCallback :: SoupAuthDialogCurrentToplevelCallbackC -> IO (FunPtr SoupAuthDialogCurrentToplevelCallbackC)
soupAuthDialogCurrentToplevelClosure :: SoupAuthDialogCurrentToplevelCallback -> IO Closure
soupAuthDialogCurrentToplevelClosure cb = newCClosure =<< mkSoupAuthDialogCurrentToplevelCallback wrapped
where wrapped = soupAuthDialogCurrentToplevelCallbackWrapper cb
soupAuthDialogCurrentToplevelCallbackWrapper ::
SoupAuthDialogCurrentToplevelCallback ->
Ptr () ->
Ptr Soup.Message ->
Ptr () ->
IO (Ptr Gtk.Widget)
soupAuthDialogCurrentToplevelCallbackWrapper _cb _ message _ = do
message' <- (newObject Soup.Message) message
result <- _cb message'
let result' = unsafeManagedPtrCastPtr result
return result'
onSoupAuthDialogCurrentToplevel :: (GObject a, MonadIO m) => a -> SoupAuthDialogCurrentToplevelCallback -> m SignalHandlerId
onSoupAuthDialogCurrentToplevel obj cb = liftIO $ connectSoupAuthDialogCurrentToplevel obj cb SignalConnectBefore
afterSoupAuthDialogCurrentToplevel :: (GObject a, MonadIO m) => a -> SoupAuthDialogCurrentToplevelCallback -> m SignalHandlerId
afterSoupAuthDialogCurrentToplevel obj cb = connectSoupAuthDialogCurrentToplevel obj cb SignalConnectAfter
connectSoupAuthDialogCurrentToplevel :: (GObject a, MonadIO m) =>
a -> SoupAuthDialogCurrentToplevelCallback -> SignalConnectMode -> m SignalHandlerId
connectSoupAuthDialogCurrentToplevel obj cb after = liftIO $ do
cb' <- mkSoupAuthDialogCurrentToplevelCallback (soupAuthDialogCurrentToplevelCallbackWrapper cb)
connectSignalFunPtr obj "current-toplevel" cb' after
-- interface SpellChecker
newtype SpellChecker = SpellChecker (ForeignPtr SpellChecker)
noSpellChecker :: Maybe SpellChecker
noSpellChecker = Nothing
foreign import ccall "webkit_spell_checker_get_type"
c_webkit_spell_checker_get_type :: IO GType
type instance ParentTypes SpellChecker = '[GObject.Object]
instance GObject SpellChecker where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_spell_checker_get_type
class GObject o => SpellCheckerK o
instance (GObject o, IsDescendantOf SpellChecker o) => SpellCheckerK o
toSpellChecker :: SpellCheckerK o => o -> IO SpellChecker
toSpellChecker = unsafeCastTo SpellChecker
-- method SpellChecker::check_spelling_of_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", 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 = "misspelling_location", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "misspelling_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", 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 TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_spell_checker_check_spelling_of_string" webkit_spell_checker_check_spelling_of_string ::
Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker"
CString -> -- string : TBasicType TUTF8
Ptr Int32 -> -- misspelling_location : TBasicType TInt32
Ptr Int32 -> -- misspelling_length : TBasicType TInt32
IO ()
spellCheckerCheckSpellingOfString ::
(MonadIO m, SpellCheckerK a) =>
a -> -- _obj
T.Text -> -- string
m (Int32,Int32)
spellCheckerCheckSpellingOfString _obj string = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
string' <- textToCString string
misspelling_location <- allocMem :: IO (Ptr Int32)
misspelling_length <- allocMem :: IO (Ptr Int32)
webkit_spell_checker_check_spelling_of_string _obj' string' misspelling_location misspelling_length
misspelling_location' <- peek misspelling_location
misspelling_length' <- peek misspelling_length
touchManagedPtr _obj
freeMem string'
freeMem misspelling_location
freeMem misspelling_length
return (misspelling_location', misspelling_length')
-- method SpellChecker::get_autocorrect_suggestions_for_misspelled_word
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", 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_spell_checker_get_autocorrect_suggestions_for_misspelled_word" webkit_spell_checker_get_autocorrect_suggestions_for_misspelled_word ::
Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker"
CString -> -- word : TBasicType TUTF8
IO CString
spellCheckerGetAutocorrectSuggestionsForMisspelledWord ::
(MonadIO m, SpellCheckerK a) =>
a -> -- _obj
T.Text -> -- word
m T.Text
spellCheckerGetAutocorrectSuggestionsForMisspelledWord _obj word = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
word' <- textToCString word
result <- webkit_spell_checker_get_autocorrect_suggestions_for_misspelled_word _obj' word'
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem word'
return result'
-- method SpellChecker::get_guesses_for_word
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "webkit_spell_checker_get_guesses_for_word" webkit_spell_checker_get_guesses_for_word ::
Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker"
CString -> -- word : TBasicType TUTF8
CString -> -- context : TBasicType TUTF8
IO (Ptr CString)
spellCheckerGetGuessesForWord ::
(MonadIO m, SpellCheckerK a) =>
a -> -- _obj
T.Text -> -- word
Maybe (T.Text) -> -- context
m [T.Text]
spellCheckerGetGuessesForWord _obj word context = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
word' <- textToCString word
maybeContext <- case context of
Nothing -> return nullPtr
Just jContext -> do
jContext' <- textToCString jContext
return jContext'
result <- webkit_spell_checker_get_guesses_for_word _obj' word' maybeContext
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
freeMem word'
freeMem maybeContext
return result'
-- method SpellChecker::ignore_word
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", 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_spell_checker_ignore_word" webkit_spell_checker_ignore_word ::
Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker"
CString -> -- word : TBasicType TUTF8
IO ()
spellCheckerIgnoreWord ::
(MonadIO m, SpellCheckerK a) =>
a -> -- _obj
T.Text -> -- word
m ()
spellCheckerIgnoreWord _obj word = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
word' <- textToCString word
webkit_spell_checker_ignore_word _obj' word'
touchManagedPtr _obj
freeMem word'
return ()
-- method SpellChecker::learn_word
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "word", 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_spell_checker_learn_word" webkit_spell_checker_learn_word ::
Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker"
CString -> -- word : TBasicType TUTF8
IO ()
spellCheckerLearnWord ::
(MonadIO m, SpellCheckerK a) =>
a -> -- _obj
T.Text -> -- word
m ()
spellCheckerLearnWord _obj word = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
word' <- textToCString word
webkit_spell_checker_learn_word _obj' word'
touchManagedPtr _obj
freeMem word'
return ()
-- method SpellChecker::update_spell_checking_languages
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "languages", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "SpellChecker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "languages", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_spell_checker_update_spell_checking_languages" webkit_spell_checker_update_spell_checking_languages ::
Ptr SpellChecker -> -- _obj : TInterface "WebKit" "SpellChecker"
CString -> -- languages : TBasicType TUTF8
IO ()
spellCheckerUpdateSpellCheckingLanguages ::
(MonadIO m, SpellCheckerK a) =>
a -> -- _obj
Maybe (T.Text) -> -- languages
m ()
spellCheckerUpdateSpellCheckingLanguages _obj languages = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLanguages <- case languages of
Nothing -> return nullPtr
Just jLanguages -> do
jLanguages' <- textToCString jLanguages
return jLanguages'
webkit_spell_checker_update_spell_checking_languages _obj' maybeLanguages
touchManagedPtr _obj
freeMem maybeLanguages
return ()
-- object ViewportAttributes
newtype ViewportAttributes = ViewportAttributes (ForeignPtr ViewportAttributes)
noViewportAttributes :: Maybe ViewportAttributes
noViewportAttributes = Nothing
foreign import ccall "webkit_viewport_attributes_get_type"
c_webkit_viewport_attributes_get_type :: IO GType
type instance ParentTypes ViewportAttributes = '[GObject.Object]
instance GObject ViewportAttributes where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_viewport_attributes_get_type
class GObject o => ViewportAttributesK o
instance (GObject o, IsDescendantOf ViewportAttributes o) => ViewportAttributesK o
toViewportAttributes :: ViewportAttributesK o => o -> IO ViewportAttributes
toViewportAttributes = unsafeCastTo ViewportAttributes
-- method ViewportAttributes::recompute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "ViewportAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "ViewportAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_viewport_attributes_recompute" webkit_viewport_attributes_recompute ::
Ptr ViewportAttributes -> -- _obj : TInterface "WebKit" "ViewportAttributes"
IO ()
viewportAttributesRecompute ::
(MonadIO m, ViewportAttributesK a) =>
a -> -- _obj
m ()
viewportAttributesRecompute _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_viewport_attributes_recompute _obj'
touchManagedPtr _obj
return ()
-- object WebBackForwardList
newtype WebBackForwardList = WebBackForwardList (ForeignPtr WebBackForwardList)
noWebBackForwardList :: Maybe WebBackForwardList
noWebBackForwardList = Nothing
foreign import ccall "webkit_web_back_forward_list_get_type"
c_webkit_web_back_forward_list_get_type :: IO GType
type instance ParentTypes WebBackForwardList = '[GObject.Object]
instance GObject WebBackForwardList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_back_forward_list_get_type
class GObject o => WebBackForwardListK o
instance (GObject o, IsDescendantOf WebBackForwardList o) => WebBackForwardListK o
toWebBackForwardList :: WebBackForwardListK o => o -> IO WebBackForwardList
toWebBackForwardList = unsafeCastTo WebBackForwardList
-- method WebBackForwardList::add_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_add_item" webkit_web_back_forward_list_add_item ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
Ptr WebHistoryItem -> -- history_item : TInterface "WebKit" "WebHistoryItem"
IO ()
webBackForwardListAddItem ::
(MonadIO m, WebBackForwardListK a, WebHistoryItemK b) =>
a -> -- _obj
b -> -- history_item
m ()
webBackForwardListAddItem _obj history_item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let history_item' = unsafeManagedPtrCastPtr history_item
webkit_web_back_forward_list_add_item _obj' history_item'
touchManagedPtr _obj
touchManagedPtr history_item
return ()
-- method WebBackForwardList::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_clear" webkit_web_back_forward_list_clear ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO ()
webBackForwardListClear ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m ()
webBackForwardListClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_back_forward_list_clear _obj'
touchManagedPtr _obj
return ()
-- method WebBackForwardList::contains_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_contains_item" webkit_web_back_forward_list_contains_item ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
Ptr WebHistoryItem -> -- history_item : TInterface "WebKit" "WebHistoryItem"
IO CInt
webBackForwardListContainsItem ::
(MonadIO m, WebBackForwardListK a, WebHistoryItemK b) =>
a -> -- _obj
b -> -- history_item
m Bool
webBackForwardListContainsItem _obj history_item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let history_item' = unsafeManagedPtrCastPtr history_item
result <- webkit_web_back_forward_list_contains_item _obj' history_item'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr history_item
return result'
-- method WebBackForwardList::get_back_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebHistoryItem"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_back_item" webkit_web_back_forward_list_get_back_item ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO (Ptr WebHistoryItem)
webBackForwardListGetBackItem ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m WebHistoryItem
webBackForwardListGetBackItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_back_item _obj'
result' <- (newObject WebHistoryItem) result
touchManagedPtr _obj
return result'
-- method WebBackForwardList::get_back_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_back_length" webkit_web_back_forward_list_get_back_length ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO Int32
webBackForwardListGetBackLength ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m Int32
webBackForwardListGetBackLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_back_length _obj'
touchManagedPtr _obj
return result
-- method WebBackForwardList::get_back_list_with_limit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "WebKit" "WebHistoryItem")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_back_list_with_limit" webkit_web_back_forward_list_get_back_list_with_limit ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
Int32 -> -- limit : TBasicType TInt32
IO (Ptr (GList (Ptr WebHistoryItem)))
webBackForwardListGetBackListWithLimit ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
Int32 -> -- limit
m [WebHistoryItem]
webBackForwardListGetBackListWithLimit _obj limit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_back_list_with_limit _obj' limit
result' <- unpackGList result
result'' <- mapM (newObject WebHistoryItem) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method WebBackForwardList::get_current_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebHistoryItem"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_current_item" webkit_web_back_forward_list_get_current_item ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO (Ptr WebHistoryItem)
webBackForwardListGetCurrentItem ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m WebHistoryItem
webBackForwardListGetCurrentItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_current_item _obj'
result' <- (newObject WebHistoryItem) result
touchManagedPtr _obj
return result'
-- method WebBackForwardList::get_forward_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebHistoryItem"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_forward_item" webkit_web_back_forward_list_get_forward_item ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO (Ptr WebHistoryItem)
webBackForwardListGetForwardItem ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m WebHistoryItem
webBackForwardListGetForwardItem _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_forward_item _obj'
result' <- (newObject WebHistoryItem) result
touchManagedPtr _obj
return result'
-- method WebBackForwardList::get_forward_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_forward_length" webkit_web_back_forward_list_get_forward_length ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO Int32
webBackForwardListGetForwardLength ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m Int32
webBackForwardListGetForwardLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_forward_length _obj'
touchManagedPtr _obj
return result
-- method WebBackForwardList::get_forward_list_with_limit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "WebKit" "WebHistoryItem")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_forward_list_with_limit" webkit_web_back_forward_list_get_forward_list_with_limit ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
Int32 -> -- limit : TBasicType TInt32
IO (Ptr (GList (Ptr WebHistoryItem)))
webBackForwardListGetForwardListWithLimit ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
Int32 -> -- limit
m [WebHistoryItem]
webBackForwardListGetForwardListWithLimit _obj limit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_forward_list_with_limit _obj' limit
result' <- unpackGList result
result'' <- mapM (newObject WebHistoryItem) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method WebBackForwardList::get_limit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_limit" webkit_web_back_forward_list_get_limit ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO Int32
webBackForwardListGetLimit ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m Int32
webBackForwardListGetLimit _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_limit _obj'
touchManagedPtr _obj
return result
-- method WebBackForwardList::get_nth_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebHistoryItem"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_get_nth_item" webkit_web_back_forward_list_get_nth_item ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
Int32 -> -- index : TBasicType TInt32
IO (Ptr WebHistoryItem)
webBackForwardListGetNthItem ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
Int32 -> -- index
m WebHistoryItem
webBackForwardListGetNthItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_back_forward_list_get_nth_item _obj' index
result' <- (newObject WebHistoryItem) result
touchManagedPtr _obj
return result'
-- method WebBackForwardList::go_back
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_go_back" webkit_web_back_forward_list_go_back ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO ()
webBackForwardListGoBack ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m ()
webBackForwardListGoBack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_back_forward_list_go_back _obj'
touchManagedPtr _obj
return ()
-- method WebBackForwardList::go_forward
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_go_forward" webkit_web_back_forward_list_go_forward ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
IO ()
webBackForwardListGoForward ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
m ()
webBackForwardListGoForward _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_back_forward_list_go_forward _obj'
touchManagedPtr _obj
return ()
-- method WebBackForwardList::go_to_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "history_item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_go_to_item" webkit_web_back_forward_list_go_to_item ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
Ptr WebHistoryItem -> -- history_item : TInterface "WebKit" "WebHistoryItem"
IO ()
webBackForwardListGoToItem ::
(MonadIO m, WebBackForwardListK a, WebHistoryItemK b) =>
a -> -- _obj
b -> -- history_item
m ()
webBackForwardListGoToItem _obj history_item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let history_item' = unsafeManagedPtrCastPtr history_item
webkit_web_back_forward_list_go_to_item _obj' history_item'
touchManagedPtr _obj
touchManagedPtr history_item
return ()
-- method WebBackForwardList::set_limit
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebBackForwardList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_back_forward_list_set_limit" webkit_web_back_forward_list_set_limit ::
Ptr WebBackForwardList -> -- _obj : TInterface "WebKit" "WebBackForwardList"
Int32 -> -- limit : TBasicType TInt32
IO ()
webBackForwardListSetLimit ::
(MonadIO m, WebBackForwardListK a) =>
a -> -- _obj
Int32 -> -- limit
m ()
webBackForwardListSetLimit _obj limit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_back_forward_list_set_limit _obj' limit
touchManagedPtr _obj
return ()
-- object WebDataSource
newtype WebDataSource = WebDataSource (ForeignPtr WebDataSource)
noWebDataSource :: Maybe WebDataSource
noWebDataSource = Nothing
foreign import ccall "webkit_web_data_source_get_type"
c_webkit_web_data_source_get_type :: IO GType
type instance ParentTypes WebDataSource = '[GObject.Object]
instance GObject WebDataSource where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_data_source_get_type
class GObject o => WebDataSourceK o
instance (GObject o, IsDescendantOf WebDataSource o) => WebDataSourceK o
toWebDataSource :: WebDataSourceK o => o -> IO WebDataSource
toWebDataSource = unsafeCastTo WebDataSource
-- method WebDataSource::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "WebDataSource"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_new" webkit_web_data_source_new ::
IO (Ptr WebDataSource)
webDataSourceNew ::
(MonadIO m) =>
m WebDataSource
webDataSourceNew = liftIO $ do
result <- webkit_web_data_source_new
result' <- (wrapObject WebDataSource) result
return result'
-- method WebDataSource::new_with_request
-- method type : Constructor
-- Args : [Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebDataSource"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_new_with_request" webkit_web_data_source_new_with_request ::
Ptr NetworkRequest -> -- request : TInterface "WebKit" "NetworkRequest"
IO (Ptr WebDataSource)
webDataSourceNewWithRequest ::
(MonadIO m, NetworkRequestK a) =>
a -> -- request
m WebDataSource
webDataSourceNewWithRequest request = liftIO $ do
let request' = unsafeManagedPtrCastPtr request
result <- webkit_web_data_source_new_with_request request'
result' <- (wrapObject WebDataSource) result
touchManagedPtr request
return result'
-- method WebDataSource::get_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "String"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_get_data" webkit_web_data_source_get_data ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO (Ptr GLib.String)
webDataSourceGetData ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m GLib.String
webDataSourceGetData _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_get_data _obj'
result' <- (newBoxed GLib.String) result
touchManagedPtr _obj
return result'
-- method WebDataSource::get_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_get_encoding" webkit_web_data_source_get_encoding ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO CString
webDataSourceGetEncoding ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m T.Text
webDataSourceGetEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_get_encoding _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebDataSource::get_initial_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "NetworkRequest"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_get_initial_request" webkit_web_data_source_get_initial_request ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO (Ptr NetworkRequest)
webDataSourceGetInitialRequest ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m NetworkRequest
webDataSourceGetInitialRequest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_get_initial_request _obj'
result' <- (newObject NetworkRequest) result
touchManagedPtr _obj
return result'
-- method WebDataSource::get_main_resource
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebResource"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_get_main_resource" webkit_web_data_source_get_main_resource ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO (Ptr WebResource)
webDataSourceGetMainResource ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m WebResource
webDataSourceGetMainResource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_get_main_resource _obj'
result' <- (newObject WebResource) result
touchManagedPtr _obj
return result'
-- method WebDataSource::get_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "NetworkRequest"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_get_request" webkit_web_data_source_get_request ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO (Ptr NetworkRequest)
webDataSourceGetRequest ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m NetworkRequest
webDataSourceGetRequest _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_get_request _obj'
result' <- (newObject NetworkRequest) result
touchManagedPtr _obj
return result'
-- method WebDataSource::get_subresources
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGList (TInterface "WebKit" "WebResource")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_get_subresources" webkit_web_data_source_get_subresources ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO (Ptr (GList (Ptr WebResource)))
webDataSourceGetSubresources ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m [WebResource]
webDataSourceGetSubresources _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_get_subresources _obj'
result' <- unpackGList result
result'' <- mapM (newObject WebResource) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method WebDataSource::get_unreachable_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_get_unreachable_uri" webkit_web_data_source_get_unreachable_uri ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO CString
webDataSourceGetUnreachableUri ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m T.Text
webDataSourceGetUnreachableUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_get_unreachable_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebDataSource::get_web_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebFrame"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_get_web_frame" webkit_web_data_source_get_web_frame ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO (Ptr WebFrame)
webDataSourceGetWebFrame ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m WebFrame
webDataSourceGetWebFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_get_web_frame _obj'
result' <- (newObject WebFrame) result
touchManagedPtr _obj
return result'
-- method WebDataSource::is_loading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDataSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_data_source_is_loading" webkit_web_data_source_is_loading ::
Ptr WebDataSource -> -- _obj : TInterface "WebKit" "WebDataSource"
IO CInt
webDataSourceIsLoading ::
(MonadIO m, WebDataSourceK a) =>
a -> -- _obj
m Bool
webDataSourceIsLoading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_data_source_is_loading _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- object WebDatabase
newtype WebDatabase = WebDatabase (ForeignPtr WebDatabase)
noWebDatabase :: Maybe WebDatabase
noWebDatabase = Nothing
foreign import ccall "webkit_web_database_get_type"
c_webkit_web_database_get_type :: IO GType
type instance ParentTypes WebDatabase = '[GObject.Object]
instance GObject WebDatabase where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_database_get_type
class GObject o => WebDatabaseK o
instance (GObject o, IsDescendantOf WebDatabase o) => WebDatabaseK o
toWebDatabase :: WebDatabaseK o => o -> IO WebDatabase
toWebDatabase = unsafeCastTo WebDatabase
-- method WebDatabase::get_display_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_database_get_display_name" webkit_web_database_get_display_name ::
Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase"
IO CString
webDatabaseGetDisplayName ::
(MonadIO m, WebDatabaseK a) =>
a -> -- _obj
m T.Text
webDatabaseGetDisplayName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_database_get_display_name _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebDatabase::get_expected_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_database_get_expected_size" webkit_web_database_get_expected_size ::
Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase"
IO Word64
webDatabaseGetExpectedSize ::
(MonadIO m, WebDatabaseK a) =>
a -> -- _obj
m Word64
webDatabaseGetExpectedSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_database_get_expected_size _obj'
touchManagedPtr _obj
return result
-- method WebDatabase::get_filename
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_database_get_filename" webkit_web_database_get_filename ::
Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase"
IO CString
webDatabaseGetFilename ::
(MonadIO m, WebDatabaseK a) =>
a -> -- _obj
m T.Text
webDatabaseGetFilename _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_database_get_filename _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebDatabase::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_database_get_name" webkit_web_database_get_name ::
Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase"
IO CString
webDatabaseGetName ::
(MonadIO m, WebDatabaseK a) =>
a -> -- _obj
m T.Text
webDatabaseGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_database_get_name _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebDatabase::get_security_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "SecurityOrigin"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_database_get_security_origin" webkit_web_database_get_security_origin ::
Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase"
IO (Ptr SecurityOrigin)
webDatabaseGetSecurityOrigin ::
(MonadIO m, WebDatabaseK a) =>
a -> -- _obj
m SecurityOrigin
webDatabaseGetSecurityOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_database_get_security_origin _obj'
result' <- (newObject SecurityOrigin) result
touchManagedPtr _obj
return result'
-- method WebDatabase::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_database_get_size" webkit_web_database_get_size ::
Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase"
IO Word64
webDatabaseGetSize ::
(MonadIO m, WebDatabaseK a) =>
a -> -- _obj
m Word64
webDatabaseGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_database_get_size _obj'
touchManagedPtr _obj
return result
-- method WebDatabase::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_database_remove" webkit_web_database_remove ::
Ptr WebDatabase -> -- _obj : TInterface "WebKit" "WebDatabase"
IO ()
webDatabaseRemove ::
(MonadIO m, WebDatabaseK a) =>
a -> -- _obj
m ()
webDatabaseRemove _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_database_remove _obj'
touchManagedPtr _obj
return ()
-- object WebFrame
newtype WebFrame = WebFrame (ForeignPtr WebFrame)
noWebFrame :: Maybe WebFrame
noWebFrame = Nothing
foreign import ccall "webkit_web_frame_get_type"
c_webkit_web_frame_get_type :: IO GType
type instance ParentTypes WebFrame = '[GObject.Object]
instance GObject WebFrame where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_frame_get_type
class GObject o => WebFrameK o
instance (GObject o, IsDescendantOf WebFrame o) => WebFrameK o
toWebFrame :: WebFrameK o => o -> IO WebFrame
toWebFrame = unsafeCastTo WebFrame
-- method WebFrame::new
-- method type : Constructor
-- Args : [Arg {argName = "web_view", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "web_view", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebFrame"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_new" webkit_web_frame_new ::
Ptr WebView -> -- web_view : TInterface "WebKit" "WebView"
IO (Ptr WebFrame)
{-# DEPRECATED webFrameNew ["(Since version 1.0.2)","#WebKitWebFrame can only be used to inspect existing","frames."]#-}
webFrameNew ::
(MonadIO m, WebViewK a) =>
a -> -- web_view
m WebFrame
webFrameNew web_view = liftIO $ do
let web_view' = unsafeManagedPtrCastPtr web_view
result <- webkit_web_frame_new web_view'
result' <- (wrapObject WebFrame) result
touchManagedPtr web_view
return result'
-- method WebFrame::find_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebFrame"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_find_frame" webkit_web_frame_find_frame ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
CString -> -- name : TBasicType TUTF8
IO (Ptr WebFrame)
webFrameFindFrame ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
T.Text -> -- name
m WebFrame
webFrameFindFrame _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_web_frame_find_frame _obj' name'
result' <- (newObject WebFrame) result
touchManagedPtr _obj
freeMem name'
return result'
-- method WebFrame::get_data_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebDataSource"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_data_source" webkit_web_frame_get_data_source ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr WebDataSource)
webFrameGetDataSource ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m WebDataSource
webFrameGetDataSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_data_source _obj'
result' <- (newObject WebDataSource) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_dom_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", 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_web_frame_get_dom_document" webkit_web_frame_get_dom_document ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr DOMDocument)
webFrameGetDomDocument ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m DOMDocument
webFrameGetDomDocument _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_dom_document _obj'
result' <- (newObject DOMDocument) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_global_context
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "JavaScriptCore" "GlobalContext"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_global_context" webkit_web_frame_get_global_context ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr JavaScriptCore.GlobalContext)
webFrameGetGlobalContext ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m JavaScriptCore.GlobalContext
webFrameGetGlobalContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_global_context _obj'
-- XXX Wrapping a foreign struct/union with no known destructor, leak?
result' <- (\x -> JavaScriptCore.GlobalContext <$> newForeignPtr_ x) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_horizontal_scrollbar_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PolicyType"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_horizontal_scrollbar_policy" webkit_web_frame_get_horizontal_scrollbar_policy ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO CUInt
webFrameGetHorizontalScrollbarPolicy ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m Gtk.PolicyType
webFrameGetHorizontalScrollbarPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_horizontal_scrollbar_policy _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_load_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "LoadStatus"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_load_status" webkit_web_frame_get_load_status ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO CUInt
webFrameGetLoadStatus ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m LoadStatus
webFrameGetLoadStatus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_load_status _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_name" webkit_web_frame_get_name ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO CString
webFrameGetName ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m T.Text
webFrameGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_name _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebFrame::get_network_response
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "NetworkResponse"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_network_response" webkit_web_frame_get_network_response ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr NetworkResponse)
webFrameGetNetworkResponse ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m NetworkResponse
webFrameGetNetworkResponse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_network_response _obj'
result' <- (wrapObject NetworkResponse) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebFrame"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_parent" webkit_web_frame_get_parent ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr WebFrame)
webFrameGetParent ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m WebFrame
webFrameGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_parent _obj'
result' <- (newObject WebFrame) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_provisional_data_source
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebDataSource"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_provisional_data_source" webkit_web_frame_get_provisional_data_source ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr WebDataSource)
webFrameGetProvisionalDataSource ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m WebDataSource
webFrameGetProvisionalDataSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_provisional_data_source _obj'
result' <- (newObject WebDataSource) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_range_for_word_around_caret
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "DOMRange"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_range_for_word_around_caret" webkit_web_frame_get_range_for_word_around_caret ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr DOMRange)
webFrameGetRangeForWordAroundCaret ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m DOMRange
webFrameGetRangeForWordAroundCaret _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_range_for_word_around_caret _obj'
result' <- (newObject DOMRange) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_security_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "SecurityOrigin"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_security_origin" webkit_web_frame_get_security_origin ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr SecurityOrigin)
webFrameGetSecurityOrigin ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m SecurityOrigin
webFrameGetSecurityOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_security_origin _obj'
result' <- (newObject SecurityOrigin) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_title" webkit_web_frame_get_title ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO CString
webFrameGetTitle ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m T.Text
webFrameGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_title _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebFrame::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_uri" webkit_web_frame_get_uri ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO CString
webFrameGetUri ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m T.Text
webFrameGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebFrame::get_vertical_scrollbar_policy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PolicyType"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_vertical_scrollbar_policy" webkit_web_frame_get_vertical_scrollbar_policy ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO CUInt
webFrameGetVerticalScrollbarPolicy ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m Gtk.PolicyType
webFrameGetVerticalScrollbarPolicy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_vertical_scrollbar_policy _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method WebFrame::get_web_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_get_web_view" webkit_web_frame_get_web_view ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO (Ptr WebView)
webFrameGetWebView ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m WebView
webFrameGetWebView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_frame_get_web_view _obj'
result' <- (newObject WebView) result
touchManagedPtr _obj
return result'
-- method WebFrame::load_alternate_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unreachable_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unreachable_url", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_load_alternate_string" webkit_web_frame_load_alternate_string ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
CString -> -- content : TBasicType TUTF8
CString -> -- base_url : TBasicType TUTF8
CString -> -- unreachable_url : TBasicType TUTF8
IO ()
webFrameLoadAlternateString ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
T.Text -> -- content
T.Text -> -- base_url
T.Text -> -- unreachable_url
m ()
webFrameLoadAlternateString _obj content base_url unreachable_url = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
base_url' <- textToCString base_url
unreachable_url' <- textToCString unreachable_url
webkit_web_frame_load_alternate_string _obj' content' base_url' unreachable_url'
touchManagedPtr _obj
freeMem content'
freeMem base_url'
freeMem unreachable_url'
return ()
-- method WebFrame::load_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_load_request" webkit_web_frame_load_request ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
Ptr NetworkRequest -> -- request : TInterface "WebKit" "NetworkRequest"
IO ()
webFrameLoadRequest ::
(MonadIO m, WebFrameK a, NetworkRequestK b) =>
a -> -- _obj
b -> -- request
m ()
webFrameLoadRequest _obj request = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let request' = unsafeManagedPtrCastPtr request
webkit_web_frame_load_request _obj' request'
touchManagedPtr _obj
touchManagedPtr request
return ()
-- method WebFrame::load_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_load_string" webkit_web_frame_load_string ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
CString -> -- content : TBasicType TUTF8
CString -> -- mime_type : TBasicType TUTF8
CString -> -- encoding : TBasicType TUTF8
CString -> -- base_uri : TBasicType TUTF8
IO ()
webFrameLoadString ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
T.Text -> -- content
T.Text -> -- mime_type
T.Text -> -- encoding
T.Text -> -- base_uri
m ()
webFrameLoadString _obj content mime_type encoding base_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
mime_type' <- textToCString mime_type
encoding' <- textToCString encoding
base_uri' <- textToCString base_uri
webkit_web_frame_load_string _obj' content' mime_type' encoding' base_uri'
touchManagedPtr _obj
freeMem content'
freeMem mime_type'
freeMem encoding'
freeMem base_uri'
return ()
-- method WebFrame::load_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_load_uri" webkit_web_frame_load_uri ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
CString -> -- uri : TBasicType TUTF8
IO ()
webFrameLoadUri ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
webFrameLoadUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
webkit_web_frame_load_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- method WebFrame::print
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_print" webkit_web_frame_print ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO ()
webFramePrint ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m ()
webFramePrint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_frame_print _obj'
touchManagedPtr _obj
return ()
-- method WebFrame::print_full
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "operation", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "operation", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "PrintOperationResult"
-- throws : True
-- Skip return : False
foreign import ccall "webkit_web_frame_print_full" webkit_web_frame_print_full ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
Ptr Gtk.PrintOperation -> -- operation : TInterface "Gtk" "PrintOperation"
CUInt -> -- action : TInterface "Gtk" "PrintOperationAction"
Ptr (Ptr GError) -> -- error
IO CUInt
webFramePrintFull ::
(MonadIO m, WebFrameK a, Gtk.PrintOperationK b) =>
a -> -- _obj
b -> -- operation
Gtk.PrintOperationAction -> -- action
m Gtk.PrintOperationResult
webFramePrintFull _obj operation action = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let operation' = unsafeManagedPtrCastPtr operation
let action' = (fromIntegral . fromEnum) action
onException (do
result <- propagateGError $ webkit_web_frame_print_full _obj' operation' action'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
touchManagedPtr operation
return result'
) (do
return ()
)
-- method WebFrame::reload
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_reload" webkit_web_frame_reload ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO ()
webFrameReload ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m ()
webFrameReload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_frame_reload _obj'
touchManagedPtr _obj
return ()
-- method WebFrame::replace_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_replace_selection" webkit_web_frame_replace_selection ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
CString -> -- text : TBasicType TUTF8
IO ()
webFrameReplaceSelection ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
T.Text -> -- text
m ()
webFrameReplaceSelection _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
webkit_web_frame_replace_selection _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
-- method WebFrame::stop_loading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_frame_stop_loading" webkit_web_frame_stop_loading ::
Ptr WebFrame -> -- _obj : TInterface "WebKit" "WebFrame"
IO ()
webFrameStopLoading ::
(MonadIO m, WebFrameK a) =>
a -> -- _obj
m ()
webFrameStopLoading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_frame_stop_loading _obj'
touchManagedPtr _obj
return ()
-- signal WebFrame::cleared
type WebFrameClearedCallback =
IO ()
noWebFrameClearedCallback :: Maybe WebFrameClearedCallback
noWebFrameClearedCallback = Nothing
type WebFrameClearedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameClearedCallback :: WebFrameClearedCallbackC -> IO (FunPtr WebFrameClearedCallbackC)
webFrameClearedClosure :: WebFrameClearedCallback -> IO Closure
webFrameClearedClosure cb = newCClosure =<< mkWebFrameClearedCallback wrapped
where wrapped = webFrameClearedCallbackWrapper cb
webFrameClearedCallbackWrapper ::
WebFrameClearedCallback ->
Ptr () ->
Ptr () ->
IO ()
webFrameClearedCallbackWrapper _cb _ _ = do
_cb
onWebFrameCleared :: (GObject a, MonadIO m) => a -> WebFrameClearedCallback -> m SignalHandlerId
onWebFrameCleared obj cb = liftIO $ connectWebFrameCleared obj cb SignalConnectBefore
afterWebFrameCleared :: (GObject a, MonadIO m) => a -> WebFrameClearedCallback -> m SignalHandlerId
afterWebFrameCleared obj cb = connectWebFrameCleared obj cb SignalConnectAfter
connectWebFrameCleared :: (GObject a, MonadIO m) =>
a -> WebFrameClearedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameCleared obj cb after = liftIO $ do
cb' <- mkWebFrameClearedCallback (webFrameClearedCallbackWrapper cb)
connectSignalFunPtr obj "cleared" cb' after
-- signal WebFrame::hovering-over-link
type WebFrameHoveringOverLinkCallback =
T.Text ->
T.Text ->
IO ()
noWebFrameHoveringOverLinkCallback :: Maybe WebFrameHoveringOverLinkCallback
noWebFrameHoveringOverLinkCallback = Nothing
type WebFrameHoveringOverLinkCallbackC =
Ptr () -> -- object
CString ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameHoveringOverLinkCallback :: WebFrameHoveringOverLinkCallbackC -> IO (FunPtr WebFrameHoveringOverLinkCallbackC)
webFrameHoveringOverLinkClosure :: WebFrameHoveringOverLinkCallback -> IO Closure
webFrameHoveringOverLinkClosure cb = newCClosure =<< mkWebFrameHoveringOverLinkCallback wrapped
where wrapped = webFrameHoveringOverLinkCallbackWrapper cb
webFrameHoveringOverLinkCallbackWrapper ::
WebFrameHoveringOverLinkCallback ->
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
webFrameHoveringOverLinkCallbackWrapper _cb _ object p0 _ = do
object' <- cstringToText object
p0' <- cstringToText p0
_cb object' p0'
onWebFrameHoveringOverLink :: (GObject a, MonadIO m) => a -> WebFrameHoveringOverLinkCallback -> m SignalHandlerId
onWebFrameHoveringOverLink obj cb = liftIO $ connectWebFrameHoveringOverLink obj cb SignalConnectBefore
afterWebFrameHoveringOverLink :: (GObject a, MonadIO m) => a -> WebFrameHoveringOverLinkCallback -> m SignalHandlerId
afterWebFrameHoveringOverLink obj cb = connectWebFrameHoveringOverLink obj cb SignalConnectAfter
connectWebFrameHoveringOverLink :: (GObject a, MonadIO m) =>
a -> WebFrameHoveringOverLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameHoveringOverLink obj cb after = liftIO $ do
cb' <- mkWebFrameHoveringOverLinkCallback (webFrameHoveringOverLinkCallbackWrapper cb)
connectSignalFunPtr obj "hovering-over-link" cb' after
-- signal WebFrame::insecure-content-run
type WebFrameInsecureContentRunCallback =
SecurityOrigin ->
T.Text ->
IO ()
noWebFrameInsecureContentRunCallback :: Maybe WebFrameInsecureContentRunCallback
noWebFrameInsecureContentRunCallback = Nothing
type WebFrameInsecureContentRunCallbackC =
Ptr () -> -- object
Ptr SecurityOrigin ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameInsecureContentRunCallback :: WebFrameInsecureContentRunCallbackC -> IO (FunPtr WebFrameInsecureContentRunCallbackC)
webFrameInsecureContentRunClosure :: WebFrameInsecureContentRunCallback -> IO Closure
webFrameInsecureContentRunClosure cb = newCClosure =<< mkWebFrameInsecureContentRunCallback wrapped
where wrapped = webFrameInsecureContentRunCallbackWrapper cb
webFrameInsecureContentRunCallbackWrapper ::
WebFrameInsecureContentRunCallback ->
Ptr () ->
Ptr SecurityOrigin ->
CString ->
Ptr () ->
IO ()
webFrameInsecureContentRunCallbackWrapper _cb _ security_origin url _ = do
security_origin' <- (newObject SecurityOrigin) security_origin
url' <- cstringToText url
_cb security_origin' url'
onWebFrameInsecureContentRun :: (GObject a, MonadIO m) => a -> WebFrameInsecureContentRunCallback -> m SignalHandlerId
onWebFrameInsecureContentRun obj cb = liftIO $ connectWebFrameInsecureContentRun obj cb SignalConnectBefore
afterWebFrameInsecureContentRun :: (GObject a, MonadIO m) => a -> WebFrameInsecureContentRunCallback -> m SignalHandlerId
afterWebFrameInsecureContentRun obj cb = connectWebFrameInsecureContentRun obj cb SignalConnectAfter
connectWebFrameInsecureContentRun :: (GObject a, MonadIO m) =>
a -> WebFrameInsecureContentRunCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameInsecureContentRun obj cb after = liftIO $ do
cb' <- mkWebFrameInsecureContentRunCallback (webFrameInsecureContentRunCallbackWrapper cb)
connectSignalFunPtr obj "insecure-content-run" cb' after
-- signal WebFrame::load-committed
type WebFrameLoadCommittedCallback =
IO ()
noWebFrameLoadCommittedCallback :: Maybe WebFrameLoadCommittedCallback
noWebFrameLoadCommittedCallback = Nothing
type WebFrameLoadCommittedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameLoadCommittedCallback :: WebFrameLoadCommittedCallbackC -> IO (FunPtr WebFrameLoadCommittedCallbackC)
webFrameLoadCommittedClosure :: WebFrameLoadCommittedCallback -> IO Closure
webFrameLoadCommittedClosure cb = newCClosure =<< mkWebFrameLoadCommittedCallback wrapped
where wrapped = webFrameLoadCommittedCallbackWrapper cb
webFrameLoadCommittedCallbackWrapper ::
WebFrameLoadCommittedCallback ->
Ptr () ->
Ptr () ->
IO ()
webFrameLoadCommittedCallbackWrapper _cb _ _ = do
_cb
onWebFrameLoadCommitted :: (GObject a, MonadIO m) => a -> WebFrameLoadCommittedCallback -> m SignalHandlerId
onWebFrameLoadCommitted obj cb = liftIO $ connectWebFrameLoadCommitted obj cb SignalConnectBefore
afterWebFrameLoadCommitted :: (GObject a, MonadIO m) => a -> WebFrameLoadCommittedCallback -> m SignalHandlerId
afterWebFrameLoadCommitted obj cb = connectWebFrameLoadCommitted obj cb SignalConnectAfter
connectWebFrameLoadCommitted :: (GObject a, MonadIO m) =>
a -> WebFrameLoadCommittedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameLoadCommitted obj cb after = liftIO $ do
cb' <- mkWebFrameLoadCommittedCallback (webFrameLoadCommittedCallbackWrapper cb)
connectSignalFunPtr obj "load-committed" cb' after
-- signal WebFrame::resource-content-length-received
type WebFrameResourceContentLengthReceivedCallback =
WebResource ->
Int32 ->
IO ()
noWebFrameResourceContentLengthReceivedCallback :: Maybe WebFrameResourceContentLengthReceivedCallback
noWebFrameResourceContentLengthReceivedCallback = Nothing
type WebFrameResourceContentLengthReceivedCallbackC =
Ptr () -> -- object
Ptr WebResource ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceContentLengthReceivedCallback :: WebFrameResourceContentLengthReceivedCallbackC -> IO (FunPtr WebFrameResourceContentLengthReceivedCallbackC)
webFrameResourceContentLengthReceivedClosure :: WebFrameResourceContentLengthReceivedCallback -> IO Closure
webFrameResourceContentLengthReceivedClosure cb = newCClosure =<< mkWebFrameResourceContentLengthReceivedCallback wrapped
where wrapped = webFrameResourceContentLengthReceivedCallbackWrapper cb
webFrameResourceContentLengthReceivedCallbackWrapper ::
WebFrameResourceContentLengthReceivedCallback ->
Ptr () ->
Ptr WebResource ->
Int32 ->
Ptr () ->
IO ()
webFrameResourceContentLengthReceivedCallbackWrapper _cb _ web_resource length_received _ = do
web_resource' <- (newObject WebResource) web_resource
_cb web_resource' length_received
onWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceContentLengthReceivedCallback -> m SignalHandlerId
onWebFrameResourceContentLengthReceived obj cb = liftIO $ connectWebFrameResourceContentLengthReceived obj cb SignalConnectBefore
afterWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceContentLengthReceivedCallback -> m SignalHandlerId
afterWebFrameResourceContentLengthReceived obj cb = connectWebFrameResourceContentLengthReceived obj cb SignalConnectAfter
connectWebFrameResourceContentLengthReceived :: (GObject a, MonadIO m) =>
a -> WebFrameResourceContentLengthReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceContentLengthReceived obj cb after = liftIO $ do
cb' <- mkWebFrameResourceContentLengthReceivedCallback (webFrameResourceContentLengthReceivedCallbackWrapper cb)
connectSignalFunPtr obj "resource-content-length-received" cb' after
-- signal WebFrame::resource-load-failed
type WebFrameResourceLoadFailedCallback =
WebResource ->
Ptr () ->
IO ()
noWebFrameResourceLoadFailedCallback :: Maybe WebFrameResourceLoadFailedCallback
noWebFrameResourceLoadFailedCallback = Nothing
type WebFrameResourceLoadFailedCallbackC =
Ptr () -> -- object
Ptr WebResource ->
Ptr () ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceLoadFailedCallback :: WebFrameResourceLoadFailedCallbackC -> IO (FunPtr WebFrameResourceLoadFailedCallbackC)
webFrameResourceLoadFailedClosure :: WebFrameResourceLoadFailedCallback -> IO Closure
webFrameResourceLoadFailedClosure cb = newCClosure =<< mkWebFrameResourceLoadFailedCallback wrapped
where wrapped = webFrameResourceLoadFailedCallbackWrapper cb
webFrameResourceLoadFailedCallbackWrapper ::
WebFrameResourceLoadFailedCallback ->
Ptr () ->
Ptr WebResource ->
Ptr () ->
Ptr () ->
IO ()
webFrameResourceLoadFailedCallbackWrapper _cb _ web_resource error_ _ = do
web_resource' <- (newObject WebResource) web_resource
_cb web_resource' error_
onWebFrameResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFailedCallback -> m SignalHandlerId
onWebFrameResourceLoadFailed obj cb = liftIO $ connectWebFrameResourceLoadFailed obj cb SignalConnectBefore
afterWebFrameResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFailedCallback -> m SignalHandlerId
afterWebFrameResourceLoadFailed obj cb = connectWebFrameResourceLoadFailed obj cb SignalConnectAfter
connectWebFrameResourceLoadFailed :: (GObject a, MonadIO m) =>
a -> WebFrameResourceLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceLoadFailed obj cb after = liftIO $ do
cb' <- mkWebFrameResourceLoadFailedCallback (webFrameResourceLoadFailedCallbackWrapper cb)
connectSignalFunPtr obj "resource-load-failed" cb' after
-- signal WebFrame::resource-load-finished
type WebFrameResourceLoadFinishedCallback =
WebResource ->
IO ()
noWebFrameResourceLoadFinishedCallback :: Maybe WebFrameResourceLoadFinishedCallback
noWebFrameResourceLoadFinishedCallback = Nothing
type WebFrameResourceLoadFinishedCallbackC =
Ptr () -> -- object
Ptr WebResource ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceLoadFinishedCallback :: WebFrameResourceLoadFinishedCallbackC -> IO (FunPtr WebFrameResourceLoadFinishedCallbackC)
webFrameResourceLoadFinishedClosure :: WebFrameResourceLoadFinishedCallback -> IO Closure
webFrameResourceLoadFinishedClosure cb = newCClosure =<< mkWebFrameResourceLoadFinishedCallback wrapped
where wrapped = webFrameResourceLoadFinishedCallbackWrapper cb
webFrameResourceLoadFinishedCallbackWrapper ::
WebFrameResourceLoadFinishedCallback ->
Ptr () ->
Ptr WebResource ->
Ptr () ->
IO ()
webFrameResourceLoadFinishedCallbackWrapper _cb _ web_resource _ = do
web_resource' <- (newObject WebResource) web_resource
_cb web_resource'
onWebFrameResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFinishedCallback -> m SignalHandlerId
onWebFrameResourceLoadFinished obj cb = liftIO $ connectWebFrameResourceLoadFinished obj cb SignalConnectBefore
afterWebFrameResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebFrameResourceLoadFinishedCallback -> m SignalHandlerId
afterWebFrameResourceLoadFinished obj cb = connectWebFrameResourceLoadFinished obj cb SignalConnectAfter
connectWebFrameResourceLoadFinished :: (GObject a, MonadIO m) =>
a -> WebFrameResourceLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceLoadFinished obj cb after = liftIO $ do
cb' <- mkWebFrameResourceLoadFinishedCallback (webFrameResourceLoadFinishedCallbackWrapper cb)
connectSignalFunPtr obj "resource-load-finished" cb' after
-- signal WebFrame::resource-request-starting
type WebFrameResourceRequestStartingCallback =
WebResource ->
NetworkRequest ->
NetworkResponse ->
IO ()
noWebFrameResourceRequestStartingCallback :: Maybe WebFrameResourceRequestStartingCallback
noWebFrameResourceRequestStartingCallback = Nothing
type WebFrameResourceRequestStartingCallbackC =
Ptr () -> -- object
Ptr WebResource ->
Ptr NetworkRequest ->
Ptr NetworkResponse ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceRequestStartingCallback :: WebFrameResourceRequestStartingCallbackC -> IO (FunPtr WebFrameResourceRequestStartingCallbackC)
webFrameResourceRequestStartingClosure :: WebFrameResourceRequestStartingCallback -> IO Closure
webFrameResourceRequestStartingClosure cb = newCClosure =<< mkWebFrameResourceRequestStartingCallback wrapped
where wrapped = webFrameResourceRequestStartingCallbackWrapper cb
webFrameResourceRequestStartingCallbackWrapper ::
WebFrameResourceRequestStartingCallback ->
Ptr () ->
Ptr WebResource ->
Ptr NetworkRequest ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
webFrameResourceRequestStartingCallbackWrapper _cb _ web_resource request response _ = do
web_resource' <- (newObject WebResource) web_resource
request' <- (newObject NetworkRequest) request
response' <- (newObject NetworkResponse) response
_cb web_resource' request' response'
onWebFrameResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebFrameResourceRequestStartingCallback -> m SignalHandlerId
onWebFrameResourceRequestStarting obj cb = liftIO $ connectWebFrameResourceRequestStarting obj cb SignalConnectBefore
afterWebFrameResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebFrameResourceRequestStartingCallback -> m SignalHandlerId
afterWebFrameResourceRequestStarting obj cb = connectWebFrameResourceRequestStarting obj cb SignalConnectAfter
connectWebFrameResourceRequestStarting :: (GObject a, MonadIO m) =>
a -> WebFrameResourceRequestStartingCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceRequestStarting obj cb after = liftIO $ do
cb' <- mkWebFrameResourceRequestStartingCallback (webFrameResourceRequestStartingCallbackWrapper cb)
connectSignalFunPtr obj "resource-request-starting" cb' after
-- signal WebFrame::resource-response-received
type WebFrameResourceResponseReceivedCallback =
WebResource ->
NetworkResponse ->
IO ()
noWebFrameResourceResponseReceivedCallback :: Maybe WebFrameResourceResponseReceivedCallback
noWebFrameResourceResponseReceivedCallback = Nothing
type WebFrameResourceResponseReceivedCallbackC =
Ptr () -> -- object
Ptr WebResource ->
Ptr NetworkResponse ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameResourceResponseReceivedCallback :: WebFrameResourceResponseReceivedCallbackC -> IO (FunPtr WebFrameResourceResponseReceivedCallbackC)
webFrameResourceResponseReceivedClosure :: WebFrameResourceResponseReceivedCallback -> IO Closure
webFrameResourceResponseReceivedClosure cb = newCClosure =<< mkWebFrameResourceResponseReceivedCallback wrapped
where wrapped = webFrameResourceResponseReceivedCallbackWrapper cb
webFrameResourceResponseReceivedCallbackWrapper ::
WebFrameResourceResponseReceivedCallback ->
Ptr () ->
Ptr WebResource ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
webFrameResourceResponseReceivedCallbackWrapper _cb _ web_resource response _ = do
web_resource' <- (newObject WebResource) web_resource
response' <- (newObject NetworkResponse) response
_cb web_resource' response'
onWebFrameResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceResponseReceivedCallback -> m SignalHandlerId
onWebFrameResourceResponseReceived obj cb = liftIO $ connectWebFrameResourceResponseReceived obj cb SignalConnectBefore
afterWebFrameResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebFrameResourceResponseReceivedCallback -> m SignalHandlerId
afterWebFrameResourceResponseReceived obj cb = connectWebFrameResourceResponseReceived obj cb SignalConnectAfter
connectWebFrameResourceResponseReceived :: (GObject a, MonadIO m) =>
a -> WebFrameResourceResponseReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameResourceResponseReceived obj cb after = liftIO $ do
cb' <- mkWebFrameResourceResponseReceivedCallback (webFrameResourceResponseReceivedCallbackWrapper cb)
connectSignalFunPtr obj "resource-response-received" cb' after
-- signal WebFrame::scrollbars-policy-changed
type WebFrameScrollbarsPolicyChangedCallback =
IO Bool
noWebFrameScrollbarsPolicyChangedCallback :: Maybe WebFrameScrollbarsPolicyChangedCallback
noWebFrameScrollbarsPolicyChangedCallback = Nothing
type WebFrameScrollbarsPolicyChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebFrameScrollbarsPolicyChangedCallback :: WebFrameScrollbarsPolicyChangedCallbackC -> IO (FunPtr WebFrameScrollbarsPolicyChangedCallbackC)
webFrameScrollbarsPolicyChangedClosure :: WebFrameScrollbarsPolicyChangedCallback -> IO Closure
webFrameScrollbarsPolicyChangedClosure cb = newCClosure =<< mkWebFrameScrollbarsPolicyChangedCallback wrapped
where wrapped = webFrameScrollbarsPolicyChangedCallbackWrapper cb
webFrameScrollbarsPolicyChangedCallbackWrapper ::
WebFrameScrollbarsPolicyChangedCallback ->
Ptr () ->
Ptr () ->
IO CInt
webFrameScrollbarsPolicyChangedCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) => a -> WebFrameScrollbarsPolicyChangedCallback -> m SignalHandlerId
onWebFrameScrollbarsPolicyChanged obj cb = liftIO $ connectWebFrameScrollbarsPolicyChanged obj cb SignalConnectBefore
afterWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) => a -> WebFrameScrollbarsPolicyChangedCallback -> m SignalHandlerId
afterWebFrameScrollbarsPolicyChanged obj cb = connectWebFrameScrollbarsPolicyChanged obj cb SignalConnectAfter
connectWebFrameScrollbarsPolicyChanged :: (GObject a, MonadIO m) =>
a -> WebFrameScrollbarsPolicyChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameScrollbarsPolicyChanged obj cb after = liftIO $ do
cb' <- mkWebFrameScrollbarsPolicyChangedCallback (webFrameScrollbarsPolicyChangedCallbackWrapper cb)
connectSignalFunPtr obj "scrollbars-policy-changed" cb' after
-- signal WebFrame::title-changed
type WebFrameTitleChangedCallback =
T.Text ->
IO ()
noWebFrameTitleChangedCallback :: Maybe WebFrameTitleChangedCallback
noWebFrameTitleChangedCallback = Nothing
type WebFrameTitleChangedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebFrameTitleChangedCallback :: WebFrameTitleChangedCallbackC -> IO (FunPtr WebFrameTitleChangedCallbackC)
webFrameTitleChangedClosure :: WebFrameTitleChangedCallback -> IO Closure
webFrameTitleChangedClosure cb = newCClosure =<< mkWebFrameTitleChangedCallback wrapped
where wrapped = webFrameTitleChangedCallbackWrapper cb
webFrameTitleChangedCallbackWrapper ::
WebFrameTitleChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
webFrameTitleChangedCallbackWrapper _cb _ title _ = do
title' <- cstringToText title
_cb title'
onWebFrameTitleChanged :: (GObject a, MonadIO m) => a -> WebFrameTitleChangedCallback -> m SignalHandlerId
onWebFrameTitleChanged obj cb = liftIO $ connectWebFrameTitleChanged obj cb SignalConnectBefore
afterWebFrameTitleChanged :: (GObject a, MonadIO m) => a -> WebFrameTitleChangedCallback -> m SignalHandlerId
afterWebFrameTitleChanged obj cb = connectWebFrameTitleChanged obj cb SignalConnectAfter
connectWebFrameTitleChanged :: (GObject a, MonadIO m) =>
a -> WebFrameTitleChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebFrameTitleChanged obj cb after = liftIO $ do
cb' <- mkWebFrameTitleChangedCallback (webFrameTitleChangedCallbackWrapper cb)
connectSignalFunPtr obj "title-changed" cb' after
-- object WebHistoryItem
newtype WebHistoryItem = WebHistoryItem (ForeignPtr WebHistoryItem)
noWebHistoryItem :: Maybe WebHistoryItem
noWebHistoryItem = Nothing
foreign import ccall "webkit_web_history_item_get_type"
c_webkit_web_history_item_get_type :: IO GType
type instance ParentTypes WebHistoryItem = '[GObject.Object]
instance GObject WebHistoryItem where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_history_item_get_type
class GObject o => WebHistoryItemK o
instance (GObject o, IsDescendantOf WebHistoryItem o) => WebHistoryItemK o
toWebHistoryItem :: WebHistoryItemK o => o -> IO WebHistoryItem
toWebHistoryItem = unsafeCastTo WebHistoryItem
-- method WebHistoryItem::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "WebHistoryItem"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_new" webkit_web_history_item_new ::
IO (Ptr WebHistoryItem)
webHistoryItemNew ::
(MonadIO m) =>
m WebHistoryItem
webHistoryItemNew = liftIO $ do
result <- webkit_web_history_item_new
result' <- (wrapObject WebHistoryItem) result
return result'
-- method WebHistoryItem::new_with_data
-- method type : Constructor
-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebHistoryItem"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_new_with_data" webkit_web_history_item_new_with_data ::
CString -> -- uri : TBasicType TUTF8
CString -> -- title : TBasicType TUTF8
IO (Ptr WebHistoryItem)
webHistoryItemNewWithData ::
(MonadIO m) =>
T.Text -> -- uri
T.Text -> -- title
m WebHistoryItem
webHistoryItemNewWithData uri title = liftIO $ do
uri' <- textToCString uri
title' <- textToCString title
result <- webkit_web_history_item_new_with_data uri' title'
result' <- (wrapObject WebHistoryItem) result
freeMem uri'
freeMem title'
return result'
-- method WebHistoryItem::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebHistoryItem"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_copy" webkit_web_history_item_copy ::
Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem"
IO (Ptr WebHistoryItem)
webHistoryItemCopy ::
(MonadIO m, WebHistoryItemK a) =>
a -> -- _obj
m WebHistoryItem
webHistoryItemCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_history_item_copy _obj'
result' <- (wrapObject WebHistoryItem) result
touchManagedPtr _obj
return result'
-- method WebHistoryItem::get_alternate_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_get_alternate_title" webkit_web_history_item_get_alternate_title ::
Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem"
IO CString
webHistoryItemGetAlternateTitle ::
(MonadIO m, WebHistoryItemK a) =>
a -> -- _obj
m T.Text
webHistoryItemGetAlternateTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_history_item_get_alternate_title _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebHistoryItem::get_last_visited_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_get_last_visited_time" webkit_web_history_item_get_last_visited_time ::
Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem"
IO CDouble
webHistoryItemGetLastVisitedTime ::
(MonadIO m, WebHistoryItemK a) =>
a -> -- _obj
m Double
webHistoryItemGetLastVisitedTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_history_item_get_last_visited_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method WebHistoryItem::get_original_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_get_original_uri" webkit_web_history_item_get_original_uri ::
Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem"
IO CString
webHistoryItemGetOriginalUri ::
(MonadIO m, WebHistoryItemK a) =>
a -> -- _obj
m T.Text
webHistoryItemGetOriginalUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_history_item_get_original_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebHistoryItem::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_get_title" webkit_web_history_item_get_title ::
Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem"
IO CString
webHistoryItemGetTitle ::
(MonadIO m, WebHistoryItemK a) =>
a -> -- _obj
m T.Text
webHistoryItemGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_history_item_get_title _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebHistoryItem::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_get_uri" webkit_web_history_item_get_uri ::
Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem"
IO CString
webHistoryItemGetUri ::
(MonadIO m, WebHistoryItemK a) =>
a -> -- _obj
m T.Text
webHistoryItemGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_history_item_get_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebHistoryItem::set_alternate_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_history_item_set_alternate_title" webkit_web_history_item_set_alternate_title ::
Ptr WebHistoryItem -> -- _obj : TInterface "WebKit" "WebHistoryItem"
CString -> -- title : TBasicType TUTF8
IO ()
webHistoryItemSetAlternateTitle ::
(MonadIO m, WebHistoryItemK a) =>
a -> -- _obj
T.Text -> -- title
m ()
webHistoryItemSetAlternateTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
webkit_web_history_item_set_alternate_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- object WebInspector
newtype WebInspector = WebInspector (ForeignPtr WebInspector)
noWebInspector :: Maybe WebInspector
noWebInspector = Nothing
foreign import ccall "webkit_web_inspector_get_type"
c_webkit_web_inspector_get_type :: IO GType
type instance ParentTypes WebInspector = '[GObject.Object]
instance GObject WebInspector where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_inspector_get_type
class GObject o => WebInspectorK o
instance (GObject o, IsDescendantOf WebInspector o) => WebInspectorK o
toWebInspector :: WebInspectorK o => o -> IO WebInspector
toWebInspector = unsafeCastTo WebInspector
-- method WebInspector::close
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_close" webkit_web_inspector_close ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
IO ()
webInspectorClose ::
(MonadIO m, WebInspectorK a) =>
a -> -- _obj
m ()
webInspectorClose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_inspector_close _obj'
touchManagedPtr _obj
return ()
-- method WebInspector::get_inspected_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_get_inspected_uri" webkit_web_inspector_get_inspected_uri ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
IO CString
webInspectorGetInspectedUri ::
(MonadIO m, WebInspectorK a) =>
a -> -- _obj
m T.Text
webInspectorGetInspectedUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_inspector_get_inspected_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebInspector::get_web_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_get_web_view" webkit_web_inspector_get_web_view ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
IO (Ptr WebView)
webInspectorGetWebView ::
(MonadIO m, WebInspectorK a) =>
a -> -- _obj
m WebView
webInspectorGetWebView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_inspector_get_web_view _obj'
result' <- (newObject WebView) result
touchManagedPtr _obj
return result'
-- method WebInspector::inspect_coordinates
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_inspect_coordinates" webkit_web_inspector_inspect_coordinates ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
IO ()
webInspectorInspectCoordinates ::
(MonadIO m, WebInspectorK a) =>
a -> -- _obj
Double -> -- x
Double -> -- y
m ()
webInspectorInspectCoordinates _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let x' = realToFrac x
let y' = realToFrac y
webkit_web_inspector_inspect_coordinates _obj' x' y'
touchManagedPtr _obj
return ()
-- method WebInspector::inspect_node
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", 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}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_inspect_node" webkit_web_inspector_inspect_node ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
Ptr DOMNode -> -- node : TInterface "WebKit" "DOMNode"
IO ()
webInspectorInspectNode ::
(MonadIO m, WebInspectorK a, DOMNodeK b) =>
a -> -- _obj
b -> -- node
m ()
webInspectorInspectNode _obj node = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let node' = unsafeManagedPtrCastPtr node
webkit_web_inspector_inspect_node _obj' node'
touchManagedPtr _obj
touchManagedPtr node
return ()
-- method WebInspector::show
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebInspector", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_inspector_show" webkit_web_inspector_show ::
Ptr WebInspector -> -- _obj : TInterface "WebKit" "WebInspector"
IO ()
webInspectorShow ::
(MonadIO m, WebInspectorK a) =>
a -> -- _obj
m ()
webInspectorShow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_inspector_show _obj'
touchManagedPtr _obj
return ()
-- signal WebInspector::attach-window
type WebInspectorAttachWindowCallback =
IO Bool
noWebInspectorAttachWindowCallback :: Maybe WebInspectorAttachWindowCallback
noWebInspectorAttachWindowCallback = Nothing
type WebInspectorAttachWindowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebInspectorAttachWindowCallback :: WebInspectorAttachWindowCallbackC -> IO (FunPtr WebInspectorAttachWindowCallbackC)
webInspectorAttachWindowClosure :: WebInspectorAttachWindowCallback -> IO Closure
webInspectorAttachWindowClosure cb = newCClosure =<< mkWebInspectorAttachWindowCallback wrapped
where wrapped = webInspectorAttachWindowCallbackWrapper cb
webInspectorAttachWindowCallbackWrapper ::
WebInspectorAttachWindowCallback ->
Ptr () ->
Ptr () ->
IO CInt
webInspectorAttachWindowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebInspectorAttachWindow :: (GObject a, MonadIO m) => a -> WebInspectorAttachWindowCallback -> m SignalHandlerId
onWebInspectorAttachWindow obj cb = liftIO $ connectWebInspectorAttachWindow obj cb SignalConnectBefore
afterWebInspectorAttachWindow :: (GObject a, MonadIO m) => a -> WebInspectorAttachWindowCallback -> m SignalHandlerId
afterWebInspectorAttachWindow obj cb = connectWebInspectorAttachWindow obj cb SignalConnectAfter
connectWebInspectorAttachWindow :: (GObject a, MonadIO m) =>
a -> WebInspectorAttachWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorAttachWindow obj cb after = liftIO $ do
cb' <- mkWebInspectorAttachWindowCallback (webInspectorAttachWindowCallbackWrapper cb)
connectSignalFunPtr obj "attach-window" cb' after
-- signal WebInspector::close-window
type WebInspectorCloseWindowCallback =
IO Bool
noWebInspectorCloseWindowCallback :: Maybe WebInspectorCloseWindowCallback
noWebInspectorCloseWindowCallback = Nothing
type WebInspectorCloseWindowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebInspectorCloseWindowCallback :: WebInspectorCloseWindowCallbackC -> IO (FunPtr WebInspectorCloseWindowCallbackC)
webInspectorCloseWindowClosure :: WebInspectorCloseWindowCallback -> IO Closure
webInspectorCloseWindowClosure cb = newCClosure =<< mkWebInspectorCloseWindowCallback wrapped
where wrapped = webInspectorCloseWindowCallbackWrapper cb
webInspectorCloseWindowCallbackWrapper ::
WebInspectorCloseWindowCallback ->
Ptr () ->
Ptr () ->
IO CInt
webInspectorCloseWindowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebInspectorCloseWindow :: (GObject a, MonadIO m) => a -> WebInspectorCloseWindowCallback -> m SignalHandlerId
onWebInspectorCloseWindow obj cb = liftIO $ connectWebInspectorCloseWindow obj cb SignalConnectBefore
afterWebInspectorCloseWindow :: (GObject a, MonadIO m) => a -> WebInspectorCloseWindowCallback -> m SignalHandlerId
afterWebInspectorCloseWindow obj cb = connectWebInspectorCloseWindow obj cb SignalConnectAfter
connectWebInspectorCloseWindow :: (GObject a, MonadIO m) =>
a -> WebInspectorCloseWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorCloseWindow obj cb after = liftIO $ do
cb' <- mkWebInspectorCloseWindowCallback (webInspectorCloseWindowCallbackWrapper cb)
connectSignalFunPtr obj "close-window" cb' after
-- signal WebInspector::detach-window
type WebInspectorDetachWindowCallback =
IO Bool
noWebInspectorDetachWindowCallback :: Maybe WebInspectorDetachWindowCallback
noWebInspectorDetachWindowCallback = Nothing
type WebInspectorDetachWindowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebInspectorDetachWindowCallback :: WebInspectorDetachWindowCallbackC -> IO (FunPtr WebInspectorDetachWindowCallbackC)
webInspectorDetachWindowClosure :: WebInspectorDetachWindowCallback -> IO Closure
webInspectorDetachWindowClosure cb = newCClosure =<< mkWebInspectorDetachWindowCallback wrapped
where wrapped = webInspectorDetachWindowCallbackWrapper cb
webInspectorDetachWindowCallbackWrapper ::
WebInspectorDetachWindowCallback ->
Ptr () ->
Ptr () ->
IO CInt
webInspectorDetachWindowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebInspectorDetachWindow :: (GObject a, MonadIO m) => a -> WebInspectorDetachWindowCallback -> m SignalHandlerId
onWebInspectorDetachWindow obj cb = liftIO $ connectWebInspectorDetachWindow obj cb SignalConnectBefore
afterWebInspectorDetachWindow :: (GObject a, MonadIO m) => a -> WebInspectorDetachWindowCallback -> m SignalHandlerId
afterWebInspectorDetachWindow obj cb = connectWebInspectorDetachWindow obj cb SignalConnectAfter
connectWebInspectorDetachWindow :: (GObject a, MonadIO m) =>
a -> WebInspectorDetachWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorDetachWindow obj cb after = liftIO $ do
cb' <- mkWebInspectorDetachWindowCallback (webInspectorDetachWindowCallbackWrapper cb)
connectSignalFunPtr obj "detach-window" cb' after
-- signal WebInspector::finished
type WebInspectorFinishedCallback =
IO ()
noWebInspectorFinishedCallback :: Maybe WebInspectorFinishedCallback
noWebInspectorFinishedCallback = Nothing
type WebInspectorFinishedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebInspectorFinishedCallback :: WebInspectorFinishedCallbackC -> IO (FunPtr WebInspectorFinishedCallbackC)
webInspectorFinishedClosure :: WebInspectorFinishedCallback -> IO Closure
webInspectorFinishedClosure cb = newCClosure =<< mkWebInspectorFinishedCallback wrapped
where wrapped = webInspectorFinishedCallbackWrapper cb
webInspectorFinishedCallbackWrapper ::
WebInspectorFinishedCallback ->
Ptr () ->
Ptr () ->
IO ()
webInspectorFinishedCallbackWrapper _cb _ _ = do
_cb
onWebInspectorFinished :: (GObject a, MonadIO m) => a -> WebInspectorFinishedCallback -> m SignalHandlerId
onWebInspectorFinished obj cb = liftIO $ connectWebInspectorFinished obj cb SignalConnectBefore
afterWebInspectorFinished :: (GObject a, MonadIO m) => a -> WebInspectorFinishedCallback -> m SignalHandlerId
afterWebInspectorFinished obj cb = connectWebInspectorFinished obj cb SignalConnectAfter
connectWebInspectorFinished :: (GObject a, MonadIO m) =>
a -> WebInspectorFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorFinished obj cb after = liftIO $ do
cb' <- mkWebInspectorFinishedCallback (webInspectorFinishedCallbackWrapper cb)
connectSignalFunPtr obj "finished" cb' after
-- signal WebInspector::inspect-web-view
type WebInspectorInspectWebViewCallback =
WebView ->
IO WebView
noWebInspectorInspectWebViewCallback :: Maybe WebInspectorInspectWebViewCallback
noWebInspectorInspectWebViewCallback = Nothing
type WebInspectorInspectWebViewCallbackC =
Ptr () -> -- object
Ptr WebView ->
Ptr () -> -- user_data
IO (Ptr WebView)
foreign import ccall "wrapper"
mkWebInspectorInspectWebViewCallback :: WebInspectorInspectWebViewCallbackC -> IO (FunPtr WebInspectorInspectWebViewCallbackC)
webInspectorInspectWebViewClosure :: WebInspectorInspectWebViewCallback -> IO Closure
webInspectorInspectWebViewClosure cb = newCClosure =<< mkWebInspectorInspectWebViewCallback wrapped
where wrapped = webInspectorInspectWebViewCallbackWrapper cb
webInspectorInspectWebViewCallbackWrapper ::
WebInspectorInspectWebViewCallback ->
Ptr () ->
Ptr WebView ->
Ptr () ->
IO (Ptr WebView)
webInspectorInspectWebViewCallbackWrapper _cb _ web_view _ = do
web_view' <- (newObject WebView) web_view
result <- _cb web_view'
let result' = unsafeManagedPtrCastPtr result
return result'
onWebInspectorInspectWebView :: (GObject a, MonadIO m) => a -> WebInspectorInspectWebViewCallback -> m SignalHandlerId
onWebInspectorInspectWebView obj cb = liftIO $ connectWebInspectorInspectWebView obj cb SignalConnectBefore
afterWebInspectorInspectWebView :: (GObject a, MonadIO m) => a -> WebInspectorInspectWebViewCallback -> m SignalHandlerId
afterWebInspectorInspectWebView obj cb = connectWebInspectorInspectWebView obj cb SignalConnectAfter
connectWebInspectorInspectWebView :: (GObject a, MonadIO m) =>
a -> WebInspectorInspectWebViewCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorInspectWebView obj cb after = liftIO $ do
cb' <- mkWebInspectorInspectWebViewCallback (webInspectorInspectWebViewCallbackWrapper cb)
connectSignalFunPtr obj "inspect-web-view" cb' after
-- signal WebInspector::show-window
type WebInspectorShowWindowCallback =
IO Bool
noWebInspectorShowWindowCallback :: Maybe WebInspectorShowWindowCallback
noWebInspectorShowWindowCallback = Nothing
type WebInspectorShowWindowCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebInspectorShowWindowCallback :: WebInspectorShowWindowCallbackC -> IO (FunPtr WebInspectorShowWindowCallbackC)
webInspectorShowWindowClosure :: WebInspectorShowWindowCallback -> IO Closure
webInspectorShowWindowClosure cb = newCClosure =<< mkWebInspectorShowWindowCallback wrapped
where wrapped = webInspectorShowWindowCallbackWrapper cb
webInspectorShowWindowCallbackWrapper ::
WebInspectorShowWindowCallback ->
Ptr () ->
Ptr () ->
IO CInt
webInspectorShowWindowCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebInspectorShowWindow :: (GObject a, MonadIO m) => a -> WebInspectorShowWindowCallback -> m SignalHandlerId
onWebInspectorShowWindow obj cb = liftIO $ connectWebInspectorShowWindow obj cb SignalConnectBefore
afterWebInspectorShowWindow :: (GObject a, MonadIO m) => a -> WebInspectorShowWindowCallback -> m SignalHandlerId
afterWebInspectorShowWindow obj cb = connectWebInspectorShowWindow obj cb SignalConnectAfter
connectWebInspectorShowWindow :: (GObject a, MonadIO m) =>
a -> WebInspectorShowWindowCallback -> SignalConnectMode -> m SignalHandlerId
connectWebInspectorShowWindow obj cb after = liftIO $ do
cb' <- mkWebInspectorShowWindowCallback (webInspectorShowWindowCallbackWrapper cb)
connectSignalFunPtr obj "show-window" cb' after
-- object WebNavigationAction
newtype WebNavigationAction = WebNavigationAction (ForeignPtr WebNavigationAction)
noWebNavigationAction :: Maybe WebNavigationAction
noWebNavigationAction = Nothing
foreign import ccall "webkit_web_navigation_action_get_type"
c_webkit_web_navigation_action_get_type :: IO GType
type instance ParentTypes WebNavigationAction = '[GObject.Object]
instance GObject WebNavigationAction where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_navigation_action_get_type
class GObject o => WebNavigationActionK o
instance (GObject o, IsDescendantOf WebNavigationAction o) => WebNavigationActionK o
toWebNavigationAction :: WebNavigationActionK o => o -> IO WebNavigationAction
toWebNavigationAction = unsafeCastTo WebNavigationAction
-- method WebNavigationAction::get_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_navigation_action_get_button" webkit_web_navigation_action_get_button ::
Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction"
IO Int32
webNavigationActionGetButton ::
(MonadIO m, WebNavigationActionK a) =>
a -> -- _obj
m Int32
webNavigationActionGetButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_button _obj'
touchManagedPtr _obj
return result
-- method WebNavigationAction::get_modifier_state
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_navigation_action_get_modifier_state" webkit_web_navigation_action_get_modifier_state ::
Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction"
IO Int32
webNavigationActionGetModifierState ::
(MonadIO m, WebNavigationActionK a) =>
a -> -- _obj
m Int32
webNavigationActionGetModifierState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_modifier_state _obj'
touchManagedPtr _obj
return result
-- method WebNavigationAction::get_original_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_navigation_action_get_original_uri" webkit_web_navigation_action_get_original_uri ::
Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction"
IO CString
webNavigationActionGetOriginalUri ::
(MonadIO m, WebNavigationActionK a) =>
a -> -- _obj
m T.Text
webNavigationActionGetOriginalUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_original_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebNavigationAction::get_reason
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebNavigationReason"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_navigation_action_get_reason" webkit_web_navigation_action_get_reason ::
Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction"
IO CUInt
webNavigationActionGetReason ::
(MonadIO m, WebNavigationActionK a) =>
a -> -- _obj
m WebNavigationReason
webNavigationActionGetReason _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_reason _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method WebNavigationAction::get_target_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_navigation_action_get_target_frame" webkit_web_navigation_action_get_target_frame ::
Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction"
IO CString
webNavigationActionGetTargetFrame ::
(MonadIO m, WebNavigationActionK a) =>
a -> -- _obj
m T.Text
webNavigationActionGetTargetFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_navigation_action_get_target_frame _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebNavigationAction::set_original_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "originalUri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "originalUri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_navigation_action_set_original_uri" webkit_web_navigation_action_set_original_uri ::
Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction"
CString -> -- originalUri : TBasicType TUTF8
IO ()
webNavigationActionSetOriginalUri ::
(MonadIO m, WebNavigationActionK a) =>
a -> -- _obj
T.Text -> -- originalUri
m ()
webNavigationActionSetOriginalUri _obj originalUri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
originalUri' <- textToCString originalUri
webkit_web_navigation_action_set_original_uri _obj' originalUri'
touchManagedPtr _obj
freeMem originalUri'
return ()
-- method WebNavigationAction::set_reason
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TInterface "WebKit" "WebNavigationReason", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebNavigationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TInterface "WebKit" "WebNavigationReason", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_navigation_action_set_reason" webkit_web_navigation_action_set_reason ::
Ptr WebNavigationAction -> -- _obj : TInterface "WebKit" "WebNavigationAction"
CUInt -> -- reason : TInterface "WebKit" "WebNavigationReason"
IO ()
webNavigationActionSetReason ::
(MonadIO m, WebNavigationActionK a) =>
a -> -- _obj
WebNavigationReason -> -- reason
m ()
webNavigationActionSetReason _obj reason = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reason' = (fromIntegral . fromEnum) reason
webkit_web_navigation_action_set_reason _obj' reason'
touchManagedPtr _obj
return ()
-- Enum WebNavigationReason
data WebNavigationReason =
WebNavigationReasonLinkClicked
| WebNavigationReasonFormSubmitted
| WebNavigationReasonBackForward
| WebNavigationReasonReload
| WebNavigationReasonFormResubmitted
| WebNavigationReasonOther
| AnotherWebNavigationReason Int
deriving (Show, Eq)
instance Enum WebNavigationReason where
fromEnum WebNavigationReasonLinkClicked = 0
fromEnum WebNavigationReasonFormSubmitted = 1
fromEnum WebNavigationReasonBackForward = 2
fromEnum WebNavigationReasonReload = 3
fromEnum WebNavigationReasonFormResubmitted = 4
fromEnum WebNavigationReasonOther = 5
fromEnum (AnotherWebNavigationReason k) = k
toEnum 0 = WebNavigationReasonLinkClicked
toEnum 1 = WebNavigationReasonFormSubmitted
toEnum 2 = WebNavigationReasonBackForward
toEnum 3 = WebNavigationReasonReload
toEnum 4 = WebNavigationReasonFormResubmitted
toEnum 5 = WebNavigationReasonOther
toEnum k = AnotherWebNavigationReason k
foreign import ccall "webkit_web_navigation_reason_get_type" c_webkit_web_navigation_reason_get_type ::
IO GType
instance BoxedEnum WebNavigationReason where
boxedEnumType _ = c_webkit_web_navigation_reason_get_type
-- object WebPlugin
newtype WebPlugin = WebPlugin (ForeignPtr WebPlugin)
noWebPlugin :: Maybe WebPlugin
noWebPlugin = Nothing
foreign import ccall "webkit_web_plugin_get_type"
c_webkit_web_plugin_get_type :: IO GType
type instance ParentTypes WebPlugin = '[GObject.Object]
instance GObject WebPlugin where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_plugin_get_type
class GObject o => WebPluginK o
instance (GObject o, IsDescendantOf WebPlugin o) => WebPluginK o
toWebPlugin :: WebPluginK o => o -> IO WebPlugin
toWebPlugin = unsafeCastTo WebPlugin
-- method WebPlugin::get_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_get_description" webkit_web_plugin_get_description ::
Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin"
IO CString
webPluginGetDescription ::
(MonadIO m, WebPluginK a) =>
a -> -- _obj
m T.Text
webPluginGetDescription _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_plugin_get_description _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebPlugin::get_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_get_enabled" webkit_web_plugin_get_enabled ::
Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin"
IO CInt
webPluginGetEnabled ::
(MonadIO m, WebPluginK a) =>
a -> -- _obj
m Bool
webPluginGetEnabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_plugin_get_enabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebPlugin::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_get_name" webkit_web_plugin_get_name ::
Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin"
IO CString
webPluginGetName ::
(MonadIO m, WebPluginK a) =>
a -> -- _obj
m T.Text
webPluginGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_plugin_get_name _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebPlugin::get_path
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_get_path" webkit_web_plugin_get_path ::
Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin"
IO CString
webPluginGetPath ::
(MonadIO m, WebPluginK a) =>
a -> -- _obj
m T.Text
webPluginGetPath _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_plugin_get_path _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebPlugin::set_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPlugin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_set_enabled" webkit_web_plugin_set_enabled ::
Ptr WebPlugin -> -- _obj : TInterface "WebKit" "WebPlugin"
CInt -> -- enabled : TBasicType TBoolean
IO ()
webPluginSetEnabled ::
(MonadIO m, WebPluginK a) =>
a -> -- _obj
Bool -> -- enabled
m ()
webPluginSetEnabled _obj enabled = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let enabled' = (fromIntegral . fromEnum) enabled
webkit_web_plugin_set_enabled _obj' enabled'
touchManagedPtr _obj
return ()
-- object WebPluginDatabase
newtype WebPluginDatabase = WebPluginDatabase (ForeignPtr WebPluginDatabase)
noWebPluginDatabase :: Maybe WebPluginDatabase
noWebPluginDatabase = Nothing
foreign import ccall "webkit_web_plugin_database_get_type"
c_webkit_web_plugin_database_get_type :: IO GType
type instance ParentTypes WebPluginDatabase = '[GObject.Object]
instance GObject WebPluginDatabase where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_plugin_database_get_type
class GObject o => WebPluginDatabaseK o
instance (GObject o, IsDescendantOf WebPluginDatabase o) => WebPluginDatabaseK o
toWebPluginDatabase :: WebPluginDatabaseK o => o -> IO WebPluginDatabase
toWebPluginDatabase = unsafeCastTo WebPluginDatabase
-- method WebPluginDatabase::get_plugin_for_mimetype
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebPlugin"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_database_get_plugin_for_mimetype" webkit_web_plugin_database_get_plugin_for_mimetype ::
Ptr WebPluginDatabase -> -- _obj : TInterface "WebKit" "WebPluginDatabase"
CString -> -- mime_type : TBasicType TUTF8
IO (Ptr WebPlugin)
webPluginDatabaseGetPluginForMimetype ::
(MonadIO m, WebPluginDatabaseK a) =>
a -> -- _obj
T.Text -> -- mime_type
m WebPlugin
webPluginDatabaseGetPluginForMimetype _obj mime_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mime_type' <- textToCString mime_type
result <- webkit_web_plugin_database_get_plugin_for_mimetype _obj' mime_type'
result' <- (wrapObject WebPlugin) result
touchManagedPtr _obj
freeMem mime_type'
return result'
-- method WebPluginDatabase::get_plugins
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TGSList (TInterface "WebKit" "WebPlugin")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_database_get_plugins" webkit_web_plugin_database_get_plugins ::
Ptr WebPluginDatabase -> -- _obj : TInterface "WebKit" "WebPluginDatabase"
IO (Ptr (GSList (Ptr WebPlugin)))
webPluginDatabaseGetPlugins ::
(MonadIO m, WebPluginDatabaseK a) =>
a -> -- _obj
m [WebPlugin]
webPluginDatabaseGetPlugins _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_plugin_database_get_plugins _obj'
result' <- unpackGSList result
result'' <- mapM (wrapObject WebPlugin) result'
g_slist_free result
touchManagedPtr _obj
return result''
-- method WebPluginDatabase::refresh
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPluginDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_database_refresh" webkit_web_plugin_database_refresh ::
Ptr WebPluginDatabase -> -- _obj : TInterface "WebKit" "WebPluginDatabase"
IO ()
webPluginDatabaseRefresh ::
(MonadIO m, WebPluginDatabaseK a) =>
a -> -- _obj
m ()
webPluginDatabaseRefresh _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_plugin_database_refresh _obj'
touchManagedPtr _obj
return ()
-- method WebPluginDatabase::plugins_list_free
-- method type : MemberFunction
-- Args : [Arg {argName = "list", argType = TGSList (TInterface "WebKit" "WebPlugin"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "list", argType = TGSList (TInterface "WebKit" "WebPlugin"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_plugin_database_plugins_list_free" webkit_web_plugin_database_plugins_list_free ::
Ptr (GSList (Ptr WebPlugin)) -> -- list : TGSList (TInterface "WebKit" "WebPlugin")
IO ()
webPluginDatabasePluginsListFree ::
(MonadIO m, WebPluginK a) =>
[a] -> -- list
m ()
webPluginDatabasePluginsListFree list = liftIO $ do
let list' = map unsafeManagedPtrCastPtr list
list'' <- packGSList list'
webkit_web_plugin_database_plugins_list_free list''
mapM_ touchManagedPtr list
g_slist_free list''
return ()
-- struct WebPluginMIMEType
newtype WebPluginMIMEType = WebPluginMIMEType (ForeignPtr WebPluginMIMEType)
noWebPluginMIMEType :: Maybe WebPluginMIMEType
noWebPluginMIMEType = Nothing
webPluginMIMETypeReadName :: WebPluginMIMEType -> IO T.Text
webPluginMIMETypeReadName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
webPluginMIMETypeReadDescription :: WebPluginMIMEType -> IO T.Text
webPluginMIMETypeReadDescription s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
webPluginMIMETypeReadExtensions :: WebPluginMIMEType -> IO T.Text
webPluginMIMETypeReadExtensions s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
-- object WebPolicyDecision
newtype WebPolicyDecision = WebPolicyDecision (ForeignPtr WebPolicyDecision)
noWebPolicyDecision :: Maybe WebPolicyDecision
noWebPolicyDecision = Nothing
foreign import ccall "webkit_web_policy_decision_get_type"
c_webkit_web_policy_decision_get_type :: IO GType
type instance ParentTypes WebPolicyDecision = '[GObject.Object]
instance GObject WebPolicyDecision where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_policy_decision_get_type
class GObject o => WebPolicyDecisionK o
instance (GObject o, IsDescendantOf WebPolicyDecision o) => WebPolicyDecisionK o
toWebPolicyDecision :: WebPolicyDecisionK o => o -> IO WebPolicyDecision
toWebPolicyDecision = unsafeCastTo WebPolicyDecision
-- method WebPolicyDecision::download
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_policy_decision_download" webkit_web_policy_decision_download ::
Ptr WebPolicyDecision -> -- _obj : TInterface "WebKit" "WebPolicyDecision"
IO ()
webPolicyDecisionDownload ::
(MonadIO m, WebPolicyDecisionK a) =>
a -> -- _obj
m ()
webPolicyDecisionDownload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_policy_decision_download _obj'
touchManagedPtr _obj
return ()
-- method WebPolicyDecision::ignore
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_policy_decision_ignore" webkit_web_policy_decision_ignore ::
Ptr WebPolicyDecision -> -- _obj : TInterface "WebKit" "WebPolicyDecision"
IO ()
webPolicyDecisionIgnore ::
(MonadIO m, WebPolicyDecisionK a) =>
a -> -- _obj
m ()
webPolicyDecisionIgnore _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_policy_decision_ignore _obj'
touchManagedPtr _obj
return ()
-- method WebPolicyDecision::use
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_policy_decision_use" webkit_web_policy_decision_use ::
Ptr WebPolicyDecision -> -- _obj : TInterface "WebKit" "WebPolicyDecision"
IO ()
webPolicyDecisionUse ::
(MonadIO m, WebPolicyDecisionK a) =>
a -> -- _obj
m ()
webPolicyDecisionUse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_policy_decision_use _obj'
touchManagedPtr _obj
return ()
-- object WebResource
newtype WebResource = WebResource (ForeignPtr WebResource)
noWebResource :: Maybe WebResource
noWebResource = Nothing
foreign import ccall "webkit_web_resource_get_type"
c_webkit_web_resource_get_type :: IO GType
type instance ParentTypes WebResource = '[GObject.Object]
instance GObject WebResource where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_resource_get_type
class GObject o => WebResourceK o
instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o
toWebResource :: WebResourceK o => o -> IO WebResource
toWebResource = unsafeCastTo WebResource
-- method WebResource::new
-- method type : Constructor
-- Args : [Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebResource"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_resource_new" webkit_web_resource_new ::
CString -> -- data : TBasicType TUTF8
Int64 -> -- size : TBasicType TInt64
CString -> -- uri : TBasicType TUTF8
CString -> -- mime_type : TBasicType TUTF8
CString -> -- encoding : TBasicType TUTF8
CString -> -- frame_name : TBasicType TUTF8
IO (Ptr WebResource)
webResourceNew ::
(MonadIO m) =>
T.Text -> -- data
Int64 -> -- size
T.Text -> -- uri
T.Text -> -- mime_type
T.Text -> -- encoding
T.Text -> -- frame_name
m WebResource
webResourceNew data_ size uri mime_type encoding frame_name = liftIO $ do
data_' <- textToCString data_
uri' <- textToCString uri
mime_type' <- textToCString mime_type
encoding' <- textToCString encoding
frame_name' <- textToCString frame_name
result <- webkit_web_resource_new data_' size uri' mime_type' encoding' frame_name'
result' <- (wrapObject WebResource) result
freeMem data_'
freeMem uri'
freeMem mime_type'
freeMem encoding'
freeMem frame_name'
return result'
-- method WebResource::get_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "String"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_resource_get_data" webkit_web_resource_get_data ::
Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource"
IO (Ptr GLib.String)
webResourceGetData ::
(MonadIO m, WebResourceK a) =>
a -> -- _obj
m GLib.String
webResourceGetData _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_data _obj'
result' <- (newBoxed GLib.String) result
touchManagedPtr _obj
return result'
-- method WebResource::get_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_resource_get_encoding" webkit_web_resource_get_encoding ::
Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource"
IO CString
webResourceGetEncoding ::
(MonadIO m, WebResourceK a) =>
a -> -- _obj
m T.Text
webResourceGetEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_encoding _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebResource::get_frame_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_resource_get_frame_name" webkit_web_resource_get_frame_name ::
Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource"
IO CString
webResourceGetFrameName ::
(MonadIO m, WebResourceK a) =>
a -> -- _obj
m T.Text
webResourceGetFrameName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_frame_name _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebResource::get_mime_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_resource_get_mime_type" webkit_web_resource_get_mime_type ::
Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource"
IO CString
webResourceGetMimeType ::
(MonadIO m, WebResourceK a) =>
a -> -- _obj
m T.Text
webResourceGetMimeType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_mime_type _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebResource::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_resource_get_uri" webkit_web_resource_get_uri ::
Ptr WebResource -> -- _obj : TInterface "WebKit" "WebResource"
IO CString
webResourceGetUri ::
(MonadIO m, WebResourceK a) =>
a -> -- _obj
m T.Text
webResourceGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- signal WebResource::content-length-received
type WebResourceContentLengthReceivedCallback =
Int32 ->
IO ()
noWebResourceContentLengthReceivedCallback :: Maybe WebResourceContentLengthReceivedCallback
noWebResourceContentLengthReceivedCallback = Nothing
type WebResourceContentLengthReceivedCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebResourceContentLengthReceivedCallback :: WebResourceContentLengthReceivedCallbackC -> IO (FunPtr WebResourceContentLengthReceivedCallbackC)
webResourceContentLengthReceivedClosure :: WebResourceContentLengthReceivedCallback -> IO Closure
webResourceContentLengthReceivedClosure cb = newCClosure =<< mkWebResourceContentLengthReceivedCallback wrapped
where wrapped = webResourceContentLengthReceivedCallbackWrapper cb
webResourceContentLengthReceivedCallbackWrapper ::
WebResourceContentLengthReceivedCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
webResourceContentLengthReceivedCallbackWrapper _cb _ length_received _ = do
_cb length_received
onWebResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebResourceContentLengthReceivedCallback -> m SignalHandlerId
onWebResourceContentLengthReceived obj cb = liftIO $ connectWebResourceContentLengthReceived obj cb SignalConnectBefore
afterWebResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebResourceContentLengthReceivedCallback -> m SignalHandlerId
afterWebResourceContentLengthReceived obj cb = connectWebResourceContentLengthReceived obj cb SignalConnectAfter
connectWebResourceContentLengthReceived :: (GObject a, MonadIO m) =>
a -> WebResourceContentLengthReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebResourceContentLengthReceived obj cb after = liftIO $ do
cb' <- mkWebResourceContentLengthReceivedCallback (webResourceContentLengthReceivedCallbackWrapper cb)
connectSignalFunPtr obj "content-length-received" cb' after
-- signal WebResource::load-failed
type WebResourceLoadFailedCallback =
Ptr () ->
IO ()
noWebResourceLoadFailedCallback :: Maybe WebResourceLoadFailedCallback
noWebResourceLoadFailedCallback = Nothing
type WebResourceLoadFailedCallbackC =
Ptr () -> -- object
Ptr () ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebResourceLoadFailedCallback :: WebResourceLoadFailedCallbackC -> IO (FunPtr WebResourceLoadFailedCallbackC)
webResourceLoadFailedClosure :: WebResourceLoadFailedCallback -> IO Closure
webResourceLoadFailedClosure cb = newCClosure =<< mkWebResourceLoadFailedCallback wrapped
where wrapped = webResourceLoadFailedCallbackWrapper cb
webResourceLoadFailedCallbackWrapper ::
WebResourceLoadFailedCallback ->
Ptr () ->
Ptr () ->
Ptr () ->
IO ()
webResourceLoadFailedCallbackWrapper _cb _ error_ _ = do
_cb error_
onWebResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebResourceLoadFailedCallback -> m SignalHandlerId
onWebResourceLoadFailed obj cb = liftIO $ connectWebResourceLoadFailed obj cb SignalConnectBefore
afterWebResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebResourceLoadFailedCallback -> m SignalHandlerId
afterWebResourceLoadFailed obj cb = connectWebResourceLoadFailed obj cb SignalConnectAfter
connectWebResourceLoadFailed :: (GObject a, MonadIO m) =>
a -> WebResourceLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebResourceLoadFailed obj cb after = liftIO $ do
cb' <- mkWebResourceLoadFailedCallback (webResourceLoadFailedCallbackWrapper cb)
connectSignalFunPtr obj "load-failed" cb' after
-- signal WebResource::load-finished
type WebResourceLoadFinishedCallback =
IO ()
noWebResourceLoadFinishedCallback :: Maybe WebResourceLoadFinishedCallback
noWebResourceLoadFinishedCallback = Nothing
type WebResourceLoadFinishedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebResourceLoadFinishedCallback :: WebResourceLoadFinishedCallbackC -> IO (FunPtr WebResourceLoadFinishedCallbackC)
webResourceLoadFinishedClosure :: WebResourceLoadFinishedCallback -> IO Closure
webResourceLoadFinishedClosure cb = newCClosure =<< mkWebResourceLoadFinishedCallback wrapped
where wrapped = webResourceLoadFinishedCallbackWrapper cb
webResourceLoadFinishedCallbackWrapper ::
WebResourceLoadFinishedCallback ->
Ptr () ->
Ptr () ->
IO ()
webResourceLoadFinishedCallbackWrapper _cb _ _ = do
_cb
onWebResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebResourceLoadFinishedCallback -> m SignalHandlerId
onWebResourceLoadFinished obj cb = liftIO $ connectWebResourceLoadFinished obj cb SignalConnectBefore
afterWebResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebResourceLoadFinishedCallback -> m SignalHandlerId
afterWebResourceLoadFinished obj cb = connectWebResourceLoadFinished obj cb SignalConnectAfter
connectWebResourceLoadFinished :: (GObject a, MonadIO m) =>
a -> WebResourceLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebResourceLoadFinished obj cb after = liftIO $ do
cb' <- mkWebResourceLoadFinishedCallback (webResourceLoadFinishedCallbackWrapper cb)
connectSignalFunPtr obj "load-finished" cb' after
-- signal WebResource::response-received
type WebResourceResponseReceivedCallback =
NetworkResponse ->
IO ()
noWebResourceResponseReceivedCallback :: Maybe WebResourceResponseReceivedCallback
noWebResourceResponseReceivedCallback = Nothing
type WebResourceResponseReceivedCallbackC =
Ptr () -> -- object
Ptr NetworkResponse ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebResourceResponseReceivedCallback :: WebResourceResponseReceivedCallbackC -> IO (FunPtr WebResourceResponseReceivedCallbackC)
webResourceResponseReceivedClosure :: WebResourceResponseReceivedCallback -> IO Closure
webResourceResponseReceivedClosure cb = newCClosure =<< mkWebResourceResponseReceivedCallback wrapped
where wrapped = webResourceResponseReceivedCallbackWrapper cb
webResourceResponseReceivedCallbackWrapper ::
WebResourceResponseReceivedCallback ->
Ptr () ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
webResourceResponseReceivedCallbackWrapper _cb _ response _ = do
response' <- (newObject NetworkResponse) response
_cb response'
onWebResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebResourceResponseReceivedCallback -> m SignalHandlerId
onWebResourceResponseReceived obj cb = liftIO $ connectWebResourceResponseReceived obj cb SignalConnectBefore
afterWebResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebResourceResponseReceivedCallback -> m SignalHandlerId
afterWebResourceResponseReceived obj cb = connectWebResourceResponseReceived obj cb SignalConnectAfter
connectWebResourceResponseReceived :: (GObject a, MonadIO m) =>
a -> WebResourceResponseReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebResourceResponseReceived obj cb after = liftIO $ do
cb' <- mkWebResourceResponseReceivedCallback (webResourceResponseReceivedCallbackWrapper cb)
connectSignalFunPtr obj "response-received" cb' after
-- object WebSettings
newtype WebSettings = WebSettings (ForeignPtr WebSettings)
noWebSettings :: Maybe WebSettings
noWebSettings = Nothing
foreign import ccall "webkit_web_settings_get_type"
c_webkit_web_settings_get_type :: IO GType
type instance ParentTypes WebSettings = '[GObject.Object]
instance GObject WebSettings where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_settings_get_type
class GObject o => WebSettingsK o
instance (GObject o, IsDescendantOf WebSettings o) => WebSettingsK o
toWebSettings :: WebSettingsK o => o -> IO WebSettings
toWebSettings = unsafeCastTo WebSettings
-- method WebSettings::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "WebSettings"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_settings_new" webkit_web_settings_new ::
IO (Ptr WebSettings)
webSettingsNew ::
(MonadIO m) =>
m WebSettings
webSettingsNew = liftIO $ do
result <- webkit_web_settings_new
result' <- (wrapObject WebSettings) result
return result'
-- method WebSettings::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebSettings"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_settings_copy" webkit_web_settings_copy ::
Ptr WebSettings -> -- _obj : TInterface "WebKit" "WebSettings"
IO (Ptr WebSettings)
webSettingsCopy ::
(MonadIO m, WebSettingsK a) =>
a -> -- _obj
m WebSettings
webSettingsCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_settings_copy _obj'
result' <- (wrapObject WebSettings) result
touchManagedPtr _obj
return result'
-- method WebSettings::get_user_agent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_settings_get_user_agent" webkit_web_settings_get_user_agent ::
Ptr WebSettings -> -- _obj : TInterface "WebKit" "WebSettings"
IO CString
webSettingsGetUserAgent ::
(MonadIO m, WebSettingsK a) =>
a -> -- _obj
m T.Text
webSettingsGetUserAgent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_settings_get_user_agent _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- object WebView
newtype WebView = WebView (ForeignPtr WebView)
noWebView :: Maybe WebView
noWebView = Nothing
foreign import ccall "webkit_web_view_get_type"
c_webkit_web_view_get_type :: IO GType
type instance ParentTypes WebView = '[Gtk.Container, Gtk.Widget, GObject.Object, Atk.ImplementorIface, Gtk.Buildable, Gtk.Scrollable]
instance GObject WebView where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_webkit_web_view_get_type
class GObject o => WebViewK o
instance (GObject o, IsDescendantOf WebView o) => WebViewK o
toWebView :: WebViewK o => o -> IO WebView
toWebView = unsafeCastTo WebView
-- method WebView::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "WebView"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_new" webkit_web_view_new ::
IO (Ptr WebView)
webViewNew ::
(MonadIO m) =>
m WebView
webViewNew = liftIO $ do
result <- webkit_web_view_new
result' <- (newObject WebView) result
return result'
-- method WebView::can_copy_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_copy_clipboard" webkit_web_view_can_copy_clipboard ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewCanCopyClipboard ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanCopyClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_copy_clipboard _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_cut_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_cut_clipboard" webkit_web_view_can_cut_clipboard ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewCanCutClipboard ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanCutClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_cut_clipboard _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_go_back
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_go_back" webkit_web_view_can_go_back ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewCanGoBack ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanGoBack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_go_back _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_go_back_or_forward
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_go_back_or_forward" webkit_web_view_can_go_back_or_forward ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
Int32 -> -- steps : TBasicType TInt32
IO CInt
webViewCanGoBackOrForward ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Int32 -> -- steps
m Bool
webViewCanGoBackOrForward _obj steps = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_go_back_or_forward _obj' steps
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_go_forward
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_go_forward" webkit_web_view_can_go_forward ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewCanGoForward ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanGoForward _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_go_forward _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_paste_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_paste_clipboard" webkit_web_view_can_paste_clipboard ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewCanPasteClipboard ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanPasteClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_paste_clipboard _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_redo
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_redo" webkit_web_view_can_redo ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewCanRedo ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanRedo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_redo _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::can_show_mime_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_show_mime_type" webkit_web_view_can_show_mime_type ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- mime_type : TBasicType TUTF8
IO CInt
webViewCanShowMimeType ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- mime_type
m Bool
webViewCanShowMimeType _obj mime_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
mime_type' <- textToCString mime_type
result <- webkit_web_view_can_show_mime_type _obj' mime_type'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem mime_type'
return result'
-- method WebView::can_undo
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_can_undo" webkit_web_view_can_undo ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewCanUndo ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewCanUndo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_can_undo _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::copy_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_copy_clipboard" webkit_web_view_copy_clipboard ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewCopyClipboard ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewCopyClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_copy_clipboard _obj'
touchManagedPtr _obj
return ()
-- method WebView::cut_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_cut_clipboard" webkit_web_view_cut_clipboard ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewCutClipboard ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewCutClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_cut_clipboard _obj'
touchManagedPtr _obj
return ()
-- method WebView::delete_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_delete_selection" webkit_web_view_delete_selection ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewDeleteSelection ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewDeleteSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_delete_selection _obj'
touchManagedPtr _obj
return ()
-- method WebView::execute_script
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_execute_script" webkit_web_view_execute_script ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- script : TBasicType TUTF8
IO ()
webViewExecuteScript ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- script
m ()
webViewExecuteScript _obj script = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
script' <- textToCString script
webkit_web_view_execute_script _obj' script'
touchManagedPtr _obj
freeMem script'
return ()
-- method WebView::get_back_forward_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebBackForwardList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_back_forward_list" webkit_web_view_get_back_forward_list ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr WebBackForwardList)
webViewGetBackForwardList ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebBackForwardList
webViewGetBackForwardList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_back_forward_list _obj'
result' <- (newObject WebBackForwardList) result
touchManagedPtr _obj
return result'
-- method WebView::get_copy_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_copy_target_list" webkit_web_view_get_copy_target_list ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr Gtk.TargetList)
webViewGetCopyTargetList ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Gtk.TargetList
webViewGetCopyTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_copy_target_list _obj'
result' <- (wrapBoxed Gtk.TargetList) result
touchManagedPtr _obj
return result'
-- method WebView::get_custom_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_custom_encoding" webkit_web_view_get_custom_encoding ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CString
webViewGetCustomEncoding ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m T.Text
webViewGetCustomEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_custom_encoding _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebView::get_dom_document
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", 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_web_view_get_dom_document" webkit_web_view_get_dom_document ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr DOMDocument)
webViewGetDomDocument ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m DOMDocument
webViewGetDomDocument _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_dom_document _obj'
result' <- (newObject DOMDocument) result
touchManagedPtr _obj
return result'
-- method WebView::get_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_editable" webkit_web_view_get_editable ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewGetEditable ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewGetEditable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_editable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::get_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_encoding" webkit_web_view_get_encoding ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CString
webViewGetEncoding ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m T.Text
webViewGetEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_encoding _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebView::get_focused_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebFrame"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_focused_frame" webkit_web_view_get_focused_frame ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr WebFrame)
webViewGetFocusedFrame ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebFrame
webViewGetFocusedFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_focused_frame _obj'
result' <- (newObject WebFrame) result
touchManagedPtr _obj
return result'
-- method WebView::get_full_content_zoom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_full_content_zoom" webkit_web_view_get_full_content_zoom ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewGetFullContentZoom ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewGetFullContentZoom _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_full_content_zoom _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::get_hit_test_result
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "HitTestResult"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_hit_test_result" webkit_web_view_get_hit_test_result ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
Ptr Gdk.EventButton -> -- event : TInterface "Gdk" "EventButton"
IO (Ptr HitTestResult)
webViewGetHitTestResult ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Gdk.EventButton -> -- event
m HitTestResult
webViewGetHitTestResult _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- webkit_web_view_get_hit_test_result _obj' event'
result' <- (wrapObject HitTestResult) result
touchManagedPtr _obj
touchManagedPtr event
return result'
-- method WebView::get_icon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_icon_pixbuf" webkit_web_view_get_icon_pixbuf ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr GdkPixbuf.Pixbuf)
{-# DEPRECATED webViewGetIconPixbuf ["(Since version 1.8)","Use webkit_web_view_try_get_favicon_pixbuf() instead."]#-}
webViewGetIconPixbuf ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m GdkPixbuf.Pixbuf
webViewGetIconPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_icon_pixbuf _obj'
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method WebView::get_icon_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_icon_uri" webkit_web_view_get_icon_uri ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CString
webViewGetIconUri ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m T.Text
webViewGetIconUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_icon_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebView::get_inspector
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebInspector"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_inspector" webkit_web_view_get_inspector ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr WebInspector)
webViewGetInspector ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebInspector
webViewGetInspector _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_inspector _obj'
result' <- (newObject WebInspector) result
touchManagedPtr _obj
return result'
-- method WebView::get_load_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "LoadStatus"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_load_status" webkit_web_view_get_load_status ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CUInt
webViewGetLoadStatus ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m LoadStatus
webViewGetLoadStatus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_load_status _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method WebView::get_main_frame
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebFrame"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_main_frame" webkit_web_view_get_main_frame ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr WebFrame)
webViewGetMainFrame ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebFrame
webViewGetMainFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_main_frame _obj'
result' <- (newObject WebFrame) result
touchManagedPtr _obj
return result'
-- method WebView::get_paste_target_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TargetList"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_paste_target_list" webkit_web_view_get_paste_target_list ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr Gtk.TargetList)
webViewGetPasteTargetList ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Gtk.TargetList
webViewGetPasteTargetList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_paste_target_list _obj'
result' <- (wrapBoxed Gtk.TargetList) result
touchManagedPtr _obj
return result'
-- method WebView::get_progress
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_progress" webkit_web_view_get_progress ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CDouble
webViewGetProgress ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Double
webViewGetProgress _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_progress _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method WebView::get_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebSettings"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_settings" webkit_web_view_get_settings ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr WebSettings)
webViewGetSettings ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebSettings
webViewGetSettings _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_settings _obj'
result' <- (newObject WebSettings) result
touchManagedPtr _obj
return result'
-- method WebView::get_snapshot
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "cairo" "Surface"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_snapshot" webkit_web_view_get_snapshot ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr Cairo.Surface)
webViewGetSnapshot ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Cairo.Surface
webViewGetSnapshot _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_snapshot _obj'
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
return result'
-- method WebView::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_title" webkit_web_view_get_title ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CString
webViewGetTitle ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m T.Text
webViewGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_title _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebView::get_transparent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_transparent" webkit_web_view_get_transparent ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewGetTransparent ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewGetTransparent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_transparent _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::get_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_uri" webkit_web_view_get_uri ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CString
webViewGetUri ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m T.Text
webViewGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_uri _obj'
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method WebView::get_view_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebViewViewMode"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_view_mode" webkit_web_view_get_view_mode ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CUInt
webViewGetViewMode ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebViewViewMode
webViewGetViewMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_view_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method WebView::get_view_source_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_view_source_mode" webkit_web_view_get_view_source_mode ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewGetViewSourceMode ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewGetViewSourceMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_view_source_mode _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::get_viewport_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "ViewportAttributes"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_viewport_attributes" webkit_web_view_get_viewport_attributes ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr ViewportAttributes)
webViewGetViewportAttributes ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ViewportAttributes
webViewGetViewportAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_viewport_attributes _obj'
result' <- (newObject ViewportAttributes) result
touchManagedPtr _obj
return result'
-- method WebView::get_window_features
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "WebWindowFeatures"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_window_features" webkit_web_view_get_window_features ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO (Ptr WebWindowFeatures)
webViewGetWindowFeatures ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m WebWindowFeatures
webViewGetWindowFeatures _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_window_features _obj'
result' <- (newObject WebWindowFeatures) result
touchManagedPtr _obj
return result'
-- method WebView::get_zoom_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_get_zoom_level" webkit_web_view_get_zoom_level ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CFloat
webViewGetZoomLevel ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Float
webViewGetZoomLevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_get_zoom_level _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method WebView::go_back
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_go_back" webkit_web_view_go_back ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewGoBack ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewGoBack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_go_back _obj'
touchManagedPtr _obj
return ()
-- method WebView::go_back_or_forward
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "steps", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_go_back_or_forward" webkit_web_view_go_back_or_forward ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
Int32 -> -- steps : TBasicType TInt32
IO ()
webViewGoBackOrForward ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Int32 -> -- steps
m ()
webViewGoBackOrForward _obj steps = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_go_back_or_forward _obj' steps
touchManagedPtr _obj
return ()
-- method WebView::go_forward
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_go_forward" webkit_web_view_go_forward ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewGoForward ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewGoForward _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_go_forward _obj'
touchManagedPtr _obj
return ()
-- method WebView::go_to_back_forward_item
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit" "WebHistoryItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_go_to_back_forward_item" webkit_web_view_go_to_back_forward_item ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
Ptr WebHistoryItem -> -- item : TInterface "WebKit" "WebHistoryItem"
IO CInt
webViewGoToBackForwardItem ::
(MonadIO m, WebViewK a, WebHistoryItemK b) =>
a -> -- _obj
b -> -- item
m Bool
webViewGoToBackForwardItem _obj item = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let item' = unsafeManagedPtrCastPtr item
result <- webkit_web_view_go_to_back_forward_item _obj' item'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr item
return result'
-- method WebView::has_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_has_selection" webkit_web_view_has_selection ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO CInt
webViewHasSelection ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m Bool
webViewHasSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_has_selection _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method WebView::load_html_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_html_string" webkit_web_view_load_html_string ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- content : TBasicType TUTF8
CString -> -- base_uri : TBasicType TUTF8
IO ()
{-# DEPRECATED webViewLoadHtmlString ["(Since version 1.1.1)","Use webkit_web_view_load_string() instead."]#-}
webViewLoadHtmlString ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- content
T.Text -> -- base_uri
m ()
webViewLoadHtmlString _obj content base_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
base_uri' <- textToCString base_uri
webkit_web_view_load_html_string _obj' content' base_uri'
touchManagedPtr _obj
freeMem content'
freeMem base_uri'
return ()
-- method WebView::load_request
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request", argType = TInterface "WebKit" "NetworkRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_request" webkit_web_view_load_request ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
Ptr NetworkRequest -> -- request : TInterface "WebKit" "NetworkRequest"
IO ()
webViewLoadRequest ::
(MonadIO m, WebViewK a, NetworkRequestK b) =>
a -> -- _obj
b -> -- request
m ()
webViewLoadRequest _obj request = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let request' = unsafeManagedPtrCastPtr request
webkit_web_view_load_request _obj' request'
touchManagedPtr _obj
touchManagedPtr request
return ()
-- method WebView::load_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_string" webkit_web_view_load_string ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- content : TBasicType TUTF8
CString -> -- mime_type : TBasicType TUTF8
CString -> -- encoding : TBasicType TUTF8
CString -> -- base_uri : TBasicType TUTF8
IO ()
webViewLoadString ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- content
T.Text -> -- mime_type
T.Text -> -- encoding
T.Text -> -- base_uri
m ()
webViewLoadString _obj content mime_type encoding base_uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
mime_type' <- textToCString mime_type
encoding' <- textToCString encoding
base_uri' <- textToCString base_uri
webkit_web_view_load_string _obj' content' mime_type' encoding' base_uri'
touchManagedPtr _obj
freeMem content'
freeMem mime_type'
freeMem encoding'
freeMem base_uri'
return ()
-- method WebView::load_uri
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_load_uri" webkit_web_view_load_uri ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- uri : TBasicType TUTF8
IO ()
webViewLoadUri ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
webViewLoadUri _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
webkit_web_view_load_uri _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- method WebView::mark_text_matches
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", 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 = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", 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 = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_mark_text_matches" webkit_web_view_mark_text_matches ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- string : TBasicType TUTF8
CInt -> -- case_sensitive : TBasicType TBoolean
Word32 -> -- limit : TBasicType TUInt32
IO Word32
webViewMarkTextMatches ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- string
Bool -> -- case_sensitive
Word32 -> -- limit
m Word32
webViewMarkTextMatches _obj string case_sensitive limit = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
string' <- textToCString string
let case_sensitive' = (fromIntegral . fromEnum) case_sensitive
result <- webkit_web_view_mark_text_matches _obj' string' case_sensitive' limit
touchManagedPtr _obj
freeMem string'
return result
-- method WebView::move_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TInterface "Gtk" "MovementStep", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TInterface "Gtk" "MovementStep", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_move_cursor" webkit_web_view_move_cursor ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CUInt -> -- step : TInterface "Gtk" "MovementStep"
Int32 -> -- count : TBasicType TInt32
IO ()
webViewMoveCursor ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Gtk.MovementStep -> -- step
Int32 -> -- count
m ()
webViewMoveCursor _obj step count = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let step' = (fromIntegral . fromEnum) step
webkit_web_view_move_cursor _obj' step' count
touchManagedPtr _obj
return ()
-- method WebView::open
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_open" webkit_web_view_open ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- uri : TBasicType TUTF8
IO ()
{-# DEPRECATED webViewOpen ["(Since version 1.1.1)","Use webkit_web_view_load_uri() instead."]#-}
webViewOpen ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- uri
m ()
webViewOpen _obj uri = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
uri' <- textToCString uri
webkit_web_view_open _obj' uri'
touchManagedPtr _obj
freeMem uri'
return ()
-- method WebView::paste_clipboard
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_paste_clipboard" webkit_web_view_paste_clipboard ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewPasteClipboard ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewPasteClipboard _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_paste_clipboard _obj'
touchManagedPtr _obj
return ()
-- method WebView::redo
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_redo" webkit_web_view_redo ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewRedo ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewRedo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_redo _obj'
touchManagedPtr _obj
return ()
-- method WebView::reload
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_reload" webkit_web_view_reload ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewReload ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewReload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_reload _obj'
touchManagedPtr _obj
return ()
-- method WebView::reload_bypass_cache
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_reload_bypass_cache" webkit_web_view_reload_bypass_cache ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewReloadBypassCache ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewReloadBypassCache _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_reload_bypass_cache _obj'
touchManagedPtr _obj
return ()
-- method WebView::search_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "forward", 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}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "case_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "forward", 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}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_search_text" webkit_web_view_search_text ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- text : TBasicType TUTF8
CInt -> -- case_sensitive : TBasicType TBoolean
CInt -> -- forward : TBasicType TBoolean
CInt -> -- wrap : TBasicType TBoolean
IO CInt
webViewSearchText ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- text
Bool -> -- case_sensitive
Bool -> -- forward
Bool -> -- wrap
m Bool
webViewSearchText _obj text case_sensitive forward wrap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
let case_sensitive' = (fromIntegral . fromEnum) case_sensitive
let forward' = (fromIntegral . fromEnum) forward
let wrap' = (fromIntegral . fromEnum) wrap
result <- webkit_web_view_search_text _obj' text' case_sensitive' forward' wrap'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem text'
return result'
-- method WebView::select_all
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_select_all" webkit_web_view_select_all ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewSelectAll ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewSelectAll _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_select_all _obj'
touchManagedPtr _obj
return ()
-- method WebView::set_custom_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_custom_encoding" webkit_web_view_set_custom_encoding ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CString -> -- encoding : TBasicType TUTF8
IO ()
webViewSetCustomEncoding ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
T.Text -> -- encoding
m ()
webViewSetCustomEncoding _obj encoding = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
encoding' <- textToCString encoding
webkit_web_view_set_custom_encoding _obj' encoding'
touchManagedPtr _obj
freeMem encoding'
return ()
-- method WebView::set_editable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_editable" webkit_web_view_set_editable ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CInt -> -- flag : TBasicType TBoolean
IO ()
webViewSetEditable ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Bool -> -- flag
m ()
webViewSetEditable _obj flag = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flag' = (fromIntegral . fromEnum) flag
webkit_web_view_set_editable _obj' flag'
touchManagedPtr _obj
return ()
-- method WebView::set_full_content_zoom
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_content_zoom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_content_zoom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_full_content_zoom" webkit_web_view_set_full_content_zoom ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CInt -> -- full_content_zoom : TBasicType TBoolean
IO ()
webViewSetFullContentZoom ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Bool -> -- full_content_zoom
m ()
webViewSetFullContentZoom _obj full_content_zoom = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let full_content_zoom' = (fromIntegral . fromEnum) full_content_zoom
webkit_web_view_set_full_content_zoom _obj' full_content_zoom'
touchManagedPtr _obj
return ()
-- method WebView::set_highlight_text_matches
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "highlight", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "highlight", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_highlight_text_matches" webkit_web_view_set_highlight_text_matches ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CInt -> -- highlight : TBasicType TBoolean
IO ()
webViewSetHighlightTextMatches ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Bool -> -- highlight
m ()
webViewSetHighlightTextMatches _obj highlight = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let highlight' = (fromIntegral . fromEnum) highlight
webkit_web_view_set_highlight_text_matches _obj' highlight'
touchManagedPtr _obj
return ()
-- method WebView::set_maintains_back_forward_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_maintains_back_forward_list" webkit_web_view_set_maintains_back_forward_list ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CInt -> -- flag : TBasicType TBoolean
IO ()
webViewSetMaintainsBackForwardList ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Bool -> -- flag
m ()
webViewSetMaintainsBackForwardList _obj flag = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flag' = (fromIntegral . fromEnum) flag
webkit_web_view_set_maintains_back_forward_list _obj' flag'
touchManagedPtr _obj
return ()
-- method WebView::set_settings
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "WebKit" "WebSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_settings" webkit_web_view_set_settings ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
Ptr WebSettings -> -- settings : TInterface "WebKit" "WebSettings"
IO ()
webViewSetSettings ::
(MonadIO m, WebViewK a, WebSettingsK b) =>
a -> -- _obj
b -> -- settings
m ()
webViewSetSettings _obj settings = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let settings' = unsafeManagedPtrCastPtr settings
webkit_web_view_set_settings _obj' settings'
touchManagedPtr _obj
touchManagedPtr settings
return ()
-- method WebView::set_transparent
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flag", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_transparent" webkit_web_view_set_transparent ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CInt -> -- flag : TBasicType TBoolean
IO ()
webViewSetTransparent ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Bool -> -- flag
m ()
webViewSetTransparent _obj flag = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flag' = (fromIntegral . fromEnum) flag
webkit_web_view_set_transparent _obj' flag'
touchManagedPtr _obj
return ()
-- method WebView::set_view_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "WebKit" "WebViewViewMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "WebKit" "WebViewViewMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_view_mode" webkit_web_view_set_view_mode ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CUInt -> -- mode : TInterface "WebKit" "WebViewViewMode"
IO ()
webViewSetViewMode ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
WebViewViewMode -> -- mode
m ()
webViewSetViewMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
webkit_web_view_set_view_mode _obj' mode'
touchManagedPtr _obj
return ()
-- method WebView::set_view_source_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view_source_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "view_source_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_set_view_source_mode" webkit_web_view_set_view_source_mode ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CInt -> -- view_source_mode : TBasicType TBoolean
IO ()
webViewSetViewSourceMode ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Bool -> -- view_source_mode
m ()
webViewSetViewSourceMode _obj view_source_mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let view_source_mode' = (fromIntegral . fromEnum) view_source_mode
webkit_web_view_set_view_source_mode _obj' view_source_mode'
touchManagedPtr _obj
return ()
-- method WebView::set_zoom_level
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_level", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "zoom_level", 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_web_view_set_zoom_level" webkit_web_view_set_zoom_level ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
CFloat -> -- zoom_level : TBasicType TFloat
IO ()
webViewSetZoomLevel ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Float -> -- zoom_level
m ()
webViewSetZoomLevel _obj zoom_level = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let zoom_level' = realToFrac zoom_level
webkit_web_view_set_zoom_level _obj' zoom_level'
touchManagedPtr _obj
return ()
-- method WebView::stop_loading
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_stop_loading" webkit_web_view_stop_loading ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewStopLoading ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewStopLoading _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_stop_loading _obj'
touchManagedPtr _obj
return ()
-- method WebView::try_get_favicon_pixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_try_get_favicon_pixbuf" webkit_web_view_try_get_favicon_pixbuf ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
Word32 -> -- width : TBasicType TUInt32
Word32 -> -- height : TBasicType TUInt32
IO (Ptr GdkPixbuf.Pixbuf)
webViewTryGetFaviconPixbuf ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
Word32 -> -- width
Word32 -> -- height
m GdkPixbuf.Pixbuf
webViewTryGetFaviconPixbuf _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_view_try_get_favicon_pixbuf _obj' width height
result' <- (wrapObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
-- method WebView::undo
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_undo" webkit_web_view_undo ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewUndo ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewUndo _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_undo _obj'
touchManagedPtr _obj
return ()
-- method WebView::unmark_text_matches
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_unmark_text_matches" webkit_web_view_unmark_text_matches ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewUnmarkTextMatches ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewUnmarkTextMatches _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_unmark_text_matches _obj'
touchManagedPtr _obj
return ()
-- method WebView::zoom_in
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_zoom_in" webkit_web_view_zoom_in ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewZoomIn ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewZoomIn _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_zoom_in _obj'
touchManagedPtr _obj
return ()
-- method WebView::zoom_out
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_view_zoom_out" webkit_web_view_zoom_out ::
Ptr WebView -> -- _obj : TInterface "WebKit" "WebView"
IO ()
webViewZoomOut ::
(MonadIO m, WebViewK a) =>
a -> -- _obj
m ()
webViewZoomOut _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_web_view_zoom_out _obj'
touchManagedPtr _obj
return ()
-- signal WebView::close-web-view
type WebViewCloseWebViewCallback =
IO Bool
noWebViewCloseWebViewCallback :: Maybe WebViewCloseWebViewCallback
noWebViewCloseWebViewCallback = Nothing
type WebViewCloseWebViewCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewCloseWebViewCallback :: WebViewCloseWebViewCallbackC -> IO (FunPtr WebViewCloseWebViewCallbackC)
webViewCloseWebViewClosure :: WebViewCloseWebViewCallback -> IO Closure
webViewCloseWebViewClosure cb = newCClosure =<< mkWebViewCloseWebViewCallback wrapped
where wrapped = webViewCloseWebViewCallbackWrapper cb
webViewCloseWebViewCallbackWrapper ::
WebViewCloseWebViewCallback ->
Ptr () ->
Ptr () ->
IO CInt
webViewCloseWebViewCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewCloseWebView :: (GObject a, MonadIO m) => a -> WebViewCloseWebViewCallback -> m SignalHandlerId
onWebViewCloseWebView obj cb = liftIO $ connectWebViewCloseWebView obj cb SignalConnectBefore
afterWebViewCloseWebView :: (GObject a, MonadIO m) => a -> WebViewCloseWebViewCallback -> m SignalHandlerId
afterWebViewCloseWebView obj cb = connectWebViewCloseWebView obj cb SignalConnectAfter
connectWebViewCloseWebView :: (GObject a, MonadIO m) =>
a -> WebViewCloseWebViewCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewCloseWebView obj cb after = liftIO $ do
cb' <- mkWebViewCloseWebViewCallback (webViewCloseWebViewCallbackWrapper cb)
connectSignalFunPtr obj "close-web-view" cb' after
-- signal WebView::console-message
type WebViewConsoleMessageCallback =
T.Text ->
Int32 ->
T.Text ->
IO Bool
noWebViewConsoleMessageCallback :: Maybe WebViewConsoleMessageCallback
noWebViewConsoleMessageCallback = Nothing
type WebViewConsoleMessageCallbackC =
Ptr () -> -- object
CString ->
Int32 ->
CString ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewConsoleMessageCallback :: WebViewConsoleMessageCallbackC -> IO (FunPtr WebViewConsoleMessageCallbackC)
webViewConsoleMessageClosure :: WebViewConsoleMessageCallback -> IO Closure
webViewConsoleMessageClosure cb = newCClosure =<< mkWebViewConsoleMessageCallback wrapped
where wrapped = webViewConsoleMessageCallbackWrapper cb
webViewConsoleMessageCallbackWrapper ::
WebViewConsoleMessageCallback ->
Ptr () ->
CString ->
Int32 ->
CString ->
Ptr () ->
IO CInt
webViewConsoleMessageCallbackWrapper _cb _ message line source_id _ = do
message' <- cstringToText message
source_id' <- cstringToText source_id
result <- _cb message' line source_id'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewConsoleMessage :: (GObject a, MonadIO m) => a -> WebViewConsoleMessageCallback -> m SignalHandlerId
onWebViewConsoleMessage obj cb = liftIO $ connectWebViewConsoleMessage obj cb SignalConnectBefore
afterWebViewConsoleMessage :: (GObject a, MonadIO m) => a -> WebViewConsoleMessageCallback -> m SignalHandlerId
afterWebViewConsoleMessage obj cb = connectWebViewConsoleMessage obj cb SignalConnectAfter
connectWebViewConsoleMessage :: (GObject a, MonadIO m) =>
a -> WebViewConsoleMessageCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewConsoleMessage obj cb after = liftIO $ do
cb' <- mkWebViewConsoleMessageCallback (webViewConsoleMessageCallbackWrapper cb)
connectSignalFunPtr obj "console-message" cb' after
-- signal WebView::context-menu
type WebViewContextMenuCallback =
Gtk.Widget ->
HitTestResult ->
Bool ->
IO Bool
noWebViewContextMenuCallback :: Maybe WebViewContextMenuCallback
noWebViewContextMenuCallback = Nothing
type WebViewContextMenuCallbackC =
Ptr () -> -- object
Ptr Gtk.Widget ->
Ptr HitTestResult ->
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewContextMenuCallback :: WebViewContextMenuCallbackC -> IO (FunPtr WebViewContextMenuCallbackC)
webViewContextMenuClosure :: WebViewContextMenuCallback -> IO Closure
webViewContextMenuClosure cb = newCClosure =<< mkWebViewContextMenuCallback wrapped
where wrapped = webViewContextMenuCallbackWrapper cb
webViewContextMenuCallbackWrapper ::
WebViewContextMenuCallback ->
Ptr () ->
Ptr Gtk.Widget ->
Ptr HitTestResult ->
CInt ->
Ptr () ->
IO CInt
webViewContextMenuCallbackWrapper _cb _ default_menu hit_test_result triggered_with_keyboard _ = do
default_menu' <- (newObject Gtk.Widget) default_menu
hit_test_result' <- (newObject HitTestResult) hit_test_result
let triggered_with_keyboard' = (/= 0) triggered_with_keyboard
result <- _cb default_menu' hit_test_result' triggered_with_keyboard'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId
onWebViewContextMenu obj cb = liftIO $ connectWebViewContextMenu obj cb SignalConnectBefore
afterWebViewContextMenu :: (GObject a, MonadIO m) => a -> WebViewContextMenuCallback -> m SignalHandlerId
afterWebViewContextMenu obj cb = connectWebViewContextMenu obj cb SignalConnectAfter
connectWebViewContextMenu :: (GObject a, MonadIO m) =>
a -> WebViewContextMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewContextMenu obj cb after = liftIO $ do
cb' <- mkWebViewContextMenuCallback (webViewContextMenuCallbackWrapper cb)
connectSignalFunPtr obj "context-menu" cb' after
-- signal WebView::copy-clipboard
type WebViewCopyClipboardCallback =
IO ()
noWebViewCopyClipboardCallback :: Maybe WebViewCopyClipboardCallback
noWebViewCopyClipboardCallback = Nothing
type WebViewCopyClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewCopyClipboardCallback :: WebViewCopyClipboardCallbackC -> IO (FunPtr WebViewCopyClipboardCallbackC)
webViewCopyClipboardClosure :: WebViewCopyClipboardCallback -> IO Closure
webViewCopyClipboardClosure cb = newCClosure =<< mkWebViewCopyClipboardCallback wrapped
where wrapped = webViewCopyClipboardCallbackWrapper cb
webViewCopyClipboardCallbackWrapper ::
WebViewCopyClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewCopyClipboardCallbackWrapper _cb _ _ = do
_cb
onWebViewCopyClipboard :: (GObject a, MonadIO m) => a -> WebViewCopyClipboardCallback -> m SignalHandlerId
onWebViewCopyClipboard obj cb = liftIO $ connectWebViewCopyClipboard obj cb SignalConnectBefore
afterWebViewCopyClipboard :: (GObject a, MonadIO m) => a -> WebViewCopyClipboardCallback -> m SignalHandlerId
afterWebViewCopyClipboard obj cb = connectWebViewCopyClipboard obj cb SignalConnectAfter
connectWebViewCopyClipboard :: (GObject a, MonadIO m) =>
a -> WebViewCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewCopyClipboard obj cb after = liftIO $ do
cb' <- mkWebViewCopyClipboardCallback (webViewCopyClipboardCallbackWrapper cb)
connectSignalFunPtr obj "copy-clipboard" cb' after
-- signal WebView::create-plugin-widget
type WebViewCreatePluginWidgetCallback =
T.Text ->
T.Text ->
Map.Map (Ptr ()) (Ptr ()) ->
IO Gtk.Widget
noWebViewCreatePluginWidgetCallback :: Maybe WebViewCreatePluginWidgetCallback
noWebViewCreatePluginWidgetCallback = Nothing
type WebViewCreatePluginWidgetCallbackC =
Ptr () -> -- object
CString ->
CString ->
Ptr (GHashTable (Ptr ()) (Ptr ())) ->
Ptr () -> -- user_data
IO (Ptr Gtk.Widget)
foreign import ccall "wrapper"
mkWebViewCreatePluginWidgetCallback :: WebViewCreatePluginWidgetCallbackC -> IO (FunPtr WebViewCreatePluginWidgetCallbackC)
webViewCreatePluginWidgetClosure :: WebViewCreatePluginWidgetCallback -> IO Closure
webViewCreatePluginWidgetClosure cb = newCClosure =<< mkWebViewCreatePluginWidgetCallback wrapped
where wrapped = webViewCreatePluginWidgetCallbackWrapper cb
webViewCreatePluginWidgetCallbackWrapper ::
WebViewCreatePluginWidgetCallback ->
Ptr () ->
CString ->
CString ->
Ptr (GHashTable (Ptr ()) (Ptr ())) ->
Ptr () ->
IO (Ptr Gtk.Widget)
webViewCreatePluginWidgetCallbackWrapper _cb _ mime_type uri param _ = do
mime_type' <- cstringToText mime_type
uri' <- cstringToText uri
param' <- unpackGHashTable param
let param'' = mapFirst ptrUnpackPtr param'
let param''' = mapSecond ptrUnpackPtr param''
let param'''' = Map.fromList param'''
result <- _cb mime_type' uri' param''''
result' <- refObject result
return result'
onWebViewCreatePluginWidget :: (GObject a, MonadIO m) => a -> WebViewCreatePluginWidgetCallback -> m SignalHandlerId
onWebViewCreatePluginWidget obj cb = liftIO $ connectWebViewCreatePluginWidget obj cb SignalConnectBefore
afterWebViewCreatePluginWidget :: (GObject a, MonadIO m) => a -> WebViewCreatePluginWidgetCallback -> m SignalHandlerId
afterWebViewCreatePluginWidget obj cb = connectWebViewCreatePluginWidget obj cb SignalConnectAfter
connectWebViewCreatePluginWidget :: (GObject a, MonadIO m) =>
a -> WebViewCreatePluginWidgetCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewCreatePluginWidget obj cb after = liftIO $ do
cb' <- mkWebViewCreatePluginWidgetCallback (webViewCreatePluginWidgetCallbackWrapper cb)
connectSignalFunPtr obj "create-plugin-widget" cb' after
-- signal WebView::create-web-view
type WebViewCreateWebViewCallback =
WebFrame ->
IO WebView
noWebViewCreateWebViewCallback :: Maybe WebViewCreateWebViewCallback
noWebViewCreateWebViewCallback = Nothing
type WebViewCreateWebViewCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO (Ptr WebView)
foreign import ccall "wrapper"
mkWebViewCreateWebViewCallback :: WebViewCreateWebViewCallbackC -> IO (FunPtr WebViewCreateWebViewCallbackC)
webViewCreateWebViewClosure :: WebViewCreateWebViewCallback -> IO Closure
webViewCreateWebViewClosure cb = newCClosure =<< mkWebViewCreateWebViewCallback wrapped
where wrapped = webViewCreateWebViewCallbackWrapper cb
webViewCreateWebViewCallbackWrapper ::
WebViewCreateWebViewCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO (Ptr WebView)
webViewCreateWebViewCallbackWrapper _cb _ frame _ = do
frame' <- (newObject WebFrame) frame
result <- _cb frame'
result' <- refObject result
return result'
onWebViewCreateWebView :: (GObject a, MonadIO m) => a -> WebViewCreateWebViewCallback -> m SignalHandlerId
onWebViewCreateWebView obj cb = liftIO $ connectWebViewCreateWebView obj cb SignalConnectBefore
afterWebViewCreateWebView :: (GObject a, MonadIO m) => a -> WebViewCreateWebViewCallback -> m SignalHandlerId
afterWebViewCreateWebView obj cb = connectWebViewCreateWebView obj cb SignalConnectAfter
connectWebViewCreateWebView :: (GObject a, MonadIO m) =>
a -> WebViewCreateWebViewCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewCreateWebView obj cb after = liftIO $ do
cb' <- mkWebViewCreateWebViewCallback (webViewCreateWebViewCallbackWrapper cb)
connectSignalFunPtr obj "create-web-view" cb' after
-- signal WebView::cut-clipboard
type WebViewCutClipboardCallback =
IO ()
noWebViewCutClipboardCallback :: Maybe WebViewCutClipboardCallback
noWebViewCutClipboardCallback = Nothing
type WebViewCutClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewCutClipboardCallback :: WebViewCutClipboardCallbackC -> IO (FunPtr WebViewCutClipboardCallbackC)
webViewCutClipboardClosure :: WebViewCutClipboardCallback -> IO Closure
webViewCutClipboardClosure cb = newCClosure =<< mkWebViewCutClipboardCallback wrapped
where wrapped = webViewCutClipboardCallbackWrapper cb
webViewCutClipboardCallbackWrapper ::
WebViewCutClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewCutClipboardCallbackWrapper _cb _ _ = do
_cb
onWebViewCutClipboard :: (GObject a, MonadIO m) => a -> WebViewCutClipboardCallback -> m SignalHandlerId
onWebViewCutClipboard obj cb = liftIO $ connectWebViewCutClipboard obj cb SignalConnectBefore
afterWebViewCutClipboard :: (GObject a, MonadIO m) => a -> WebViewCutClipboardCallback -> m SignalHandlerId
afterWebViewCutClipboard obj cb = connectWebViewCutClipboard obj cb SignalConnectAfter
connectWebViewCutClipboard :: (GObject a, MonadIO m) =>
a -> WebViewCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewCutClipboard obj cb after = liftIO $ do
cb' <- mkWebViewCutClipboardCallback (webViewCutClipboardCallbackWrapper cb)
connectSignalFunPtr obj "cut-clipboard" cb' after
-- signal WebView::database-quota-exceeded
type WebViewDatabaseQuotaExceededCallback =
GObject.Object ->
GObject.Object ->
IO ()
noWebViewDatabaseQuotaExceededCallback :: Maybe WebViewDatabaseQuotaExceededCallback
noWebViewDatabaseQuotaExceededCallback = Nothing
type WebViewDatabaseQuotaExceededCallbackC =
Ptr () -> -- object
Ptr GObject.Object ->
Ptr GObject.Object ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewDatabaseQuotaExceededCallback :: WebViewDatabaseQuotaExceededCallbackC -> IO (FunPtr WebViewDatabaseQuotaExceededCallbackC)
webViewDatabaseQuotaExceededClosure :: WebViewDatabaseQuotaExceededCallback -> IO Closure
webViewDatabaseQuotaExceededClosure cb = newCClosure =<< mkWebViewDatabaseQuotaExceededCallback wrapped
where wrapped = webViewDatabaseQuotaExceededCallbackWrapper cb
webViewDatabaseQuotaExceededCallbackWrapper ::
WebViewDatabaseQuotaExceededCallback ->
Ptr () ->
Ptr GObject.Object ->
Ptr GObject.Object ->
Ptr () ->
IO ()
webViewDatabaseQuotaExceededCallbackWrapper _cb _ frame database _ = do
frame' <- (newObject GObject.Object) frame
database' <- (newObject GObject.Object) database
_cb frame' database'
onWebViewDatabaseQuotaExceeded :: (GObject a, MonadIO m) => a -> WebViewDatabaseQuotaExceededCallback -> m SignalHandlerId
onWebViewDatabaseQuotaExceeded obj cb = liftIO $ connectWebViewDatabaseQuotaExceeded obj cb SignalConnectBefore
afterWebViewDatabaseQuotaExceeded :: (GObject a, MonadIO m) => a -> WebViewDatabaseQuotaExceededCallback -> m SignalHandlerId
afterWebViewDatabaseQuotaExceeded obj cb = connectWebViewDatabaseQuotaExceeded obj cb SignalConnectAfter
connectWebViewDatabaseQuotaExceeded :: (GObject a, MonadIO m) =>
a -> WebViewDatabaseQuotaExceededCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewDatabaseQuotaExceeded obj cb after = liftIO $ do
cb' <- mkWebViewDatabaseQuotaExceededCallback (webViewDatabaseQuotaExceededCallbackWrapper cb)
connectSignalFunPtr obj "database-quota-exceeded" cb' after
-- signal WebView::document-load-finished
type WebViewDocumentLoadFinishedCallback =
WebFrame ->
IO ()
noWebViewDocumentLoadFinishedCallback :: Maybe WebViewDocumentLoadFinishedCallback
noWebViewDocumentLoadFinishedCallback = Nothing
type WebViewDocumentLoadFinishedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewDocumentLoadFinishedCallback :: WebViewDocumentLoadFinishedCallbackC -> IO (FunPtr WebViewDocumentLoadFinishedCallbackC)
webViewDocumentLoadFinishedClosure :: WebViewDocumentLoadFinishedCallback -> IO Closure
webViewDocumentLoadFinishedClosure cb = newCClosure =<< mkWebViewDocumentLoadFinishedCallback wrapped
where wrapped = webViewDocumentLoadFinishedCallbackWrapper cb
webViewDocumentLoadFinishedCallbackWrapper ::
WebViewDocumentLoadFinishedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO ()
webViewDocumentLoadFinishedCallbackWrapper _cb _ web_frame _ = do
web_frame' <- (newObject WebFrame) web_frame
_cb web_frame'
onWebViewDocumentLoadFinished :: (GObject a, MonadIO m) => a -> WebViewDocumentLoadFinishedCallback -> m SignalHandlerId
onWebViewDocumentLoadFinished obj cb = liftIO $ connectWebViewDocumentLoadFinished obj cb SignalConnectBefore
afterWebViewDocumentLoadFinished :: (GObject a, MonadIO m) => a -> WebViewDocumentLoadFinishedCallback -> m SignalHandlerId
afterWebViewDocumentLoadFinished obj cb = connectWebViewDocumentLoadFinished obj cb SignalConnectAfter
connectWebViewDocumentLoadFinished :: (GObject a, MonadIO m) =>
a -> WebViewDocumentLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewDocumentLoadFinished obj cb after = liftIO $ do
cb' <- mkWebViewDocumentLoadFinishedCallback (webViewDocumentLoadFinishedCallbackWrapper cb)
connectSignalFunPtr obj "document-load-finished" cb' after
-- signal WebView::download-requested
type WebViewDownloadRequestedCallback =
Download ->
IO Bool
noWebViewDownloadRequestedCallback :: Maybe WebViewDownloadRequestedCallback
noWebViewDownloadRequestedCallback = Nothing
type WebViewDownloadRequestedCallbackC =
Ptr () -> -- object
Ptr Download ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewDownloadRequestedCallback :: WebViewDownloadRequestedCallbackC -> IO (FunPtr WebViewDownloadRequestedCallbackC)
webViewDownloadRequestedClosure :: WebViewDownloadRequestedCallback -> IO Closure
webViewDownloadRequestedClosure cb = newCClosure =<< mkWebViewDownloadRequestedCallback wrapped
where wrapped = webViewDownloadRequestedCallbackWrapper cb
webViewDownloadRequestedCallbackWrapper ::
WebViewDownloadRequestedCallback ->
Ptr () ->
Ptr Download ->
Ptr () ->
IO CInt
webViewDownloadRequestedCallbackWrapper _cb _ download _ = do
download' <- (newObject Download) download
result <- _cb download'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewDownloadRequested :: (GObject a, MonadIO m) => a -> WebViewDownloadRequestedCallback -> m SignalHandlerId
onWebViewDownloadRequested obj cb = liftIO $ connectWebViewDownloadRequested obj cb SignalConnectBefore
afterWebViewDownloadRequested :: (GObject a, MonadIO m) => a -> WebViewDownloadRequestedCallback -> m SignalHandlerId
afterWebViewDownloadRequested obj cb = connectWebViewDownloadRequested obj cb SignalConnectAfter
connectWebViewDownloadRequested :: (GObject a, MonadIO m) =>
a -> WebViewDownloadRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewDownloadRequested obj cb after = liftIO $ do
cb' <- mkWebViewDownloadRequestedCallback (webViewDownloadRequestedCallbackWrapper cb)
connectSignalFunPtr obj "download-requested" cb' after
-- signal WebView::editing-began
type WebViewEditingBeganCallback =
IO ()
noWebViewEditingBeganCallback :: Maybe WebViewEditingBeganCallback
noWebViewEditingBeganCallback = Nothing
type WebViewEditingBeganCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewEditingBeganCallback :: WebViewEditingBeganCallbackC -> IO (FunPtr WebViewEditingBeganCallbackC)
webViewEditingBeganClosure :: WebViewEditingBeganCallback -> IO Closure
webViewEditingBeganClosure cb = newCClosure =<< mkWebViewEditingBeganCallback wrapped
where wrapped = webViewEditingBeganCallbackWrapper cb
webViewEditingBeganCallbackWrapper ::
WebViewEditingBeganCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewEditingBeganCallbackWrapper _cb _ _ = do
_cb
onWebViewEditingBegan :: (GObject a, MonadIO m) => a -> WebViewEditingBeganCallback -> m SignalHandlerId
onWebViewEditingBegan obj cb = liftIO $ connectWebViewEditingBegan obj cb SignalConnectBefore
afterWebViewEditingBegan :: (GObject a, MonadIO m) => a -> WebViewEditingBeganCallback -> m SignalHandlerId
afterWebViewEditingBegan obj cb = connectWebViewEditingBegan obj cb SignalConnectAfter
connectWebViewEditingBegan :: (GObject a, MonadIO m) =>
a -> WebViewEditingBeganCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewEditingBegan obj cb after = liftIO $ do
cb' <- mkWebViewEditingBeganCallback (webViewEditingBeganCallbackWrapper cb)
connectSignalFunPtr obj "editing-began" cb' after
-- signal WebView::editing-ended
type WebViewEditingEndedCallback =
IO ()
noWebViewEditingEndedCallback :: Maybe WebViewEditingEndedCallback
noWebViewEditingEndedCallback = Nothing
type WebViewEditingEndedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewEditingEndedCallback :: WebViewEditingEndedCallbackC -> IO (FunPtr WebViewEditingEndedCallbackC)
webViewEditingEndedClosure :: WebViewEditingEndedCallback -> IO Closure
webViewEditingEndedClosure cb = newCClosure =<< mkWebViewEditingEndedCallback wrapped
where wrapped = webViewEditingEndedCallbackWrapper cb
webViewEditingEndedCallbackWrapper ::
WebViewEditingEndedCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewEditingEndedCallbackWrapper _cb _ _ = do
_cb
onWebViewEditingEnded :: (GObject a, MonadIO m) => a -> WebViewEditingEndedCallback -> m SignalHandlerId
onWebViewEditingEnded obj cb = liftIO $ connectWebViewEditingEnded obj cb SignalConnectBefore
afterWebViewEditingEnded :: (GObject a, MonadIO m) => a -> WebViewEditingEndedCallback -> m SignalHandlerId
afterWebViewEditingEnded obj cb = connectWebViewEditingEnded obj cb SignalConnectAfter
connectWebViewEditingEnded :: (GObject a, MonadIO m) =>
a -> WebViewEditingEndedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewEditingEnded obj cb after = liftIO $ do
cb' <- mkWebViewEditingEndedCallback (webViewEditingEndedCallbackWrapper cb)
connectSignalFunPtr obj "editing-ended" cb' after
-- signal WebView::entering-fullscreen
type WebViewEnteringFullscreenCallback =
DOMHTMLElement ->
IO Bool
noWebViewEnteringFullscreenCallback :: Maybe WebViewEnteringFullscreenCallback
noWebViewEnteringFullscreenCallback = Nothing
type WebViewEnteringFullscreenCallbackC =
Ptr () -> -- object
Ptr DOMHTMLElement ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewEnteringFullscreenCallback :: WebViewEnteringFullscreenCallbackC -> IO (FunPtr WebViewEnteringFullscreenCallbackC)
webViewEnteringFullscreenClosure :: WebViewEnteringFullscreenCallback -> IO Closure
webViewEnteringFullscreenClosure cb = newCClosure =<< mkWebViewEnteringFullscreenCallback wrapped
where wrapped = webViewEnteringFullscreenCallbackWrapper cb
webViewEnteringFullscreenCallbackWrapper ::
WebViewEnteringFullscreenCallback ->
Ptr () ->
Ptr DOMHTMLElement ->
Ptr () ->
IO CInt
webViewEnteringFullscreenCallbackWrapper _cb _ element _ = do
element' <- (newObject DOMHTMLElement) element
result <- _cb element'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewEnteringFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnteringFullscreenCallback -> m SignalHandlerId
onWebViewEnteringFullscreen obj cb = liftIO $ connectWebViewEnteringFullscreen obj cb SignalConnectBefore
afterWebViewEnteringFullscreen :: (GObject a, MonadIO m) => a -> WebViewEnteringFullscreenCallback -> m SignalHandlerId
afterWebViewEnteringFullscreen obj cb = connectWebViewEnteringFullscreen obj cb SignalConnectAfter
connectWebViewEnteringFullscreen :: (GObject a, MonadIO m) =>
a -> WebViewEnteringFullscreenCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewEnteringFullscreen obj cb after = liftIO $ do
cb' <- mkWebViewEnteringFullscreenCallback (webViewEnteringFullscreenCallbackWrapper cb)
connectSignalFunPtr obj "entering-fullscreen" cb' after
-- signal WebView::frame-created
type WebViewFrameCreatedCallback =
WebFrame ->
IO ()
noWebViewFrameCreatedCallback :: Maybe WebViewFrameCreatedCallback
noWebViewFrameCreatedCallback = Nothing
type WebViewFrameCreatedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewFrameCreatedCallback :: WebViewFrameCreatedCallbackC -> IO (FunPtr WebViewFrameCreatedCallbackC)
webViewFrameCreatedClosure :: WebViewFrameCreatedCallback -> IO Closure
webViewFrameCreatedClosure cb = newCClosure =<< mkWebViewFrameCreatedCallback wrapped
where wrapped = webViewFrameCreatedCallbackWrapper cb
webViewFrameCreatedCallbackWrapper ::
WebViewFrameCreatedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO ()
webViewFrameCreatedCallbackWrapper _cb _ web_frame _ = do
web_frame' <- (newObject WebFrame) web_frame
_cb web_frame'
onWebViewFrameCreated :: (GObject a, MonadIO m) => a -> WebViewFrameCreatedCallback -> m SignalHandlerId
onWebViewFrameCreated obj cb = liftIO $ connectWebViewFrameCreated obj cb SignalConnectBefore
afterWebViewFrameCreated :: (GObject a, MonadIO m) => a -> WebViewFrameCreatedCallback -> m SignalHandlerId
afterWebViewFrameCreated obj cb = connectWebViewFrameCreated obj cb SignalConnectAfter
connectWebViewFrameCreated :: (GObject a, MonadIO m) =>
a -> WebViewFrameCreatedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewFrameCreated obj cb after = liftIO $ do
cb' <- mkWebViewFrameCreatedCallback (webViewFrameCreatedCallbackWrapper cb)
connectSignalFunPtr obj "frame-created" cb' after
-- signal WebView::geolocation-policy-decision-cancelled
type WebViewGeolocationPolicyDecisionCancelledCallback =
WebFrame ->
IO ()
noWebViewGeolocationPolicyDecisionCancelledCallback :: Maybe WebViewGeolocationPolicyDecisionCancelledCallback
noWebViewGeolocationPolicyDecisionCancelledCallback = Nothing
type WebViewGeolocationPolicyDecisionCancelledCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewGeolocationPolicyDecisionCancelledCallback :: WebViewGeolocationPolicyDecisionCancelledCallbackC -> IO (FunPtr WebViewGeolocationPolicyDecisionCancelledCallbackC)
webViewGeolocationPolicyDecisionCancelledClosure :: WebViewGeolocationPolicyDecisionCancelledCallback -> IO Closure
webViewGeolocationPolicyDecisionCancelledClosure cb = newCClosure =<< mkWebViewGeolocationPolicyDecisionCancelledCallback wrapped
where wrapped = webViewGeolocationPolicyDecisionCancelledCallbackWrapper cb
webViewGeolocationPolicyDecisionCancelledCallbackWrapper ::
WebViewGeolocationPolicyDecisionCancelledCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO ()
webViewGeolocationPolicyDecisionCancelledCallbackWrapper _cb _ frame _ = do
frame' <- (newObject WebFrame) frame
_cb frame'
onWebViewGeolocationPolicyDecisionCancelled :: (GObject a, MonadIO m) => a -> WebViewGeolocationPolicyDecisionCancelledCallback -> m SignalHandlerId
onWebViewGeolocationPolicyDecisionCancelled obj cb = liftIO $ connectWebViewGeolocationPolicyDecisionCancelled obj cb SignalConnectBefore
afterWebViewGeolocationPolicyDecisionCancelled :: (GObject a, MonadIO m) => a -> WebViewGeolocationPolicyDecisionCancelledCallback -> m SignalHandlerId
afterWebViewGeolocationPolicyDecisionCancelled obj cb = connectWebViewGeolocationPolicyDecisionCancelled obj cb SignalConnectAfter
connectWebViewGeolocationPolicyDecisionCancelled :: (GObject a, MonadIO m) =>
a -> WebViewGeolocationPolicyDecisionCancelledCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewGeolocationPolicyDecisionCancelled obj cb after = liftIO $ do
cb' <- mkWebViewGeolocationPolicyDecisionCancelledCallback (webViewGeolocationPolicyDecisionCancelledCallbackWrapper cb)
connectSignalFunPtr obj "geolocation-policy-decision-cancelled" cb' after
-- signal WebView::geolocation-policy-decision-requested
type WebViewGeolocationPolicyDecisionRequestedCallback =
WebFrame ->
GeolocationPolicyDecision ->
IO Bool
noWebViewGeolocationPolicyDecisionRequestedCallback :: Maybe WebViewGeolocationPolicyDecisionRequestedCallback
noWebViewGeolocationPolicyDecisionRequestedCallback = Nothing
type WebViewGeolocationPolicyDecisionRequestedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr GeolocationPolicyDecision ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewGeolocationPolicyDecisionRequestedCallback :: WebViewGeolocationPolicyDecisionRequestedCallbackC -> IO (FunPtr WebViewGeolocationPolicyDecisionRequestedCallbackC)
webViewGeolocationPolicyDecisionRequestedClosure :: WebViewGeolocationPolicyDecisionRequestedCallback -> IO Closure
webViewGeolocationPolicyDecisionRequestedClosure cb = newCClosure =<< mkWebViewGeolocationPolicyDecisionRequestedCallback wrapped
where wrapped = webViewGeolocationPolicyDecisionRequestedCallbackWrapper cb
webViewGeolocationPolicyDecisionRequestedCallbackWrapper ::
WebViewGeolocationPolicyDecisionRequestedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr GeolocationPolicyDecision ->
Ptr () ->
IO CInt
webViewGeolocationPolicyDecisionRequestedCallbackWrapper _cb _ frame policy_decision _ = do
frame' <- (newObject WebFrame) frame
policy_decision' <- (newObject GeolocationPolicyDecision) policy_decision
result <- _cb frame' policy_decision'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewGeolocationPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewGeolocationPolicyDecisionRequestedCallback -> m SignalHandlerId
onWebViewGeolocationPolicyDecisionRequested obj cb = liftIO $ connectWebViewGeolocationPolicyDecisionRequested obj cb SignalConnectBefore
afterWebViewGeolocationPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewGeolocationPolicyDecisionRequestedCallback -> m SignalHandlerId
afterWebViewGeolocationPolicyDecisionRequested obj cb = connectWebViewGeolocationPolicyDecisionRequested obj cb SignalConnectAfter
connectWebViewGeolocationPolicyDecisionRequested :: (GObject a, MonadIO m) =>
a -> WebViewGeolocationPolicyDecisionRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewGeolocationPolicyDecisionRequested obj cb after = liftIO $ do
cb' <- mkWebViewGeolocationPolicyDecisionRequestedCallback (webViewGeolocationPolicyDecisionRequestedCallbackWrapper cb)
connectSignalFunPtr obj "geolocation-policy-decision-requested" cb' after
-- signal WebView::hovering-over-link
type WebViewHoveringOverLinkCallback =
T.Text ->
T.Text ->
IO ()
noWebViewHoveringOverLinkCallback :: Maybe WebViewHoveringOverLinkCallback
noWebViewHoveringOverLinkCallback = Nothing
type WebViewHoveringOverLinkCallbackC =
Ptr () -> -- object
CString ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewHoveringOverLinkCallback :: WebViewHoveringOverLinkCallbackC -> IO (FunPtr WebViewHoveringOverLinkCallbackC)
webViewHoveringOverLinkClosure :: WebViewHoveringOverLinkCallback -> IO Closure
webViewHoveringOverLinkClosure cb = newCClosure =<< mkWebViewHoveringOverLinkCallback wrapped
where wrapped = webViewHoveringOverLinkCallbackWrapper cb
webViewHoveringOverLinkCallbackWrapper ::
WebViewHoveringOverLinkCallback ->
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
webViewHoveringOverLinkCallbackWrapper _cb _ title uri _ = do
title' <- cstringToText title
uri' <- cstringToText uri
_cb title' uri'
onWebViewHoveringOverLink :: (GObject a, MonadIO m) => a -> WebViewHoveringOverLinkCallback -> m SignalHandlerId
onWebViewHoveringOverLink obj cb = liftIO $ connectWebViewHoveringOverLink obj cb SignalConnectBefore
afterWebViewHoveringOverLink :: (GObject a, MonadIO m) => a -> WebViewHoveringOverLinkCallback -> m SignalHandlerId
afterWebViewHoveringOverLink obj cb = connectWebViewHoveringOverLink obj cb SignalConnectAfter
connectWebViewHoveringOverLink :: (GObject a, MonadIO m) =>
a -> WebViewHoveringOverLinkCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewHoveringOverLink obj cb after = liftIO $ do
cb' <- mkWebViewHoveringOverLinkCallback (webViewHoveringOverLinkCallbackWrapper cb)
connectSignalFunPtr obj "hovering-over-link" cb' after
-- signal WebView::icon-loaded
type WebViewIconLoadedCallback =
T.Text ->
IO ()
noWebViewIconLoadedCallback :: Maybe WebViewIconLoadedCallback
noWebViewIconLoadedCallback = Nothing
type WebViewIconLoadedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewIconLoadedCallback :: WebViewIconLoadedCallbackC -> IO (FunPtr WebViewIconLoadedCallbackC)
webViewIconLoadedClosure :: WebViewIconLoadedCallback -> IO Closure
webViewIconLoadedClosure cb = newCClosure =<< mkWebViewIconLoadedCallback wrapped
where wrapped = webViewIconLoadedCallbackWrapper cb
webViewIconLoadedCallbackWrapper ::
WebViewIconLoadedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
webViewIconLoadedCallbackWrapper _cb _ icon_uri _ = do
icon_uri' <- cstringToText icon_uri
_cb icon_uri'
onWebViewIconLoaded :: (GObject a, MonadIO m) => a -> WebViewIconLoadedCallback -> m SignalHandlerId
onWebViewIconLoaded obj cb = liftIO $ connectWebViewIconLoaded obj cb SignalConnectBefore
afterWebViewIconLoaded :: (GObject a, MonadIO m) => a -> WebViewIconLoadedCallback -> m SignalHandlerId
afterWebViewIconLoaded obj cb = connectWebViewIconLoaded obj cb SignalConnectAfter
connectWebViewIconLoaded :: (GObject a, MonadIO m) =>
a -> WebViewIconLoadedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewIconLoaded obj cb after = liftIO $ do
cb' <- mkWebViewIconLoadedCallback (webViewIconLoadedCallbackWrapper cb)
connectSignalFunPtr obj "icon-loaded" cb' after
-- signal WebView::leaving-fullscreen
type WebViewLeavingFullscreenCallback =
DOMHTMLElement ->
IO Bool
noWebViewLeavingFullscreenCallback :: Maybe WebViewLeavingFullscreenCallback
noWebViewLeavingFullscreenCallback = Nothing
type WebViewLeavingFullscreenCallbackC =
Ptr () -> -- object
Ptr DOMHTMLElement ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewLeavingFullscreenCallback :: WebViewLeavingFullscreenCallbackC -> IO (FunPtr WebViewLeavingFullscreenCallbackC)
webViewLeavingFullscreenClosure :: WebViewLeavingFullscreenCallback -> IO Closure
webViewLeavingFullscreenClosure cb = newCClosure =<< mkWebViewLeavingFullscreenCallback wrapped
where wrapped = webViewLeavingFullscreenCallbackWrapper cb
webViewLeavingFullscreenCallbackWrapper ::
WebViewLeavingFullscreenCallback ->
Ptr () ->
Ptr DOMHTMLElement ->
Ptr () ->
IO CInt
webViewLeavingFullscreenCallbackWrapper _cb _ element _ = do
element' <- (newObject DOMHTMLElement) element
result <- _cb element'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewLeavingFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeavingFullscreenCallback -> m SignalHandlerId
onWebViewLeavingFullscreen obj cb = liftIO $ connectWebViewLeavingFullscreen obj cb SignalConnectBefore
afterWebViewLeavingFullscreen :: (GObject a, MonadIO m) => a -> WebViewLeavingFullscreenCallback -> m SignalHandlerId
afterWebViewLeavingFullscreen obj cb = connectWebViewLeavingFullscreen obj cb SignalConnectAfter
connectWebViewLeavingFullscreen :: (GObject a, MonadIO m) =>
a -> WebViewLeavingFullscreenCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLeavingFullscreen obj cb after = liftIO $ do
cb' <- mkWebViewLeavingFullscreenCallback (webViewLeavingFullscreenCallbackWrapper cb)
connectSignalFunPtr obj "leaving-fullscreen" cb' after
-- signal WebView::load-committed
type WebViewLoadCommittedCallback =
WebFrame ->
IO ()
noWebViewLoadCommittedCallback :: Maybe WebViewLoadCommittedCallback
noWebViewLoadCommittedCallback = Nothing
type WebViewLoadCommittedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewLoadCommittedCallback :: WebViewLoadCommittedCallbackC -> IO (FunPtr WebViewLoadCommittedCallbackC)
webViewLoadCommittedClosure :: WebViewLoadCommittedCallback -> IO Closure
webViewLoadCommittedClosure cb = newCClosure =<< mkWebViewLoadCommittedCallback wrapped
where wrapped = webViewLoadCommittedCallbackWrapper cb
webViewLoadCommittedCallbackWrapper ::
WebViewLoadCommittedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO ()
webViewLoadCommittedCallbackWrapper _cb _ frame _ = do
frame' <- (newObject WebFrame) frame
_cb frame'
onWebViewLoadCommitted :: (GObject a, MonadIO m) => a -> WebViewLoadCommittedCallback -> m SignalHandlerId
onWebViewLoadCommitted obj cb = liftIO $ connectWebViewLoadCommitted obj cb SignalConnectBefore
afterWebViewLoadCommitted :: (GObject a, MonadIO m) => a -> WebViewLoadCommittedCallback -> m SignalHandlerId
afterWebViewLoadCommitted obj cb = connectWebViewLoadCommitted obj cb SignalConnectAfter
connectWebViewLoadCommitted :: (GObject a, MonadIO m) =>
a -> WebViewLoadCommittedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLoadCommitted obj cb after = liftIO $ do
cb' <- mkWebViewLoadCommittedCallback (webViewLoadCommittedCallbackWrapper cb)
connectSignalFunPtr obj "load-committed" cb' after
-- signal WebView::load-error
type WebViewLoadErrorCallback =
WebFrame ->
T.Text ->
GError ->
IO Bool
noWebViewLoadErrorCallback :: Maybe WebViewLoadErrorCallback
noWebViewLoadErrorCallback = Nothing
type WebViewLoadErrorCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
CString ->
Ptr GError ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewLoadErrorCallback :: WebViewLoadErrorCallbackC -> IO (FunPtr WebViewLoadErrorCallbackC)
webViewLoadErrorClosure :: WebViewLoadErrorCallback -> IO Closure
webViewLoadErrorClosure cb = newCClosure =<< mkWebViewLoadErrorCallback wrapped
where wrapped = webViewLoadErrorCallbackWrapper cb
webViewLoadErrorCallbackWrapper ::
WebViewLoadErrorCallback ->
Ptr () ->
Ptr WebFrame ->
CString ->
Ptr GError ->
Ptr () ->
IO CInt
webViewLoadErrorCallbackWrapper _cb _ web_frame uri web_error _ = do
web_frame' <- (newObject WebFrame) web_frame
uri' <- cstringToText uri
web_error' <- (newBoxed GError) web_error
result <- _cb web_frame' uri' web_error'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewLoadError :: (GObject a, MonadIO m) => a -> WebViewLoadErrorCallback -> m SignalHandlerId
onWebViewLoadError obj cb = liftIO $ connectWebViewLoadError obj cb SignalConnectBefore
afterWebViewLoadError :: (GObject a, MonadIO m) => a -> WebViewLoadErrorCallback -> m SignalHandlerId
afterWebViewLoadError obj cb = connectWebViewLoadError obj cb SignalConnectAfter
connectWebViewLoadError :: (GObject a, MonadIO m) =>
a -> WebViewLoadErrorCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLoadError obj cb after = liftIO $ do
cb' <- mkWebViewLoadErrorCallback (webViewLoadErrorCallbackWrapper cb)
connectSignalFunPtr obj "load-error" cb' after
-- signal WebView::load-finished
type WebViewLoadFinishedCallback =
WebFrame ->
IO ()
noWebViewLoadFinishedCallback :: Maybe WebViewLoadFinishedCallback
noWebViewLoadFinishedCallback = Nothing
type WebViewLoadFinishedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewLoadFinishedCallback :: WebViewLoadFinishedCallbackC -> IO (FunPtr WebViewLoadFinishedCallbackC)
webViewLoadFinishedClosure :: WebViewLoadFinishedCallback -> IO Closure
webViewLoadFinishedClosure cb = newCClosure =<< mkWebViewLoadFinishedCallback wrapped
where wrapped = webViewLoadFinishedCallbackWrapper cb
webViewLoadFinishedCallbackWrapper ::
WebViewLoadFinishedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO ()
webViewLoadFinishedCallbackWrapper _cb _ frame _ = do
frame' <- (newObject WebFrame) frame
_cb frame'
onWebViewLoadFinished :: (GObject a, MonadIO m) => a -> WebViewLoadFinishedCallback -> m SignalHandlerId
onWebViewLoadFinished obj cb = liftIO $ connectWebViewLoadFinished obj cb SignalConnectBefore
afterWebViewLoadFinished :: (GObject a, MonadIO m) => a -> WebViewLoadFinishedCallback -> m SignalHandlerId
afterWebViewLoadFinished obj cb = connectWebViewLoadFinished obj cb SignalConnectAfter
connectWebViewLoadFinished :: (GObject a, MonadIO m) =>
a -> WebViewLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLoadFinished obj cb after = liftIO $ do
cb' <- mkWebViewLoadFinishedCallback (webViewLoadFinishedCallbackWrapper cb)
connectSignalFunPtr obj "load-finished" cb' after
-- signal WebView::load-progress-changed
type WebViewLoadProgressChangedCallback =
Int32 ->
IO ()
noWebViewLoadProgressChangedCallback :: Maybe WebViewLoadProgressChangedCallback
noWebViewLoadProgressChangedCallback = Nothing
type WebViewLoadProgressChangedCallbackC =
Ptr () -> -- object
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewLoadProgressChangedCallback :: WebViewLoadProgressChangedCallbackC -> IO (FunPtr WebViewLoadProgressChangedCallbackC)
webViewLoadProgressChangedClosure :: WebViewLoadProgressChangedCallback -> IO Closure
webViewLoadProgressChangedClosure cb = newCClosure =<< mkWebViewLoadProgressChangedCallback wrapped
where wrapped = webViewLoadProgressChangedCallbackWrapper cb
webViewLoadProgressChangedCallbackWrapper ::
WebViewLoadProgressChangedCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
webViewLoadProgressChangedCallbackWrapper _cb _ progress _ = do
_cb progress
onWebViewLoadProgressChanged :: (GObject a, MonadIO m) => a -> WebViewLoadProgressChangedCallback -> m SignalHandlerId
onWebViewLoadProgressChanged obj cb = liftIO $ connectWebViewLoadProgressChanged obj cb SignalConnectBefore
afterWebViewLoadProgressChanged :: (GObject a, MonadIO m) => a -> WebViewLoadProgressChangedCallback -> m SignalHandlerId
afterWebViewLoadProgressChanged obj cb = connectWebViewLoadProgressChanged obj cb SignalConnectAfter
connectWebViewLoadProgressChanged :: (GObject a, MonadIO m) =>
a -> WebViewLoadProgressChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLoadProgressChanged obj cb after = liftIO $ do
cb' <- mkWebViewLoadProgressChangedCallback (webViewLoadProgressChangedCallbackWrapper cb)
connectSignalFunPtr obj "load-progress-changed" cb' after
-- signal WebView::load-started
type WebViewLoadStartedCallback =
WebFrame ->
IO ()
noWebViewLoadStartedCallback :: Maybe WebViewLoadStartedCallback
noWebViewLoadStartedCallback = Nothing
type WebViewLoadStartedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewLoadStartedCallback :: WebViewLoadStartedCallbackC -> IO (FunPtr WebViewLoadStartedCallbackC)
webViewLoadStartedClosure :: WebViewLoadStartedCallback -> IO Closure
webViewLoadStartedClosure cb = newCClosure =<< mkWebViewLoadStartedCallback wrapped
where wrapped = webViewLoadStartedCallbackWrapper cb
webViewLoadStartedCallbackWrapper ::
WebViewLoadStartedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO ()
webViewLoadStartedCallbackWrapper _cb _ frame _ = do
frame' <- (newObject WebFrame) frame
_cb frame'
onWebViewLoadStarted :: (GObject a, MonadIO m) => a -> WebViewLoadStartedCallback -> m SignalHandlerId
onWebViewLoadStarted obj cb = liftIO $ connectWebViewLoadStarted obj cb SignalConnectBefore
afterWebViewLoadStarted :: (GObject a, MonadIO m) => a -> WebViewLoadStartedCallback -> m SignalHandlerId
afterWebViewLoadStarted obj cb = connectWebViewLoadStarted obj cb SignalConnectAfter
connectWebViewLoadStarted :: (GObject a, MonadIO m) =>
a -> WebViewLoadStartedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewLoadStarted obj cb after = liftIO $ do
cb' <- mkWebViewLoadStartedCallback (webViewLoadStartedCallbackWrapper cb)
connectSignalFunPtr obj "load-started" cb' after
-- signal WebView::mime-type-policy-decision-requested
type WebViewMimeTypePolicyDecisionRequestedCallback =
WebFrame ->
NetworkRequest ->
T.Text ->
WebPolicyDecision ->
IO Bool
noWebViewMimeTypePolicyDecisionRequestedCallback :: Maybe WebViewMimeTypePolicyDecisionRequestedCallback
noWebViewMimeTypePolicyDecisionRequestedCallback = Nothing
type WebViewMimeTypePolicyDecisionRequestedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr NetworkRequest ->
CString ->
Ptr WebPolicyDecision ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewMimeTypePolicyDecisionRequestedCallback :: WebViewMimeTypePolicyDecisionRequestedCallbackC -> IO (FunPtr WebViewMimeTypePolicyDecisionRequestedCallbackC)
webViewMimeTypePolicyDecisionRequestedClosure :: WebViewMimeTypePolicyDecisionRequestedCallback -> IO Closure
webViewMimeTypePolicyDecisionRequestedClosure cb = newCClosure =<< mkWebViewMimeTypePolicyDecisionRequestedCallback wrapped
where wrapped = webViewMimeTypePolicyDecisionRequestedCallbackWrapper cb
webViewMimeTypePolicyDecisionRequestedCallbackWrapper ::
WebViewMimeTypePolicyDecisionRequestedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr NetworkRequest ->
CString ->
Ptr WebPolicyDecision ->
Ptr () ->
IO CInt
webViewMimeTypePolicyDecisionRequestedCallbackWrapper _cb _ frame request mimetype policy_decision _ = do
frame' <- (newObject WebFrame) frame
request' <- (newObject NetworkRequest) request
mimetype' <- cstringToText mimetype
policy_decision' <- (newObject WebPolicyDecision) policy_decision
result <- _cb frame' request' mimetype' policy_decision'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewMimeTypePolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewMimeTypePolicyDecisionRequestedCallback -> m SignalHandlerId
onWebViewMimeTypePolicyDecisionRequested obj cb = liftIO $ connectWebViewMimeTypePolicyDecisionRequested obj cb SignalConnectBefore
afterWebViewMimeTypePolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewMimeTypePolicyDecisionRequestedCallback -> m SignalHandlerId
afterWebViewMimeTypePolicyDecisionRequested obj cb = connectWebViewMimeTypePolicyDecisionRequested obj cb SignalConnectAfter
connectWebViewMimeTypePolicyDecisionRequested :: (GObject a, MonadIO m) =>
a -> WebViewMimeTypePolicyDecisionRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewMimeTypePolicyDecisionRequested obj cb after = liftIO $ do
cb' <- mkWebViewMimeTypePolicyDecisionRequestedCallback (webViewMimeTypePolicyDecisionRequestedCallbackWrapper cb)
connectSignalFunPtr obj "mime-type-policy-decision-requested" cb' after
-- signal WebView::move-cursor
type WebViewMoveCursorCallback =
Gtk.MovementStep ->
Int32 ->
IO Bool
noWebViewMoveCursorCallback :: Maybe WebViewMoveCursorCallback
noWebViewMoveCursorCallback = Nothing
type WebViewMoveCursorCallbackC =
Ptr () -> -- object
CUInt ->
Int32 ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewMoveCursorCallback :: WebViewMoveCursorCallbackC -> IO (FunPtr WebViewMoveCursorCallbackC)
webViewMoveCursorClosure :: WebViewMoveCursorCallback -> IO Closure
webViewMoveCursorClosure cb = newCClosure =<< mkWebViewMoveCursorCallback wrapped
where wrapped = webViewMoveCursorCallbackWrapper cb
webViewMoveCursorCallbackWrapper ::
WebViewMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO CInt
webViewMoveCursorCallbackWrapper _cb _ step count _ = do
let step' = (toEnum . fromIntegral) step
result <- _cb step' count
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewMoveCursor :: (GObject a, MonadIO m) => a -> WebViewMoveCursorCallback -> m SignalHandlerId
onWebViewMoveCursor obj cb = liftIO $ connectWebViewMoveCursor obj cb SignalConnectBefore
afterWebViewMoveCursor :: (GObject a, MonadIO m) => a -> WebViewMoveCursorCallback -> m SignalHandlerId
afterWebViewMoveCursor obj cb = connectWebViewMoveCursor obj cb SignalConnectAfter
connectWebViewMoveCursor :: (GObject a, MonadIO m) =>
a -> WebViewMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewMoveCursor obj cb after = liftIO $ do
cb' <- mkWebViewMoveCursorCallback (webViewMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
-- signal WebView::navigation-policy-decision-requested
type WebViewNavigationPolicyDecisionRequestedCallback =
WebFrame ->
NetworkRequest ->
WebNavigationAction ->
WebPolicyDecision ->
IO Bool
noWebViewNavigationPolicyDecisionRequestedCallback :: Maybe WebViewNavigationPolicyDecisionRequestedCallback
noWebViewNavigationPolicyDecisionRequestedCallback = Nothing
type WebViewNavigationPolicyDecisionRequestedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr NetworkRequest ->
Ptr WebNavigationAction ->
Ptr WebPolicyDecision ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewNavigationPolicyDecisionRequestedCallback :: WebViewNavigationPolicyDecisionRequestedCallbackC -> IO (FunPtr WebViewNavigationPolicyDecisionRequestedCallbackC)
webViewNavigationPolicyDecisionRequestedClosure :: WebViewNavigationPolicyDecisionRequestedCallback -> IO Closure
webViewNavigationPolicyDecisionRequestedClosure cb = newCClosure =<< mkWebViewNavigationPolicyDecisionRequestedCallback wrapped
where wrapped = webViewNavigationPolicyDecisionRequestedCallbackWrapper cb
webViewNavigationPolicyDecisionRequestedCallbackWrapper ::
WebViewNavigationPolicyDecisionRequestedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr NetworkRequest ->
Ptr WebNavigationAction ->
Ptr WebPolicyDecision ->
Ptr () ->
IO CInt
webViewNavigationPolicyDecisionRequestedCallbackWrapper _cb _ frame request navigation_action policy_decision _ = do
frame' <- (newObject WebFrame) frame
request' <- (newObject NetworkRequest) request
navigation_action' <- (newObject WebNavigationAction) navigation_action
policy_decision' <- (newObject WebPolicyDecision) policy_decision
result <- _cb frame' request' navigation_action' policy_decision'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewNavigationPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewNavigationPolicyDecisionRequestedCallback -> m SignalHandlerId
onWebViewNavigationPolicyDecisionRequested obj cb = liftIO $ connectWebViewNavigationPolicyDecisionRequested obj cb SignalConnectBefore
afterWebViewNavigationPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewNavigationPolicyDecisionRequestedCallback -> m SignalHandlerId
afterWebViewNavigationPolicyDecisionRequested obj cb = connectWebViewNavigationPolicyDecisionRequested obj cb SignalConnectAfter
connectWebViewNavigationPolicyDecisionRequested :: (GObject a, MonadIO m) =>
a -> WebViewNavigationPolicyDecisionRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewNavigationPolicyDecisionRequested obj cb after = liftIO $ do
cb' <- mkWebViewNavigationPolicyDecisionRequestedCallback (webViewNavigationPolicyDecisionRequestedCallbackWrapper cb)
connectSignalFunPtr obj "navigation-policy-decision-requested" cb' after
-- signal WebView::navigation-requested
type WebViewNavigationRequestedCallback =
WebFrame ->
NetworkRequest ->
IO NavigationResponse
noWebViewNavigationRequestedCallback :: Maybe WebViewNavigationRequestedCallback
noWebViewNavigationRequestedCallback = Nothing
type WebViewNavigationRequestedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr NetworkRequest ->
Ptr () -> -- user_data
IO CUInt
foreign import ccall "wrapper"
mkWebViewNavigationRequestedCallback :: WebViewNavigationRequestedCallbackC -> IO (FunPtr WebViewNavigationRequestedCallbackC)
webViewNavigationRequestedClosure :: WebViewNavigationRequestedCallback -> IO Closure
webViewNavigationRequestedClosure cb = newCClosure =<< mkWebViewNavigationRequestedCallback wrapped
where wrapped = webViewNavigationRequestedCallbackWrapper cb
webViewNavigationRequestedCallbackWrapper ::
WebViewNavigationRequestedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr NetworkRequest ->
Ptr () ->
IO CUInt
webViewNavigationRequestedCallbackWrapper _cb _ frame request _ = do
frame' <- (newObject WebFrame) frame
request' <- (newObject NetworkRequest) request
result <- _cb frame' request'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewNavigationRequested :: (GObject a, MonadIO m) => a -> WebViewNavigationRequestedCallback -> m SignalHandlerId
onWebViewNavigationRequested obj cb = liftIO $ connectWebViewNavigationRequested obj cb SignalConnectBefore
afterWebViewNavigationRequested :: (GObject a, MonadIO m) => a -> WebViewNavigationRequestedCallback -> m SignalHandlerId
afterWebViewNavigationRequested obj cb = connectWebViewNavigationRequested obj cb SignalConnectAfter
connectWebViewNavigationRequested :: (GObject a, MonadIO m) =>
a -> WebViewNavigationRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewNavigationRequested obj cb after = liftIO $ do
cb' <- mkWebViewNavigationRequestedCallback (webViewNavigationRequestedCallbackWrapper cb)
connectSignalFunPtr obj "navigation-requested" cb' after
-- signal WebView::new-window-policy-decision-requested
type WebViewNewWindowPolicyDecisionRequestedCallback =
WebFrame ->
NetworkRequest ->
WebNavigationAction ->
WebPolicyDecision ->
IO Bool
noWebViewNewWindowPolicyDecisionRequestedCallback :: Maybe WebViewNewWindowPolicyDecisionRequestedCallback
noWebViewNewWindowPolicyDecisionRequestedCallback = Nothing
type WebViewNewWindowPolicyDecisionRequestedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr NetworkRequest ->
Ptr WebNavigationAction ->
Ptr WebPolicyDecision ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewNewWindowPolicyDecisionRequestedCallback :: WebViewNewWindowPolicyDecisionRequestedCallbackC -> IO (FunPtr WebViewNewWindowPolicyDecisionRequestedCallbackC)
webViewNewWindowPolicyDecisionRequestedClosure :: WebViewNewWindowPolicyDecisionRequestedCallback -> IO Closure
webViewNewWindowPolicyDecisionRequestedClosure cb = newCClosure =<< mkWebViewNewWindowPolicyDecisionRequestedCallback wrapped
where wrapped = webViewNewWindowPolicyDecisionRequestedCallbackWrapper cb
webViewNewWindowPolicyDecisionRequestedCallbackWrapper ::
WebViewNewWindowPolicyDecisionRequestedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr NetworkRequest ->
Ptr WebNavigationAction ->
Ptr WebPolicyDecision ->
Ptr () ->
IO CInt
webViewNewWindowPolicyDecisionRequestedCallbackWrapper _cb _ frame request navigation_action policy_decision _ = do
frame' <- (newObject WebFrame) frame
request' <- (newObject NetworkRequest) request
navigation_action' <- (newObject WebNavigationAction) navigation_action
policy_decision' <- (newObject WebPolicyDecision) policy_decision
result <- _cb frame' request' navigation_action' policy_decision'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewNewWindowPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewNewWindowPolicyDecisionRequestedCallback -> m SignalHandlerId
onWebViewNewWindowPolicyDecisionRequested obj cb = liftIO $ connectWebViewNewWindowPolicyDecisionRequested obj cb SignalConnectBefore
afterWebViewNewWindowPolicyDecisionRequested :: (GObject a, MonadIO m) => a -> WebViewNewWindowPolicyDecisionRequestedCallback -> m SignalHandlerId
afterWebViewNewWindowPolicyDecisionRequested obj cb = connectWebViewNewWindowPolicyDecisionRequested obj cb SignalConnectAfter
connectWebViewNewWindowPolicyDecisionRequested :: (GObject a, MonadIO m) =>
a -> WebViewNewWindowPolicyDecisionRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewNewWindowPolicyDecisionRequested obj cb after = liftIO $ do
cb' <- mkWebViewNewWindowPolicyDecisionRequestedCallback (webViewNewWindowPolicyDecisionRequestedCallbackWrapper cb)
connectSignalFunPtr obj "new-window-policy-decision-requested" cb' after
-- signal WebView::onload-event
type WebViewOnloadEventCallback =
WebFrame ->
IO ()
noWebViewOnloadEventCallback :: Maybe WebViewOnloadEventCallback
noWebViewOnloadEventCallback = Nothing
type WebViewOnloadEventCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewOnloadEventCallback :: WebViewOnloadEventCallbackC -> IO (FunPtr WebViewOnloadEventCallbackC)
webViewOnloadEventClosure :: WebViewOnloadEventCallback -> IO Closure
webViewOnloadEventClosure cb = newCClosure =<< mkWebViewOnloadEventCallback wrapped
where wrapped = webViewOnloadEventCallbackWrapper cb
webViewOnloadEventCallbackWrapper ::
WebViewOnloadEventCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO ()
webViewOnloadEventCallbackWrapper _cb _ frame _ = do
frame' <- (newObject WebFrame) frame
_cb frame'
onWebViewOnloadEvent :: (GObject a, MonadIO m) => a -> WebViewOnloadEventCallback -> m SignalHandlerId
onWebViewOnloadEvent obj cb = liftIO $ connectWebViewOnloadEvent obj cb SignalConnectBefore
afterWebViewOnloadEvent :: (GObject a, MonadIO m) => a -> WebViewOnloadEventCallback -> m SignalHandlerId
afterWebViewOnloadEvent obj cb = connectWebViewOnloadEvent obj cb SignalConnectAfter
connectWebViewOnloadEvent :: (GObject a, MonadIO m) =>
a -> WebViewOnloadEventCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewOnloadEvent obj cb after = liftIO $ do
cb' <- mkWebViewOnloadEventCallback (webViewOnloadEventCallbackWrapper cb)
connectSignalFunPtr obj "onload-event" cb' after
-- signal WebView::paste-clipboard
type WebViewPasteClipboardCallback =
IO ()
noWebViewPasteClipboardCallback :: Maybe WebViewPasteClipboardCallback
noWebViewPasteClipboardCallback = Nothing
type WebViewPasteClipboardCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewPasteClipboardCallback :: WebViewPasteClipboardCallbackC -> IO (FunPtr WebViewPasteClipboardCallbackC)
webViewPasteClipboardClosure :: WebViewPasteClipboardCallback -> IO Closure
webViewPasteClipboardClosure cb = newCClosure =<< mkWebViewPasteClipboardCallback wrapped
where wrapped = webViewPasteClipboardCallbackWrapper cb
webViewPasteClipboardCallbackWrapper ::
WebViewPasteClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewPasteClipboardCallbackWrapper _cb _ _ = do
_cb
onWebViewPasteClipboard :: (GObject a, MonadIO m) => a -> WebViewPasteClipboardCallback -> m SignalHandlerId
onWebViewPasteClipboard obj cb = liftIO $ connectWebViewPasteClipboard obj cb SignalConnectBefore
afterWebViewPasteClipboard :: (GObject a, MonadIO m) => a -> WebViewPasteClipboardCallback -> m SignalHandlerId
afterWebViewPasteClipboard obj cb = connectWebViewPasteClipboard obj cb SignalConnectAfter
connectWebViewPasteClipboard :: (GObject a, MonadIO m) =>
a -> WebViewPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewPasteClipboard obj cb after = liftIO $ do
cb' <- mkWebViewPasteClipboardCallback (webViewPasteClipboardCallbackWrapper cb)
connectSignalFunPtr obj "paste-clipboard" cb' after
-- signal WebView::populate-popup
type WebViewPopulatePopupCallback =
Gtk.Menu ->
IO ()
noWebViewPopulatePopupCallback :: Maybe WebViewPopulatePopupCallback
noWebViewPopulatePopupCallback = Nothing
type WebViewPopulatePopupCallbackC =
Ptr () -> -- object
Ptr Gtk.Menu ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewPopulatePopupCallback :: WebViewPopulatePopupCallbackC -> IO (FunPtr WebViewPopulatePopupCallbackC)
webViewPopulatePopupClosure :: WebViewPopulatePopupCallback -> IO Closure
webViewPopulatePopupClosure cb = newCClosure =<< mkWebViewPopulatePopupCallback wrapped
where wrapped = webViewPopulatePopupCallbackWrapper cb
webViewPopulatePopupCallbackWrapper ::
WebViewPopulatePopupCallback ->
Ptr () ->
Ptr Gtk.Menu ->
Ptr () ->
IO ()
webViewPopulatePopupCallbackWrapper _cb _ menu _ = do
menu' <- (newObject Gtk.Menu) menu
_cb menu'
onWebViewPopulatePopup :: (GObject a, MonadIO m) => a -> WebViewPopulatePopupCallback -> m SignalHandlerId
onWebViewPopulatePopup obj cb = liftIO $ connectWebViewPopulatePopup obj cb SignalConnectBefore
afterWebViewPopulatePopup :: (GObject a, MonadIO m) => a -> WebViewPopulatePopupCallback -> m SignalHandlerId
afterWebViewPopulatePopup obj cb = connectWebViewPopulatePopup obj cb SignalConnectAfter
connectWebViewPopulatePopup :: (GObject a, MonadIO m) =>
a -> WebViewPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewPopulatePopup obj cb after = liftIO $ do
cb' <- mkWebViewPopulatePopupCallback (webViewPopulatePopupCallbackWrapper cb)
connectSignalFunPtr obj "populate-popup" cb' after
-- signal WebView::print-requested
type WebViewPrintRequestedCallback =
WebFrame ->
IO Bool
noWebViewPrintRequestedCallback :: Maybe WebViewPrintRequestedCallback
noWebViewPrintRequestedCallback = Nothing
type WebViewPrintRequestedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewPrintRequestedCallback :: WebViewPrintRequestedCallbackC -> IO (FunPtr WebViewPrintRequestedCallbackC)
webViewPrintRequestedClosure :: WebViewPrintRequestedCallback -> IO Closure
webViewPrintRequestedClosure cb = newCClosure =<< mkWebViewPrintRequestedCallback wrapped
where wrapped = webViewPrintRequestedCallbackWrapper cb
webViewPrintRequestedCallbackWrapper ::
WebViewPrintRequestedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
IO CInt
webViewPrintRequestedCallbackWrapper _cb _ web_frame _ = do
web_frame' <- (newObject WebFrame) web_frame
result <- _cb web_frame'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewPrintRequested :: (GObject a, MonadIO m) => a -> WebViewPrintRequestedCallback -> m SignalHandlerId
onWebViewPrintRequested obj cb = liftIO $ connectWebViewPrintRequested obj cb SignalConnectBefore
afterWebViewPrintRequested :: (GObject a, MonadIO m) => a -> WebViewPrintRequestedCallback -> m SignalHandlerId
afterWebViewPrintRequested obj cb = connectWebViewPrintRequested obj cb SignalConnectAfter
connectWebViewPrintRequested :: (GObject a, MonadIO m) =>
a -> WebViewPrintRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewPrintRequested obj cb after = liftIO $ do
cb' <- mkWebViewPrintRequestedCallback (webViewPrintRequestedCallbackWrapper cb)
connectSignalFunPtr obj "print-requested" cb' after
-- signal WebView::redo
type WebViewRedoCallback =
IO ()
noWebViewRedoCallback :: Maybe WebViewRedoCallback
noWebViewRedoCallback = Nothing
type WebViewRedoCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewRedoCallback :: WebViewRedoCallbackC -> IO (FunPtr WebViewRedoCallbackC)
webViewRedoClosure :: WebViewRedoCallback -> IO Closure
webViewRedoClosure cb = newCClosure =<< mkWebViewRedoCallback wrapped
where wrapped = webViewRedoCallbackWrapper cb
webViewRedoCallbackWrapper ::
WebViewRedoCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewRedoCallbackWrapper _cb _ _ = do
_cb
onWebViewRedo :: (GObject a, MonadIO m) => a -> WebViewRedoCallback -> m SignalHandlerId
onWebViewRedo obj cb = liftIO $ connectWebViewRedo obj cb SignalConnectBefore
afterWebViewRedo :: (GObject a, MonadIO m) => a -> WebViewRedoCallback -> m SignalHandlerId
afterWebViewRedo obj cb = connectWebViewRedo obj cb SignalConnectAfter
connectWebViewRedo :: (GObject a, MonadIO m) =>
a -> WebViewRedoCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewRedo obj cb after = liftIO $ do
cb' <- mkWebViewRedoCallback (webViewRedoCallbackWrapper cb)
connectSignalFunPtr obj "redo" cb' after
-- signal WebView::resource-content-length-received
type WebViewResourceContentLengthReceivedCallback =
WebFrame ->
WebResource ->
Int32 ->
IO ()
noWebViewResourceContentLengthReceivedCallback :: Maybe WebViewResourceContentLengthReceivedCallback
noWebViewResourceContentLengthReceivedCallback = Nothing
type WebViewResourceContentLengthReceivedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr WebResource ->
Int32 ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewResourceContentLengthReceivedCallback :: WebViewResourceContentLengthReceivedCallbackC -> IO (FunPtr WebViewResourceContentLengthReceivedCallbackC)
webViewResourceContentLengthReceivedClosure :: WebViewResourceContentLengthReceivedCallback -> IO Closure
webViewResourceContentLengthReceivedClosure cb = newCClosure =<< mkWebViewResourceContentLengthReceivedCallback wrapped
where wrapped = webViewResourceContentLengthReceivedCallbackWrapper cb
webViewResourceContentLengthReceivedCallbackWrapper ::
WebViewResourceContentLengthReceivedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr WebResource ->
Int32 ->
Ptr () ->
IO ()
webViewResourceContentLengthReceivedCallbackWrapper _cb _ web_frame web_resource length_received _ = do
web_frame' <- (newObject WebFrame) web_frame
web_resource' <- (newObject WebResource) web_resource
_cb web_frame' web_resource' length_received
onWebViewResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebViewResourceContentLengthReceivedCallback -> m SignalHandlerId
onWebViewResourceContentLengthReceived obj cb = liftIO $ connectWebViewResourceContentLengthReceived obj cb SignalConnectBefore
afterWebViewResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebViewResourceContentLengthReceivedCallback -> m SignalHandlerId
afterWebViewResourceContentLengthReceived obj cb = connectWebViewResourceContentLengthReceived obj cb SignalConnectAfter
connectWebViewResourceContentLengthReceived :: (GObject a, MonadIO m) =>
a -> WebViewResourceContentLengthReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewResourceContentLengthReceived obj cb after = liftIO $ do
cb' <- mkWebViewResourceContentLengthReceivedCallback (webViewResourceContentLengthReceivedCallbackWrapper cb)
connectSignalFunPtr obj "resource-content-length-received" cb' after
-- signal WebView::resource-load-failed
type WebViewResourceLoadFailedCallback =
WebFrame ->
WebResource ->
GError ->
IO ()
noWebViewResourceLoadFailedCallback :: Maybe WebViewResourceLoadFailedCallback
noWebViewResourceLoadFailedCallback = Nothing
type WebViewResourceLoadFailedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr WebResource ->
Ptr GError ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewResourceLoadFailedCallback :: WebViewResourceLoadFailedCallbackC -> IO (FunPtr WebViewResourceLoadFailedCallbackC)
webViewResourceLoadFailedClosure :: WebViewResourceLoadFailedCallback -> IO Closure
webViewResourceLoadFailedClosure cb = newCClosure =<< mkWebViewResourceLoadFailedCallback wrapped
where wrapped = webViewResourceLoadFailedCallbackWrapper cb
webViewResourceLoadFailedCallbackWrapper ::
WebViewResourceLoadFailedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr WebResource ->
Ptr GError ->
Ptr () ->
IO ()
webViewResourceLoadFailedCallbackWrapper _cb _ web_frame web_resource error_ _ = do
web_frame' <- (newObject WebFrame) web_frame
web_resource' <- (newObject WebResource) web_resource
error_' <- (newBoxed GError) error_
_cb web_frame' web_resource' error_'
onWebViewResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebViewResourceLoadFailedCallback -> m SignalHandlerId
onWebViewResourceLoadFailed obj cb = liftIO $ connectWebViewResourceLoadFailed obj cb SignalConnectBefore
afterWebViewResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebViewResourceLoadFailedCallback -> m SignalHandlerId
afterWebViewResourceLoadFailed obj cb = connectWebViewResourceLoadFailed obj cb SignalConnectAfter
connectWebViewResourceLoadFailed :: (GObject a, MonadIO m) =>
a -> WebViewResourceLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewResourceLoadFailed obj cb after = liftIO $ do
cb' <- mkWebViewResourceLoadFailedCallback (webViewResourceLoadFailedCallbackWrapper cb)
connectSignalFunPtr obj "resource-load-failed" cb' after
-- signal WebView::resource-load-finished
type WebViewResourceLoadFinishedCallback =
WebFrame ->
WebResource ->
IO ()
noWebViewResourceLoadFinishedCallback :: Maybe WebViewResourceLoadFinishedCallback
noWebViewResourceLoadFinishedCallback = Nothing
type WebViewResourceLoadFinishedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr WebResource ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewResourceLoadFinishedCallback :: WebViewResourceLoadFinishedCallbackC -> IO (FunPtr WebViewResourceLoadFinishedCallbackC)
webViewResourceLoadFinishedClosure :: WebViewResourceLoadFinishedCallback -> IO Closure
webViewResourceLoadFinishedClosure cb = newCClosure =<< mkWebViewResourceLoadFinishedCallback wrapped
where wrapped = webViewResourceLoadFinishedCallbackWrapper cb
webViewResourceLoadFinishedCallbackWrapper ::
WebViewResourceLoadFinishedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr WebResource ->
Ptr () ->
IO ()
webViewResourceLoadFinishedCallbackWrapper _cb _ web_frame web_resource _ = do
web_frame' <- (newObject WebFrame) web_frame
web_resource' <- (newObject WebResource) web_resource
_cb web_frame' web_resource'
onWebViewResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebViewResourceLoadFinishedCallback -> m SignalHandlerId
onWebViewResourceLoadFinished obj cb = liftIO $ connectWebViewResourceLoadFinished obj cb SignalConnectBefore
afterWebViewResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebViewResourceLoadFinishedCallback -> m SignalHandlerId
afterWebViewResourceLoadFinished obj cb = connectWebViewResourceLoadFinished obj cb SignalConnectAfter
connectWebViewResourceLoadFinished :: (GObject a, MonadIO m) =>
a -> WebViewResourceLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewResourceLoadFinished obj cb after = liftIO $ do
cb' <- mkWebViewResourceLoadFinishedCallback (webViewResourceLoadFinishedCallbackWrapper cb)
connectSignalFunPtr obj "resource-load-finished" cb' after
-- signal WebView::resource-request-starting
type WebViewResourceRequestStartingCallback =
WebFrame ->
WebResource ->
NetworkRequest ->
NetworkResponse ->
IO ()
noWebViewResourceRequestStartingCallback :: Maybe WebViewResourceRequestStartingCallback
noWebViewResourceRequestStartingCallback = Nothing
type WebViewResourceRequestStartingCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr WebResource ->
Ptr NetworkRequest ->
Ptr NetworkResponse ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewResourceRequestStartingCallback :: WebViewResourceRequestStartingCallbackC -> IO (FunPtr WebViewResourceRequestStartingCallbackC)
webViewResourceRequestStartingClosure :: WebViewResourceRequestStartingCallback -> IO Closure
webViewResourceRequestStartingClosure cb = newCClosure =<< mkWebViewResourceRequestStartingCallback wrapped
where wrapped = webViewResourceRequestStartingCallbackWrapper cb
webViewResourceRequestStartingCallbackWrapper ::
WebViewResourceRequestStartingCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr WebResource ->
Ptr NetworkRequest ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
webViewResourceRequestStartingCallbackWrapper _cb _ web_frame web_resource request response _ = do
web_frame' <- (newObject WebFrame) web_frame
web_resource' <- (newObject WebResource) web_resource
request' <- (newObject NetworkRequest) request
response' <- (newObject NetworkResponse) response
_cb web_frame' web_resource' request' response'
onWebViewResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebViewResourceRequestStartingCallback -> m SignalHandlerId
onWebViewResourceRequestStarting obj cb = liftIO $ connectWebViewResourceRequestStarting obj cb SignalConnectBefore
afterWebViewResourceRequestStarting :: (GObject a, MonadIO m) => a -> WebViewResourceRequestStartingCallback -> m SignalHandlerId
afterWebViewResourceRequestStarting obj cb = connectWebViewResourceRequestStarting obj cb SignalConnectAfter
connectWebViewResourceRequestStarting :: (GObject a, MonadIO m) =>
a -> WebViewResourceRequestStartingCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewResourceRequestStarting obj cb after = liftIO $ do
cb' <- mkWebViewResourceRequestStartingCallback (webViewResourceRequestStartingCallbackWrapper cb)
connectSignalFunPtr obj "resource-request-starting" cb' after
-- signal WebView::resource-response-received
type WebViewResourceResponseReceivedCallback =
WebFrame ->
WebResource ->
NetworkResponse ->
IO ()
noWebViewResourceResponseReceivedCallback :: Maybe WebViewResourceResponseReceivedCallback
noWebViewResourceResponseReceivedCallback = Nothing
type WebViewResourceResponseReceivedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr WebResource ->
Ptr NetworkResponse ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewResourceResponseReceivedCallback :: WebViewResourceResponseReceivedCallbackC -> IO (FunPtr WebViewResourceResponseReceivedCallbackC)
webViewResourceResponseReceivedClosure :: WebViewResourceResponseReceivedCallback -> IO Closure
webViewResourceResponseReceivedClosure cb = newCClosure =<< mkWebViewResourceResponseReceivedCallback wrapped
where wrapped = webViewResourceResponseReceivedCallbackWrapper cb
webViewResourceResponseReceivedCallbackWrapper ::
WebViewResourceResponseReceivedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr WebResource ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
webViewResourceResponseReceivedCallbackWrapper _cb _ web_frame web_resource response _ = do
web_frame' <- (newObject WebFrame) web_frame
web_resource' <- (newObject WebResource) web_resource
response' <- (newObject NetworkResponse) response
_cb web_frame' web_resource' response'
onWebViewResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebViewResourceResponseReceivedCallback -> m SignalHandlerId
onWebViewResourceResponseReceived obj cb = liftIO $ connectWebViewResourceResponseReceived obj cb SignalConnectBefore
afterWebViewResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebViewResourceResponseReceivedCallback -> m SignalHandlerId
afterWebViewResourceResponseReceived obj cb = connectWebViewResourceResponseReceived obj cb SignalConnectAfter
connectWebViewResourceResponseReceived :: (GObject a, MonadIO m) =>
a -> WebViewResourceResponseReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewResourceResponseReceived obj cb after = liftIO $ do
cb' <- mkWebViewResourceResponseReceivedCallback (webViewResourceResponseReceivedCallbackWrapper cb)
connectSignalFunPtr obj "resource-response-received" cb' after
-- signal WebView::run-file-chooser
type WebViewRunFileChooserCallback =
FileChooserRequest ->
IO Bool
noWebViewRunFileChooserCallback :: Maybe WebViewRunFileChooserCallback
noWebViewRunFileChooserCallback = Nothing
type WebViewRunFileChooserCallbackC =
Ptr () -> -- object
Ptr FileChooserRequest ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewRunFileChooserCallback :: WebViewRunFileChooserCallbackC -> IO (FunPtr WebViewRunFileChooserCallbackC)
webViewRunFileChooserClosure :: WebViewRunFileChooserCallback -> IO Closure
webViewRunFileChooserClosure cb = newCClosure =<< mkWebViewRunFileChooserCallback wrapped
where wrapped = webViewRunFileChooserCallbackWrapper cb
webViewRunFileChooserCallbackWrapper ::
WebViewRunFileChooserCallback ->
Ptr () ->
Ptr FileChooserRequest ->
Ptr () ->
IO CInt
webViewRunFileChooserCallbackWrapper _cb _ request _ = do
request' <- (newObject FileChooserRequest) request
result <- _cb request'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId
onWebViewRunFileChooser obj cb = liftIO $ connectWebViewRunFileChooser obj cb SignalConnectBefore
afterWebViewRunFileChooser :: (GObject a, MonadIO m) => a -> WebViewRunFileChooserCallback -> m SignalHandlerId
afterWebViewRunFileChooser obj cb = connectWebViewRunFileChooser obj cb SignalConnectAfter
connectWebViewRunFileChooser :: (GObject a, MonadIO m) =>
a -> WebViewRunFileChooserCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewRunFileChooser obj cb after = liftIO $ do
cb' <- mkWebViewRunFileChooserCallback (webViewRunFileChooserCallbackWrapper cb)
connectSignalFunPtr obj "run-file-chooser" cb' after
-- signal WebView::script-alert
type WebViewScriptAlertCallback =
WebFrame ->
T.Text ->
IO Bool
noWebViewScriptAlertCallback :: Maybe WebViewScriptAlertCallback
noWebViewScriptAlertCallback = Nothing
type WebViewScriptAlertCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
CString ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewScriptAlertCallback :: WebViewScriptAlertCallbackC -> IO (FunPtr WebViewScriptAlertCallbackC)
webViewScriptAlertClosure :: WebViewScriptAlertCallback -> IO Closure
webViewScriptAlertClosure cb = newCClosure =<< mkWebViewScriptAlertCallback wrapped
where wrapped = webViewScriptAlertCallbackWrapper cb
webViewScriptAlertCallbackWrapper ::
WebViewScriptAlertCallback ->
Ptr () ->
Ptr WebFrame ->
CString ->
Ptr () ->
IO CInt
webViewScriptAlertCallbackWrapper _cb _ frame message _ = do
frame' <- (newObject WebFrame) frame
message' <- cstringToText message
result <- _cb frame' message'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewScriptAlert :: (GObject a, MonadIO m) => a -> WebViewScriptAlertCallback -> m SignalHandlerId
onWebViewScriptAlert obj cb = liftIO $ connectWebViewScriptAlert obj cb SignalConnectBefore
afterWebViewScriptAlert :: (GObject a, MonadIO m) => a -> WebViewScriptAlertCallback -> m SignalHandlerId
afterWebViewScriptAlert obj cb = connectWebViewScriptAlert obj cb SignalConnectAfter
connectWebViewScriptAlert :: (GObject a, MonadIO m) =>
a -> WebViewScriptAlertCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewScriptAlert obj cb after = liftIO $ do
cb' <- mkWebViewScriptAlertCallback (webViewScriptAlertCallbackWrapper cb)
connectSignalFunPtr obj "script-alert" cb' after
-- signal WebView::script-confirm
type WebViewScriptConfirmCallback =
WebFrame ->
T.Text ->
Ptr () ->
IO Bool
noWebViewScriptConfirmCallback :: Maybe WebViewScriptConfirmCallback
noWebViewScriptConfirmCallback = Nothing
type WebViewScriptConfirmCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
CString ->
Ptr () ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewScriptConfirmCallback :: WebViewScriptConfirmCallbackC -> IO (FunPtr WebViewScriptConfirmCallbackC)
webViewScriptConfirmClosure :: WebViewScriptConfirmCallback -> IO Closure
webViewScriptConfirmClosure cb = newCClosure =<< mkWebViewScriptConfirmCallback wrapped
where wrapped = webViewScriptConfirmCallbackWrapper cb
webViewScriptConfirmCallbackWrapper ::
WebViewScriptConfirmCallback ->
Ptr () ->
Ptr WebFrame ->
CString ->
Ptr () ->
Ptr () ->
IO CInt
webViewScriptConfirmCallbackWrapper _cb _ frame message confirmed _ = do
frame' <- (newObject WebFrame) frame
message' <- cstringToText message
result <- _cb frame' message' confirmed
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewScriptConfirm :: (GObject a, MonadIO m) => a -> WebViewScriptConfirmCallback -> m SignalHandlerId
onWebViewScriptConfirm obj cb = liftIO $ connectWebViewScriptConfirm obj cb SignalConnectBefore
afterWebViewScriptConfirm :: (GObject a, MonadIO m) => a -> WebViewScriptConfirmCallback -> m SignalHandlerId
afterWebViewScriptConfirm obj cb = connectWebViewScriptConfirm obj cb SignalConnectAfter
connectWebViewScriptConfirm :: (GObject a, MonadIO m) =>
a -> WebViewScriptConfirmCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewScriptConfirm obj cb after = liftIO $ do
cb' <- mkWebViewScriptConfirmCallback (webViewScriptConfirmCallbackWrapper cb)
connectSignalFunPtr obj "script-confirm" cb' after
-- signal WebView::script-prompt
type WebViewScriptPromptCallback =
WebFrame ->
T.Text ->
T.Text ->
Ptr () ->
IO Bool
noWebViewScriptPromptCallback :: Maybe WebViewScriptPromptCallback
noWebViewScriptPromptCallback = Nothing
type WebViewScriptPromptCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
CString ->
CString ->
Ptr () ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewScriptPromptCallback :: WebViewScriptPromptCallbackC -> IO (FunPtr WebViewScriptPromptCallbackC)
webViewScriptPromptClosure :: WebViewScriptPromptCallback -> IO Closure
webViewScriptPromptClosure cb = newCClosure =<< mkWebViewScriptPromptCallback wrapped
where wrapped = webViewScriptPromptCallbackWrapper cb
webViewScriptPromptCallbackWrapper ::
WebViewScriptPromptCallback ->
Ptr () ->
Ptr WebFrame ->
CString ->
CString ->
Ptr () ->
Ptr () ->
IO CInt
webViewScriptPromptCallbackWrapper _cb _ frame message default_ text _ = do
frame' <- (newObject WebFrame) frame
message' <- cstringToText message
default_' <- cstringToText default_
result <- _cb frame' message' default_' text
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewScriptPrompt :: (GObject a, MonadIO m) => a -> WebViewScriptPromptCallback -> m SignalHandlerId
onWebViewScriptPrompt obj cb = liftIO $ connectWebViewScriptPrompt obj cb SignalConnectBefore
afterWebViewScriptPrompt :: (GObject a, MonadIO m) => a -> WebViewScriptPromptCallback -> m SignalHandlerId
afterWebViewScriptPrompt obj cb = connectWebViewScriptPrompt obj cb SignalConnectAfter
connectWebViewScriptPrompt :: (GObject a, MonadIO m) =>
a -> WebViewScriptPromptCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewScriptPrompt obj cb after = liftIO $ do
cb' <- mkWebViewScriptPromptCallback (webViewScriptPromptCallbackWrapper cb)
connectSignalFunPtr obj "script-prompt" cb' after
-- signal WebView::select-all
type WebViewSelectAllCallback =
IO ()
noWebViewSelectAllCallback :: Maybe WebViewSelectAllCallback
noWebViewSelectAllCallback = Nothing
type WebViewSelectAllCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewSelectAllCallback :: WebViewSelectAllCallbackC -> IO (FunPtr WebViewSelectAllCallbackC)
webViewSelectAllClosure :: WebViewSelectAllCallback -> IO Closure
webViewSelectAllClosure cb = newCClosure =<< mkWebViewSelectAllCallback wrapped
where wrapped = webViewSelectAllCallbackWrapper cb
webViewSelectAllCallbackWrapper ::
WebViewSelectAllCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewSelectAllCallbackWrapper _cb _ _ = do
_cb
onWebViewSelectAll :: (GObject a, MonadIO m) => a -> WebViewSelectAllCallback -> m SignalHandlerId
onWebViewSelectAll obj cb = liftIO $ connectWebViewSelectAll obj cb SignalConnectBefore
afterWebViewSelectAll :: (GObject a, MonadIO m) => a -> WebViewSelectAllCallback -> m SignalHandlerId
afterWebViewSelectAll obj cb = connectWebViewSelectAll obj cb SignalConnectAfter
connectWebViewSelectAll :: (GObject a, MonadIO m) =>
a -> WebViewSelectAllCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewSelectAll obj cb after = liftIO $ do
cb' <- mkWebViewSelectAllCallback (webViewSelectAllCallbackWrapper cb)
connectSignalFunPtr obj "select-all" cb' after
-- signal WebView::selection-changed
type WebViewSelectionChangedCallback =
IO ()
noWebViewSelectionChangedCallback :: Maybe WebViewSelectionChangedCallback
noWebViewSelectionChangedCallback = Nothing
type WebViewSelectionChangedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewSelectionChangedCallback :: WebViewSelectionChangedCallbackC -> IO (FunPtr WebViewSelectionChangedCallbackC)
webViewSelectionChangedClosure :: WebViewSelectionChangedCallback -> IO Closure
webViewSelectionChangedClosure cb = newCClosure =<< mkWebViewSelectionChangedCallback wrapped
where wrapped = webViewSelectionChangedCallbackWrapper cb
webViewSelectionChangedCallbackWrapper ::
WebViewSelectionChangedCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewSelectionChangedCallbackWrapper _cb _ _ = do
_cb
onWebViewSelectionChanged :: (GObject a, MonadIO m) => a -> WebViewSelectionChangedCallback -> m SignalHandlerId
onWebViewSelectionChanged obj cb = liftIO $ connectWebViewSelectionChanged obj cb SignalConnectBefore
afterWebViewSelectionChanged :: (GObject a, MonadIO m) => a -> WebViewSelectionChangedCallback -> m SignalHandlerId
afterWebViewSelectionChanged obj cb = connectWebViewSelectionChanged obj cb SignalConnectAfter
connectWebViewSelectionChanged :: (GObject a, MonadIO m) =>
a -> WebViewSelectionChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewSelectionChanged obj cb after = liftIO $ do
cb' <- mkWebViewSelectionChangedCallback (webViewSelectionChangedCallbackWrapper cb)
connectSignalFunPtr obj "selection-changed" cb' after
-- signal WebView::should-apply-style
type WebViewShouldApplyStyleCallback =
DOMCSSStyleDeclaration ->
DOMRange ->
IO Bool
noWebViewShouldApplyStyleCallback :: Maybe WebViewShouldApplyStyleCallback
noWebViewShouldApplyStyleCallback = Nothing
type WebViewShouldApplyStyleCallbackC =
Ptr () -> -- object
Ptr DOMCSSStyleDeclaration ->
Ptr DOMRange ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShouldApplyStyleCallback :: WebViewShouldApplyStyleCallbackC -> IO (FunPtr WebViewShouldApplyStyleCallbackC)
webViewShouldApplyStyleClosure :: WebViewShouldApplyStyleCallback -> IO Closure
webViewShouldApplyStyleClosure cb = newCClosure =<< mkWebViewShouldApplyStyleCallback wrapped
where wrapped = webViewShouldApplyStyleCallbackWrapper cb
webViewShouldApplyStyleCallbackWrapper ::
WebViewShouldApplyStyleCallback ->
Ptr () ->
Ptr DOMCSSStyleDeclaration ->
Ptr DOMRange ->
Ptr () ->
IO CInt
webViewShouldApplyStyleCallbackWrapper _cb _ set range _ = do
set' <- (newObject DOMCSSStyleDeclaration) set
range' <- (newObject DOMRange) range
result <- _cb set' range'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShouldApplyStyle :: (GObject a, MonadIO m) => a -> WebViewShouldApplyStyleCallback -> m SignalHandlerId
onWebViewShouldApplyStyle obj cb = liftIO $ connectWebViewShouldApplyStyle obj cb SignalConnectBefore
afterWebViewShouldApplyStyle :: (GObject a, MonadIO m) => a -> WebViewShouldApplyStyleCallback -> m SignalHandlerId
afterWebViewShouldApplyStyle obj cb = connectWebViewShouldApplyStyle obj cb SignalConnectAfter
connectWebViewShouldApplyStyle :: (GObject a, MonadIO m) =>
a -> WebViewShouldApplyStyleCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShouldApplyStyle obj cb after = liftIO $ do
cb' <- mkWebViewShouldApplyStyleCallback (webViewShouldApplyStyleCallbackWrapper cb)
connectSignalFunPtr obj "should-apply-style" cb' after
-- signal WebView::should-begin-editing
type WebViewShouldBeginEditingCallback =
DOMRange ->
IO Bool
noWebViewShouldBeginEditingCallback :: Maybe WebViewShouldBeginEditingCallback
noWebViewShouldBeginEditingCallback = Nothing
type WebViewShouldBeginEditingCallbackC =
Ptr () -> -- object
Ptr DOMRange ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShouldBeginEditingCallback :: WebViewShouldBeginEditingCallbackC -> IO (FunPtr WebViewShouldBeginEditingCallbackC)
webViewShouldBeginEditingClosure :: WebViewShouldBeginEditingCallback -> IO Closure
webViewShouldBeginEditingClosure cb = newCClosure =<< mkWebViewShouldBeginEditingCallback wrapped
where wrapped = webViewShouldBeginEditingCallbackWrapper cb
webViewShouldBeginEditingCallbackWrapper ::
WebViewShouldBeginEditingCallback ->
Ptr () ->
Ptr DOMRange ->
Ptr () ->
IO CInt
webViewShouldBeginEditingCallbackWrapper _cb _ range _ = do
range' <- (newObject DOMRange) range
result <- _cb range'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShouldBeginEditing :: (GObject a, MonadIO m) => a -> WebViewShouldBeginEditingCallback -> m SignalHandlerId
onWebViewShouldBeginEditing obj cb = liftIO $ connectWebViewShouldBeginEditing obj cb SignalConnectBefore
afterWebViewShouldBeginEditing :: (GObject a, MonadIO m) => a -> WebViewShouldBeginEditingCallback -> m SignalHandlerId
afterWebViewShouldBeginEditing obj cb = connectWebViewShouldBeginEditing obj cb SignalConnectAfter
connectWebViewShouldBeginEditing :: (GObject a, MonadIO m) =>
a -> WebViewShouldBeginEditingCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShouldBeginEditing obj cb after = liftIO $ do
cb' <- mkWebViewShouldBeginEditingCallback (webViewShouldBeginEditingCallbackWrapper cb)
connectSignalFunPtr obj "should-begin-editing" cb' after
-- signal WebView::should-change-selected-range
type WebViewShouldChangeSelectedRangeCallback =
DOMRange ->
DOMRange ->
SelectionAffinity ->
Bool ->
IO Bool
noWebViewShouldChangeSelectedRangeCallback :: Maybe WebViewShouldChangeSelectedRangeCallback
noWebViewShouldChangeSelectedRangeCallback = Nothing
type WebViewShouldChangeSelectedRangeCallbackC =
Ptr () -> -- object
Ptr DOMRange ->
Ptr DOMRange ->
CUInt ->
CInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShouldChangeSelectedRangeCallback :: WebViewShouldChangeSelectedRangeCallbackC -> IO (FunPtr WebViewShouldChangeSelectedRangeCallbackC)
webViewShouldChangeSelectedRangeClosure :: WebViewShouldChangeSelectedRangeCallback -> IO Closure
webViewShouldChangeSelectedRangeClosure cb = newCClosure =<< mkWebViewShouldChangeSelectedRangeCallback wrapped
where wrapped = webViewShouldChangeSelectedRangeCallbackWrapper cb
webViewShouldChangeSelectedRangeCallbackWrapper ::
WebViewShouldChangeSelectedRangeCallback ->
Ptr () ->
Ptr DOMRange ->
Ptr DOMRange ->
CUInt ->
CInt ->
Ptr () ->
IO CInt
webViewShouldChangeSelectedRangeCallbackWrapper _cb _ fromRange toRange affinity stillSelecting _ = do
fromRange' <- (newObject DOMRange) fromRange
toRange' <- (newObject DOMRange) toRange
let affinity' = (toEnum . fromIntegral) affinity
let stillSelecting' = (/= 0) stillSelecting
result <- _cb fromRange' toRange' affinity' stillSelecting'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShouldChangeSelectedRange :: (GObject a, MonadIO m) => a -> WebViewShouldChangeSelectedRangeCallback -> m SignalHandlerId
onWebViewShouldChangeSelectedRange obj cb = liftIO $ connectWebViewShouldChangeSelectedRange obj cb SignalConnectBefore
afterWebViewShouldChangeSelectedRange :: (GObject a, MonadIO m) => a -> WebViewShouldChangeSelectedRangeCallback -> m SignalHandlerId
afterWebViewShouldChangeSelectedRange obj cb = connectWebViewShouldChangeSelectedRange obj cb SignalConnectAfter
connectWebViewShouldChangeSelectedRange :: (GObject a, MonadIO m) =>
a -> WebViewShouldChangeSelectedRangeCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShouldChangeSelectedRange obj cb after = liftIO $ do
cb' <- mkWebViewShouldChangeSelectedRangeCallback (webViewShouldChangeSelectedRangeCallbackWrapper cb)
connectSignalFunPtr obj "should-change-selected-range" cb' after
-- signal WebView::should-delete-range
type WebViewShouldDeleteRangeCallback =
DOMRange ->
IO Bool
noWebViewShouldDeleteRangeCallback :: Maybe WebViewShouldDeleteRangeCallback
noWebViewShouldDeleteRangeCallback = Nothing
type WebViewShouldDeleteRangeCallbackC =
Ptr () -> -- object
Ptr DOMRange ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShouldDeleteRangeCallback :: WebViewShouldDeleteRangeCallbackC -> IO (FunPtr WebViewShouldDeleteRangeCallbackC)
webViewShouldDeleteRangeClosure :: WebViewShouldDeleteRangeCallback -> IO Closure
webViewShouldDeleteRangeClosure cb = newCClosure =<< mkWebViewShouldDeleteRangeCallback wrapped
where wrapped = webViewShouldDeleteRangeCallbackWrapper cb
webViewShouldDeleteRangeCallbackWrapper ::
WebViewShouldDeleteRangeCallback ->
Ptr () ->
Ptr DOMRange ->
Ptr () ->
IO CInt
webViewShouldDeleteRangeCallbackWrapper _cb _ range _ = do
range' <- (newObject DOMRange) range
result <- _cb range'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShouldDeleteRange :: (GObject a, MonadIO m) => a -> WebViewShouldDeleteRangeCallback -> m SignalHandlerId
onWebViewShouldDeleteRange obj cb = liftIO $ connectWebViewShouldDeleteRange obj cb SignalConnectBefore
afterWebViewShouldDeleteRange :: (GObject a, MonadIO m) => a -> WebViewShouldDeleteRangeCallback -> m SignalHandlerId
afterWebViewShouldDeleteRange obj cb = connectWebViewShouldDeleteRange obj cb SignalConnectAfter
connectWebViewShouldDeleteRange :: (GObject a, MonadIO m) =>
a -> WebViewShouldDeleteRangeCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShouldDeleteRange obj cb after = liftIO $ do
cb' <- mkWebViewShouldDeleteRangeCallback (webViewShouldDeleteRangeCallbackWrapper cb)
connectSignalFunPtr obj "should-delete-range" cb' after
-- signal WebView::should-end-editing
type WebViewShouldEndEditingCallback =
DOMRange ->
IO Bool
noWebViewShouldEndEditingCallback :: Maybe WebViewShouldEndEditingCallback
noWebViewShouldEndEditingCallback = Nothing
type WebViewShouldEndEditingCallbackC =
Ptr () -> -- object
Ptr DOMRange ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShouldEndEditingCallback :: WebViewShouldEndEditingCallbackC -> IO (FunPtr WebViewShouldEndEditingCallbackC)
webViewShouldEndEditingClosure :: WebViewShouldEndEditingCallback -> IO Closure
webViewShouldEndEditingClosure cb = newCClosure =<< mkWebViewShouldEndEditingCallback wrapped
where wrapped = webViewShouldEndEditingCallbackWrapper cb
webViewShouldEndEditingCallbackWrapper ::
WebViewShouldEndEditingCallback ->
Ptr () ->
Ptr DOMRange ->
Ptr () ->
IO CInt
webViewShouldEndEditingCallbackWrapper _cb _ range _ = do
range' <- (newObject DOMRange) range
result <- _cb range'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShouldEndEditing :: (GObject a, MonadIO m) => a -> WebViewShouldEndEditingCallback -> m SignalHandlerId
onWebViewShouldEndEditing obj cb = liftIO $ connectWebViewShouldEndEditing obj cb SignalConnectBefore
afterWebViewShouldEndEditing :: (GObject a, MonadIO m) => a -> WebViewShouldEndEditingCallback -> m SignalHandlerId
afterWebViewShouldEndEditing obj cb = connectWebViewShouldEndEditing obj cb SignalConnectAfter
connectWebViewShouldEndEditing :: (GObject a, MonadIO m) =>
a -> WebViewShouldEndEditingCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShouldEndEditing obj cb after = liftIO $ do
cb' <- mkWebViewShouldEndEditingCallback (webViewShouldEndEditingCallbackWrapper cb)
connectSignalFunPtr obj "should-end-editing" cb' after
-- signal WebView::should-insert-node
type WebViewShouldInsertNodeCallback =
DOMNode ->
DOMRange ->
InsertAction ->
IO Bool
noWebViewShouldInsertNodeCallback :: Maybe WebViewShouldInsertNodeCallback
noWebViewShouldInsertNodeCallback = Nothing
type WebViewShouldInsertNodeCallbackC =
Ptr () -> -- object
Ptr DOMNode ->
Ptr DOMRange ->
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShouldInsertNodeCallback :: WebViewShouldInsertNodeCallbackC -> IO (FunPtr WebViewShouldInsertNodeCallbackC)
webViewShouldInsertNodeClosure :: WebViewShouldInsertNodeCallback -> IO Closure
webViewShouldInsertNodeClosure cb = newCClosure =<< mkWebViewShouldInsertNodeCallback wrapped
where wrapped = webViewShouldInsertNodeCallbackWrapper cb
webViewShouldInsertNodeCallbackWrapper ::
WebViewShouldInsertNodeCallback ->
Ptr () ->
Ptr DOMNode ->
Ptr DOMRange ->
CUInt ->
Ptr () ->
IO CInt
webViewShouldInsertNodeCallbackWrapper _cb _ node range action _ = do
node' <- (newObject DOMNode) node
range' <- (newObject DOMRange) range
let action' = (toEnum . fromIntegral) action
result <- _cb node' range' action'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShouldInsertNode :: (GObject a, MonadIO m) => a -> WebViewShouldInsertNodeCallback -> m SignalHandlerId
onWebViewShouldInsertNode obj cb = liftIO $ connectWebViewShouldInsertNode obj cb SignalConnectBefore
afterWebViewShouldInsertNode :: (GObject a, MonadIO m) => a -> WebViewShouldInsertNodeCallback -> m SignalHandlerId
afterWebViewShouldInsertNode obj cb = connectWebViewShouldInsertNode obj cb SignalConnectAfter
connectWebViewShouldInsertNode :: (GObject a, MonadIO m) =>
a -> WebViewShouldInsertNodeCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShouldInsertNode obj cb after = liftIO $ do
cb' <- mkWebViewShouldInsertNodeCallback (webViewShouldInsertNodeCallbackWrapper cb)
connectSignalFunPtr obj "should-insert-node" cb' after
-- signal WebView::should-insert-text
type WebViewShouldInsertTextCallback =
T.Text ->
DOMRange ->
InsertAction ->
IO Bool
noWebViewShouldInsertTextCallback :: Maybe WebViewShouldInsertTextCallback
noWebViewShouldInsertTextCallback = Nothing
type WebViewShouldInsertTextCallbackC =
Ptr () -> -- object
CString ->
Ptr DOMRange ->
CUInt ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShouldInsertTextCallback :: WebViewShouldInsertTextCallbackC -> IO (FunPtr WebViewShouldInsertTextCallbackC)
webViewShouldInsertTextClosure :: WebViewShouldInsertTextCallback -> IO Closure
webViewShouldInsertTextClosure cb = newCClosure =<< mkWebViewShouldInsertTextCallback wrapped
where wrapped = webViewShouldInsertTextCallbackWrapper cb
webViewShouldInsertTextCallbackWrapper ::
WebViewShouldInsertTextCallback ->
Ptr () ->
CString ->
Ptr DOMRange ->
CUInt ->
Ptr () ->
IO CInt
webViewShouldInsertTextCallbackWrapper _cb _ string range action _ = do
string' <- cstringToText string
range' <- (newObject DOMRange) range
let action' = (toEnum . fromIntegral) action
result <- _cb string' range' action'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShouldInsertText :: (GObject a, MonadIO m) => a -> WebViewShouldInsertTextCallback -> m SignalHandlerId
onWebViewShouldInsertText obj cb = liftIO $ connectWebViewShouldInsertText obj cb SignalConnectBefore
afterWebViewShouldInsertText :: (GObject a, MonadIO m) => a -> WebViewShouldInsertTextCallback -> m SignalHandlerId
afterWebViewShouldInsertText obj cb = connectWebViewShouldInsertText obj cb SignalConnectAfter
connectWebViewShouldInsertText :: (GObject a, MonadIO m) =>
a -> WebViewShouldInsertTextCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShouldInsertText obj cb after = liftIO $ do
cb' <- mkWebViewShouldInsertTextCallback (webViewShouldInsertTextCallbackWrapper cb)
connectSignalFunPtr obj "should-insert-text" cb' after
-- signal WebView::should-show-delete-interface-for-element
type WebViewShouldShowDeleteInterfaceForElementCallback =
DOMHTMLElement ->
IO Bool
noWebViewShouldShowDeleteInterfaceForElementCallback :: Maybe WebViewShouldShowDeleteInterfaceForElementCallback
noWebViewShouldShowDeleteInterfaceForElementCallback = Nothing
type WebViewShouldShowDeleteInterfaceForElementCallbackC =
Ptr () -> -- object
Ptr DOMHTMLElement ->
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewShouldShowDeleteInterfaceForElementCallback :: WebViewShouldShowDeleteInterfaceForElementCallbackC -> IO (FunPtr WebViewShouldShowDeleteInterfaceForElementCallbackC)
webViewShouldShowDeleteInterfaceForElementClosure :: WebViewShouldShowDeleteInterfaceForElementCallback -> IO Closure
webViewShouldShowDeleteInterfaceForElementClosure cb = newCClosure =<< mkWebViewShouldShowDeleteInterfaceForElementCallback wrapped
where wrapped = webViewShouldShowDeleteInterfaceForElementCallbackWrapper cb
webViewShouldShowDeleteInterfaceForElementCallbackWrapper ::
WebViewShouldShowDeleteInterfaceForElementCallback ->
Ptr () ->
Ptr DOMHTMLElement ->
Ptr () ->
IO CInt
webViewShouldShowDeleteInterfaceForElementCallbackWrapper _cb _ element _ = do
element' <- (newObject DOMHTMLElement) element
result <- _cb element'
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewShouldShowDeleteInterfaceForElement :: (GObject a, MonadIO m) => a -> WebViewShouldShowDeleteInterfaceForElementCallback -> m SignalHandlerId
onWebViewShouldShowDeleteInterfaceForElement obj cb = liftIO $ connectWebViewShouldShowDeleteInterfaceForElement obj cb SignalConnectBefore
afterWebViewShouldShowDeleteInterfaceForElement :: (GObject a, MonadIO m) => a -> WebViewShouldShowDeleteInterfaceForElementCallback -> m SignalHandlerId
afterWebViewShouldShowDeleteInterfaceForElement obj cb = connectWebViewShouldShowDeleteInterfaceForElement obj cb SignalConnectAfter
connectWebViewShouldShowDeleteInterfaceForElement :: (GObject a, MonadIO m) =>
a -> WebViewShouldShowDeleteInterfaceForElementCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewShouldShowDeleteInterfaceForElement obj cb after = liftIO $ do
cb' <- mkWebViewShouldShowDeleteInterfaceForElementCallback (webViewShouldShowDeleteInterfaceForElementCallbackWrapper cb)
connectSignalFunPtr obj "should-show-delete-interface-for-element" cb' after
-- signal WebView::status-bar-text-changed
type WebViewStatusBarTextChangedCallback =
T.Text ->
IO ()
noWebViewStatusBarTextChangedCallback :: Maybe WebViewStatusBarTextChangedCallback
noWebViewStatusBarTextChangedCallback = Nothing
type WebViewStatusBarTextChangedCallbackC =
Ptr () -> -- object
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewStatusBarTextChangedCallback :: WebViewStatusBarTextChangedCallbackC -> IO (FunPtr WebViewStatusBarTextChangedCallbackC)
webViewStatusBarTextChangedClosure :: WebViewStatusBarTextChangedCallback -> IO Closure
webViewStatusBarTextChangedClosure cb = newCClosure =<< mkWebViewStatusBarTextChangedCallback wrapped
where wrapped = webViewStatusBarTextChangedCallbackWrapper cb
webViewStatusBarTextChangedCallbackWrapper ::
WebViewStatusBarTextChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
webViewStatusBarTextChangedCallbackWrapper _cb _ object _ = do
object' <- cstringToText object
_cb object'
onWebViewStatusBarTextChanged :: (GObject a, MonadIO m) => a -> WebViewStatusBarTextChangedCallback -> m SignalHandlerId
onWebViewStatusBarTextChanged obj cb = liftIO $ connectWebViewStatusBarTextChanged obj cb SignalConnectBefore
afterWebViewStatusBarTextChanged :: (GObject a, MonadIO m) => a -> WebViewStatusBarTextChangedCallback -> m SignalHandlerId
afterWebViewStatusBarTextChanged obj cb = connectWebViewStatusBarTextChanged obj cb SignalConnectAfter
connectWebViewStatusBarTextChanged :: (GObject a, MonadIO m) =>
a -> WebViewStatusBarTextChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewStatusBarTextChanged obj cb after = liftIO $ do
cb' <- mkWebViewStatusBarTextChangedCallback (webViewStatusBarTextChangedCallbackWrapper cb)
connectSignalFunPtr obj "status-bar-text-changed" cb' after
-- signal WebView::title-changed
type WebViewTitleChangedCallback =
WebFrame ->
T.Text ->
IO ()
noWebViewTitleChangedCallback :: Maybe WebViewTitleChangedCallback
noWebViewTitleChangedCallback = Nothing
type WebViewTitleChangedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
CString ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewTitleChangedCallback :: WebViewTitleChangedCallbackC -> IO (FunPtr WebViewTitleChangedCallbackC)
webViewTitleChangedClosure :: WebViewTitleChangedCallback -> IO Closure
webViewTitleChangedClosure cb = newCClosure =<< mkWebViewTitleChangedCallback wrapped
where wrapped = webViewTitleChangedCallbackWrapper cb
webViewTitleChangedCallbackWrapper ::
WebViewTitleChangedCallback ->
Ptr () ->
Ptr WebFrame ->
CString ->
Ptr () ->
IO ()
webViewTitleChangedCallbackWrapper _cb _ frame title _ = do
frame' <- (newObject WebFrame) frame
title' <- cstringToText title
_cb frame' title'
onWebViewTitleChanged :: (GObject a, MonadIO m) => a -> WebViewTitleChangedCallback -> m SignalHandlerId
onWebViewTitleChanged obj cb = liftIO $ connectWebViewTitleChanged obj cb SignalConnectBefore
afterWebViewTitleChanged :: (GObject a, MonadIO m) => a -> WebViewTitleChangedCallback -> m SignalHandlerId
afterWebViewTitleChanged obj cb = connectWebViewTitleChanged obj cb SignalConnectAfter
connectWebViewTitleChanged :: (GObject a, MonadIO m) =>
a -> WebViewTitleChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewTitleChanged obj cb after = liftIO $ do
cb' <- mkWebViewTitleChangedCallback (webViewTitleChangedCallbackWrapper cb)
connectSignalFunPtr obj "title-changed" cb' after
-- signal WebView::undo
type WebViewUndoCallback =
IO ()
noWebViewUndoCallback :: Maybe WebViewUndoCallback
noWebViewUndoCallback = Nothing
type WebViewUndoCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewUndoCallback :: WebViewUndoCallbackC -> IO (FunPtr WebViewUndoCallbackC)
webViewUndoClosure :: WebViewUndoCallback -> IO Closure
webViewUndoClosure cb = newCClosure =<< mkWebViewUndoCallback wrapped
where wrapped = webViewUndoCallbackWrapper cb
webViewUndoCallbackWrapper ::
WebViewUndoCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewUndoCallbackWrapper _cb _ _ = do
_cb
onWebViewUndo :: (GObject a, MonadIO m) => a -> WebViewUndoCallback -> m SignalHandlerId
onWebViewUndo obj cb = liftIO $ connectWebViewUndo obj cb SignalConnectBefore
afterWebViewUndo :: (GObject a, MonadIO m) => a -> WebViewUndoCallback -> m SignalHandlerId
afterWebViewUndo obj cb = connectWebViewUndo obj cb SignalConnectAfter
connectWebViewUndo :: (GObject a, MonadIO m) =>
a -> WebViewUndoCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewUndo obj cb after = liftIO $ do
cb' <- mkWebViewUndoCallback (webViewUndoCallbackWrapper cb)
connectSignalFunPtr obj "undo" cb' after
-- signal WebView::user-changed-contents
type WebViewUserChangedContentsCallback =
IO ()
noWebViewUserChangedContentsCallback :: Maybe WebViewUserChangedContentsCallback
noWebViewUserChangedContentsCallback = Nothing
type WebViewUserChangedContentsCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewUserChangedContentsCallback :: WebViewUserChangedContentsCallbackC -> IO (FunPtr WebViewUserChangedContentsCallbackC)
webViewUserChangedContentsClosure :: WebViewUserChangedContentsCallback -> IO Closure
webViewUserChangedContentsClosure cb = newCClosure =<< mkWebViewUserChangedContentsCallback wrapped
where wrapped = webViewUserChangedContentsCallbackWrapper cb
webViewUserChangedContentsCallbackWrapper ::
WebViewUserChangedContentsCallback ->
Ptr () ->
Ptr () ->
IO ()
webViewUserChangedContentsCallbackWrapper _cb _ _ = do
_cb
onWebViewUserChangedContents :: (GObject a, MonadIO m) => a -> WebViewUserChangedContentsCallback -> m SignalHandlerId
onWebViewUserChangedContents obj cb = liftIO $ connectWebViewUserChangedContents obj cb SignalConnectBefore
afterWebViewUserChangedContents :: (GObject a, MonadIO m) => a -> WebViewUserChangedContentsCallback -> m SignalHandlerId
afterWebViewUserChangedContents obj cb = connectWebViewUserChangedContents obj cb SignalConnectAfter
connectWebViewUserChangedContents :: (GObject a, MonadIO m) =>
a -> WebViewUserChangedContentsCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewUserChangedContents obj cb after = liftIO $ do
cb' <- mkWebViewUserChangedContentsCallback (webViewUserChangedContentsCallbackWrapper cb)
connectSignalFunPtr obj "user-changed-contents" cb' after
-- signal WebView::viewport-attributes-changed
type WebViewViewportAttributesChangedCallback =
ViewportAttributes ->
IO ()
noWebViewViewportAttributesChangedCallback :: Maybe WebViewViewportAttributesChangedCallback
noWebViewViewportAttributesChangedCallback = Nothing
type WebViewViewportAttributesChangedCallbackC =
Ptr () -> -- object
Ptr ViewportAttributes ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewViewportAttributesChangedCallback :: WebViewViewportAttributesChangedCallbackC -> IO (FunPtr WebViewViewportAttributesChangedCallbackC)
webViewViewportAttributesChangedClosure :: WebViewViewportAttributesChangedCallback -> IO Closure
webViewViewportAttributesChangedClosure cb = newCClosure =<< mkWebViewViewportAttributesChangedCallback wrapped
where wrapped = webViewViewportAttributesChangedCallbackWrapper cb
webViewViewportAttributesChangedCallbackWrapper ::
WebViewViewportAttributesChangedCallback ->
Ptr () ->
Ptr ViewportAttributes ->
Ptr () ->
IO ()
webViewViewportAttributesChangedCallbackWrapper _cb _ object _ = do
object' <- (newObject ViewportAttributes) object
_cb object'
onWebViewViewportAttributesChanged :: (GObject a, MonadIO m) => a -> WebViewViewportAttributesChangedCallback -> m SignalHandlerId
onWebViewViewportAttributesChanged obj cb = liftIO $ connectWebViewViewportAttributesChanged obj cb SignalConnectBefore
afterWebViewViewportAttributesChanged :: (GObject a, MonadIO m) => a -> WebViewViewportAttributesChangedCallback -> m SignalHandlerId
afterWebViewViewportAttributesChanged obj cb = connectWebViewViewportAttributesChanged obj cb SignalConnectAfter
connectWebViewViewportAttributesChanged :: (GObject a, MonadIO m) =>
a -> WebViewViewportAttributesChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewViewportAttributesChanged obj cb after = liftIO $ do
cb' <- mkWebViewViewportAttributesChangedCallback (webViewViewportAttributesChangedCallbackWrapper cb)
connectSignalFunPtr obj "viewport-attributes-changed" cb' after
-- signal WebView::viewport-attributes-recompute-requested
type WebViewViewportAttributesRecomputeRequestedCallback =
ViewportAttributes ->
IO ()
noWebViewViewportAttributesRecomputeRequestedCallback :: Maybe WebViewViewportAttributesRecomputeRequestedCallback
noWebViewViewportAttributesRecomputeRequestedCallback = Nothing
type WebViewViewportAttributesRecomputeRequestedCallbackC =
Ptr () -> -- object
Ptr ViewportAttributes ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewViewportAttributesRecomputeRequestedCallback :: WebViewViewportAttributesRecomputeRequestedCallbackC -> IO (FunPtr WebViewViewportAttributesRecomputeRequestedCallbackC)
webViewViewportAttributesRecomputeRequestedClosure :: WebViewViewportAttributesRecomputeRequestedCallback -> IO Closure
webViewViewportAttributesRecomputeRequestedClosure cb = newCClosure =<< mkWebViewViewportAttributesRecomputeRequestedCallback wrapped
where wrapped = webViewViewportAttributesRecomputeRequestedCallbackWrapper cb
webViewViewportAttributesRecomputeRequestedCallbackWrapper ::
WebViewViewportAttributesRecomputeRequestedCallback ->
Ptr () ->
Ptr ViewportAttributes ->
Ptr () ->
IO ()
webViewViewportAttributesRecomputeRequestedCallbackWrapper _cb _ object _ = do
object' <- (newObject ViewportAttributes) object
_cb object'
onWebViewViewportAttributesRecomputeRequested :: (GObject a, MonadIO m) => a -> WebViewViewportAttributesRecomputeRequestedCallback -> m SignalHandlerId
onWebViewViewportAttributesRecomputeRequested obj cb = liftIO $ connectWebViewViewportAttributesRecomputeRequested obj cb SignalConnectBefore
afterWebViewViewportAttributesRecomputeRequested :: (GObject a, MonadIO m) => a -> WebViewViewportAttributesRecomputeRequestedCallback -> m SignalHandlerId
afterWebViewViewportAttributesRecomputeRequested obj cb = connectWebViewViewportAttributesRecomputeRequested obj cb SignalConnectAfter
connectWebViewViewportAttributesRecomputeRequested :: (GObject a, MonadIO m) =>
a -> WebViewViewportAttributesRecomputeRequestedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewViewportAttributesRecomputeRequested obj cb after = liftIO $ do
cb' <- mkWebViewViewportAttributesRecomputeRequestedCallback (webViewViewportAttributesRecomputeRequestedCallbackWrapper cb)
connectSignalFunPtr obj "viewport-attributes-recompute-requested" cb' after
-- signal WebView::web-view-ready
type WebViewWebViewReadyCallback =
IO Bool
noWebViewWebViewReadyCallback :: Maybe WebViewWebViewReadyCallback
noWebViewWebViewReadyCallback = Nothing
type WebViewWebViewReadyCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO CInt
foreign import ccall "wrapper"
mkWebViewWebViewReadyCallback :: WebViewWebViewReadyCallbackC -> IO (FunPtr WebViewWebViewReadyCallbackC)
webViewWebViewReadyClosure :: WebViewWebViewReadyCallback -> IO Closure
webViewWebViewReadyClosure cb = newCClosure =<< mkWebViewWebViewReadyCallback wrapped
where wrapped = webViewWebViewReadyCallbackWrapper cb
webViewWebViewReadyCallbackWrapper ::
WebViewWebViewReadyCallback ->
Ptr () ->
Ptr () ->
IO CInt
webViewWebViewReadyCallbackWrapper _cb _ _ = do
result <- _cb
let result' = (fromIntegral . fromEnum) result
return result'
onWebViewWebViewReady :: (GObject a, MonadIO m) => a -> WebViewWebViewReadyCallback -> m SignalHandlerId
onWebViewWebViewReady obj cb = liftIO $ connectWebViewWebViewReady obj cb SignalConnectBefore
afterWebViewWebViewReady :: (GObject a, MonadIO m) => a -> WebViewWebViewReadyCallback -> m SignalHandlerId
afterWebViewWebViewReady obj cb = connectWebViewWebViewReady obj cb SignalConnectAfter
connectWebViewWebViewReady :: (GObject a, MonadIO m) =>
a -> WebViewWebViewReadyCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewWebViewReady obj cb after = liftIO $ do
cb' <- mkWebViewWebViewReadyCallback (webViewWebViewReadyCallbackWrapper cb)
connectSignalFunPtr obj "web-view-ready" cb' after
-- signal WebView::window-object-cleared
type WebViewWindowObjectClearedCallback =
WebFrame ->
Ptr () ->
Ptr () ->
IO ()
noWebViewWindowObjectClearedCallback :: Maybe WebViewWindowObjectClearedCallback
noWebViewWindowObjectClearedCallback = Nothing
type WebViewWindowObjectClearedCallbackC =
Ptr () -> -- object
Ptr WebFrame ->
Ptr () ->
Ptr () ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWebViewWindowObjectClearedCallback :: WebViewWindowObjectClearedCallbackC -> IO (FunPtr WebViewWindowObjectClearedCallbackC)
webViewWindowObjectClearedClosure :: WebViewWindowObjectClearedCallback -> IO Closure
webViewWindowObjectClearedClosure cb = newCClosure =<< mkWebViewWindowObjectClearedCallback wrapped
where wrapped = webViewWindowObjectClearedCallbackWrapper cb
webViewWindowObjectClearedCallbackWrapper ::
WebViewWindowObjectClearedCallback ->
Ptr () ->
Ptr WebFrame ->
Ptr () ->
Ptr () ->
Ptr () ->
IO ()
webViewWindowObjectClearedCallbackWrapper _cb _ frame context window_object _ = do
frame' <- (newObject WebFrame) frame
_cb frame' context window_object
onWebViewWindowObjectCleared :: (GObject a, MonadIO m) => a -> WebViewWindowObjectClearedCallback -> m SignalHandlerId
onWebViewWindowObjectCleared obj cb = liftIO $ connectWebViewWindowObjectCleared obj cb SignalConnectBefore
afterWebViewWindowObjectCleared :: (GObject a, MonadIO m) => a -> WebViewWindowObjectClearedCallback -> m SignalHandlerId
afterWebViewWindowObjectCleared obj cb = connectWebViewWindowObjectCleared obj cb SignalConnectAfter
connectWebViewWindowObjectCleared :: (GObject a, MonadIO m) =>
a -> WebViewWindowObjectClearedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebViewWindowObjectCleared obj cb after = liftIO $ do
cb' <- mkWebViewWindowObjectClearedCallback (webViewWindowObjectClearedCallbackWrapper cb)
connectSignalFunPtr obj "window-object-cleared" cb' after
-- Enum WebViewTargetInfo
data WebViewTargetInfo =
WebViewTargetInfoHtml
| WebViewTargetInfoText
| WebViewTargetInfoImage
| WebViewTargetInfoUriList
| WebViewTargetInfoNetscapeUrl
| AnotherWebViewTargetInfo Int
deriving (Show, Eq)
instance Enum WebViewTargetInfo where
fromEnum WebViewTargetInfoHtml = 0
fromEnum WebViewTargetInfoText = 1
fromEnum WebViewTargetInfoImage = 2
fromEnum WebViewTargetInfoUriList = 3
fromEnum WebViewTargetInfoNetscapeUrl = 4
fromEnum (AnotherWebViewTargetInfo k) = k
toEnum 0 = WebViewTargetInfoHtml
toEnum 1 = WebViewTargetInfoText
toEnum 2 = WebViewTargetInfoImage
toEnum 3 = WebViewTargetInfoUriList
toEnum 4 = WebViewTargetInfoNetscapeUrl
toEnum k = AnotherWebViewTargetInfo k
foreign import ccall "webkit_web_view_target_info_get_type" c_webkit_web_view_target_info_get_type ::
IO GType
instance BoxedEnum WebViewTargetInfo where
boxedEnumType _ = c_webkit_web_view_target_info_get_type
-- Enum WebViewViewMode
data WebViewViewMode =
WebViewViewModeWindowed
| WebViewViewModeFloating
| WebViewViewModeFullscreen
| WebViewViewModeMaximized
| WebViewViewModeMinimized
| AnotherWebViewViewMode Int
deriving (Show, Eq)
instance Enum WebViewViewMode where
fromEnum WebViewViewModeWindowed = 0
fromEnum WebViewViewModeFloating = 1
fromEnum WebViewViewModeFullscreen = 2
fromEnum WebViewViewModeMaximized = 3
fromEnum WebViewViewModeMinimized = 4
fromEnum (AnotherWebViewViewMode k) = k
toEnum 0 = WebViewViewModeWindowed
toEnum 1 = WebViewViewModeFloating
toEnum 2 = WebViewViewModeFullscreen
toEnum 3 = WebViewViewModeMaximized
toEnum 4 = WebViewViewModeMinimized
toEnum k = AnotherWebViewViewMode k
foreign import ccall "webkit_web_view_view_mode_get_type" c_webkit_web_view_view_mode_get_type ::
IO GType
instance BoxedEnum WebViewViewMode where
boxedEnumType _ = c_webkit_web_view_view_mode_get_type
-- object WebWindowFeatures
newtype WebWindowFeatures = WebWindowFeatures (ForeignPtr WebWindowFeatures)
noWebWindowFeatures :: Maybe WebWindowFeatures
noWebWindowFeatures = Nothing
foreign import ccall "webkit_web_window_features_get_type"
c_webkit_web_window_features_get_type :: IO GType
type instance ParentTypes WebWindowFeatures = '[GObject.Object]
instance GObject WebWindowFeatures where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_window_features_get_type
class GObject o => WebWindowFeaturesK o
instance (GObject o, IsDescendantOf WebWindowFeatures o) => WebWindowFeaturesK o
toWebWindowFeatures :: WebWindowFeaturesK o => o -> IO WebWindowFeatures
toWebWindowFeatures = unsafeCastTo WebWindowFeatures
-- method WebWindowFeatures::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "WebWindowFeatures"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_window_features_new" webkit_web_window_features_new ::
IO (Ptr WebWindowFeatures)
webWindowFeaturesNew ::
(MonadIO m) =>
m WebWindowFeatures
webWindowFeaturesNew = liftIO $ do
result <- webkit_web_window_features_new
result' <- (wrapObject WebWindowFeatures) result
return result'
-- method WebWindowFeatures::equal
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "features2", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "features2", argType = TInterface "WebKit" "WebWindowFeatures", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "webkit_web_window_features_equal" webkit_web_window_features_equal ::
Ptr WebWindowFeatures -> -- _obj : TInterface "WebKit" "WebWindowFeatures"
Ptr WebWindowFeatures -> -- features2 : TInterface "WebKit" "WebWindowFeatures"
IO CInt
webWindowFeaturesEqual ::
(MonadIO m, WebWindowFeaturesK a, WebWindowFeaturesK b) =>
a -> -- _obj
b -> -- features2
m Bool
webWindowFeaturesEqual _obj features2 = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let features2' = unsafeManagedPtrCastPtr features2
result <- webkit_web_window_features_equal _obj' features2'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr features2
return result'
-- constant _MAJOR_VERSION
_MAJOR_VERSION :: Int32
_MAJOR_VERSION = 2
-- constant _MICRO_VERSION
_MICRO_VERSION :: Int32
_MICRO_VERSION = 9
-- constant _MINOR_VERSION
_MINOR_VERSION :: Int32
_MINOR_VERSION = 4
-- constant _USER_AGENT_MAJOR_VERSION
_USER_AGENT_MAJOR_VERSION :: Int32
_USER_AGENT_MAJOR_VERSION = 538
-- constant _USER_AGENT_MINOR_VERSION
_USER_AGENT_MINOR_VERSION :: Int32
_USER_AGENT_MINOR_VERSION = 15
-- function webkit_application_cache_get_database_directory_path
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_application_cache_get_database_directory_path" webkit_application_cache_get_database_directory_path ::
IO CString
applicationCacheGetDatabaseDirectoryPath ::
(MonadIO m) =>
m T.Text
applicationCacheGetDatabaseDirectoryPath = liftIO $ do
result <- webkit_application_cache_get_database_directory_path
result' <- cstringToText result
return result'
-- function webkit_context_menu_item_get_action
-- Args : [Arg {argName = "item", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "item", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "ContextMenuAction"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_context_menu_item_get_action" webkit_context_menu_item_get_action ::
Ptr Gtk.MenuItem -> -- item : TInterface "Gtk" "MenuItem"
IO CUInt
contextMenuItemGetAction ::
(MonadIO m, Gtk.MenuItemK a) =>
a -> -- item
m ContextMenuAction
contextMenuItemGetAction item = liftIO $ do
let item' = unsafeManagedPtrCastPtr item
result <- webkit_context_menu_item_get_action item'
let result' = (toEnum . fromIntegral) result
touchManagedPtr item
return result'
-- function webkit_geolocation_policy_allow
-- Args : [Arg {argName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_geolocation_policy_allow" webkit_geolocation_policy_allow ::
Ptr GeolocationPolicyDecision -> -- decision : TInterface "WebKit" "GeolocationPolicyDecision"
IO ()
geolocationPolicyAllow ::
(MonadIO m, GeolocationPolicyDecisionK a) =>
a -> -- decision
m ()
geolocationPolicyAllow decision = liftIO $ do
let decision' = unsafeManagedPtrCastPtr decision
webkit_geolocation_policy_allow decision'
touchManagedPtr decision
return ()
-- function webkit_geolocation_policy_deny
-- Args : [Arg {argName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "decision", argType = TInterface "WebKit" "GeolocationPolicyDecision", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_geolocation_policy_deny" webkit_geolocation_policy_deny ::
Ptr GeolocationPolicyDecision -> -- decision : TInterface "WebKit" "GeolocationPolicyDecision"
IO ()
geolocationPolicyDeny ::
(MonadIO m, GeolocationPolicyDecisionK a) =>
a -> -- decision
m ()
geolocationPolicyDeny decision = liftIO $ do
let decision' = unsafeManagedPtrCastPtr decision
webkit_geolocation_policy_deny decision'
touchManagedPtr decision
return ()
-- function webkit_get_cache_model
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "CacheModel"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_cache_model" webkit_get_cache_model ::
IO CUInt
getCacheModel ::
(MonadIO m) =>
m CacheModel
getCacheModel = liftIO $ do
result <- webkit_get_cache_model
let result' = (toEnum . fromIntegral) result
return result'
-- function webkit_get_default_session
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Soup" "Session"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_default_session" webkit_get_default_session ::
IO (Ptr Soup.Session)
getDefaultSession ::
(MonadIO m) =>
m Soup.Session
getDefaultSession = liftIO $ do
result <- webkit_get_default_session
result' <- (newObject Soup.Session) result
return result'
-- function webkit_get_default_web_database_quota
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_default_web_database_quota" webkit_get_default_web_database_quota ::
IO Word64
getDefaultWebDatabaseQuota ::
(MonadIO m) =>
m Word64
getDefaultWebDatabaseQuota = liftIO $ do
result <- webkit_get_default_web_database_quota
return result
-- function webkit_get_favicon_database
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "FaviconDatabase"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_favicon_database" webkit_get_favicon_database ::
IO (Ptr FaviconDatabase)
getFaviconDatabase ::
(MonadIO m) =>
m FaviconDatabase
getFaviconDatabase = liftIO $ do
result <- webkit_get_favicon_database
result' <- (newObject FaviconDatabase) result
return result'
-- function webkit_get_icon_database
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "IconDatabase"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_icon_database" webkit_get_icon_database ::
IO (Ptr IconDatabase)
{-# DEPRECATED getIconDatabase ["(Since version 1.8)","Use webkit_get_favicon_database() instead"]#-}
getIconDatabase ::
(MonadIO m) =>
m IconDatabase
getIconDatabase = liftIO $ do
result <- webkit_get_icon_database
result' <- (newObject IconDatabase) result
return result'
-- function webkit_get_security_policy_for_uri_scheme
-- Args : [Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "WebKit" "SecurityPolicy"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_security_policy_for_uri_scheme" webkit_get_security_policy_for_uri_scheme ::
CString -> -- scheme : TBasicType TUTF8
IO CUInt
getSecurityPolicyForUriScheme ::
(MonadIO m) =>
T.Text -> -- scheme
m [SecurityPolicy]
getSecurityPolicyForUriScheme scheme = liftIO $ do
scheme' <- textToCString scheme
result <- webkit_get_security_policy_for_uri_scheme scheme'
let result' = wordToGFlags result
freeMem scheme'
return result'
-- function webkit_get_text_checker
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "GObject" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_text_checker" webkit_get_text_checker ::
IO (Ptr GObject.Object)
getTextChecker ::
(MonadIO m) =>
m GObject.Object
getTextChecker = liftIO $ do
result <- webkit_get_text_checker
result' <- (newObject GObject.Object) result
return result'
-- function webkit_get_web_database_directory_path
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_web_database_directory_path" webkit_get_web_database_directory_path ::
IO CString
getWebDatabaseDirectoryPath ::
(MonadIO m) =>
m T.Text
getWebDatabaseDirectoryPath = liftIO $ do
result <- webkit_get_web_database_directory_path
result' <- cstringToText result
return result'
-- function webkit_get_web_plugin_database
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "WebKit" "WebPluginDatabase"
-- throws : False
-- Skip return : False
foreign import ccall "webkit_get_web_plugin_database" webkit_get_web_plugin_database ::
IO (Ptr WebPluginDatabase)
getWebPluginDatabase ::
(MonadIO m) =>
m WebPluginDatabase
getWebPluginDatabase = liftIO $ do
result <- webkit_get_web_plugin_database
result' <- (newObject WebPluginDatabase) result
return result'
-- function webkit_major_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_major_version" webkit_major_version ::
IO Word32
majorVersion ::
(MonadIO m) =>
m Word32
majorVersion = liftIO $ do
result <- webkit_major_version
return result
-- function webkit_micro_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_micro_version" webkit_micro_version ::
IO Word32
microVersion ::
(MonadIO m) =>
m Word32
microVersion = liftIO $ do
result <- webkit_micro_version
return result
-- function webkit_minor_version
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_minor_version" webkit_minor_version ::
IO Word32
minorVersion ::
(MonadIO m) =>
m Word32
minorVersion = liftIO $ do
result <- webkit_minor_version
return result
-- function webkit_network_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_network_error_quark" webkit_network_error_quark ::
IO Word32
networkErrorQuark ::
(MonadIO m) =>
m Word32
networkErrorQuark = liftIO $ do
result <- webkit_network_error_quark
return result
-- function webkit_plugin_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_plugin_error_quark" webkit_plugin_error_quark ::
IO Word32
pluginErrorQuark ::
(MonadIO m) =>
m Word32
pluginErrorQuark = liftIO $ do
result <- webkit_plugin_error_quark
return result
-- function webkit_policy_error_quark
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "webkit_policy_error_quark" webkit_policy_error_quark ::
IO Word32
policyErrorQuark ::
(MonadIO m) =>
m Word32
policyErrorQuark = liftIO $ do
result <- webkit_policy_error_quark
return result
-- function webkit_remove_all_web_databases
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_remove_all_web_databases" webkit_remove_all_web_databases ::
IO ()
removeAllWebDatabases ::
(MonadIO m) =>
m ()
removeAllWebDatabases = liftIO $ do
webkit_remove_all_web_databases
return ()
-- function webkit_set_cache_model
-- Args : [Arg {argName = "cache_model", argType = TInterface "WebKit" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "cache_model", argType = TInterface "WebKit" "CacheModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_set_cache_model" webkit_set_cache_model ::
CUInt -> -- cache_model : TInterface "WebKit" "CacheModel"
IO ()
setCacheModel ::
(MonadIO m) =>
CacheModel -> -- cache_model
m ()
setCacheModel cache_model = liftIO $ do
let cache_model' = (fromIntegral . fromEnum) cache_model
webkit_set_cache_model cache_model'
return ()
-- function webkit_set_default_web_database_quota
-- Args : [Arg {argName = "defaultQuota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "defaultQuota", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_set_default_web_database_quota" webkit_set_default_web_database_quota ::
Word64 -> -- defaultQuota : TBasicType TUInt64
IO ()
setDefaultWebDatabaseQuota ::
(MonadIO m) =>
Word64 -> -- defaultQuota
m ()
setDefaultWebDatabaseQuota defaultQuota = liftIO $ do
webkit_set_default_web_database_quota defaultQuota
return ()
-- function webkit_set_security_policy_for_uri_scheme
-- Args : [Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "WebKit" "SecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "WebKit" "SecurityPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_set_security_policy_for_uri_scheme" webkit_set_security_policy_for_uri_scheme ::
CString -> -- scheme : TBasicType TUTF8
CUInt -> -- policy : TInterface "WebKit" "SecurityPolicy"
IO ()
setSecurityPolicyForUriScheme ::
(MonadIO m) =>
T.Text -> -- scheme
[SecurityPolicy] -> -- policy
m ()
setSecurityPolicyForUriScheme scheme policy = liftIO $ do
scheme' <- textToCString scheme
let policy' = gflagsToWord policy
webkit_set_security_policy_for_uri_scheme scheme' policy'
freeMem scheme'
return ()
-- function webkit_set_text_checker
-- Args : [Arg {argName = "checker", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "checker", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "webkit_set_text_checker" webkit_set_text_checker ::
Ptr GObject.Object -> -- checker : TInterface "GObject" "Object"
IO ()
setTextChecker ::
(MonadIO m, GObject.ObjectK a) =>
a -> -- checker
m ()
setTextChecker checker = liftIO $ do
let checker' = unsafeManagedPtrCastPtr checker
webkit_set_text_checker checker'
touchManagedPtr checker
return ()
-- function webkit_set_web_database_directory_path
-- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "path", 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_set_web_database_directory_path" webkit_set_web_database_directory_path ::
CString -> -- path : TBasicType TUTF8
IO ()
setWebDatabaseDirectoryPath ::
(MonadIO m) =>
T.Text -> -- path
m ()
setWebDatabaseDirectoryPath path = liftIO $ do
path' <- textToCString path
webkit_set_web_database_directory_path path'
freeMem path'
return ()