-- 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 ()