packages feed

gi-webkit2webextension (empty) → 0.2.8.12

raw patch · 234 files changed

+63925/−0 lines, 234 filesdep +basedep +bytestringdep +containerssetup-changed

Dependencies added: base, bytestring, containers, gi-gobject, gi-gtk, gi-javascriptcore, gi-soup, haskell-gi-base, text, transformers

Files

+ GI/WebKit2WebExtension.hs view
@@ -0,0 +1,38 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension+    (     module GI.WebKit2WebExtension.Callbacks ,+    module GI.WebKit2WebExtension.Constants ,+    module GI.WebKit2WebExtension.Enums     ,+    module GI.WebKit2WebExtension.Flags     ,+    module GI.WebKit2WebExtension.Interfaces,+    module GI.WebKit2WebExtension.Objects   ,+    module GI.WebKit2WebExtension.Structs   ,+++    ) where++import GI.WebKit2WebExtension.Callbacks+import GI.WebKit2WebExtension.Constants+import GI.WebKit2WebExtension.Enums+import GI.WebKit2WebExtension.Flags+import GI.WebKit2WebExtension.Interfaces+import GI.WebKit2WebExtension.Objects+import GI.WebKit2WebExtension.Structs++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks++
+ GI/WebKit2WebExtension/Callbacks.hs view
@@ -0,0 +1,106 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Callbacks+    ( ++ -- * Signals+-- ** WebExtensionInitializeFunction+    WebExtensionInitializeFunction          ,+    WebExtensionInitializeFunctionC         ,+    mkWebExtensionInitializeFunction        ,+    noWebExtensionInitializeFunction        ,+    webExtensionInitializeFunctionClosure   ,+    webExtensionInitializeFunctionWrapper   ,+++-- ** WebExtensionInitializeWithUserDataFunction+    WebExtensionInitializeWithUserDataFunction,+    WebExtensionInitializeWithUserDataFunctionC,+    mkWebExtensionInitializeWithUserDataFunction,+    noWebExtensionInitializeWithUserDataFunction,+    webExtensionInitializeWithUserDataFunctionClosure,+    webExtensionInitializeWithUserDataFunctionWrapper,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+++-- callback WebExtensionInitializeWithUserDataFunction+webExtensionInitializeWithUserDataFunctionClosure :: WebExtensionInitializeWithUserDataFunction -> IO Closure+webExtensionInitializeWithUserDataFunctionClosure cb = newCClosure =<< mkWebExtensionInitializeWithUserDataFunction wrapped+    where wrapped = webExtensionInitializeWithUserDataFunctionWrapper Nothing cb++type WebExtensionInitializeWithUserDataFunctionC =+    Ptr WebExtension ->+    Ptr GVariant ->+    IO ()++foreign import ccall "wrapper"+    mkWebExtensionInitializeWithUserDataFunction :: WebExtensionInitializeWithUserDataFunctionC -> IO (FunPtr WebExtensionInitializeWithUserDataFunctionC)++type WebExtensionInitializeWithUserDataFunction =+    WebExtension ->+    GVariant ->+    IO ()++noWebExtensionInitializeWithUserDataFunction :: Maybe WebExtensionInitializeWithUserDataFunction+noWebExtensionInitializeWithUserDataFunction = Nothing++webExtensionInitializeWithUserDataFunctionWrapper ::+    Maybe (Ptr (FunPtr (WebExtensionInitializeWithUserDataFunctionC))) ->+    WebExtensionInitializeWithUserDataFunction ->+    Ptr WebExtension ->+    Ptr GVariant ->+    IO ()+webExtensionInitializeWithUserDataFunctionWrapper funptrptr _cb extension user_data = do+    extension' <- (newObject WebExtension) extension+    user_data' <- newGVariantFromPtr user_data+    _cb  extension' user_data'+    maybeReleaseFunPtr funptrptr++-- callback WebExtensionInitializeFunction+webExtensionInitializeFunctionClosure :: WebExtensionInitializeFunction -> IO Closure+webExtensionInitializeFunctionClosure cb = newCClosure =<< mkWebExtensionInitializeFunction wrapped+    where wrapped = webExtensionInitializeFunctionWrapper Nothing cb++type WebExtensionInitializeFunctionC =+    Ptr WebExtension ->+    IO ()++foreign import ccall "wrapper"+    mkWebExtensionInitializeFunction :: WebExtensionInitializeFunctionC -> IO (FunPtr WebExtensionInitializeFunctionC)++type WebExtensionInitializeFunction =+    WebExtension ->+    IO ()++noWebExtensionInitializeFunction :: Maybe WebExtensionInitializeFunction+noWebExtensionInitializeFunction = Nothing++webExtensionInitializeFunctionWrapper ::+    Maybe (Ptr (FunPtr (WebExtensionInitializeFunctionC))) ->+    WebExtensionInitializeFunction ->+    Ptr WebExtension ->+    IO ()+webExtensionInitializeFunctionWrapper funptrptr _cb extension = do+    extension' <- (newObject WebExtension) extension+    _cb  extension'+    maybeReleaseFunPtr funptrptr++
+ GI/WebKit2WebExtension/Constants.hs view
@@ -0,0 +1,368 @@+{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Constants+    ( +    pattern DOM_XPATH_RESULT_UNORDERED_NODE_SNAPSHOT_TYPE,+    pattern DOM_XPATH_RESULT_UNORDERED_NODE_ITERATOR_TYPE,+    pattern DOM_XPATH_RESULT_STRING_TYPE    ,+    pattern DOM_XPATH_RESULT_ORDERED_NODE_SNAPSHOT_TYPE,+    pattern DOM_XPATH_RESULT_ORDERED_NODE_ITERATOR_TYPE,+    pattern DOM_XPATH_RESULT_NUMBER_TYPE    ,+    pattern DOM_XPATH_RESULT_FIRST_ORDERED_NODE_TYPE,+    pattern DOM_XPATH_RESULT_BOOLEAN_TYPE   ,+    pattern DOM_XPATH_RESULT_ANY_UNORDERED_NODE_TYPE,+    pattern DOM_XPATH_RESULT_ANY_TYPE       ,+    pattern DOM_RANGE_START_TO_START        ,+    pattern DOM_RANGE_START_TO_END          ,+    pattern DOM_RANGE_NODE_INSIDE           ,+    pattern DOM_RANGE_NODE_BEFORE_AND_AFTER ,+    pattern DOM_RANGE_NODE_BEFORE           ,+    pattern DOM_RANGE_NODE_AFTER            ,+    pattern DOM_RANGE_END_TO_START          ,+    pattern DOM_RANGE_END_TO_END            ,+    pattern DOM_NODE_TEXT_NODE              ,+    pattern DOM_NODE_PROCESSING_INSTRUCTION_NODE,+    pattern DOM_NODE_FILTER_SKIP            ,+    pattern DOM_NODE_FILTER_SHOW_TEXT       ,+    pattern DOM_NODE_FILTER_SHOW_PROCESSING_INSTRUCTION,+    pattern DOM_NODE_FILTER_SHOW_NOTATION   ,+    pattern DOM_NODE_FILTER_SHOW_ENTITY_REFERENCE,+    pattern DOM_NODE_FILTER_SHOW_ENTITY     ,+    pattern DOM_NODE_FILTER_SHOW_ELEMENT    ,+    pattern DOM_NODE_FILTER_SHOW_DOCUMENT_TYPE,+    pattern DOM_NODE_FILTER_SHOW_DOCUMENT_FRAGMENT,+    pattern DOM_NODE_FILTER_SHOW_DOCUMENT   ,+    pattern DOM_NODE_FILTER_SHOW_COMMENT    ,+    pattern DOM_NODE_FILTER_SHOW_CDATA_SECTION,+    pattern DOM_NODE_FILTER_SHOW_ATTRIBUTE  ,+    pattern DOM_NODE_FILTER_SHOW_ALL        ,+    pattern DOM_NODE_FILTER_REJECT          ,+    pattern DOM_NODE_FILTER_ACCEPT          ,+    pattern DOM_NODE_ENTITY_REFERENCE_NODE  ,+    pattern DOM_NODE_ENTITY_NODE            ,+    pattern DOM_NODE_ELEMENT_NODE           ,+    pattern DOM_NODE_DOCUMENT_TYPE_NODE     ,+    pattern DOM_NODE_DOCUMENT_POSITION_PRECEDING,+    pattern DOM_NODE_DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC,+    pattern DOM_NODE_DOCUMENT_POSITION_FOLLOWING,+    pattern DOM_NODE_DOCUMENT_POSITION_DISCONNECTED,+    pattern DOM_NODE_DOCUMENT_POSITION_CONTAINS,+    pattern DOM_NODE_DOCUMENT_POSITION_CONTAINED_BY,+    pattern DOM_NODE_DOCUMENT_NODE          ,+    pattern DOM_NODE_DOCUMENT_FRAGMENT_NODE ,+    pattern DOM_NODE_COMMENT_NODE           ,+    pattern DOM_NODE_CDATA_SECTION_NODE     ,+    pattern DOM_NODE_ATTRIBUTE_NODE         ,+    pattern DOM_KEYBOARD_EVENT_KEY_LOCATION_STANDARD,+    pattern DOM_KEYBOARD_EVENT_KEY_LOCATION_RIGHT,+    pattern DOM_KEYBOARD_EVENT_KEY_LOCATION_NUMPAD,+    pattern DOM_KEYBOARD_EVENT_KEY_LOCATION_LEFT,+    pattern DOM_EVENT_SELECT                ,+    pattern DOM_EVENT_NONE                  ,+    pattern DOM_EVENT_MOUSEUP               ,+    pattern DOM_EVENT_MOUSEOVER             ,+    pattern DOM_EVENT_MOUSEOUT              ,+    pattern DOM_EVENT_MOUSEMOVE             ,+    pattern DOM_EVENT_MOUSEDRAG             ,+    pattern DOM_EVENT_MOUSEDOWN             ,+    pattern DOM_EVENT_KEYUP                 ,+    pattern DOM_EVENT_KEYPRESS              ,+    pattern DOM_EVENT_KEYDOWN               ,+    pattern DOM_EVENT_FOCUS                 ,+    pattern DOM_EVENT_DRAGDROP              ,+    pattern DOM_EVENT_DBLCLICK              ,+    pattern DOM_EVENT_CLICK                 ,+    pattern DOM_EVENT_CHANGE                ,+    pattern DOM_EVENT_CAPTURING_PHASE       ,+    pattern DOM_EVENT_BUBBLING_PHASE        ,+    pattern DOM_EVENT_BLUR                  ,+    pattern DOM_EVENT_AT_TARGET             ,+    pattern DOM_CSS_VALUE_CSS_VALUE_LIST    ,+    pattern DOM_CSS_VALUE_CSS_PRIMITIVE_VALUE,+    pattern DOM_CSS_VALUE_CSS_INHERIT       ,+    pattern DOM_CSS_VALUE_CSS_CUSTOM        ,+    pattern DOM_CSS_RULE_UNKNOWN_RULE       ,+    pattern DOM_CSS_RULE_STYLE_RULE         ,+    pattern DOM_CSS_RULE_PAGE_RULE          ,+    pattern DOM_CSS_RULE_MEDIA_RULE         ,+    pattern DOM_CSS_RULE_IMPORT_RULE        ,+    pattern DOM_CSS_RULE_FONT_FACE_RULE     ,+    pattern DOM_CSS_RULE_CHARSET_RULE       ,++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+++pattern DOM_XPATH_RESULT_UNORDERED_NODE_SNAPSHOT_TYPE = 6 :: Int32+++pattern DOM_XPATH_RESULT_UNORDERED_NODE_ITERATOR_TYPE = 4 :: Int32+++pattern DOM_XPATH_RESULT_STRING_TYPE = 2 :: Int32+++pattern DOM_XPATH_RESULT_ORDERED_NODE_SNAPSHOT_TYPE = 7 :: Int32+++pattern DOM_XPATH_RESULT_ORDERED_NODE_ITERATOR_TYPE = 5 :: Int32+++pattern DOM_XPATH_RESULT_NUMBER_TYPE = 1 :: Int32+++pattern DOM_XPATH_RESULT_FIRST_ORDERED_NODE_TYPE = 9 :: Int32+++pattern DOM_XPATH_RESULT_BOOLEAN_TYPE = 3 :: Int32+++pattern DOM_XPATH_RESULT_ANY_UNORDERED_NODE_TYPE = 8 :: Int32+++pattern DOM_XPATH_RESULT_ANY_TYPE = 0 :: Int32+++pattern DOM_RANGE_START_TO_START = 0 :: Int32+++pattern DOM_RANGE_START_TO_END = 1 :: Int32+++pattern DOM_RANGE_NODE_INSIDE = 3 :: Int32+++pattern DOM_RANGE_NODE_BEFORE_AND_AFTER = 2 :: Int32+++pattern DOM_RANGE_NODE_BEFORE = 0 :: Int32+++pattern DOM_RANGE_NODE_AFTER = 1 :: Int32+++pattern DOM_RANGE_END_TO_START = 3 :: Int32+++pattern DOM_RANGE_END_TO_END = 2 :: Int32+++pattern DOM_NODE_TEXT_NODE = 3 :: Int32+++pattern DOM_NODE_PROCESSING_INSTRUCTION_NODE = 7 :: Int32+++pattern DOM_NODE_FILTER_SKIP = 3 :: Int32+++pattern DOM_NODE_FILTER_SHOW_TEXT = 4 :: Int32+++pattern DOM_NODE_FILTER_SHOW_PROCESSING_INSTRUCTION = 64 :: Int32+++pattern DOM_NODE_FILTER_SHOW_NOTATION = 2048 :: Int32+++pattern DOM_NODE_FILTER_SHOW_ENTITY_REFERENCE = 16 :: Int32+++pattern DOM_NODE_FILTER_SHOW_ENTITY = 32 :: Int32+++pattern DOM_NODE_FILTER_SHOW_ELEMENT = 1 :: Int32+++pattern DOM_NODE_FILTER_SHOW_DOCUMENT_TYPE = 512 :: Int32+++pattern DOM_NODE_FILTER_SHOW_DOCUMENT_FRAGMENT = 1024 :: Int32+++pattern DOM_NODE_FILTER_SHOW_DOCUMENT = 256 :: Int32+++pattern DOM_NODE_FILTER_SHOW_COMMENT = 128 :: Int32+++pattern DOM_NODE_FILTER_SHOW_CDATA_SECTION = 8 :: Int32+++pattern DOM_NODE_FILTER_SHOW_ATTRIBUTE = 2 :: Int32+++pattern DOM_NODE_FILTER_SHOW_ALL = 4294967295 :: Int32+++pattern DOM_NODE_FILTER_REJECT = 2 :: Int32+++pattern DOM_NODE_FILTER_ACCEPT = 1 :: Int32+++pattern DOM_NODE_ENTITY_REFERENCE_NODE = 5 :: Int32+++pattern DOM_NODE_ENTITY_NODE = 6 :: Int32+++pattern DOM_NODE_ELEMENT_NODE = 1 :: Int32+++pattern DOM_NODE_DOCUMENT_TYPE_NODE = 10 :: Int32+++pattern DOM_NODE_DOCUMENT_POSITION_PRECEDING = 2 :: Int32+++pattern DOM_NODE_DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32 :: Int32+++pattern DOM_NODE_DOCUMENT_POSITION_FOLLOWING = 4 :: Int32+++pattern DOM_NODE_DOCUMENT_POSITION_DISCONNECTED = 1 :: Int32+++pattern DOM_NODE_DOCUMENT_POSITION_CONTAINS = 8 :: Int32+++pattern DOM_NODE_DOCUMENT_POSITION_CONTAINED_BY = 16 :: Int32+++pattern DOM_NODE_DOCUMENT_NODE = 9 :: Int32+++pattern DOM_NODE_DOCUMENT_FRAGMENT_NODE = 11 :: Int32+++pattern DOM_NODE_COMMENT_NODE = 8 :: Int32+++pattern DOM_NODE_CDATA_SECTION_NODE = 4 :: Int32+++pattern DOM_NODE_ATTRIBUTE_NODE = 2 :: Int32+++pattern DOM_KEYBOARD_EVENT_KEY_LOCATION_STANDARD = 0 :: Int32+++pattern DOM_KEYBOARD_EVENT_KEY_LOCATION_RIGHT = 2 :: Int32+++pattern DOM_KEYBOARD_EVENT_KEY_LOCATION_NUMPAD = 3 :: Int32+++pattern DOM_KEYBOARD_EVENT_KEY_LOCATION_LEFT = 1 :: Int32+++pattern DOM_EVENT_SELECT = 16384 :: Int32+++pattern DOM_EVENT_NONE = 0 :: Int32+++pattern DOM_EVENT_MOUSEUP = 2 :: Int32+++pattern DOM_EVENT_MOUSEOVER = 4 :: Int32+++pattern DOM_EVENT_MOUSEOUT = 8 :: Int32+++pattern DOM_EVENT_MOUSEMOVE = 16 :: Int32+++pattern DOM_EVENT_MOUSEDRAG = 32 :: Int32+++pattern DOM_EVENT_MOUSEDOWN = 1 :: Int32+++pattern DOM_EVENT_KEYUP = 512 :: Int32+++pattern DOM_EVENT_KEYPRESS = 1024 :: Int32+++pattern DOM_EVENT_KEYDOWN = 256 :: Int32+++pattern DOM_EVENT_FOCUS = 4096 :: Int32+++pattern DOM_EVENT_DRAGDROP = 2048 :: Int32+++pattern DOM_EVENT_DBLCLICK = 128 :: Int32+++pattern DOM_EVENT_CLICK = 64 :: Int32+++pattern DOM_EVENT_CHANGE = 32768 :: Int32+++pattern DOM_EVENT_CAPTURING_PHASE = 1 :: Int32+++pattern DOM_EVENT_BUBBLING_PHASE = 3 :: Int32+++pattern DOM_EVENT_BLUR = 8192 :: Int32+++pattern DOM_EVENT_AT_TARGET = 2 :: Int32+++pattern DOM_CSS_VALUE_CSS_VALUE_LIST = 2 :: Int32+++pattern DOM_CSS_VALUE_CSS_PRIMITIVE_VALUE = 1 :: Int32+++pattern DOM_CSS_VALUE_CSS_INHERIT = 0 :: Int32+++pattern DOM_CSS_VALUE_CSS_CUSTOM = 3 :: Int32+++pattern DOM_CSS_RULE_UNKNOWN_RULE = 0 :: Int32+++pattern DOM_CSS_RULE_STYLE_RULE = 1 :: Int32+++pattern DOM_CSS_RULE_PAGE_RULE = 6 :: Int32+++pattern DOM_CSS_RULE_MEDIA_RULE = 4 :: Int32+++pattern DOM_CSS_RULE_IMPORT_RULE = 3 :: Int32+++pattern DOM_CSS_RULE_FONT_FACE_RULE = 5 :: Int32+++pattern DOM_CSS_RULE_CHARSET_RULE = 2 :: Int32++
+ GI/WebKit2WebExtension/Enums.hs view
@@ -0,0 +1,173 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Enums+    ( ++-- * Exported types+    ContextMenuAction(..)                   ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+++++-- 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+    | ContextMenuActionOpenVideoInNewWindow+    | ContextMenuActionOpenAudioInNewWindow+    | ContextMenuActionCopyVideoLinkToClipboard+    | ContextMenuActionCopyAudioLinkToClipboard+    | ContextMenuActionToggleMediaControls+    | ContextMenuActionToggleMediaLoop+    | ContextMenuActionEnterVideoFullscreen+    | ContextMenuActionMediaPlay+    | ContextMenuActionMediaPause+    | ContextMenuActionMediaMute+    | ContextMenuActionDownloadVideoToDisk+    | ContextMenuActionDownloadAudioToDisk+    | ContextMenuActionCustom+    | 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 ContextMenuActionOpenVideoInNewWindow = 32+    fromEnum ContextMenuActionOpenAudioInNewWindow = 33+    fromEnum ContextMenuActionCopyVideoLinkToClipboard = 34+    fromEnum ContextMenuActionCopyAudioLinkToClipboard = 35+    fromEnum ContextMenuActionToggleMediaControls = 36+    fromEnum ContextMenuActionToggleMediaLoop = 37+    fromEnum ContextMenuActionEnterVideoFullscreen = 38+    fromEnum ContextMenuActionMediaPlay = 39+    fromEnum ContextMenuActionMediaPause = 40+    fromEnum ContextMenuActionMediaMute = 41+    fromEnum ContextMenuActionDownloadVideoToDisk = 42+    fromEnum ContextMenuActionDownloadAudioToDisk = 43+    fromEnum ContextMenuActionCustom = 10000+    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 = ContextMenuActionOpenVideoInNewWindow+    toEnum 33 = ContextMenuActionOpenAudioInNewWindow+    toEnum 34 = ContextMenuActionCopyVideoLinkToClipboard+    toEnum 35 = ContextMenuActionCopyAudioLinkToClipboard+    toEnum 36 = ContextMenuActionToggleMediaControls+    toEnum 37 = ContextMenuActionToggleMediaLoop+    toEnum 38 = ContextMenuActionEnterVideoFullscreen+    toEnum 39 = ContextMenuActionMediaPlay+    toEnum 40 = ContextMenuActionMediaPause+    toEnum 41 = ContextMenuActionMediaMute+    toEnum 42 = ContextMenuActionDownloadVideoToDisk+    toEnum 43 = ContextMenuActionDownloadAudioToDisk+    toEnum 10000 = ContextMenuActionCustom+    toEnum k = AnotherContextMenuAction k++
+ GI/WebKit2WebExtension/Flags.hs view
@@ -0,0 +1,61 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Flags+    ( ++-- * Exported types+    HitTestResultContext(..)                ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map+++++-- Flags HitTestResultContext++data HitTestResultContext = +      HitTestResultContextDocument+    | HitTestResultContextLink+    | HitTestResultContextImage+    | HitTestResultContextMedia+    | HitTestResultContextEditable+    | HitTestResultContextScrollbar+    | HitTestResultContextSelection+    | AnotherHitTestResultContext Int+    deriving (Show, Eq)++instance Enum HitTestResultContext where+    fromEnum HitTestResultContextDocument = 2+    fromEnum HitTestResultContextLink = 4+    fromEnum HitTestResultContextImage = 8+    fromEnum HitTestResultContextMedia = 16+    fromEnum HitTestResultContextEditable = 32+    fromEnum HitTestResultContextScrollbar = 64+    fromEnum HitTestResultContextSelection = 128+    fromEnum (AnotherHitTestResultContext k) = k++    toEnum 2 = HitTestResultContextDocument+    toEnum 4 = HitTestResultContextLink+    toEnum 8 = HitTestResultContextImage+    toEnum 16 = HitTestResultContextMedia+    toEnum 32 = HitTestResultContextEditable+    toEnum 64 = HitTestResultContextScrollbar+    toEnum 128 = HitTestResultContextSelection+    toEnum k = AnotherHitTestResultContext k++instance IsGFlag HitTestResultContext++
+ GI/WebKit2WebExtension/Interfaces.hs view
@@ -0,0 +1,30 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Interfaces+    (     module GI.WebKit2WebExtension.Interfaces.DOMEventTarget,+    module GI.WebKit2WebExtension.Interfaces.DOMNodeFilter,+    module GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver,+++    ) where++import GI.WebKit2WebExtension.Interfaces.DOMEventTarget+import GI.WebKit2WebExtension.Interfaces.DOMNodeFilter+import GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks++
+ GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs view
@@ -0,0 +1,180 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Interfaces.DOMEventTarget+    ( ++-- * Exported types+    DOMEventTarget(..)                      ,+    noDOMEventTarget                        ,+    DOMEventTargetK                         ,+    toDOMEventTarget                        ,+++ -- * Methods+-- ** dOMEventTargetAddEventListener+    dOMEventTargetAddEventListener          ,+++-- ** dOMEventTargetDispatchEvent+    dOMEventTargetDispatchEvent             ,+++-- ** dOMEventTargetRemoveEventListener+    dOMEventTargetRemoveEventListener       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++-- interface DOMEventTarget ++newtype DOMEventTarget = DOMEventTarget (ForeignPtr DOMEventTarget)+noDOMEventTarget :: Maybe DOMEventTarget+noDOMEventTarget = Nothing++type instance AttributeList DOMEventTarget = DOMEventTargetAttributeList+type DOMEventTargetAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList DOMEventTarget = DOMEventTargetSignalList+type DOMEventTargetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "webkit_dom_event_target_get_type"+    c_webkit_dom_event_target_get_type :: IO GType++type instance ParentTypes DOMEventTarget = DOMEventTargetParentTypes+type DOMEventTargetParentTypes = '[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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEventTarget"+    Ptr DOMEvent ->                         -- event : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'++
+ GI/WebKit2WebExtension/Interfaces/DOMEventTarget.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Interfaces.DOMEventTarget where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMEventTarget = DOMEventTarget (ForeignPtr DOMEventTarget)+instance GObject DOMEventTarget where+class GObject o => DOMEventTargetK o+instance (GObject o, IsDescendantOf DOMEventTarget o) => DOMEventTargetK o
+ GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs view
@@ -0,0 +1,95 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Interfaces.DOMNodeFilter+    ( ++-- * Exported types+    DOMNodeFilter(..)                       ,+    noDOMNodeFilter                         ,+    DOMNodeFilterK                          ,+    toDOMNodeFilter                         ,+++ -- * Methods+-- ** dOMNodeFilterAcceptNode+    dOMNodeFilterAcceptNode                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++-- interface DOMNodeFilter ++newtype DOMNodeFilter = DOMNodeFilter (ForeignPtr DOMNodeFilter)+noDOMNodeFilter :: Maybe DOMNodeFilter+noDOMNodeFilter = Nothing++type instance AttributeList DOMNodeFilter = DOMNodeFilterAttributeList+type DOMNodeFilterAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList DOMNodeFilter = DOMNodeFilterSignalList+type DOMNodeFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "webkit_dom_node_filter_get_type"+    c_webkit_dom_node_filter_get_type :: IO GType++type instance ParentTypes DOMNodeFilter = DOMNodeFilterParentTypes+type DOMNodeFilterParentTypes = '[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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter"+    Ptr DOMNode ->                          -- node : TInterface "WebKit2WebExtension" "DOMNode"+    IO Int16+++dOMNodeFilterAcceptNode ::+    (MonadIO m, DOMNodeFilterK a, DOMNodeK b) =>+    a ->                                    -- _obj+    b ->                                    -- node+    m Int16+dOMNodeFilterAcceptNode _obj node = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let node' = unsafeManagedPtrCastPtr node+    result <- webkit_dom_node_filter_accept_node _obj' node'+    touchManagedPtr _obj+    touchManagedPtr node+    return result++
+ GI/WebKit2WebExtension/Interfaces/DOMNodeFilter.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Interfaces.DOMNodeFilter where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMNodeFilter = DOMNodeFilter (ForeignPtr DOMNodeFilter)+instance GObject DOMNodeFilter where+class GObject o => DOMNodeFilterK o+instance (GObject o, IsDescendantOf DOMNodeFilter o) => DOMNodeFilterK o
+ GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs view
@@ -0,0 +1,98 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver+    ( ++-- * Exported types+    DOMXPathNSResolver(..)                  ,+    noDOMXPathNSResolver                    ,+    DOMXPathNSResolverK                     ,+    toDOMXPathNSResolver                    ,+++ -- * Methods+-- ** dOMXPathNSResolverLookupNamespaceUri+    dOMXPathNSResolverLookupNamespaceUri    ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++-- interface DOMXPathNSResolver ++newtype DOMXPathNSResolver = DOMXPathNSResolver (ForeignPtr DOMXPathNSResolver)+noDOMXPathNSResolver :: Maybe DOMXPathNSResolver+noDOMXPathNSResolver = Nothing++type instance AttributeList DOMXPathNSResolver = DOMXPathNSResolverAttributeList+type DOMXPathNSResolverAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList DOMXPathNSResolver = DOMXPathNSResolverSignalList+type DOMXPathNSResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++foreign import ccall "webkit_dom_xpath_ns_resolver_get_type"+    c_webkit_dom_xpath_ns_resolver_get_type :: IO GType++type instance ParentTypes DOMXPathNSResolver = DOMXPathNSResolverParentTypes+type DOMXPathNSResolverParentTypes = '[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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_xpath_ns_resolver_lookup_namespace_uri" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem prefix'+    return result'++
+ GI/WebKit2WebExtension/Interfaces/DOMXPathNSResolver.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMXPathNSResolver = DOMXPathNSResolver (ForeignPtr DOMXPathNSResolver)+instance GObject DOMXPathNSResolver where+class GObject o => DOMXPathNSResolverK o+instance (GObject o, IsDescendantOf DOMXPathNSResolver o) => DOMXPathNSResolverK o
+ GI/WebKit2WebExtension/Objects.hs view
@@ -0,0 +1,236 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects+    (     module GI.WebKit2WebExtension.Objects.ContextMenu,+    module GI.WebKit2WebExtension.Objects.ContextMenuItem,+    module GI.WebKit2WebExtension.Objects.DOMAttr,+    module GI.WebKit2WebExtension.Objects.DOMBlob,+    module GI.WebKit2WebExtension.Objects.DOMCDATASection,+    module GI.WebKit2WebExtension.Objects.DOMCSSRule,+    module GI.WebKit2WebExtension.Objects.DOMCSSRuleList,+    module GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration,+    module GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet,+    module GI.WebKit2WebExtension.Objects.DOMCSSValue,+    module GI.WebKit2WebExtension.Objects.DOMCharacterData,+    module GI.WebKit2WebExtension.Objects.DOMComment,+    module GI.WebKit2WebExtension.Objects.DOMDOMImplementation,+    module GI.WebKit2WebExtension.Objects.DOMDOMWindow,+    module GI.WebKit2WebExtension.Objects.DOMDocument,+    module GI.WebKit2WebExtension.Objects.DOMDocumentFragment,+    module GI.WebKit2WebExtension.Objects.DOMDocumentType,+    module GI.WebKit2WebExtension.Objects.DOMElement,+    module GI.WebKit2WebExtension.Objects.DOMEntityReference,+    module GI.WebKit2WebExtension.Objects.DOMEvent,+    module GI.WebKit2WebExtension.Objects.DOMFile,+    module GI.WebKit2WebExtension.Objects.DOMFileList,+    module GI.WebKit2WebExtension.Objects.DOMHTMLAnchorElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLAppletElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLAreaElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLBRElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLBaseElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLBaseFontElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLButtonElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLCanvasElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLCollection,+    module GI.WebKit2WebExtension.Objects.DOMHTMLDListElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLDirectoryElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLDivElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLDocument,+    module GI.WebKit2WebExtension.Objects.DOMHTMLElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLEmbedElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFieldSetElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFontElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFormElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFrameElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFrameSetElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLHRElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLHeadingElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLHtmlElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLIFrameElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLImageElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLInputElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLLIElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLLabelElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLLegendElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLLinkElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLMapElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLMarqueeElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLMenuElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLMetaElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLModElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLOListElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLObjectElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLOptGroupElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLOptionElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLOptionsCollection,+    module GI.WebKit2WebExtension.Objects.DOMHTMLParagraphElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLParamElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLPreElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLQuoteElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLSelectElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLStyleElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableCaptionElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableCellElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableColElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableRowElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableSectionElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTextAreaElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTitleElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLUListElement,+    module GI.WebKit2WebExtension.Objects.DOMKeyboardEvent,+    module GI.WebKit2WebExtension.Objects.DOMMediaList,+    module GI.WebKit2WebExtension.Objects.DOMMouseEvent,+    module GI.WebKit2WebExtension.Objects.DOMNamedNodeMap,+    module GI.WebKit2WebExtension.Objects.DOMNode,+    module GI.WebKit2WebExtension.Objects.DOMNodeIterator,+    module GI.WebKit2WebExtension.Objects.DOMNodeList,+    module GI.WebKit2WebExtension.Objects.DOMObject,+    module GI.WebKit2WebExtension.Objects.DOMProcessingInstruction,+    module GI.WebKit2WebExtension.Objects.DOMRange,+    module GI.WebKit2WebExtension.Objects.DOMStyleSheet,+    module GI.WebKit2WebExtension.Objects.DOMStyleSheetList,+    module GI.WebKit2WebExtension.Objects.DOMText,+    module GI.WebKit2WebExtension.Objects.DOMTreeWalker,+    module GI.WebKit2WebExtension.Objects.DOMUIEvent,+    module GI.WebKit2WebExtension.Objects.DOMWheelEvent,+    module GI.WebKit2WebExtension.Objects.DOMXPathExpression,+    module GI.WebKit2WebExtension.Objects.DOMXPathResult,+    module GI.WebKit2WebExtension.Objects.Frame,+    module GI.WebKit2WebExtension.Objects.HitTestResult,+    module GI.WebKit2WebExtension.Objects.ScriptWorld,+    module GI.WebKit2WebExtension.Objects.URIRequest,+    module GI.WebKit2WebExtension.Objects.URIResponse,+    module GI.WebKit2WebExtension.Objects.WebExtension,+    module GI.WebKit2WebExtension.Objects.WebHitTestResult,+    module GI.WebKit2WebExtension.Objects.WebPage,+++    ) where++import GI.WebKit2WebExtension.Objects.ContextMenu+import GI.WebKit2WebExtension.Objects.ContextMenuItem+import GI.WebKit2WebExtension.Objects.DOMAttr+import GI.WebKit2WebExtension.Objects.DOMBlob+import GI.WebKit2WebExtension.Objects.DOMCDATASection+import GI.WebKit2WebExtension.Objects.DOMCSSRule+import GI.WebKit2WebExtension.Objects.DOMCSSRuleList+import GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration+import GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet+import GI.WebKit2WebExtension.Objects.DOMCSSValue+import GI.WebKit2WebExtension.Objects.DOMCharacterData+import GI.WebKit2WebExtension.Objects.DOMComment+import GI.WebKit2WebExtension.Objects.DOMDOMImplementation+import GI.WebKit2WebExtension.Objects.DOMDOMWindow+import GI.WebKit2WebExtension.Objects.DOMDocument+import GI.WebKit2WebExtension.Objects.DOMDocumentFragment+import GI.WebKit2WebExtension.Objects.DOMDocumentType+import GI.WebKit2WebExtension.Objects.DOMElement+import GI.WebKit2WebExtension.Objects.DOMEntityReference+import GI.WebKit2WebExtension.Objects.DOMEvent+import GI.WebKit2WebExtension.Objects.DOMFile+import GI.WebKit2WebExtension.Objects.DOMFileList+import GI.WebKit2WebExtension.Objects.DOMHTMLAnchorElement+import GI.WebKit2WebExtension.Objects.DOMHTMLAppletElement+import GI.WebKit2WebExtension.Objects.DOMHTMLAreaElement+import GI.WebKit2WebExtension.Objects.DOMHTMLBRElement+import GI.WebKit2WebExtension.Objects.DOMHTMLBaseElement+import GI.WebKit2WebExtension.Objects.DOMHTMLBaseFontElement+import GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement+import GI.WebKit2WebExtension.Objects.DOMHTMLButtonElement+import GI.WebKit2WebExtension.Objects.DOMHTMLCanvasElement+import GI.WebKit2WebExtension.Objects.DOMHTMLCollection+import GI.WebKit2WebExtension.Objects.DOMHTMLDListElement+import GI.WebKit2WebExtension.Objects.DOMHTMLDirectoryElement+import GI.WebKit2WebExtension.Objects.DOMHTMLDivElement+import GI.WebKit2WebExtension.Objects.DOMHTMLDocument+import GI.WebKit2WebExtension.Objects.DOMHTMLElement+import GI.WebKit2WebExtension.Objects.DOMHTMLEmbedElement+import GI.WebKit2WebExtension.Objects.DOMHTMLFieldSetElement+import GI.WebKit2WebExtension.Objects.DOMHTMLFontElement+import GI.WebKit2WebExtension.Objects.DOMHTMLFormElement+import GI.WebKit2WebExtension.Objects.DOMHTMLFrameElement+import GI.WebKit2WebExtension.Objects.DOMHTMLFrameSetElement+import GI.WebKit2WebExtension.Objects.DOMHTMLHRElement+import GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement+import GI.WebKit2WebExtension.Objects.DOMHTMLHeadingElement+import GI.WebKit2WebExtension.Objects.DOMHTMLHtmlElement+import GI.WebKit2WebExtension.Objects.DOMHTMLIFrameElement+import GI.WebKit2WebExtension.Objects.DOMHTMLImageElement+import GI.WebKit2WebExtension.Objects.DOMHTMLInputElement+import GI.WebKit2WebExtension.Objects.DOMHTMLLIElement+import GI.WebKit2WebExtension.Objects.DOMHTMLLabelElement+import GI.WebKit2WebExtension.Objects.DOMHTMLLegendElement+import GI.WebKit2WebExtension.Objects.DOMHTMLLinkElement+import GI.WebKit2WebExtension.Objects.DOMHTMLMapElement+import GI.WebKit2WebExtension.Objects.DOMHTMLMarqueeElement+import GI.WebKit2WebExtension.Objects.DOMHTMLMenuElement+import GI.WebKit2WebExtension.Objects.DOMHTMLMetaElement+import GI.WebKit2WebExtension.Objects.DOMHTMLModElement+import GI.WebKit2WebExtension.Objects.DOMHTMLOListElement+import GI.WebKit2WebExtension.Objects.DOMHTMLObjectElement+import GI.WebKit2WebExtension.Objects.DOMHTMLOptGroupElement+import GI.WebKit2WebExtension.Objects.DOMHTMLOptionElement+import GI.WebKit2WebExtension.Objects.DOMHTMLOptionsCollection+import GI.WebKit2WebExtension.Objects.DOMHTMLParagraphElement+import GI.WebKit2WebExtension.Objects.DOMHTMLParamElement+import GI.WebKit2WebExtension.Objects.DOMHTMLPreElement+import GI.WebKit2WebExtension.Objects.DOMHTMLQuoteElement+import GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement+import GI.WebKit2WebExtension.Objects.DOMHTMLSelectElement+import GI.WebKit2WebExtension.Objects.DOMHTMLStyleElement+import GI.WebKit2WebExtension.Objects.DOMHTMLTableCaptionElement+import GI.WebKit2WebExtension.Objects.DOMHTMLTableCellElement+import GI.WebKit2WebExtension.Objects.DOMHTMLTableColElement+import GI.WebKit2WebExtension.Objects.DOMHTMLTableElement+import GI.WebKit2WebExtension.Objects.DOMHTMLTableRowElement+import GI.WebKit2WebExtension.Objects.DOMHTMLTableSectionElement+import GI.WebKit2WebExtension.Objects.DOMHTMLTextAreaElement+import GI.WebKit2WebExtension.Objects.DOMHTMLTitleElement+import GI.WebKit2WebExtension.Objects.DOMHTMLUListElement+import GI.WebKit2WebExtension.Objects.DOMKeyboardEvent+import GI.WebKit2WebExtension.Objects.DOMMediaList+import GI.WebKit2WebExtension.Objects.DOMMouseEvent+import GI.WebKit2WebExtension.Objects.DOMNamedNodeMap+import GI.WebKit2WebExtension.Objects.DOMNode+import GI.WebKit2WebExtension.Objects.DOMNodeIterator+import GI.WebKit2WebExtension.Objects.DOMNodeList+import GI.WebKit2WebExtension.Objects.DOMObject+import GI.WebKit2WebExtension.Objects.DOMProcessingInstruction+import GI.WebKit2WebExtension.Objects.DOMRange+import GI.WebKit2WebExtension.Objects.DOMStyleSheet+import GI.WebKit2WebExtension.Objects.DOMStyleSheetList+import GI.WebKit2WebExtension.Objects.DOMText+import GI.WebKit2WebExtension.Objects.DOMTreeWalker+import GI.WebKit2WebExtension.Objects.DOMUIEvent+import GI.WebKit2WebExtension.Objects.DOMWheelEvent+import GI.WebKit2WebExtension.Objects.DOMXPathExpression+import GI.WebKit2WebExtension.Objects.DOMXPathResult+import GI.WebKit2WebExtension.Objects.Frame+import GI.WebKit2WebExtension.Objects.HitTestResult+import GI.WebKit2WebExtension.Objects.ScriptWorld+import GI.WebKit2WebExtension.Objects.URIRequest+import GI.WebKit2WebExtension.Objects.URIResponse+import GI.WebKit2WebExtension.Objects.WebExtension+import GI.WebKit2WebExtension.Objects.WebHitTestResult+import GI.WebKit2WebExtension.Objects.WebPage++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks++
+ GI/WebKit2WebExtension/Objects/ContextMenu.hs view
@@ -0,0 +1,368 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.ContextMenu+    ( ++-- * Exported types+    ContextMenu(..)                         ,+    ContextMenuK                            ,+    toContextMenu                           ,+    noContextMenu                           ,+++ -- * Methods+-- ** contextMenuAppend+    contextMenuAppend                       ,+++-- ** contextMenuGetNItems+    contextMenuGetNItems                    ,+++-- ** contextMenuGetUserData+    contextMenuGetUserData                  ,+++-- ** contextMenuInsert+    contextMenuInsert                       ,+++-- ** contextMenuMoveItem+    contextMenuMoveItem                     ,+++-- ** contextMenuNew+    contextMenuNew                          ,+++-- ** contextMenuPrepend+    contextMenuPrepend                      ,+++-- ** contextMenuRemove+    contextMenuRemove                       ,+++-- ** contextMenuRemoveAll+    contextMenuRemoveAll                    ,+++-- ** contextMenuSetUserData+    contextMenuSetUserData                  ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype ContextMenu = ContextMenu (ForeignPtr ContextMenu)+foreign import ccall "webkit_context_menu_get_type"+    c_webkit_context_menu_get_type :: IO GType++type instance ParentTypes ContextMenu = ContextMenuParentTypes+type ContextMenuParentTypes = '[GObject.Object]++instance GObject ContextMenu where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_context_menu_get_type+    ++class GObject o => ContextMenuK o+instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o++toContextMenu :: ContextMenuK o => o -> IO ContextMenu+toContextMenu = unsafeCastTo ContextMenu++noContextMenu :: Maybe ContextMenu+noContextMenu = Nothing++type instance AttributeList ContextMenu = ContextMenuAttributeList+type ContextMenuAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ContextMenu = ContextMenuSignalList+type ContextMenuSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method ContextMenu::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2WebExtension" "ContextMenu"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_new" webkit_context_menu_new :: +    IO (Ptr ContextMenu)+++contextMenuNew ::+    (MonadIO m) =>+    m ContextMenu+contextMenuNew  = liftIO $ do+    result <- webkit_context_menu_new+    checkUnexpectedReturnNULL "webkit_context_menu_new" result+    result' <- (wrapObject ContextMenu) result+    return result'++-- method ContextMenu::append+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_append" webkit_context_menu_append :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2WebExtension" "ContextMenuItem"+    IO ()+++contextMenuAppend ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    m ()+contextMenuAppend _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_append _obj' item'+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- method ContextMenu::get_n_items+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_get_n_items" webkit_context_menu_get_n_items :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    IO Word32+++contextMenuGetNItems ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m Word32+contextMenuGetNItems _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_get_n_items _obj'+    touchManagedPtr _obj+    return result++-- method ContextMenu::get_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TVariant+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_get_user_data" webkit_context_menu_get_user_data :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    IO (Ptr GVariant)+++contextMenuGetUserData ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m GVariant+contextMenuGetUserData _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_get_user_data _obj'+    checkUnexpectedReturnNULL "webkit_context_menu_get_user_data" result+    result' <- wrapGVariantPtr result+    touchManagedPtr _obj+    return result'++-- method ContextMenu::insert+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", 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_context_menu_insert" webkit_context_menu_insert :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2WebExtension" "ContextMenuItem"+    Int32 ->                                -- position : TBasicType TInt32+    IO ()+++contextMenuInsert ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    Int32 ->                                -- position+    m ()+contextMenuInsert _obj item position = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_insert _obj' item' position+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- method ContextMenu::move_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", 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_context_menu_move_item" webkit_context_menu_move_item :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2WebExtension" "ContextMenuItem"+    Int32 ->                                -- position : TBasicType TInt32+    IO ()+++contextMenuMoveItem ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    Int32 ->                                -- position+    m ()+contextMenuMoveItem _obj item position = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_move_item _obj' item' position+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- method ContextMenu::prepend+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_prepend" webkit_context_menu_prepend :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2WebExtension" "ContextMenuItem"+    IO ()+++contextMenuPrepend ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    m ()+contextMenuPrepend _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_prepend _obj' item'+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- method ContextMenu::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_remove" webkit_context_menu_remove :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    Ptr ContextMenuItem ->                  -- item : TInterface "WebKit2WebExtension" "ContextMenuItem"+    IO ()+++contextMenuRemove ::+    (MonadIO m, ContextMenuK a, ContextMenuItemK b) =>+    a ->                                    -- _obj+    b ->                                    -- item+    m ()+contextMenuRemove _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let item' = unsafeManagedPtrCastPtr item+    webkit_context_menu_remove _obj' item'+    touchManagedPtr _obj+    touchManagedPtr item+    return ()++-- method ContextMenu::remove_all+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_remove_all" webkit_context_menu_remove_all :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    IO ()+++contextMenuRemoveAll ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    m ()+contextMenuRemoveAll _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    webkit_context_menu_remove_all _obj'+    touchManagedPtr _obj+    return ()++-- method ContextMenu::set_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_set_user_data" webkit_context_menu_set_user_data :: +    Ptr ContextMenu ->                      -- _obj : TInterface "WebKit2WebExtension" "ContextMenu"+    Ptr GVariant ->                         -- user_data : TVariant+    IO ()+++contextMenuSetUserData ::+    (MonadIO m, ContextMenuK a) =>+    a ->                                    -- _obj+    GVariant ->                             -- user_data+    m ()+contextMenuSetUserData _obj user_data = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let user_data' = unsafeManagedPtrGetPtr user_data+    webkit_context_menu_set_user_data _obj' user_data'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2WebExtension/Objects/ContextMenu.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.ContextMenu where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ContextMenu = ContextMenu (ForeignPtr ContextMenu)+instance GObject ContextMenu where+class GObject o => ContextMenuK o+instance (GObject o, IsDescendantOf ContextMenu o) => ContextMenuK o
+ GI/WebKit2WebExtension/Objects/ContextMenuItem.hs view
@@ -0,0 +1,304 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.ContextMenuItem+    ( ++-- * Exported types+    ContextMenuItem(..)                     ,+    ContextMenuItemK                        ,+    toContextMenuItem                       ,+    noContextMenuItem                       ,+++ -- * Methods+-- ** contextMenuItemGetStockAction+    contextMenuItemGetStockAction           ,+++-- ** contextMenuItemIsSeparator+    contextMenuItemIsSeparator              ,+++-- ** contextMenuItemNew+    contextMenuItemNew                      ,+++-- ** contextMenuItemNewFromStockAction+    contextMenuItemNewFromStockAction       ,+++-- ** contextMenuItemNewFromStockActionWithLabel+    contextMenuItemNewFromStockActionWithLabel,+++-- ** contextMenuItemNewSeparator+    contextMenuItemNewSeparator             ,+++-- ** contextMenuItemNewWithSubmenu+    contextMenuItemNewWithSubmenu           ,+++-- ** contextMenuItemSetSubmenu+    contextMenuItemSetSubmenu               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Gtk as Gtk++newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem)+foreign import ccall "webkit_context_menu_item_get_type"+    c_webkit_context_menu_item_get_type :: IO GType++type instance ParentTypes ContextMenuItem = ContextMenuItemParentTypes+type ContextMenuItemParentTypes = '[GObject.Object]++instance GObject ContextMenuItem where+    gobjectIsInitiallyUnowned _ = True+    gobjectType _ = c_webkit_context_menu_item_get_type+    ++class GObject o => ContextMenuItemK o+instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o++toContextMenuItem :: ContextMenuItemK o => o -> IO ContextMenuItem+toContextMenuItem = unsafeCastTo ContextMenuItem++noContextMenuItem :: Maybe ContextMenuItem+noContextMenuItem = Nothing++type instance AttributeList ContextMenuItem = ContextMenuItemAttributeList+type ContextMenuItemAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList ContextMenuItem = ContextMenuItemSignalList+type ContextMenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method ContextMenuItem::new+-- method type : Constructor+-- Args : [Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new" webkit_context_menu_item_new :: +    Ptr Gtk.Action ->                       -- action : TInterface "Gtk" "Action"+    IO (Ptr ContextMenuItem)+++contextMenuItemNew ::+    (MonadIO m, Gtk.ActionK a) =>+    a ->                                    -- action+    m ContextMenuItem+contextMenuItemNew action = liftIO $ do+    let action' = unsafeManagedPtrCastPtr action+    result <- webkit_context_menu_item_new action'+    checkUnexpectedReturnNULL "webkit_context_menu_item_new" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr action+    return result'++-- method ContextMenuItem::new_from_stock_action+-- method type : Constructor+-- Args : [Arg {argName = "action", argType = TInterface "WebKit2WebExtension" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "action", argType = TInterface "WebKit2WebExtension" "ContextMenuAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_from_stock_action" webkit_context_menu_item_new_from_stock_action :: +    CUInt ->                                -- action : TInterface "WebKit2WebExtension" "ContextMenuAction"+    IO (Ptr ContextMenuItem)+++contextMenuItemNewFromStockAction ::+    (MonadIO m) =>+    ContextMenuAction ->                    -- action+    m ContextMenuItem+contextMenuItemNewFromStockAction action = liftIO $ do+    let action' = (fromIntegral . fromEnum) action+    result <- webkit_context_menu_item_new_from_stock_action action'+    checkUnexpectedReturnNULL "webkit_context_menu_item_new_from_stock_action" result+    result' <- (newObject ContextMenuItem) result+    return result'++-- method ContextMenuItem::new_from_stock_action_with_label+-- method type : Constructor+-- Args : [Arg {argName = "action", argType = TInterface "WebKit2WebExtension" "ContextMenuAction", 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}]+-- Lengths : []+-- hInArgs : [Arg {argName = "action", argType = TInterface "WebKit2WebExtension" "ContextMenuAction", 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}]+-- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_from_stock_action_with_label" webkit_context_menu_item_new_from_stock_action_with_label :: +    CUInt ->                                -- action : TInterface "WebKit2WebExtension" "ContextMenuAction"+    CString ->                              -- label : TBasicType TUTF8+    IO (Ptr ContextMenuItem)+++contextMenuItemNewFromStockActionWithLabel ::+    (MonadIO m) =>+    ContextMenuAction ->                    -- action+    T.Text ->                               -- label+    m ContextMenuItem+contextMenuItemNewFromStockActionWithLabel action label = liftIO $ do+    let action' = (fromIntegral . fromEnum) action+    label' <- textToCString label+    result <- webkit_context_menu_item_new_from_stock_action_with_label action' label'+    checkUnexpectedReturnNULL "webkit_context_menu_item_new_from_stock_action_with_label" result+    result' <- (newObject ContextMenuItem) result+    freeMem label'+    return result'++-- method ContextMenuItem::new_separator+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_separator" webkit_context_menu_item_new_separator :: +    IO (Ptr ContextMenuItem)+++contextMenuItemNewSeparator ::+    (MonadIO m) =>+    m ContextMenuItem+contextMenuItemNewSeparator  = liftIO $ do+    result <- webkit_context_menu_item_new_separator+    checkUnexpectedReturnNULL "webkit_context_menu_item_new_separator" result+    result' <- (newObject ContextMenuItem) result+    return result'++-- method ContextMenuItem::new_with_submenu+-- method type : Constructor+-- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "ContextMenuItem"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_new_with_submenu" webkit_context_menu_item_new_with_submenu :: +    CString ->                              -- label : TBasicType TUTF8+    Ptr ContextMenu ->                      -- submenu : TInterface "WebKit2WebExtension" "ContextMenu"+    IO (Ptr ContextMenuItem)+++contextMenuItemNewWithSubmenu ::+    (MonadIO m, ContextMenuK a) =>+    T.Text ->                               -- label+    a ->                                    -- submenu+    m ContextMenuItem+contextMenuItemNewWithSubmenu label submenu = liftIO $ do+    label' <- textToCString label+    let submenu' = unsafeManagedPtrCastPtr submenu+    result <- webkit_context_menu_item_new_with_submenu label' submenu'+    checkUnexpectedReturnNULL "webkit_context_menu_item_new_with_submenu" result+    result' <- (newObject ContextMenuItem) result+    touchManagedPtr submenu+    freeMem label'+    return result'++-- method ContextMenuItem::get_stock_action+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "ContextMenuAction"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_get_stock_action" webkit_context_menu_item_get_stock_action :: +    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2WebExtension" "ContextMenuItem"+    IO CUInt+++contextMenuItemGetStockAction ::+    (MonadIO m, ContextMenuItemK a) =>+    a ->                                    -- _obj+    m ContextMenuAction+contextMenuItemGetStockAction _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_item_get_stock_action _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method ContextMenuItem::is_separator+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_is_separator" webkit_context_menu_item_is_separator :: +    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2WebExtension" "ContextMenuItem"+    IO CInt+++contextMenuItemIsSeparator ::+    (MonadIO m, ContextMenuItemK a) =>+    a ->                                    -- _obj+    m Bool+contextMenuItemIsSeparator _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_context_menu_item_is_separator _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method ContextMenuItem::set_submenu+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "ContextMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "WebKit2WebExtension" "ContextMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_context_menu_item_set_submenu" webkit_context_menu_item_set_submenu :: +    Ptr ContextMenuItem ->                  -- _obj : TInterface "WebKit2WebExtension" "ContextMenuItem"+    Ptr ContextMenu ->                      -- submenu : TInterface "WebKit2WebExtension" "ContextMenu"+    IO ()+++contextMenuItemSetSubmenu ::+    (MonadIO m, ContextMenuItemK a, ContextMenuK b) =>+    a ->                                    -- _obj+    b ->                                    -- submenu+    m ()+contextMenuItemSetSubmenu _obj submenu = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let submenu' = unsafeManagedPtrCastPtr submenu+    webkit_context_menu_item_set_submenu _obj' submenu'+    touchManagedPtr _obj+    touchManagedPtr submenu+    return ()++
+ GI/WebKit2WebExtension/Objects/ContextMenuItem.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.ContextMenuItem where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ContextMenuItem = ContextMenuItem (ForeignPtr ContextMenuItem)+instance GObject ContextMenuItem where+class GObject o => ContextMenuItemK o+instance (GObject o, IsDescendantOf ContextMenuItem o) => ContextMenuItemK o
+ GI/WebKit2WebExtension/Objects/DOMAttr.hs view
@@ -0,0 +1,345 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMAttr+    ( ++-- * Exported types+    DOMAttr(..)                             ,+    DOMAttrK                                ,+    toDOMAttr                               ,+    noDOMAttr                               ,+++ -- * Methods+-- ** dOMAttrGetName+    dOMAttrGetName                          ,+++-- ** dOMAttrGetOwnerElement+    dOMAttrGetOwnerElement                  ,+++-- ** dOMAttrGetSpecified+    dOMAttrGetSpecified                     ,+++-- ** dOMAttrGetValue+    dOMAttrGetValue                         ,+++-- ** dOMAttrSetValue+    dOMAttrSetValue                         ,+++++ -- * Properties+-- ** IsId+    DOMAttrIsIdPropertyInfo                 ,+    getDOMAttrIsId                          ,+++-- ** Name+    DOMAttrNamePropertyInfo                 ,+    getDOMAttrName                          ,+++-- ** OwnerElement+    DOMAttrOwnerElementPropertyInfo         ,+    getDOMAttrOwnerElement                  ,+++-- ** Specified+    DOMAttrSpecifiedPropertyInfo            ,+    getDOMAttrSpecified                     ,+++-- ** Value+    DOMAttrValuePropertyInfo                ,+    constructDOMAttrValue                   ,+    getDOMAttrValue                         ,+    setDOMAttrValue                         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMAttr = DOMAttr (ForeignPtr DOMAttr)+foreign import ccall "webkit_dom_attr_get_type"+    c_webkit_dom_attr_get_type :: IO GType++type instance ParentTypes DOMAttr = DOMAttrParentTypes+type DOMAttrParentTypes = '[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++noDOMAttr :: Maybe DOMAttr+noDOMAttr = Nothing++-- VVV Prop "is-id"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMAttrIsId :: (MonadIO m, DOMAttrK o) => o -> m Bool+getDOMAttrIsId obj = liftIO $ getObjectPropertyBool obj "is-id"++data DOMAttrIsIdPropertyInfo+instance AttrInfo DOMAttrIsIdPropertyInfo where+    type AttrAllowedOps DOMAttrIsIdPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMAttrIsIdPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMAttrIsIdPropertyInfo = DOMAttrK+    type AttrGetType DOMAttrIsIdPropertyInfo = Bool+    type AttrLabel DOMAttrIsIdPropertyInfo = "DOMAttr::is-id"+    attrGet _ = getDOMAttrIsId+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMAttrName :: (MonadIO m, DOMAttrK o) => o -> m T.Text+getDOMAttrName obj = liftIO $ getObjectPropertyString obj "name"++data DOMAttrNamePropertyInfo+instance AttrInfo DOMAttrNamePropertyInfo where+    type AttrAllowedOps DOMAttrNamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMAttrNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMAttrNamePropertyInfo = DOMAttrK+    type AttrGetType DOMAttrNamePropertyInfo = T.Text+    type AttrLabel DOMAttrNamePropertyInfo = "DOMAttr::name"+    attrGet _ = getDOMAttrName+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "owner-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMAttrOwnerElement :: (MonadIO m, DOMAttrK o) => o -> m DOMElement+getDOMAttrOwnerElement obj = liftIO $ getObjectPropertyObject obj "owner-element" DOMElement++data DOMAttrOwnerElementPropertyInfo+instance AttrInfo DOMAttrOwnerElementPropertyInfo where+    type AttrAllowedOps DOMAttrOwnerElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMAttrOwnerElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMAttrOwnerElementPropertyInfo = DOMAttrK+    type AttrGetType DOMAttrOwnerElementPropertyInfo = DOMElement+    type AttrLabel DOMAttrOwnerElementPropertyInfo = "DOMAttr::owner-element"+    attrGet _ = getDOMAttrOwnerElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "specified"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMAttrSpecified :: (MonadIO m, DOMAttrK o) => o -> m Bool+getDOMAttrSpecified obj = liftIO $ getObjectPropertyBool obj "specified"++data DOMAttrSpecifiedPropertyInfo+instance AttrInfo DOMAttrSpecifiedPropertyInfo where+    type AttrAllowedOps DOMAttrSpecifiedPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMAttrSpecifiedPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMAttrSpecifiedPropertyInfo = DOMAttrK+    type AttrGetType DOMAttrSpecifiedPropertyInfo = Bool+    type AttrLabel DOMAttrSpecifiedPropertyInfo = "DOMAttr::specified"+    attrGet _ = getDOMAttrSpecified+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m T.Text+getDOMAttrValue obj = liftIO $ getObjectPropertyString obj "value"++setDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> T.Text -> m ()+setDOMAttrValue obj val = liftIO $ setObjectPropertyString obj "value" val++constructDOMAttrValue :: T.Text -> IO ([Char], GValue)+constructDOMAttrValue val = constructObjectPropertyString "value" val++data DOMAttrValuePropertyInfo+instance AttrInfo DOMAttrValuePropertyInfo where+    type AttrAllowedOps DOMAttrValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMAttrValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMAttrValuePropertyInfo = DOMAttrK+    type AttrGetType DOMAttrValuePropertyInfo = T.Text+    type AttrLabel DOMAttrValuePropertyInfo = "DOMAttr::value"+    attrGet _ = getDOMAttrValue+    attrSet _ = setDOMAttrValue+    attrConstruct _ = constructDOMAttrValue++type instance AttributeList DOMAttr = DOMAttrAttributeList+type DOMAttrAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("is-id", DOMAttrIsIdPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMAttrNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("owner-element", DOMAttrOwnerElementPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("specified", DOMAttrSpecifiedPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("value", DOMAttrValuePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMAttr = DOMAttrSignalList+type DOMAttrSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMAttr::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_attr_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMAttr::get_owner_element+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_attr_get_owner_element" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMAttr::get_specified+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_attr_get_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMAttr::set_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+     )++
+ GI/WebKit2WebExtension/Objects/DOMAttr.hs-boot view
@@ -0,0 +1,18 @@+module GI.WebKit2WebExtension.Objects.DOMAttr where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMAttr = DOMAttr (ForeignPtr DOMAttr)+instance GObject DOMAttr where+class GObject o => DOMAttrK o+instance (GObject o, IsDescendantOf DOMAttr o) => DOMAttrK o+data DOMAttrIsIdPropertyInfo+data DOMAttrNamePropertyInfo+data DOMAttrOwnerElementPropertyInfo+data DOMAttrSpecifiedPropertyInfo+data DOMAttrValuePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMBlob.hs view
@@ -0,0 +1,138 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMBlob+    ( ++-- * Exported types+    DOMBlob(..)                             ,+    DOMBlobK                                ,+    toDOMBlob                               ,+    noDOMBlob                               ,+++ -- * Methods+-- ** dOMBlobGetSize+    dOMBlobGetSize                          ,+++++ -- * Properties+-- ** Size+    DOMBlobSizePropertyInfo                 ,+    getDOMBlobSize                          ,+++-- ** Type+    DOMBlobTypePropertyInfo                 ,+    getDOMBlobType                          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMBlob = DOMBlob (ForeignPtr DOMBlob)+foreign import ccall "webkit_dom_blob_get_type"+    c_webkit_dom_blob_get_type :: IO GType++type instance ParentTypes DOMBlob = DOMBlobParentTypes+type DOMBlobParentTypes = '[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++noDOMBlob :: Maybe DOMBlob+noDOMBlob = Nothing++-- VVV Prop "size"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMBlobSize :: (MonadIO m, DOMBlobK o) => o -> m Word64+getDOMBlobSize obj = liftIO $ getObjectPropertyUInt64 obj "size"++data DOMBlobSizePropertyInfo+instance AttrInfo DOMBlobSizePropertyInfo where+    type AttrAllowedOps DOMBlobSizePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMBlobSizePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMBlobSizePropertyInfo = DOMBlobK+    type AttrGetType DOMBlobSizePropertyInfo = Word64+    type AttrLabel DOMBlobSizePropertyInfo = "DOMBlob::size"+    attrGet _ = getDOMBlobSize+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMBlobType :: (MonadIO m, DOMBlobK o) => o -> m T.Text+getDOMBlobType obj = liftIO $ getObjectPropertyString obj "type"++data DOMBlobTypePropertyInfo+instance AttrInfo DOMBlobTypePropertyInfo where+    type AttrAllowedOps DOMBlobTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMBlobTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMBlobTypePropertyInfo = DOMBlobK+    type AttrGetType DOMBlobTypePropertyInfo = T.Text+    type AttrLabel DOMBlobTypePropertyInfo = "DOMBlob::type"+    attrGet _ = getDOMBlobType+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMBlob = DOMBlobAttributeList+type DOMBlobAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMBlob = DOMBlobSignalList+type DOMBlobSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMBlob::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMBlob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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++
+ GI/WebKit2WebExtension/Objects/DOMBlob.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMBlob where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMBlob = DOMBlob (ForeignPtr DOMBlob)+instance GObject DOMBlob where+class GObject o => DOMBlobK o+instance (GObject o, IsDescendantOf DOMBlob o) => DOMBlobK o+data DOMBlobSizePropertyInfo+data DOMBlobTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMCDATASection.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMCDATASection+    ( ++-- * Exported types+    DOMCDATASection(..)                     ,+    DOMCDATASectionK                        ,+    toDOMCDATASection                       ,+    noDOMCDATASection                       ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMCDATASection = DOMCDATASection (ForeignPtr DOMCDATASection)+foreign import ccall "webkit_dom_cdata_section_get_type"+    c_webkit_dom_cdata_section_get_type :: IO GType++type instance ParentTypes DOMCDATASection = DOMCDATASectionParentTypes+type DOMCDATASectionParentTypes = '[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++noDOMCDATASection :: Maybe DOMCDATASection+noDOMCDATASection = Nothing++type instance AttributeList DOMCDATASection = DOMCDATASectionAttributeList+type DOMCDATASectionAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMCDATASection = DOMCDATASectionSignalList+type DOMCDATASectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/WebKit2WebExtension/Objects/DOMCDATASection.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.DOMCDATASection where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMCDATASection = DOMCDATASection (ForeignPtr DOMCDATASection)+instance GObject DOMCDATASection where+class GObject o => DOMCDATASectionK o+instance (GObject o, IsDescendantOf DOMCDATASection o) => DOMCDATASectionK o
+ GI/WebKit2WebExtension/Objects/DOMCSSRule.hs view
@@ -0,0 +1,320 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMCSSRule+    ( ++-- * Exported types+    DOMCSSRule(..)                          ,+    DOMCSSRuleK                             ,+    toDOMCSSRule                            ,+    noDOMCSSRule                            ,+++ -- * Methods+-- ** dOMCSSRuleGetCssText+    dOMCSSRuleGetCssText                    ,+++-- ** dOMCSSRuleGetParentRule+    dOMCSSRuleGetParentRule                 ,+++-- ** dOMCSSRuleGetParentStyleSheet+    dOMCSSRuleGetParentStyleSheet           ,+++-- ** dOMCSSRuleGetRuleType+    dOMCSSRuleGetRuleType                   ,+++-- ** dOMCSSRuleSetCssText+    dOMCSSRuleSetCssText                    ,+++++ -- * Properties+-- ** CssText+    DOMCSSRuleCssTextPropertyInfo           ,+    constructDOMCSSRuleCssText              ,+    getDOMCSSRuleCssText                    ,+    setDOMCSSRuleCssText                    ,+++-- ** ParentRule+    DOMCSSRuleParentRulePropertyInfo        ,+    getDOMCSSRuleParentRule                 ,+++-- ** ParentStyleSheet+    DOMCSSRuleParentStyleSheetPropertyInfo  ,+    getDOMCSSRuleParentStyleSheet           ,+++-- ** Type+    DOMCSSRuleTypePropertyInfo              ,+    getDOMCSSRuleType                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMCSSRule = DOMCSSRule (ForeignPtr DOMCSSRule)+foreign import ccall "webkit_dom_css_rule_get_type"+    c_webkit_dom_css_rule_get_type :: IO GType++type instance ParentTypes DOMCSSRule = DOMCSSRuleParentTypes+type DOMCSSRuleParentTypes = '[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++noDOMCSSRule :: Maybe DOMCSSRule+noDOMCSSRule = Nothing++-- VVV Prop "css-text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m T.Text+getDOMCSSRuleCssText obj = liftIO $ getObjectPropertyString obj "css-text"++setDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> T.Text -> m ()+setDOMCSSRuleCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val++constructDOMCSSRuleCssText :: T.Text -> IO ([Char], GValue)+constructDOMCSSRuleCssText val = constructObjectPropertyString "css-text" val++data DOMCSSRuleCssTextPropertyInfo+instance AttrInfo DOMCSSRuleCssTextPropertyInfo where+    type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMCSSRuleCssTextPropertyInfo = DOMCSSRuleK+    type AttrGetType DOMCSSRuleCssTextPropertyInfo = T.Text+    type AttrLabel DOMCSSRuleCssTextPropertyInfo = "DOMCSSRule::css-text"+    attrGet _ = getDOMCSSRuleCssText+    attrSet _ = setDOMCSSRuleCssText+    attrConstruct _ = constructDOMCSSRuleCssText++-- VVV Prop "parent-rule"+   -- Type: TInterface "WebKit2WebExtension" "DOMCSSRule"+   -- Flags: [PropertyReadable]++getDOMCSSRuleParentRule :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSRule+getDOMCSSRuleParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule++data DOMCSSRuleParentRulePropertyInfo+instance AttrInfo DOMCSSRuleParentRulePropertyInfo where+    type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSRuleParentRulePropertyInfo = DOMCSSRuleK+    type AttrGetType DOMCSSRuleParentRulePropertyInfo = DOMCSSRule+    type AttrLabel DOMCSSRuleParentRulePropertyInfo = "DOMCSSRule::parent-rule"+    attrGet _ = getDOMCSSRuleParentRule+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "parent-style-sheet"+   -- Type: TInterface "WebKit2WebExtension" "DOMCSSStyleSheet"+   -- Flags: [PropertyReadable]++getDOMCSSRuleParentStyleSheet :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSStyleSheet+getDOMCSSRuleParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMCSSStyleSheet++data DOMCSSRuleParentStyleSheetPropertyInfo+instance AttrInfo DOMCSSRuleParentStyleSheetPropertyInfo where+    type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSRuleK+    type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSStyleSheet+    type AttrLabel DOMCSSRuleParentStyleSheetPropertyInfo = "DOMCSSRule::parent-style-sheet"+    attrGet _ = getDOMCSSRuleParentStyleSheet+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "type"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getDOMCSSRuleType :: (MonadIO m, DOMCSSRuleK o) => o -> m Word32+getDOMCSSRuleType obj = liftIO $ getObjectPropertyCUInt obj "type"++data DOMCSSRuleTypePropertyInfo+instance AttrInfo DOMCSSRuleTypePropertyInfo where+    type AttrAllowedOps DOMCSSRuleTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSRuleTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSRuleTypePropertyInfo = DOMCSSRuleK+    type AttrGetType DOMCSSRuleTypePropertyInfo = Word32+    type AttrLabel DOMCSSRuleTypePropertyInfo = "DOMCSSRule::type"+    attrGet _ = getDOMCSSRuleType+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMCSSRule = DOMCSSRuleAttributeList+type DOMCSSRuleAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSRuleCssTextPropertyInfo), '("parent-rule", DOMCSSRuleParentRulePropertyInfo), '("parent-style-sheet", DOMCSSRuleParentStyleSheetPropertyInfo), '("type", DOMCSSRuleTypePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMCSSRule = DOMCSSRuleSignalList+type DOMCSSRuleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMCSSRule::get_css_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_rule_get_css_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMCSSRule::get_parent_rule+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_rule_get_parent_rule" result+    result' <- (wrapObject DOMCSSRule) result+    touchManagedPtr _obj+    return result'++-- method DOMCSSRule::get_parent_style_sheet+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_rule_get_parent_style_sheet" result+    result' <- (wrapObject DOMCSSStyleSheet) result+    touchManagedPtr _obj+    return result'++-- method DOMCSSRule::get_rule_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRule", 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_rule_get_rule_type" webkit_dom_css_rule_get_rule_type :: +    Ptr DOMCSSRule ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMCSSRule"+    IO Word16+++dOMCSSRuleGetRuleType ::+    (MonadIO m, DOMCSSRuleK a) =>+    a ->                                    -- _obj+    m Word16+dOMCSSRuleGetRuleType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_css_rule_get_rule_type _obj'+    touchManagedPtr _obj+    return result++-- method DOMCSSRule::set_css_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+     )++
+ GI/WebKit2WebExtension/Objects/DOMCSSRule.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2WebExtension.Objects.DOMCSSRule where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMCSSRule = DOMCSSRule (ForeignPtr DOMCSSRule)+instance GObject DOMCSSRule where+class GObject o => DOMCSSRuleK o+instance (GObject o, IsDescendantOf DOMCSSRule o) => DOMCSSRuleK o+data DOMCSSRuleCssTextPropertyInfo+data DOMCSSRuleParentRulePropertyInfo+data DOMCSSRuleParentStyleSheetPropertyInfo+data DOMCSSRuleTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs view
@@ -0,0 +1,147 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMCSSRuleList+    ( ++-- * Exported types+    DOMCSSRuleList(..)                      ,+    DOMCSSRuleListK                         ,+    toDOMCSSRuleList                        ,+    noDOMCSSRuleList                        ,+++ -- * Methods+-- ** dOMCSSRuleListGetLength+    dOMCSSRuleListGetLength                 ,+++-- ** dOMCSSRuleListItem+    dOMCSSRuleListItem                      ,+++++ -- * Properties+-- ** Length+    DOMCSSRuleListLengthPropertyInfo        ,+    getDOMCSSRuleListLength                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMCSSRuleList = DOMCSSRuleList (ForeignPtr DOMCSSRuleList)+foreign import ccall "webkit_dom_css_rule_list_get_type"+    c_webkit_dom_css_rule_list_get_type :: IO GType++type instance ParentTypes DOMCSSRuleList = DOMCSSRuleListParentTypes+type DOMCSSRuleListParentTypes = '[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++noDOMCSSRuleList :: Maybe DOMCSSRuleList+noDOMCSSRuleList = Nothing++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMCSSRuleListLength :: (MonadIO m, DOMCSSRuleListK o) => o -> m Word64+getDOMCSSRuleListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMCSSRuleListLengthPropertyInfo+instance AttrInfo DOMCSSRuleListLengthPropertyInfo where+    type AttrAllowedOps DOMCSSRuleListLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSRuleListLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSRuleListLengthPropertyInfo = DOMCSSRuleListK+    type AttrGetType DOMCSSRuleListLengthPropertyInfo = Word64+    type AttrLabel DOMCSSRuleListLengthPropertyInfo = "DOMCSSRuleList::length"+    attrGet _ = getDOMCSSRuleListLength+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMCSSRuleList = DOMCSSRuleListAttributeList+type DOMCSSRuleListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMCSSRuleListLengthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMCSSRuleList = DOMCSSRuleListSignalList+type DOMCSSRuleListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMCSSRuleList::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSRuleList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_css_rule_list_item" result+    result' <- (wrapObject DOMCSSRule) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMCSSRuleList.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMCSSRuleList where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMCSSRuleList = DOMCSSRuleList (ForeignPtr DOMCSSRuleList)+instance GObject DOMCSSRuleList where+class GObject o => DOMCSSRuleListK o+instance (GObject o, IsDescendantOf DOMCSSRuleList o) => DOMCSSRuleListK o+data DOMCSSRuleListLengthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs view
@@ -0,0 +1,525 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration+    ( ++-- * Exported types+    DOMCSSStyleDeclaration(..)              ,+    DOMCSSStyleDeclarationK                 ,+    toDOMCSSStyleDeclaration                ,+    noDOMCSSStyleDeclaration                ,+++ -- * Methods+-- ** dOMCSSStyleDeclarationGetCssText+    dOMCSSStyleDeclarationGetCssText        ,+++-- ** dOMCSSStyleDeclarationGetLength+    dOMCSSStyleDeclarationGetLength         ,+++-- ** dOMCSSStyleDeclarationGetParentRule+    dOMCSSStyleDeclarationGetParentRule     ,+++-- ** dOMCSSStyleDeclarationGetPropertyPriority+    dOMCSSStyleDeclarationGetPropertyPriority,+++-- ** dOMCSSStyleDeclarationGetPropertyShorthand+    dOMCSSStyleDeclarationGetPropertyShorthand,+++-- ** dOMCSSStyleDeclarationGetPropertyValue+    dOMCSSStyleDeclarationGetPropertyValue  ,+++-- ** dOMCSSStyleDeclarationIsPropertyImplicit+    dOMCSSStyleDeclarationIsPropertyImplicit,+++-- ** dOMCSSStyleDeclarationItem+    dOMCSSStyleDeclarationItem              ,+++-- ** dOMCSSStyleDeclarationRemoveProperty+    dOMCSSStyleDeclarationRemoveProperty    ,+++-- ** dOMCSSStyleDeclarationSetCssText+    dOMCSSStyleDeclarationSetCssText        ,+++-- ** dOMCSSStyleDeclarationSetProperty+    dOMCSSStyleDeclarationSetProperty       ,+++++ -- * Properties+-- ** CssText+    DOMCSSStyleDeclarationCssTextPropertyInfo,+    constructDOMCSSStyleDeclarationCssText  ,+    getDOMCSSStyleDeclarationCssText        ,+    setDOMCSSStyleDeclarationCssText        ,+++-- ** Length+    DOMCSSStyleDeclarationLengthPropertyInfo,+    getDOMCSSStyleDeclarationLength         ,+++-- ** ParentRule+    DOMCSSStyleDeclarationParentRulePropertyInfo,+    getDOMCSSStyleDeclarationParentRule     ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMCSSStyleDeclaration = DOMCSSStyleDeclaration (ForeignPtr DOMCSSStyleDeclaration)+foreign import ccall "webkit_dom_css_style_declaration_get_type"+    c_webkit_dom_css_style_declaration_get_type :: IO GType++type instance ParentTypes DOMCSSStyleDeclaration = DOMCSSStyleDeclarationParentTypes+type DOMCSSStyleDeclarationParentTypes = '[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++noDOMCSSStyleDeclaration :: Maybe DOMCSSStyleDeclaration+noDOMCSSStyleDeclaration = Nothing++-- VVV Prop "css-text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m T.Text+getDOMCSSStyleDeclarationCssText obj = liftIO $ getObjectPropertyString obj "css-text"++setDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> T.Text -> m ()+setDOMCSSStyleDeclarationCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val++constructDOMCSSStyleDeclarationCssText :: T.Text -> IO ([Char], GValue)+constructDOMCSSStyleDeclarationCssText val = constructObjectPropertyString "css-text" val++data DOMCSSStyleDeclarationCssTextPropertyInfo+instance AttrInfo DOMCSSStyleDeclarationCssTextPropertyInfo where+    type AttrAllowedOps DOMCSSStyleDeclarationCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = DOMCSSStyleDeclarationK+    type AttrGetType DOMCSSStyleDeclarationCssTextPropertyInfo = T.Text+    type AttrLabel DOMCSSStyleDeclarationCssTextPropertyInfo = "DOMCSSStyleDeclaration::css-text"+    attrGet _ = getDOMCSSStyleDeclarationCssText+    attrSet _ = setDOMCSSStyleDeclarationCssText+    attrConstruct _ = constructDOMCSSStyleDeclarationCssText++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMCSSStyleDeclarationLength :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m Word64+getDOMCSSStyleDeclarationLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMCSSStyleDeclarationLengthPropertyInfo+instance AttrInfo DOMCSSStyleDeclarationLengthPropertyInfo where+    type AttrAllowedOps DOMCSSStyleDeclarationLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = DOMCSSStyleDeclarationK+    type AttrGetType DOMCSSStyleDeclarationLengthPropertyInfo = Word64+    type AttrLabel DOMCSSStyleDeclarationLengthPropertyInfo = "DOMCSSStyleDeclaration::length"+    attrGet _ = getDOMCSSStyleDeclarationLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "parent-rule"+   -- Type: TInterface "WebKit2WebExtension" "DOMCSSRule"+   -- Flags: [PropertyReadable]++getDOMCSSStyleDeclarationParentRule :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m DOMCSSRule+getDOMCSSStyleDeclarationParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule++data DOMCSSStyleDeclarationParentRulePropertyInfo+instance AttrInfo DOMCSSStyleDeclarationParentRulePropertyInfo where+    type AttrAllowedOps DOMCSSStyleDeclarationParentRulePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSStyleDeclarationK+    type AttrGetType DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSRule+    type AttrLabel DOMCSSStyleDeclarationParentRulePropertyInfo = "DOMCSSStyleDeclaration::parent-rule"+    attrGet _ = getDOMCSSStyleDeclarationParentRule+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationAttributeList+type DOMCSSStyleDeclarationAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSStyleDeclarationCssTextPropertyInfo), '("length", DOMCSSStyleDeclarationLengthPropertyInfo), '("parent-rule", DOMCSSStyleDeclarationParentRulePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationSignalList+type DOMCSSStyleDeclarationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMCSSStyleDeclaration::get_css_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_css_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMCSSStyleDeclaration::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_parent_rule" result+    result' <- (wrapObject DOMCSSRule) result+    touchManagedPtr _obj+    return result'++-- method DOMCSSStyleDeclaration::get_property_priority+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_property_priority" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_property_shorthand" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_get_property_value" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_item" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMCSSStyleDeclaration::remove_property+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_css_style_declaration_remove_property" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+     )++
+ GI/WebKit2WebExtension/Objects/DOMCSSStyleDeclaration.hs-boot view
@@ -0,0 +1,16 @@+module GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMCSSStyleDeclaration = DOMCSSStyleDeclaration (ForeignPtr DOMCSSStyleDeclaration)+instance GObject DOMCSSStyleDeclaration where+class GObject o => DOMCSSStyleDeclarationK o+instance (GObject o, IsDescendantOf DOMCSSStyleDeclaration o) => DOMCSSStyleDeclarationK o+data DOMCSSStyleDeclarationCssTextPropertyInfo+data DOMCSSStyleDeclarationLengthPropertyInfo+data DOMCSSStyleDeclarationParentRulePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs view
@@ -0,0 +1,376 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet+    ( ++-- * Exported types+    DOMCSSStyleSheet(..)                    ,+    DOMCSSStyleSheetK                       ,+    toDOMCSSStyleSheet                      ,+    noDOMCSSStyleSheet                      ,+++ -- * Methods+-- ** dOMCSSStyleSheetAddRule+    dOMCSSStyleSheetAddRule                 ,+++-- ** dOMCSSStyleSheetDeleteRule+    dOMCSSStyleSheetDeleteRule              ,+++-- ** dOMCSSStyleSheetGetCssRules+    dOMCSSStyleSheetGetCssRules             ,+++-- ** dOMCSSStyleSheetGetOwnerRule+    dOMCSSStyleSheetGetOwnerRule            ,+++-- ** dOMCSSStyleSheetGetRules+    dOMCSSStyleSheetGetRules                ,+++-- ** dOMCSSStyleSheetInsertRule+    dOMCSSStyleSheetInsertRule              ,+++-- ** dOMCSSStyleSheetRemoveRule+    dOMCSSStyleSheetRemoveRule              ,+++++ -- * Properties+-- ** CssRules+    DOMCSSStyleSheetCssRulesPropertyInfo    ,+    getDOMCSSStyleSheetCssRules             ,+++-- ** OwnerRule+    DOMCSSStyleSheetOwnerRulePropertyInfo   ,+    getDOMCSSStyleSheetOwnerRule            ,+++-- ** Rules+    DOMCSSStyleSheetRulesPropertyInfo       ,+    getDOMCSSStyleSheetRules                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMCSSStyleSheet = DOMCSSStyleSheet (ForeignPtr DOMCSSStyleSheet)+foreign import ccall "webkit_dom_css_style_sheet_get_type"+    c_webkit_dom_css_style_sheet_get_type :: IO GType++type instance ParentTypes DOMCSSStyleSheet = DOMCSSStyleSheetParentTypes+type DOMCSSStyleSheetParentTypes = '[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++noDOMCSSStyleSheet :: Maybe DOMCSSStyleSheet+noDOMCSSStyleSheet = Nothing++-- VVV Prop "css-rules"+   -- Type: TInterface "WebKit2WebExtension" "DOMCSSRuleList"+   -- Flags: [PropertyReadable]++getDOMCSSStyleSheetCssRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList+getDOMCSSStyleSheetCssRules obj = liftIO $ getObjectPropertyObject obj "css-rules" DOMCSSRuleList++data DOMCSSStyleSheetCssRulesPropertyInfo+instance AttrInfo DOMCSSStyleSheetCssRulesPropertyInfo where+    type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSStyleSheetK+    type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSRuleList+    type AttrLabel DOMCSSStyleSheetCssRulesPropertyInfo = "DOMCSSStyleSheet::css-rules"+    attrGet _ = getDOMCSSStyleSheetCssRules+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "owner-rule"+   -- Type: TInterface "WebKit2WebExtension" "DOMCSSRule"+   -- Flags: [PropertyReadable]++getDOMCSSStyleSheetOwnerRule :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRule+getDOMCSSStyleSheetOwnerRule obj = liftIO $ getObjectPropertyObject obj "owner-rule" DOMCSSRule++data DOMCSSStyleSheetOwnerRulePropertyInfo+instance AttrInfo DOMCSSStyleSheetOwnerRulePropertyInfo where+    type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSStyleSheetK+    type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSRule+    type AttrLabel DOMCSSStyleSheetOwnerRulePropertyInfo = "DOMCSSStyleSheet::owner-rule"+    attrGet _ = getDOMCSSStyleSheetOwnerRule+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "rules"+   -- Type: TInterface "WebKit2WebExtension" "DOMCSSRuleList"+   -- Flags: [PropertyReadable]++getDOMCSSStyleSheetRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList+getDOMCSSStyleSheetRules obj = liftIO $ getObjectPropertyObject obj "rules" DOMCSSRuleList++data DOMCSSStyleSheetRulesPropertyInfo+instance AttrInfo DOMCSSStyleSheetRulesPropertyInfo where+    type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = DOMCSSStyleSheetK+    type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = DOMCSSRuleList+    type AttrLabel DOMCSSStyleSheetRulesPropertyInfo = "DOMCSSStyleSheet::rules"+    attrGet _ = getDOMCSSStyleSheetRules+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMCSSStyleSheet = DOMCSSStyleSheetAttributeList+type DOMCSSStyleSheetAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-rules", DOMCSSStyleSheetCssRulesPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("owner-node", DOMStyleSheetOwnerNodePropertyInfo), '("owner-rule", DOMCSSStyleSheetOwnerRulePropertyInfo), '("parent-style-sheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("rules", DOMCSSStyleSheetRulesPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMCSSStyleSheet = DOMCSSStyleSheetSignalList+type DOMCSSStyleSheetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMCSSStyleSheet::add_rule+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_style_sheet_get_css_rules" result+    result' <- (wrapObject DOMCSSRuleList) result+    touchManagedPtr _obj+    return result'++-- method DOMCSSStyleSheet::get_owner_rule+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_style_sheet_get_owner_rule" result+    result' <- (wrapObject DOMCSSRule) result+    touchManagedPtr _obj+    return result'++-- method DOMCSSStyleSheet::get_rules+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_style_sheet_get_rules" result+    result' <- (wrapObject DOMCSSRuleList) result+    touchManagedPtr _obj+    return result'++-- method DOMCSSStyleSheet::insert_rule+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMCSSStyleSheet.hs-boot view
@@ -0,0 +1,16 @@+module GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMCSSStyleSheet = DOMCSSStyleSheet (ForeignPtr DOMCSSStyleSheet)+instance GObject DOMCSSStyleSheet where+class GObject o => DOMCSSStyleSheetK o+instance (GObject o, IsDescendantOf DOMCSSStyleSheet o) => DOMCSSStyleSheetK o+data DOMCSSStyleSheetCssRulesPropertyInfo+data DOMCSSStyleSheetOwnerRulePropertyInfo+data DOMCSSStyleSheetRulesPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMCSSValue.hs view
@@ -0,0 +1,214 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMCSSValue+    ( ++-- * Exported types+    DOMCSSValue(..)                         ,+    DOMCSSValueK                            ,+    toDOMCSSValue                           ,+    noDOMCSSValue                           ,+++ -- * Methods+-- ** dOMCSSValueGetCssText+    dOMCSSValueGetCssText                   ,+++-- ** dOMCSSValueGetCssValueType+    dOMCSSValueGetCssValueType              ,+++-- ** dOMCSSValueSetCssText+    dOMCSSValueSetCssText                   ,+++++ -- * Properties+-- ** CssText+    DOMCSSValueCssTextPropertyInfo          ,+    constructDOMCSSValueCssText             ,+    getDOMCSSValueCssText                   ,+    setDOMCSSValueCssText                   ,+++-- ** CssValueType+    DOMCSSValueCssValueTypePropertyInfo     ,+    getDOMCSSValueCssValueType              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMCSSValue = DOMCSSValue (ForeignPtr DOMCSSValue)+foreign import ccall "webkit_dom_css_value_get_type"+    c_webkit_dom_css_value_get_type :: IO GType++type instance ParentTypes DOMCSSValue = DOMCSSValueParentTypes+type DOMCSSValueParentTypes = '[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++noDOMCSSValue :: Maybe DOMCSSValue+noDOMCSSValue = Nothing++-- VVV Prop "css-text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m T.Text+getDOMCSSValueCssText obj = liftIO $ getObjectPropertyString obj "css-text"++setDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> T.Text -> m ()+setDOMCSSValueCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val++constructDOMCSSValueCssText :: T.Text -> IO ([Char], GValue)+constructDOMCSSValueCssText val = constructObjectPropertyString "css-text" val++data DOMCSSValueCssTextPropertyInfo+instance AttrInfo DOMCSSValueCssTextPropertyInfo where+    type AttrAllowedOps DOMCSSValueCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMCSSValueCssTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMCSSValueCssTextPropertyInfo = DOMCSSValueK+    type AttrGetType DOMCSSValueCssTextPropertyInfo = T.Text+    type AttrLabel DOMCSSValueCssTextPropertyInfo = "DOMCSSValue::css-text"+    attrGet _ = getDOMCSSValueCssText+    attrSet _ = setDOMCSSValueCssText+    attrConstruct _ = constructDOMCSSValueCssText++-- VVV Prop "css-value-type"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getDOMCSSValueCssValueType :: (MonadIO m, DOMCSSValueK o) => o -> m Word32+getDOMCSSValueCssValueType obj = liftIO $ getObjectPropertyCUInt obj "css-value-type"++data DOMCSSValueCssValueTypePropertyInfo+instance AttrInfo DOMCSSValueCssValueTypePropertyInfo where+    type AttrAllowedOps DOMCSSValueCssValueTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCSSValueCssValueTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCSSValueCssValueTypePropertyInfo = DOMCSSValueK+    type AttrGetType DOMCSSValueCssValueTypePropertyInfo = Word32+    type AttrLabel DOMCSSValueCssValueTypePropertyInfo = "DOMCSSValue::css-value-type"+    attrGet _ = getDOMCSSValueCssValueType+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMCSSValue = DOMCSSValueAttributeList+type DOMCSSValueAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSValueCssTextPropertyInfo), '("css-value-type", DOMCSSValueCssValueTypePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMCSSValue = DOMCSSValueSignalList+type DOMCSSValueSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMCSSValue::get_css_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_css_value_get_css_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMCSSValue::get_css_value_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCSSValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+     )++
+ GI/WebKit2WebExtension/Objects/DOMCSSValue.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMCSSValue where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMCSSValue = DOMCSSValue (ForeignPtr DOMCSSValue)+instance GObject DOMCSSValue where+class GObject o => DOMCSSValueK o+instance (GObject o, IsDescendantOf DOMCSSValue o) => DOMCSSValueK o+data DOMCSSValueCssTextPropertyInfo+data DOMCSSValueCssValueTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMCharacterData.hs view
@@ -0,0 +1,408 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMCharacterData+    ( ++-- * Exported types+    DOMCharacterData(..)                    ,+    DOMCharacterDataK                       ,+    toDOMCharacterData                      ,+    noDOMCharacterData                      ,+++ -- * Methods+-- ** dOMCharacterDataAppendData+    dOMCharacterDataAppendData              ,+++-- ** dOMCharacterDataDeleteData+    dOMCharacterDataDeleteData              ,+++-- ** dOMCharacterDataGetData+    dOMCharacterDataGetData                 ,+++-- ** dOMCharacterDataGetLength+    dOMCharacterDataGetLength               ,+++-- ** dOMCharacterDataInsertData+    dOMCharacterDataInsertData              ,+++-- ** dOMCharacterDataReplaceData+    dOMCharacterDataReplaceData             ,+++-- ** dOMCharacterDataSetData+    dOMCharacterDataSetData                 ,+++-- ** dOMCharacterDataSubstringData+    dOMCharacterDataSubstringData           ,+++++ -- * Properties+-- ** Data+    DOMCharacterDataDataPropertyInfo        ,+    constructDOMCharacterDataData           ,+    getDOMCharacterDataData                 ,+    setDOMCharacterDataData                 ,+++-- ** Length+    DOMCharacterDataLengthPropertyInfo      ,+    getDOMCharacterDataLength               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMCharacterData = DOMCharacterData (ForeignPtr DOMCharacterData)+foreign import ccall "webkit_dom_character_data_get_type"+    c_webkit_dom_character_data_get_type :: IO GType++type instance ParentTypes DOMCharacterData = DOMCharacterDataParentTypes+type DOMCharacterDataParentTypes = '[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++noDOMCharacterData :: Maybe DOMCharacterData+noDOMCharacterData = Nothing++-- VVV Prop "data"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m T.Text+getDOMCharacterDataData obj = liftIO $ getObjectPropertyString obj "data"++setDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> T.Text -> m ()+setDOMCharacterDataData obj val = liftIO $ setObjectPropertyString obj "data" val++constructDOMCharacterDataData :: T.Text -> IO ([Char], GValue)+constructDOMCharacterDataData val = constructObjectPropertyString "data" val++data DOMCharacterDataDataPropertyInfo+instance AttrInfo DOMCharacterDataDataPropertyInfo where+    type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMCharacterDataDataPropertyInfo = DOMCharacterDataK+    type AttrGetType DOMCharacterDataDataPropertyInfo = T.Text+    type AttrLabel DOMCharacterDataDataPropertyInfo = "DOMCharacterData::data"+    attrGet _ = getDOMCharacterDataData+    attrSet _ = setDOMCharacterDataData+    attrConstruct _ = constructDOMCharacterDataData++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMCharacterDataLength :: (MonadIO m, DOMCharacterDataK o) => o -> m Word64+getDOMCharacterDataLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMCharacterDataLengthPropertyInfo+instance AttrInfo DOMCharacterDataLengthPropertyInfo where+    type AttrAllowedOps DOMCharacterDataLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMCharacterDataLengthPropertyInfo = DOMCharacterDataK+    type AttrGetType DOMCharacterDataLengthPropertyInfo = Word64+    type AttrLabel DOMCharacterDataLengthPropertyInfo = "DOMCharacterData::length"+    attrGet _ = getDOMCharacterDataLength+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMCharacterData = DOMCharacterDataAttributeList+type DOMCharacterDataAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMCharacterData = DOMCharacterDataSignalList+type DOMCharacterDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMCharacterData::append_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_character_data_get_data" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMCharacterData::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMCharacterData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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::replace_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_+        checkUnexpectedReturnNULL "webkit_dom_character_data_substring_data" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMCharacterData.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMCharacterData where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMCharacterData = DOMCharacterData (ForeignPtr DOMCharacterData)+instance GObject DOMCharacterData where+class GObject o => DOMCharacterDataK o+instance (GObject o, IsDescendantOf DOMCharacterData o) => DOMCharacterDataK o+data DOMCharacterDataDataPropertyInfo+data DOMCharacterDataLengthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMComment.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMComment+    ( ++-- * Exported types+    DOMComment(..)                          ,+    DOMCommentK                             ,+    toDOMComment                            ,+    noDOMComment                            ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMComment = DOMComment (ForeignPtr DOMComment)+foreign import ccall "webkit_dom_comment_get_type"+    c_webkit_dom_comment_get_type :: IO GType++type instance ParentTypes DOMComment = DOMCommentParentTypes+type DOMCommentParentTypes = '[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++noDOMComment :: Maybe DOMComment+noDOMComment = Nothing++type instance AttributeList DOMComment = DOMCommentAttributeList+type DOMCommentAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMComment = DOMCommentSignalList+type DOMCommentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/WebKit2WebExtension/Objects/DOMComment.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.DOMComment where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMComment = DOMComment (ForeignPtr DOMComment)+instance GObject DOMComment where+class GObject o => DOMCommentK o+instance (GObject o, IsDescendantOf DOMComment o) => DOMCommentK o
+ GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs view
@@ -0,0 +1,281 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMDOMImplementation+    ( ++-- * Exported types+    DOMDOMImplementation(..)                ,+    DOMDOMImplementationK                   ,+    toDOMDOMImplementation                  ,+    noDOMDOMImplementation                  ,+++ -- * Methods+-- ** dOMDOMImplementationCreateCssStyleSheet+    dOMDOMImplementationCreateCssStyleSheet ,+++-- ** dOMDOMImplementationCreateDocument+    dOMDOMImplementationCreateDocument      ,+++-- ** dOMDOMImplementationCreateDocumentType+    dOMDOMImplementationCreateDocumentType  ,+++-- ** dOMDOMImplementationCreateHtmlDocument+    dOMDOMImplementationCreateHtmlDocument  ,+++-- ** dOMDOMImplementationHasFeature+    dOMDOMImplementationHasFeature          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMDOMImplementation = DOMDOMImplementation (ForeignPtr DOMDOMImplementation)+foreign import ccall "webkit_dom_dom_implementation_get_type"+    c_webkit_dom_dom_implementation_get_type :: IO GType++type instance ParentTypes DOMDOMImplementation = DOMDOMImplementationParentTypes+type DOMDOMImplementationParentTypes = '[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++noDOMDOMImplementation :: Maybe DOMDOMImplementation+noDOMDOMImplementation = Nothing++type instance AttributeList DOMDOMImplementation = DOMDOMImplementationAttributeList+type DOMDOMImplementationAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMDOMImplementation = DOMDOMImplementationSignalList+type DOMDOMImplementationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMDOMImplementation::create_css_style_sheet+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_dom_implementation_create_css_style_sheet" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDOMImplementation"+    CString ->                              -- namespaceURI : TBasicType TUTF8+    CString ->                              -- qualifiedName : TBasicType TUTF8+    Ptr DOMDocumentType ->                  -- doctype : TInterface "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_dom_implementation_create_document" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_dom_implementation_create_document_type" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_dom_implementation_create_html_document" result+    result' <- (newObject DOMHTMLDocument) result+    touchManagedPtr _obj+    freeMem title'+    return result'++-- method DOMDOMImplementation::has_feature+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'++
+ GI/WebKit2WebExtension/Objects/DOMDOMImplementation.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.DOMDOMImplementation where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMDOMImplementation = DOMDOMImplementation (ForeignPtr DOMDOMImplementation)+instance GObject DOMDOMImplementation where+class GObject o => DOMDOMImplementationK o+instance (GObject o, IsDescendantOf DOMDOMImplementation o) => DOMDOMImplementationK o
+ GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs view
@@ -0,0 +1,746 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMDOMWindow+    ( ++-- * Exported types+    DOMDOMWindow(..)                        ,+    DOMDOMWindowK                           ,+    toDOMDOMWindow                          ,+    noDOMDOMWindow                          ,+++ -- * Methods+-- ** dOMDOMWindowWebkitMessageHandlersPostMessage+    dOMDOMWindowWebkitMessageHandlersPostMessage,+++++ -- * Properties+-- ** Closed+    DOMDOMWindowClosedPropertyInfo          ,+    getDOMDOMWindowClosed                   ,+++-- ** DefaultStatus+    DOMDOMWindowDefaultStatusPropertyInfo   ,+    constructDOMDOMWindowDefaultStatus      ,+    getDOMDOMWindowDefaultStatus            ,+    setDOMDOMWindowDefaultStatus            ,+++-- ** DevicePixelRatio+    DOMDOMWindowDevicePixelRatioPropertyInfo,+    getDOMDOMWindowDevicePixelRatio         ,+++-- ** Document+    DOMDOMWindowDocumentPropertyInfo        ,+    getDOMDOMWindowDocument                 ,+++-- ** FrameElement+    DOMDOMWindowFrameElementPropertyInfo    ,+    getDOMDOMWindowFrameElement             ,+++-- ** Frames+    DOMDOMWindowFramesPropertyInfo          ,+    getDOMDOMWindowFrames                   ,+++-- ** InnerHeight+    DOMDOMWindowInnerHeightPropertyInfo     ,+    getDOMDOMWindowInnerHeight              ,+++-- ** InnerWidth+    DOMDOMWindowInnerWidthPropertyInfo      ,+    getDOMDOMWindowInnerWidth               ,+++-- ** Length+    DOMDOMWindowLengthPropertyInfo          ,+    getDOMDOMWindowLength                   ,+++-- ** Name+    DOMDOMWindowNamePropertyInfo            ,+    constructDOMDOMWindowName               ,+    getDOMDOMWindowName                     ,+    setDOMDOMWindowName                     ,+++-- ** OffscreenBuffering+    DOMDOMWindowOffscreenBufferingPropertyInfo,+    getDOMDOMWindowOffscreenBuffering       ,+++-- ** Opener+    DOMDOMWindowOpenerPropertyInfo          ,+    getDOMDOMWindowOpener                   ,+++-- ** OuterHeight+    DOMDOMWindowOuterHeightPropertyInfo     ,+    getDOMDOMWindowOuterHeight              ,+++-- ** OuterWidth+    DOMDOMWindowOuterWidthPropertyInfo      ,+    getDOMDOMWindowOuterWidth               ,+++-- ** PageXOffset+    DOMDOMWindowPageXOffsetPropertyInfo     ,+    getDOMDOMWindowPageXOffset              ,+++-- ** PageYOffset+    DOMDOMWindowPageYOffsetPropertyInfo     ,+    getDOMDOMWindowPageYOffset              ,+++-- ** Parent+    DOMDOMWindowParentPropertyInfo          ,+    getDOMDOMWindowParent                   ,+++-- ** ScreenLeft+    DOMDOMWindowScreenLeftPropertyInfo      ,+    getDOMDOMWindowScreenLeft               ,+++-- ** ScreenTop+    DOMDOMWindowScreenTopPropertyInfo       ,+    getDOMDOMWindowScreenTop                ,+++-- ** ScreenX+    DOMDOMWindowScreenXPropertyInfo         ,+    getDOMDOMWindowScreenX                  ,+++-- ** ScreenY+    DOMDOMWindowScreenYPropertyInfo         ,+    getDOMDOMWindowScreenY                  ,+++-- ** ScrollX+    DOMDOMWindowScrollXPropertyInfo         ,+    getDOMDOMWindowScrollX                  ,+++-- ** ScrollY+    DOMDOMWindowScrollYPropertyInfo         ,+    getDOMDOMWindowScrollY                  ,+++-- ** Self+    DOMDOMWindowSelfPropertyInfo            ,+    getDOMDOMWindowSelf                     ,+++-- ** Status+    DOMDOMWindowStatusPropertyInfo          ,+    constructDOMDOMWindowStatus             ,+    getDOMDOMWindowStatus                   ,+    setDOMDOMWindowStatus                   ,+++-- ** Top+    DOMDOMWindowTopPropertyInfo             ,+    getDOMDOMWindowTop                      ,+++-- ** Window+    DOMDOMWindowWindowPropertyInfo          ,+    getDOMDOMWindowWindow                   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMDOMWindow = DOMDOMWindow (ForeignPtr DOMDOMWindow)+foreign import ccall "webkit_dom_dom_window_get_type"+    c_webkit_dom_dom_window_get_type :: IO GType++type instance ParentTypes DOMDOMWindow = DOMDOMWindowParentTypes+type DOMDOMWindowParentTypes = '[DOMObject, GObject.Object, DOMEventTarget]++instance GObject DOMDOMWindow where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_dom_dom_window_get_type+    ++class GObject o => DOMDOMWindowK o+instance (GObject o, IsDescendantOf DOMDOMWindow o) => DOMDOMWindowK o++toDOMDOMWindow :: DOMDOMWindowK o => o -> IO DOMDOMWindow+toDOMDOMWindow = unsafeCastTo DOMDOMWindow++noDOMDOMWindow :: Maybe DOMDOMWindow+noDOMDOMWindow = Nothing++-- VVV Prop "closed"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMDOMWindowClosed :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool+getDOMDOMWindowClosed obj = liftIO $ getObjectPropertyBool obj "closed"++data DOMDOMWindowClosedPropertyInfo+instance AttrInfo DOMDOMWindowClosedPropertyInfo where+    type AttrAllowedOps DOMDOMWindowClosedPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowClosedPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowClosedPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowClosedPropertyInfo = Bool+    type AttrLabel DOMDOMWindowClosedPropertyInfo = "DOMDOMWindow::closed"+    attrGet _ = getDOMDOMWindowClosed+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "default-status"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text+getDOMDOMWindowDefaultStatus obj = liftIO $ getObjectPropertyString obj "default-status"++setDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m ()+setDOMDOMWindowDefaultStatus obj val = liftIO $ setObjectPropertyString obj "default-status" val++constructDOMDOMWindowDefaultStatus :: T.Text -> IO ([Char], GValue)+constructDOMDOMWindowDefaultStatus val = constructObjectPropertyString "default-status" val++data DOMDOMWindowDefaultStatusPropertyInfo+instance AttrInfo DOMDOMWindowDefaultStatusPropertyInfo where+    type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowDefaultStatusPropertyInfo = T.Text+    type AttrLabel DOMDOMWindowDefaultStatusPropertyInfo = "DOMDOMWindow::default-status"+    attrGet _ = getDOMDOMWindowDefaultStatus+    attrSet _ = setDOMDOMWindowDefaultStatus+    attrConstruct _ = constructDOMDOMWindowDefaultStatus++-- VVV Prop "device-pixel-ratio"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMDOMWindowDevicePixelRatio :: (MonadIO m, DOMDOMWindowK o) => o -> m Double+getDOMDOMWindowDevicePixelRatio obj = liftIO $ getObjectPropertyDouble obj "device-pixel-ratio"++data DOMDOMWindowDevicePixelRatioPropertyInfo+instance AttrInfo DOMDOMWindowDevicePixelRatioPropertyInfo where+    type AttrAllowedOps DOMDOMWindowDevicePixelRatioPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowDevicePixelRatioPropertyInfo = Double+    type AttrLabel DOMDOMWindowDevicePixelRatioPropertyInfo = "DOMDOMWindow::device-pixel-ratio"+    attrGet _ = getDOMDOMWindowDevicePixelRatio+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "document"+   -- Type: TInterface "WebKit2WebExtension" "DOMDocument"+   -- Flags: [PropertyReadable]++getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDocument+getDOMDOMWindowDocument obj = liftIO $ getObjectPropertyObject obj "document" DOMDocument++data DOMDOMWindowDocumentPropertyInfo+instance AttrInfo DOMDOMWindowDocumentPropertyInfo where+    type AttrAllowedOps DOMDOMWindowDocumentPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowDocumentPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowDocumentPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowDocumentPropertyInfo = DOMDocument+    type AttrLabel DOMDOMWindowDocumentPropertyInfo = "DOMDOMWindow::document"+    attrGet _ = getDOMDOMWindowDocument+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "frame-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMElement+getDOMDOMWindowFrameElement obj = liftIO $ getObjectPropertyObject obj "frame-element" DOMElement++data DOMDOMWindowFrameElementPropertyInfo+instance AttrInfo DOMDOMWindowFrameElementPropertyInfo where+    type AttrAllowedOps DOMDOMWindowFrameElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowFrameElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowFrameElementPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowFrameElementPropertyInfo = DOMElement+    type AttrLabel DOMDOMWindowFrameElementPropertyInfo = "DOMDOMWindow::frame-element"+    attrGet _ = getDOMDOMWindowFrameElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "frames"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMDOMWindowFrames :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow+getDOMDOMWindowFrames obj = liftIO $ getObjectPropertyObject obj "frames" DOMDOMWindow++data DOMDOMWindowFramesPropertyInfo+instance AttrInfo DOMDOMWindowFramesPropertyInfo where+    type AttrAllowedOps DOMDOMWindowFramesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowFramesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowFramesPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowFramesPropertyInfo = DOMDOMWindow+    type AttrLabel DOMDOMWindowFramesPropertyInfo = "DOMDOMWindow::frames"+    attrGet _ = getDOMDOMWindowFrames+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "inner-height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowInnerHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowInnerHeight obj = liftIO $ getObjectPropertyInt64 obj "inner-height"++data DOMDOMWindowInnerHeightPropertyInfo+instance AttrInfo DOMDOMWindowInnerHeightPropertyInfo where+    type AttrAllowedOps DOMDOMWindowInnerHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowInnerHeightPropertyInfo = Int64+    type AttrLabel DOMDOMWindowInnerHeightPropertyInfo = "DOMDOMWindow::inner-height"+    attrGet _ = getDOMDOMWindowInnerHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "inner-width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowInnerWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowInnerWidth obj = liftIO $ getObjectPropertyInt64 obj "inner-width"++data DOMDOMWindowInnerWidthPropertyInfo+instance AttrInfo DOMDOMWindowInnerWidthPropertyInfo where+    type AttrAllowedOps DOMDOMWindowInnerWidthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowInnerWidthPropertyInfo = Int64+    type AttrLabel DOMDOMWindowInnerWidthPropertyInfo = "DOMDOMWindow::inner-width"+    attrGet _ = getDOMDOMWindowInnerWidth+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowLength :: (MonadIO m, DOMDOMWindowK o) => o -> m Word64+getDOMDOMWindowLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMDOMWindowLengthPropertyInfo+instance AttrInfo DOMDOMWindowLengthPropertyInfo where+    type AttrAllowedOps DOMDOMWindowLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowLengthPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowLengthPropertyInfo = Word64+    type AttrLabel DOMDOMWindowLengthPropertyInfo = "DOMDOMWindow::length"+    attrGet _ = getDOMDOMWindowLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text+getDOMDOMWindowName obj = liftIO $ getObjectPropertyString obj "name"++setDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m ()+setDOMDOMWindowName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMDOMWindowName :: T.Text -> IO ([Char], GValue)+constructDOMDOMWindowName val = constructObjectPropertyString "name" val++data DOMDOMWindowNamePropertyInfo+instance AttrInfo DOMDOMWindowNamePropertyInfo where+    type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDOMWindowNamePropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowNamePropertyInfo = T.Text+    type AttrLabel DOMDOMWindowNamePropertyInfo = "DOMDOMWindow::name"+    attrGet _ = getDOMDOMWindowName+    attrSet _ = setDOMDOMWindowName+    attrConstruct _ = constructDOMDOMWindowName++-- VVV Prop "offscreen-buffering"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMDOMWindowOffscreenBuffering :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool+getDOMDOMWindowOffscreenBuffering obj = liftIO $ getObjectPropertyBool obj "offscreen-buffering"++data DOMDOMWindowOffscreenBufferingPropertyInfo+instance AttrInfo DOMDOMWindowOffscreenBufferingPropertyInfo where+    type AttrAllowedOps DOMDOMWindowOffscreenBufferingPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowOffscreenBufferingPropertyInfo = Bool+    type AttrLabel DOMDOMWindowOffscreenBufferingPropertyInfo = "DOMDOMWindow::offscreen-buffering"+    attrGet _ = getDOMDOMWindowOffscreenBuffering+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "opener"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMDOMWindowOpener :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow+getDOMDOMWindowOpener obj = liftIO $ getObjectPropertyObject obj "opener" DOMDOMWindow++data DOMDOMWindowOpenerPropertyInfo+instance AttrInfo DOMDOMWindowOpenerPropertyInfo where+    type AttrAllowedOps DOMDOMWindowOpenerPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowOpenerPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowOpenerPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowOpenerPropertyInfo = DOMDOMWindow+    type AttrLabel DOMDOMWindowOpenerPropertyInfo = "DOMDOMWindow::opener"+    attrGet _ = getDOMDOMWindowOpener+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "outer-height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowOuterHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowOuterHeight obj = liftIO $ getObjectPropertyInt64 obj "outer-height"++data DOMDOMWindowOuterHeightPropertyInfo+instance AttrInfo DOMDOMWindowOuterHeightPropertyInfo where+    type AttrAllowedOps DOMDOMWindowOuterHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowOuterHeightPropertyInfo = Int64+    type AttrLabel DOMDOMWindowOuterHeightPropertyInfo = "DOMDOMWindow::outer-height"+    attrGet _ = getDOMDOMWindowOuterHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "outer-width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowOuterWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowOuterWidth obj = liftIO $ getObjectPropertyInt64 obj "outer-width"++data DOMDOMWindowOuterWidthPropertyInfo+instance AttrInfo DOMDOMWindowOuterWidthPropertyInfo where+    type AttrAllowedOps DOMDOMWindowOuterWidthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowOuterWidthPropertyInfo = Int64+    type AttrLabel DOMDOMWindowOuterWidthPropertyInfo = "DOMDOMWindow::outer-width"+    attrGet _ = getDOMDOMWindowOuterWidth+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "page-x-offset"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowPageXOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowPageXOffset obj = liftIO $ getObjectPropertyInt64 obj "page-x-offset"++data DOMDOMWindowPageXOffsetPropertyInfo+instance AttrInfo DOMDOMWindowPageXOffsetPropertyInfo where+    type AttrAllowedOps DOMDOMWindowPageXOffsetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowPageXOffsetPropertyInfo = Int64+    type AttrLabel DOMDOMWindowPageXOffsetPropertyInfo = "DOMDOMWindow::page-x-offset"+    attrGet _ = getDOMDOMWindowPageXOffset+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "page-y-offset"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowPageYOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowPageYOffset obj = liftIO $ getObjectPropertyInt64 obj "page-y-offset"++data DOMDOMWindowPageYOffsetPropertyInfo+instance AttrInfo DOMDOMWindowPageYOffsetPropertyInfo where+    type AttrAllowedOps DOMDOMWindowPageYOffsetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowPageYOffsetPropertyInfo = Int64+    type AttrLabel DOMDOMWindowPageYOffsetPropertyInfo = "DOMDOMWindow::page-y-offset"+    attrGet _ = getDOMDOMWindowPageYOffset+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "parent"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMDOMWindowParent :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow+getDOMDOMWindowParent obj = liftIO $ getObjectPropertyObject obj "parent" DOMDOMWindow++data DOMDOMWindowParentPropertyInfo+instance AttrInfo DOMDOMWindowParentPropertyInfo where+    type AttrAllowedOps DOMDOMWindowParentPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowParentPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowParentPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowParentPropertyInfo = DOMDOMWindow+    type AttrLabel DOMDOMWindowParentPropertyInfo = "DOMDOMWindow::parent"+    attrGet _ = getDOMDOMWindowParent+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "screen-left"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowScreenLeft :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowScreenLeft obj = liftIO $ getObjectPropertyInt64 obj "screen-left"++data DOMDOMWindowScreenLeftPropertyInfo+instance AttrInfo DOMDOMWindowScreenLeftPropertyInfo where+    type AttrAllowedOps DOMDOMWindowScreenLeftPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowScreenLeftPropertyInfo = Int64+    type AttrLabel DOMDOMWindowScreenLeftPropertyInfo = "DOMDOMWindow::screen-left"+    attrGet _ = getDOMDOMWindowScreenLeft+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "screen-top"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowScreenTop :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowScreenTop obj = liftIO $ getObjectPropertyInt64 obj "screen-top"++data DOMDOMWindowScreenTopPropertyInfo+instance AttrInfo DOMDOMWindowScreenTopPropertyInfo where+    type AttrAllowedOps DOMDOMWindowScreenTopPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowScreenTopPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowScreenTopPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowScreenTopPropertyInfo = Int64+    type AttrLabel DOMDOMWindowScreenTopPropertyInfo = "DOMDOMWindow::screen-top"+    attrGet _ = getDOMDOMWindowScreenTop+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "screen-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowScreenX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x"++data DOMDOMWindowScreenXPropertyInfo+instance AttrInfo DOMDOMWindowScreenXPropertyInfo where+    type AttrAllowedOps DOMDOMWindowScreenXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowScreenXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowScreenXPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowScreenXPropertyInfo = Int64+    type AttrLabel DOMDOMWindowScreenXPropertyInfo = "DOMDOMWindow::screen-x"+    attrGet _ = getDOMDOMWindowScreenX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "screen-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowScreenY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y"++data DOMDOMWindowScreenYPropertyInfo+instance AttrInfo DOMDOMWindowScreenYPropertyInfo where+    type AttrAllowedOps DOMDOMWindowScreenYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowScreenYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowScreenYPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowScreenYPropertyInfo = Int64+    type AttrLabel DOMDOMWindowScreenYPropertyInfo = "DOMDOMWindow::screen-y"+    attrGet _ = getDOMDOMWindowScreenY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "scroll-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowScrollX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowScrollX obj = liftIO $ getObjectPropertyInt64 obj "scroll-x"++data DOMDOMWindowScrollXPropertyInfo+instance AttrInfo DOMDOMWindowScrollXPropertyInfo where+    type AttrAllowedOps DOMDOMWindowScrollXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowScrollXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowScrollXPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowScrollXPropertyInfo = Int64+    type AttrLabel DOMDOMWindowScrollXPropertyInfo = "DOMDOMWindow::scroll-x"+    attrGet _ = getDOMDOMWindowScrollX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "scroll-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMDOMWindowScrollY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64+getDOMDOMWindowScrollY obj = liftIO $ getObjectPropertyInt64 obj "scroll-y"++data DOMDOMWindowScrollYPropertyInfo+instance AttrInfo DOMDOMWindowScrollYPropertyInfo where+    type AttrAllowedOps DOMDOMWindowScrollYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowScrollYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowScrollYPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowScrollYPropertyInfo = Int64+    type AttrLabel DOMDOMWindowScrollYPropertyInfo = "DOMDOMWindow::scroll-y"+    attrGet _ = getDOMDOMWindowScrollY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "self"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMDOMWindowSelf :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow+getDOMDOMWindowSelf obj = liftIO $ getObjectPropertyObject obj "self" DOMDOMWindow++data DOMDOMWindowSelfPropertyInfo+instance AttrInfo DOMDOMWindowSelfPropertyInfo where+    type AttrAllowedOps DOMDOMWindowSelfPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowSelfPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowSelfPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowSelfPropertyInfo = DOMDOMWindow+    type AttrLabel DOMDOMWindowSelfPropertyInfo = "DOMDOMWindow::self"+    attrGet _ = getDOMDOMWindowSelf+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "status"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text+getDOMDOMWindowStatus obj = liftIO $ getObjectPropertyString obj "status"++setDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m ()+setDOMDOMWindowStatus obj val = liftIO $ setObjectPropertyString obj "status" val++constructDOMDOMWindowStatus :: T.Text -> IO ([Char], GValue)+constructDOMDOMWindowStatus val = constructObjectPropertyString "status" val++data DOMDOMWindowStatusPropertyInfo+instance AttrInfo DOMDOMWindowStatusPropertyInfo where+    type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowStatusPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDOMWindowStatusPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowStatusPropertyInfo = T.Text+    type AttrLabel DOMDOMWindowStatusPropertyInfo = "DOMDOMWindow::status"+    attrGet _ = getDOMDOMWindowStatus+    attrSet _ = setDOMDOMWindowStatus+    attrConstruct _ = constructDOMDOMWindowStatus++-- VVV Prop "top"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMDOMWindowTop :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow+getDOMDOMWindowTop obj = liftIO $ getObjectPropertyObject obj "top" DOMDOMWindow++data DOMDOMWindowTopPropertyInfo+instance AttrInfo DOMDOMWindowTopPropertyInfo where+    type AttrAllowedOps DOMDOMWindowTopPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowTopPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowTopPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowTopPropertyInfo = DOMDOMWindow+    type AttrLabel DOMDOMWindowTopPropertyInfo = "DOMDOMWindow::top"+    attrGet _ = getDOMDOMWindowTop+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "window"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMDOMWindowWindow :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow+getDOMDOMWindowWindow obj = liftIO $ getObjectPropertyObject obj "window" DOMDOMWindow++data DOMDOMWindowWindowPropertyInfo+instance AttrInfo DOMDOMWindowWindowPropertyInfo where+    type AttrAllowedOps DOMDOMWindowWindowPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDOMWindowWindowPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDOMWindowWindowPropertyInfo = DOMDOMWindowK+    type AttrGetType DOMDOMWindowWindowPropertyInfo = DOMDOMWindow+    type AttrLabel DOMDOMWindowWindowPropertyInfo = "DOMDOMWindow::window"+    attrGet _ = getDOMDOMWindowWindow+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMDOMWindow = DOMDOMWindowAttributeList+type DOMDOMWindowAttributeList = ('[ '("closed", DOMDOMWindowClosedPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-status", DOMDOMWindowDefaultStatusPropertyInfo), '("device-pixel-ratio", DOMDOMWindowDevicePixelRatioPropertyInfo), '("document", DOMDOMWindowDocumentPropertyInfo), '("frame-element", DOMDOMWindowFrameElementPropertyInfo), '("frames", DOMDOMWindowFramesPropertyInfo), '("inner-height", DOMDOMWindowInnerHeightPropertyInfo), '("inner-width", DOMDOMWindowInnerWidthPropertyInfo), '("length", DOMDOMWindowLengthPropertyInfo), '("name", DOMDOMWindowNamePropertyInfo), '("offscreen-buffering", DOMDOMWindowOffscreenBufferingPropertyInfo), '("opener", DOMDOMWindowOpenerPropertyInfo), '("outer-height", DOMDOMWindowOuterHeightPropertyInfo), '("outer-width", DOMDOMWindowOuterWidthPropertyInfo), '("page-x-offset", DOMDOMWindowPageXOffsetPropertyInfo), '("page-y-offset", DOMDOMWindowPageYOffsetPropertyInfo), '("parent", DOMDOMWindowParentPropertyInfo), '("screen-left", DOMDOMWindowScreenLeftPropertyInfo), '("screen-top", DOMDOMWindowScreenTopPropertyInfo), '("screen-x", DOMDOMWindowScreenXPropertyInfo), '("screen-y", DOMDOMWindowScreenYPropertyInfo), '("scroll-x", DOMDOMWindowScrollXPropertyInfo), '("scroll-y", DOMDOMWindowScrollYPropertyInfo), '("self", DOMDOMWindowSelfPropertyInfo), '("status", DOMDOMWindowStatusPropertyInfo), '("top", DOMDOMWindowTopPropertyInfo), '("window", DOMDOMWindowWindowPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMDOMWindow = DOMDOMWindowSignalList+type DOMDOMWindowSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMDOMWindow::webkit_message_handlers_post_message+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TBasicType TUTF8, 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 "WebKit2WebExtension" "DOMDOMWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TBasicType TUTF8, 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_webkit_message_handlers_post_message" webkit_dom_dom_window_webkit_message_handlers_post_message :: +    Ptr DOMDOMWindow ->                     -- _obj : TInterface "WebKit2WebExtension" "DOMDOMWindow"+    CString ->                              -- handler : TBasicType TUTF8+    CString ->                              -- message : TBasicType TUTF8+    IO CInt+++dOMDOMWindowWebkitMessageHandlersPostMessage ::+    (MonadIO m, DOMDOMWindowK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- handler+    T.Text ->                               -- message+    m Bool+dOMDOMWindowWebkitMessageHandlersPostMessage _obj handler message = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    handler' <- textToCString handler+    message' <- textToCString message+    result <- webkit_dom_dom_window_webkit_message_handlers_post_message _obj' handler' message'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem handler'+    freeMem message'+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMDOMWindow.hs-boot view
@@ -0,0 +1,40 @@+module GI.WebKit2WebExtension.Objects.DOMDOMWindow where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMDOMWindow = DOMDOMWindow (ForeignPtr DOMDOMWindow)+instance GObject DOMDOMWindow where+class GObject o => DOMDOMWindowK o+instance (GObject o, IsDescendantOf DOMDOMWindow o) => DOMDOMWindowK o+data DOMDOMWindowClosedPropertyInfo+data DOMDOMWindowDefaultStatusPropertyInfo+data DOMDOMWindowDevicePixelRatioPropertyInfo+data DOMDOMWindowDocumentPropertyInfo+data DOMDOMWindowFrameElementPropertyInfo+data DOMDOMWindowFramesPropertyInfo+data DOMDOMWindowInnerHeightPropertyInfo+data DOMDOMWindowInnerWidthPropertyInfo+data DOMDOMWindowLengthPropertyInfo+data DOMDOMWindowNamePropertyInfo+data DOMDOMWindowOffscreenBufferingPropertyInfo+data DOMDOMWindowOpenerPropertyInfo+data DOMDOMWindowOuterHeightPropertyInfo+data DOMDOMWindowOuterWidthPropertyInfo+data DOMDOMWindowPageXOffsetPropertyInfo+data DOMDOMWindowPageYOffsetPropertyInfo+data DOMDOMWindowParentPropertyInfo+data DOMDOMWindowScreenLeftPropertyInfo+data DOMDOMWindowScreenTopPropertyInfo+data DOMDOMWindowScreenXPropertyInfo+data DOMDOMWindowScreenYPropertyInfo+data DOMDOMWindowScrollXPropertyInfo+data DOMDOMWindowScrollYPropertyInfo+data DOMDOMWindowSelfPropertyInfo+data DOMDOMWindowStatusPropertyInfo+data DOMDOMWindowTopPropertyInfo+data DOMDOMWindowWindowPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMDocument.hs view
@@ -0,0 +1,3665 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMDocument+    ( ++-- * Exported types+    DOMDocument(..)                         ,+    DOMDocumentK                            ,+    toDOMDocument                           ,+    noDOMDocument                           ,+++ -- * Methods+-- ** dOMDocumentAdoptNode+    dOMDocumentAdoptNode                    ,+++-- ** dOMDocumentCreateAttribute+    dOMDocumentCreateAttribute              ,+++-- ** dOMDocumentCreateAttributeNs+    dOMDocumentCreateAttributeNs            ,+++-- ** dOMDocumentCreateCdataSection+    dOMDocumentCreateCdataSection           ,+++-- ** dOMDocumentCreateComment+    dOMDocumentCreateComment                ,+++-- ** dOMDocumentCreateCssStyleDeclaration+    dOMDocumentCreateCssStyleDeclaration    ,+++-- ** dOMDocumentCreateDocumentFragment+    dOMDocumentCreateDocumentFragment       ,+++-- ** dOMDocumentCreateElement+    dOMDocumentCreateElement                ,+++-- ** dOMDocumentCreateElementNs+    dOMDocumentCreateElementNs              ,+++-- ** dOMDocumentCreateEntityReference+    dOMDocumentCreateEntityReference        ,+++-- ** dOMDocumentCreateEvent+    dOMDocumentCreateEvent                  ,+++-- ** dOMDocumentCreateExpression+    dOMDocumentCreateExpression             ,+++-- ** dOMDocumentCreateNodeIterator+    dOMDocumentCreateNodeIterator           ,+++-- ** dOMDocumentCreateNsResolver+    dOMDocumentCreateNsResolver             ,+++-- ** dOMDocumentCreateProcessingInstruction+    dOMDocumentCreateProcessingInstruction  ,+++-- ** dOMDocumentCreateRange+    dOMDocumentCreateRange                  ,+++-- ** dOMDocumentCreateTextNode+    dOMDocumentCreateTextNode               ,+++-- ** dOMDocumentCreateTreeWalker+    dOMDocumentCreateTreeWalker             ,+++-- ** dOMDocumentElementFromPoint+    dOMDocumentElementFromPoint             ,+++-- ** dOMDocumentEvaluate+    dOMDocumentEvaluate                     ,+++-- ** dOMDocumentExecCommand+    dOMDocumentExecCommand                  ,+++-- ** dOMDocumentGetActiveElement+    dOMDocumentGetActiveElement             ,+++-- ** dOMDocumentGetAnchors+    dOMDocumentGetAnchors                   ,+++-- ** dOMDocumentGetApplets+    dOMDocumentGetApplets                   ,+++-- ** dOMDocumentGetBody+    dOMDocumentGetBody                      ,+++-- ** dOMDocumentGetCharacterSet+    dOMDocumentGetCharacterSet              ,+++-- ** dOMDocumentGetCharset+    dOMDocumentGetCharset                   ,+++-- ** dOMDocumentGetCookie+    dOMDocumentGetCookie                    ,+++-- ** dOMDocumentGetDefaultCharset+    dOMDocumentGetDefaultCharset            ,+++-- ** dOMDocumentGetDefaultView+    dOMDocumentGetDefaultView               ,+++-- ** dOMDocumentGetDoctype+    dOMDocumentGetDoctype                   ,+++-- ** dOMDocumentGetDocumentElement+    dOMDocumentGetDocumentElement           ,+++-- ** dOMDocumentGetDocumentUri+    dOMDocumentGetDocumentUri               ,+++-- ** dOMDocumentGetDomain+    dOMDocumentGetDomain                    ,+++-- ** dOMDocumentGetElementById+    dOMDocumentGetElementById               ,+++-- ** dOMDocumentGetElementsByClassName+    dOMDocumentGetElementsByClassName       ,+++-- ** dOMDocumentGetElementsByName+    dOMDocumentGetElementsByName            ,+++-- ** dOMDocumentGetElementsByTagName+    dOMDocumentGetElementsByTagName         ,+++-- ** dOMDocumentGetElementsByTagNameNs+    dOMDocumentGetElementsByTagNameNs       ,+++-- ** dOMDocumentGetForms+    dOMDocumentGetForms                     ,+++-- ** dOMDocumentGetHead+    dOMDocumentGetHead                      ,+++-- ** dOMDocumentGetImages+    dOMDocumentGetImages                    ,+++-- ** dOMDocumentGetImplementation+    dOMDocumentGetImplementation            ,+++-- ** dOMDocumentGetInputEncoding+    dOMDocumentGetInputEncoding             ,+++-- ** dOMDocumentGetLastModified+    dOMDocumentGetLastModified              ,+++-- ** dOMDocumentGetLinks+    dOMDocumentGetLinks                     ,+++-- ** dOMDocumentGetOverrideStyle+    dOMDocumentGetOverrideStyle             ,+++-- ** dOMDocumentGetPreferredStylesheetSet+    dOMDocumentGetPreferredStylesheetSet    ,+++-- ** dOMDocumentGetReadyState+    dOMDocumentGetReadyState                ,+++-- ** dOMDocumentGetReferrer+    dOMDocumentGetReferrer                  ,+++-- ** dOMDocumentGetSelectedStylesheetSet+    dOMDocumentGetSelectedStylesheetSet     ,+++-- ** dOMDocumentGetStyleSheets+    dOMDocumentGetStyleSheets               ,+++-- ** dOMDocumentGetTitle+    dOMDocumentGetTitle                     ,+++-- ** dOMDocumentGetUrl+    dOMDocumentGetUrl                       ,+++-- ** dOMDocumentGetXmlEncoding+    dOMDocumentGetXmlEncoding               ,+++-- ** dOMDocumentGetXmlStandalone+    dOMDocumentGetXmlStandalone             ,+++-- ** dOMDocumentGetXmlVersion+    dOMDocumentGetXmlVersion                ,+++-- ** dOMDocumentHasFocus+    dOMDocumentHasFocus                     ,+++-- ** dOMDocumentImportNode+    dOMDocumentImportNode                   ,+++-- ** dOMDocumentQueryCommandEnabled+    dOMDocumentQueryCommandEnabled          ,+++-- ** dOMDocumentQueryCommandIndeterm+    dOMDocumentQueryCommandIndeterm         ,+++-- ** dOMDocumentQueryCommandState+    dOMDocumentQueryCommandState            ,+++-- ** dOMDocumentQueryCommandSupported+    dOMDocumentQueryCommandSupported        ,+++-- ** dOMDocumentQueryCommandValue+    dOMDocumentQueryCommandValue            ,+++-- ** dOMDocumentQuerySelector+    dOMDocumentQuerySelector                ,+++-- ** dOMDocumentQuerySelectorAll+    dOMDocumentQuerySelectorAll             ,+++-- ** dOMDocumentSetBody+    dOMDocumentSetBody                      ,+++-- ** dOMDocumentSetCharset+    dOMDocumentSetCharset                   ,+++-- ** dOMDocumentSetCookie+    dOMDocumentSetCookie                    ,+++-- ** dOMDocumentSetDocumentUri+    dOMDocumentSetDocumentUri               ,+++-- ** dOMDocumentSetSelectedStylesheetSet+    dOMDocumentSetSelectedStylesheetSet     ,+++-- ** dOMDocumentSetTitle+    dOMDocumentSetTitle                     ,+++-- ** dOMDocumentSetXmlStandalone+    dOMDocumentSetXmlStandalone             ,+++-- ** dOMDocumentSetXmlVersion+    dOMDocumentSetXmlVersion                ,+++++ -- * Properties+-- ** ActiveElement+    DOMDocumentActiveElementPropertyInfo    ,+    getDOMDocumentActiveElement             ,+++-- ** Anchors+    DOMDocumentAnchorsPropertyInfo          ,+    getDOMDocumentAnchors                   ,+++-- ** Applets+    DOMDocumentAppletsPropertyInfo          ,+    getDOMDocumentApplets                   ,+++-- ** Body+    DOMDocumentBodyPropertyInfo             ,+    getDOMDocumentBody                      ,+++-- ** CharacterSet+    DOMDocumentCharacterSetPropertyInfo     ,+    getDOMDocumentCharacterSet              ,+++-- ** Charset+    DOMDocumentCharsetPropertyInfo          ,+    constructDOMDocumentCharset             ,+    getDOMDocumentCharset                   ,+    setDOMDocumentCharset                   ,+++-- ** CompatMode+    DOMDocumentCompatModePropertyInfo       ,+    getDOMDocumentCompatMode                ,+++-- ** ContentType+    DOMDocumentContentTypePropertyInfo      ,+    getDOMDocumentContentType               ,+++-- ** Cookie+    DOMDocumentCookiePropertyInfo           ,+    constructDOMDocumentCookie              ,+    getDOMDocumentCookie                    ,+    setDOMDocumentCookie                    ,+++-- ** CurrentScript+    DOMDocumentCurrentScriptPropertyInfo    ,+    getDOMDocumentCurrentScript             ,+++-- ** DefaultCharset+    DOMDocumentDefaultCharsetPropertyInfo   ,+    getDOMDocumentDefaultCharset            ,+++-- ** DefaultView+    DOMDocumentDefaultViewPropertyInfo      ,+    getDOMDocumentDefaultView               ,+++-- ** Doctype+    DOMDocumentDoctypePropertyInfo          ,+    getDOMDocumentDoctype                   ,+++-- ** DocumentElement+    DOMDocumentDocumentElementPropertyInfo  ,+    getDOMDocumentDocumentElement           ,+++-- ** DocumentUri+    DOMDocumentDocumentUriPropertyInfo      ,+    constructDOMDocumentDocumentUri         ,+    getDOMDocumentDocumentUri               ,+    setDOMDocumentDocumentUri               ,+++-- ** Domain+    DOMDocumentDomainPropertyInfo           ,+    getDOMDocumentDomain                    ,+++-- ** Forms+    DOMDocumentFormsPropertyInfo            ,+    getDOMDocumentForms                     ,+++-- ** Head+    DOMDocumentHeadPropertyInfo             ,+    getDOMDocumentHead                      ,+++-- ** Hidden+    DOMDocumentHiddenPropertyInfo           ,+    getDOMDocumentHidden                    ,+++-- ** Images+    DOMDocumentImagesPropertyInfo           ,+    getDOMDocumentImages                    ,+++-- ** Implementation+    DOMDocumentImplementationPropertyInfo   ,+    getDOMDocumentImplementation            ,+++-- ** InputEncoding+    DOMDocumentInputEncodingPropertyInfo    ,+    getDOMDocumentInputEncoding             ,+++-- ** LastModified+    DOMDocumentLastModifiedPropertyInfo     ,+    getDOMDocumentLastModified              ,+++-- ** Links+    DOMDocumentLinksPropertyInfo            ,+    getDOMDocumentLinks                     ,+++-- ** Origin+    DOMDocumentOriginPropertyInfo           ,+    getDOMDocumentOrigin                    ,+++-- ** PointerLockElement+    DOMDocumentPointerLockElementPropertyInfo,+    getDOMDocumentPointerLockElement        ,+++-- ** PreferredStylesheetSet+    DOMDocumentPreferredStylesheetSetPropertyInfo,+    getDOMDocumentPreferredStylesheetSet    ,+++-- ** ReadyState+    DOMDocumentReadyStatePropertyInfo       ,+    getDOMDocumentReadyState                ,+++-- ** Referrer+    DOMDocumentReferrerPropertyInfo         ,+    getDOMDocumentReferrer                  ,+++-- ** SelectedStylesheetSet+    DOMDocumentSelectedStylesheetSetPropertyInfo,+    constructDOMDocumentSelectedStylesheetSet,+    getDOMDocumentSelectedStylesheetSet     ,+    setDOMDocumentSelectedStylesheetSet     ,+++-- ** StyleSheets+    DOMDocumentStyleSheetsPropertyInfo      ,+    getDOMDocumentStyleSheets               ,+++-- ** Title+    DOMDocumentTitlePropertyInfo            ,+    constructDOMDocumentTitle               ,+    getDOMDocumentTitle                     ,+    setDOMDocumentTitle                     ,+++-- ** Url+    DOMDocumentUrlPropertyInfo              ,+    getDOMDocumentUrl                       ,+++-- ** VisibilityState+    DOMDocumentVisibilityStatePropertyInfo  ,+    getDOMDocumentVisibilityState           ,+++-- ** WebkitCurrentFullScreenElement+    DOMDocumentWebkitCurrentFullScreenElementPropertyInfo,+    getDOMDocumentWebkitCurrentFullScreenElement,+++-- ** WebkitFullScreenKeyboardInputAllowed+    DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo,+    getDOMDocumentWebkitFullScreenKeyboardInputAllowed,+++-- ** WebkitFullscreenElement+    DOMDocumentWebkitFullscreenElementPropertyInfo,+    getDOMDocumentWebkitFullscreenElement   ,+++-- ** WebkitFullscreenEnabled+    DOMDocumentWebkitFullscreenEnabledPropertyInfo,+    getDOMDocumentWebkitFullscreenEnabled   ,+++-- ** WebkitIsFullScreen+    DOMDocumentWebkitIsFullScreenPropertyInfo,+    getDOMDocumentWebkitIsFullScreen        ,+++-- ** XmlEncoding+    DOMDocumentXmlEncodingPropertyInfo      ,+    getDOMDocumentXmlEncoding               ,+++-- ** XmlStandalone+    DOMDocumentXmlStandalonePropertyInfo    ,+    constructDOMDocumentXmlStandalone       ,+    getDOMDocumentXmlStandalone             ,+    setDOMDocumentXmlStandalone             ,+++-- ** XmlVersion+    DOMDocumentXmlVersionPropertyInfo       ,+    constructDOMDocumentXmlVersion          ,+    getDOMDocumentXmlVersion                ,+    setDOMDocumentXmlVersion                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMDocument = DOMDocument (ForeignPtr DOMDocument)+foreign import ccall "webkit_dom_document_get_type"+    c_webkit_dom_document_get_type :: IO GType++type instance ParentTypes DOMDocument = DOMDocumentParentTypes+type DOMDocumentParentTypes = '[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++noDOMDocument :: Maybe DOMDocument+noDOMDocument = Nothing++-- VVV Prop "active-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMDocumentActiveElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement+getDOMDocumentActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement++data DOMDocumentActiveElementPropertyInfo+instance AttrInfo DOMDocumentActiveElementPropertyInfo where+    type AttrAllowedOps DOMDocumentActiveElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentActiveElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentActiveElementPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentActiveElementPropertyInfo = DOMElement+    type AttrLabel DOMDocumentActiveElementPropertyInfo = "DOMDocument::active-element"+    attrGet _ = getDOMDocumentActiveElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "anchors"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMDocumentAnchors :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection+getDOMDocumentAnchors obj = liftIO $ getObjectPropertyObject obj "anchors" DOMHTMLCollection++data DOMDocumentAnchorsPropertyInfo+instance AttrInfo DOMDocumentAnchorsPropertyInfo where+    type AttrAllowedOps DOMDocumentAnchorsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentAnchorsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentAnchorsPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentAnchorsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMDocumentAnchorsPropertyInfo = "DOMDocument::anchors"+    attrGet _ = getDOMDocumentAnchors+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "applets"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMDocumentApplets :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection+getDOMDocumentApplets obj = liftIO $ getObjectPropertyObject obj "applets" DOMHTMLCollection++data DOMDocumentAppletsPropertyInfo+instance AttrInfo DOMDocumentAppletsPropertyInfo where+    type AttrAllowedOps DOMDocumentAppletsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentAppletsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentAppletsPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentAppletsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMDocumentAppletsPropertyInfo = "DOMDocument::applets"+    attrGet _ = getDOMDocumentApplets+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "body"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLElement"+   -- Flags: [PropertyReadable]++getDOMDocumentBody :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLElement+getDOMDocumentBody obj = liftIO $ getObjectPropertyObject obj "body" DOMHTMLElement++data DOMDocumentBodyPropertyInfo+instance AttrInfo DOMDocumentBodyPropertyInfo where+    type AttrAllowedOps DOMDocumentBodyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentBodyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentBodyPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentBodyPropertyInfo = DOMHTMLElement+    type AttrLabel DOMDocumentBodyPropertyInfo = "DOMDocument::body"+    attrGet _ = getDOMDocumentBody+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "character-set"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentCharacterSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentCharacterSet obj = liftIO $ getObjectPropertyString obj "character-set"++data DOMDocumentCharacterSetPropertyInfo+instance AttrInfo DOMDocumentCharacterSetPropertyInfo where+    type AttrAllowedOps DOMDocumentCharacterSetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentCharacterSetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentCharacterSetPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentCharacterSetPropertyInfo = T.Text+    type AttrLabel DOMDocumentCharacterSetPropertyInfo = "DOMDocument::character-set"+    attrGet _ = getDOMDocumentCharacterSet+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "charset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentCharset obj = liftIO $ getObjectPropertyString obj "charset"++setDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m ()+setDOMDocumentCharset obj val = liftIO $ setObjectPropertyString obj "charset" val++constructDOMDocumentCharset :: T.Text -> IO ([Char], GValue)+constructDOMDocumentCharset val = constructObjectPropertyString "charset" val++data DOMDocumentCharsetPropertyInfo+instance AttrInfo DOMDocumentCharsetPropertyInfo where+    type AttrAllowedOps DOMDocumentCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentCharsetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDocumentCharsetPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentCharsetPropertyInfo = T.Text+    type AttrLabel DOMDocumentCharsetPropertyInfo = "DOMDocument::charset"+    attrGet _ = getDOMDocumentCharset+    attrSet _ = setDOMDocumentCharset+    attrConstruct _ = constructDOMDocumentCharset++-- VVV Prop "compat-mode"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentCompatMode :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode"++data DOMDocumentCompatModePropertyInfo+instance AttrInfo DOMDocumentCompatModePropertyInfo where+    type AttrAllowedOps DOMDocumentCompatModePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentCompatModePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentCompatModePropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentCompatModePropertyInfo = T.Text+    type AttrLabel DOMDocumentCompatModePropertyInfo = "DOMDocument::compat-mode"+    attrGet _ = getDOMDocumentCompatMode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "content-type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentContentType :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentContentType obj = liftIO $ getObjectPropertyString obj "content-type"++data DOMDocumentContentTypePropertyInfo+instance AttrInfo DOMDocumentContentTypePropertyInfo where+    type AttrAllowedOps DOMDocumentContentTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentContentTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentContentTypePropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentContentTypePropertyInfo = T.Text+    type AttrLabel DOMDocumentContentTypePropertyInfo = "DOMDocument::content-type"+    attrGet _ = getDOMDocumentContentType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "cookie"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentCookie obj = liftIO $ getObjectPropertyString obj "cookie"++setDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m ()+setDOMDocumentCookie obj val = liftIO $ setObjectPropertyString obj "cookie" val++constructDOMDocumentCookie :: T.Text -> IO ([Char], GValue)+constructDOMDocumentCookie val = constructObjectPropertyString "cookie" val++data DOMDocumentCookiePropertyInfo+instance AttrInfo DOMDocumentCookiePropertyInfo where+    type AttrAllowedOps DOMDocumentCookiePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentCookiePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDocumentCookiePropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentCookiePropertyInfo = T.Text+    type AttrLabel DOMDocumentCookiePropertyInfo = "DOMDocument::cookie"+    attrGet _ = getDOMDocumentCookie+    attrSet _ = setDOMDocumentCookie+    attrConstruct _ = constructDOMDocumentCookie++-- VVV Prop "current-script"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLScriptElement"+   -- Flags: [PropertyReadable]++getDOMDocumentCurrentScript :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLScriptElement+getDOMDocumentCurrentScript obj = liftIO $ getObjectPropertyObject obj "current-script" DOMHTMLScriptElement++data DOMDocumentCurrentScriptPropertyInfo+instance AttrInfo DOMDocumentCurrentScriptPropertyInfo where+    type AttrAllowedOps DOMDocumentCurrentScriptPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentCurrentScriptPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentCurrentScriptPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentCurrentScriptPropertyInfo = DOMHTMLScriptElement+    type AttrLabel DOMDocumentCurrentScriptPropertyInfo = "DOMDocument::current-script"+    attrGet _ = getDOMDocumentCurrentScript+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "default-charset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentDefaultCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset"++data DOMDocumentDefaultCharsetPropertyInfo+instance AttrInfo DOMDocumentDefaultCharsetPropertyInfo where+    type AttrAllowedOps DOMDocumentDefaultCharsetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentDefaultCharsetPropertyInfo = T.Text+    type AttrLabel DOMDocumentDefaultCharsetPropertyInfo = "DOMDocument::default-charset"+    attrGet _ = getDOMDocumentDefaultCharset+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "default-view"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMDocumentDefaultView :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMWindow+getDOMDocumentDefaultView obj = liftIO $ getObjectPropertyObject obj "default-view" DOMDOMWindow++data DOMDocumentDefaultViewPropertyInfo+instance AttrInfo DOMDocumentDefaultViewPropertyInfo where+    type AttrAllowedOps DOMDocumentDefaultViewPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentDefaultViewPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentDefaultViewPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentDefaultViewPropertyInfo = DOMDOMWindow+    type AttrLabel DOMDocumentDefaultViewPropertyInfo = "DOMDocument::default-view"+    attrGet _ = getDOMDocumentDefaultView+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "doctype"+   -- Type: TInterface "WebKit2WebExtension" "DOMDocumentType"+   -- Flags: [PropertyReadable]++getDOMDocumentDoctype :: (MonadIO m, DOMDocumentK o) => o -> m DOMDocumentType+getDOMDocumentDoctype obj = liftIO $ getObjectPropertyObject obj "doctype" DOMDocumentType++data DOMDocumentDoctypePropertyInfo+instance AttrInfo DOMDocumentDoctypePropertyInfo where+    type AttrAllowedOps DOMDocumentDoctypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentDoctypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentDoctypePropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentDoctypePropertyInfo = DOMDocumentType+    type AttrLabel DOMDocumentDoctypePropertyInfo = "DOMDocument::doctype"+    attrGet _ = getDOMDocumentDoctype+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "document-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMDocumentDocumentElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement+getDOMDocumentDocumentElement obj = liftIO $ getObjectPropertyObject obj "document-element" DOMElement++data DOMDocumentDocumentElementPropertyInfo+instance AttrInfo DOMDocumentDocumentElementPropertyInfo where+    type AttrAllowedOps DOMDocumentDocumentElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentDocumentElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentDocumentElementPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentDocumentElementPropertyInfo = DOMElement+    type AttrLabel DOMDocumentDocumentElementPropertyInfo = "DOMDocument::document-element"+    attrGet _ = getDOMDocumentDocumentElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "document-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentDocumentUri obj = liftIO $ getObjectPropertyString obj "document-uri"++setDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m ()+setDOMDocumentDocumentUri obj val = liftIO $ setObjectPropertyString obj "document-uri" val++constructDOMDocumentDocumentUri :: T.Text -> IO ([Char], GValue)+constructDOMDocumentDocumentUri val = constructObjectPropertyString "document-uri" val++data DOMDocumentDocumentUriPropertyInfo+instance AttrInfo DOMDocumentDocumentUriPropertyInfo where+    type AttrAllowedOps DOMDocumentDocumentUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentDocumentUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDocumentDocumentUriPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentDocumentUriPropertyInfo = T.Text+    type AttrLabel DOMDocumentDocumentUriPropertyInfo = "DOMDocument::document-uri"+    attrGet _ = getDOMDocumentDocumentUri+    attrSet _ = setDOMDocumentDocumentUri+    attrConstruct _ = constructDOMDocumentDocumentUri++-- VVV Prop "domain"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentDomain :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentDomain obj = liftIO $ getObjectPropertyString obj "domain"++data DOMDocumentDomainPropertyInfo+instance AttrInfo DOMDocumentDomainPropertyInfo where+    type AttrAllowedOps DOMDocumentDomainPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentDomainPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentDomainPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentDomainPropertyInfo = T.Text+    type AttrLabel DOMDocumentDomainPropertyInfo = "DOMDocument::domain"+    attrGet _ = getDOMDocumentDomain+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "forms"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMDocumentForms :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection+getDOMDocumentForms obj = liftIO $ getObjectPropertyObject obj "forms" DOMHTMLCollection++data DOMDocumentFormsPropertyInfo+instance AttrInfo DOMDocumentFormsPropertyInfo where+    type AttrAllowedOps DOMDocumentFormsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentFormsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentFormsPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentFormsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMDocumentFormsPropertyInfo = "DOMDocument::forms"+    attrGet _ = getDOMDocumentForms+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "head"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLHeadElement"+   -- Flags: [PropertyReadable]++getDOMDocumentHead :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLHeadElement+getDOMDocumentHead obj = liftIO $ getObjectPropertyObject obj "head" DOMHTMLHeadElement++data DOMDocumentHeadPropertyInfo+instance AttrInfo DOMDocumentHeadPropertyInfo where+    type AttrAllowedOps DOMDocumentHeadPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentHeadPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentHeadPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentHeadPropertyInfo = DOMHTMLHeadElement+    type AttrLabel DOMDocumentHeadPropertyInfo = "DOMDocument::head"+    attrGet _ = getDOMDocumentHead+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "hidden"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMDocumentHidden :: (MonadIO m, DOMDocumentK o) => o -> m Bool+getDOMDocumentHidden obj = liftIO $ getObjectPropertyBool obj "hidden"++data DOMDocumentHiddenPropertyInfo+instance AttrInfo DOMDocumentHiddenPropertyInfo where+    type AttrAllowedOps DOMDocumentHiddenPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentHiddenPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentHiddenPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentHiddenPropertyInfo = Bool+    type AttrLabel DOMDocumentHiddenPropertyInfo = "DOMDocument::hidden"+    attrGet _ = getDOMDocumentHidden+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "images"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMDocumentImages :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection+getDOMDocumentImages obj = liftIO $ getObjectPropertyObject obj "images" DOMHTMLCollection++data DOMDocumentImagesPropertyInfo+instance AttrInfo DOMDocumentImagesPropertyInfo where+    type AttrAllowedOps DOMDocumentImagesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentImagesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentImagesPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentImagesPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMDocumentImagesPropertyInfo = "DOMDocument::images"+    attrGet _ = getDOMDocumentImages+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "implementation"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMImplementation"+   -- Flags: [PropertyReadable]++getDOMDocumentImplementation :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMImplementation+getDOMDocumentImplementation obj = liftIO $ getObjectPropertyObject obj "implementation" DOMDOMImplementation++data DOMDocumentImplementationPropertyInfo+instance AttrInfo DOMDocumentImplementationPropertyInfo where+    type AttrAllowedOps DOMDocumentImplementationPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentImplementationPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentImplementationPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentImplementationPropertyInfo = DOMDOMImplementation+    type AttrLabel DOMDocumentImplementationPropertyInfo = "DOMDocument::implementation"+    attrGet _ = getDOMDocumentImplementation+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "input-encoding"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentInputEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentInputEncoding obj = liftIO $ getObjectPropertyString obj "input-encoding"++data DOMDocumentInputEncodingPropertyInfo+instance AttrInfo DOMDocumentInputEncodingPropertyInfo where+    type AttrAllowedOps DOMDocumentInputEncodingPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentInputEncodingPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentInputEncodingPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentInputEncodingPropertyInfo = T.Text+    type AttrLabel DOMDocumentInputEncodingPropertyInfo = "DOMDocument::input-encoding"+    attrGet _ = getDOMDocumentInputEncoding+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "last-modified"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentLastModified :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentLastModified obj = liftIO $ getObjectPropertyString obj "last-modified"++data DOMDocumentLastModifiedPropertyInfo+instance AttrInfo DOMDocumentLastModifiedPropertyInfo where+    type AttrAllowedOps DOMDocumentLastModifiedPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentLastModifiedPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentLastModifiedPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentLastModifiedPropertyInfo = T.Text+    type AttrLabel DOMDocumentLastModifiedPropertyInfo = "DOMDocument::last-modified"+    attrGet _ = getDOMDocumentLastModified+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "links"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMDocumentLinks :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection+getDOMDocumentLinks obj = liftIO $ getObjectPropertyObject obj "links" DOMHTMLCollection++data DOMDocumentLinksPropertyInfo+instance AttrInfo DOMDocumentLinksPropertyInfo where+    type AttrAllowedOps DOMDocumentLinksPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentLinksPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentLinksPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentLinksPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMDocumentLinksPropertyInfo = "DOMDocument::links"+    attrGet _ = getDOMDocumentLinks+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "origin"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentOrigin :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentOrigin obj = liftIO $ getObjectPropertyString obj "origin"++data DOMDocumentOriginPropertyInfo+instance AttrInfo DOMDocumentOriginPropertyInfo where+    type AttrAllowedOps DOMDocumentOriginPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentOriginPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentOriginPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentOriginPropertyInfo = T.Text+    type AttrLabel DOMDocumentOriginPropertyInfo = "DOMDocument::origin"+    attrGet _ = getDOMDocumentOrigin+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "pointer-lock-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMDocumentPointerLockElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement+getDOMDocumentPointerLockElement obj = liftIO $ getObjectPropertyObject obj "pointer-lock-element" DOMElement++data DOMDocumentPointerLockElementPropertyInfo+instance AttrInfo DOMDocumentPointerLockElementPropertyInfo where+    type AttrAllowedOps DOMDocumentPointerLockElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentPointerLockElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentPointerLockElementPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentPointerLockElementPropertyInfo = DOMElement+    type AttrLabel DOMDocumentPointerLockElementPropertyInfo = "DOMDocument::pointer-lock-element"+    attrGet _ = getDOMDocumentPointerLockElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "preferred-stylesheet-set"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentPreferredStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentPreferredStylesheetSet obj = liftIO $ getObjectPropertyString obj "preferred-stylesheet-set"++data DOMDocumentPreferredStylesheetSetPropertyInfo+instance AttrInfo DOMDocumentPreferredStylesheetSetPropertyInfo where+    type AttrAllowedOps DOMDocumentPreferredStylesheetSetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentPreferredStylesheetSetPropertyInfo = T.Text+    type AttrLabel DOMDocumentPreferredStylesheetSetPropertyInfo = "DOMDocument::preferred-stylesheet-set"+    attrGet _ = getDOMDocumentPreferredStylesheetSet+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "ready-state"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentReadyState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentReadyState obj = liftIO $ getObjectPropertyString obj "ready-state"++data DOMDocumentReadyStatePropertyInfo+instance AttrInfo DOMDocumentReadyStatePropertyInfo where+    type AttrAllowedOps DOMDocumentReadyStatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentReadyStatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentReadyStatePropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentReadyStatePropertyInfo = T.Text+    type AttrLabel DOMDocumentReadyStatePropertyInfo = "DOMDocument::ready-state"+    attrGet _ = getDOMDocumentReadyState+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "referrer"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentReferrer :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentReferrer obj = liftIO $ getObjectPropertyString obj "referrer"++data DOMDocumentReferrerPropertyInfo+instance AttrInfo DOMDocumentReferrerPropertyInfo where+    type AttrAllowedOps DOMDocumentReferrerPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentReferrerPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentReferrerPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentReferrerPropertyInfo = T.Text+    type AttrLabel DOMDocumentReferrerPropertyInfo = "DOMDocument::referrer"+    attrGet _ = getDOMDocumentReferrer+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "selected-stylesheet-set"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentSelectedStylesheetSet obj = liftIO $ getObjectPropertyString obj "selected-stylesheet-set"++setDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m ()+setDOMDocumentSelectedStylesheetSet obj val = liftIO $ setObjectPropertyString obj "selected-stylesheet-set" val++constructDOMDocumentSelectedStylesheetSet :: T.Text -> IO ([Char], GValue)+constructDOMDocumentSelectedStylesheetSet val = constructObjectPropertyString "selected-stylesheet-set" val++data DOMDocumentSelectedStylesheetSetPropertyInfo+instance AttrInfo DOMDocumentSelectedStylesheetSetPropertyInfo where+    type AttrAllowedOps DOMDocumentSelectedStylesheetSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentSelectedStylesheetSetPropertyInfo = T.Text+    type AttrLabel DOMDocumentSelectedStylesheetSetPropertyInfo = "DOMDocument::selected-stylesheet-set"+    attrGet _ = getDOMDocumentSelectedStylesheetSet+    attrSet _ = setDOMDocumentSelectedStylesheetSet+    attrConstruct _ = constructDOMDocumentSelectedStylesheetSet++-- VVV Prop "style-sheets"+   -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheetList"+   -- Flags: [PropertyReadable]++getDOMDocumentStyleSheets :: (MonadIO m, DOMDocumentK o) => o -> m DOMStyleSheetList+getDOMDocumentStyleSheets obj = liftIO $ getObjectPropertyObject obj "style-sheets" DOMStyleSheetList++data DOMDocumentStyleSheetsPropertyInfo+instance AttrInfo DOMDocumentStyleSheetsPropertyInfo where+    type AttrAllowedOps DOMDocumentStyleSheetsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentStyleSheetsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentStyleSheetsPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentStyleSheetsPropertyInfo = DOMStyleSheetList+    type AttrLabel DOMDocumentStyleSheetsPropertyInfo = "DOMDocument::style-sheets"+    attrGet _ = getDOMDocumentStyleSheets+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentTitle obj = liftIO $ getObjectPropertyString obj "title"++setDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m ()+setDOMDocumentTitle obj val = liftIO $ setObjectPropertyString obj "title" val++constructDOMDocumentTitle :: T.Text -> IO ([Char], GValue)+constructDOMDocumentTitle val = constructObjectPropertyString "title" val++data DOMDocumentTitlePropertyInfo+instance AttrInfo DOMDocumentTitlePropertyInfo where+    type AttrAllowedOps DOMDocumentTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentTitlePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDocumentTitlePropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentTitlePropertyInfo = T.Text+    type AttrLabel DOMDocumentTitlePropertyInfo = "DOMDocument::title"+    attrGet _ = getDOMDocumentTitle+    attrSet _ = setDOMDocumentTitle+    attrConstruct _ = constructDOMDocumentTitle++-- VVV Prop "url"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentUrl :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentUrl obj = liftIO $ getObjectPropertyString obj "url"++data DOMDocumentUrlPropertyInfo+instance AttrInfo DOMDocumentUrlPropertyInfo where+    type AttrAllowedOps DOMDocumentUrlPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentUrlPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentUrlPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentUrlPropertyInfo = T.Text+    type AttrLabel DOMDocumentUrlPropertyInfo = "DOMDocument::url"+    attrGet _ = getDOMDocumentUrl+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "visibility-state"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentVisibilityState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentVisibilityState obj = liftIO $ getObjectPropertyString obj "visibility-state"++data DOMDocumentVisibilityStatePropertyInfo+instance AttrInfo DOMDocumentVisibilityStatePropertyInfo where+    type AttrAllowedOps DOMDocumentVisibilityStatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentVisibilityStatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentVisibilityStatePropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentVisibilityStatePropertyInfo = T.Text+    type AttrLabel DOMDocumentVisibilityStatePropertyInfo = "DOMDocument::visibility-state"+    attrGet _ = getDOMDocumentVisibilityState+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "webkit-current-full-screen-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement+getDOMDocumentWebkitCurrentFullScreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-current-full-screen-element" DOMElement++data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo+instance AttrInfo DOMDocumentWebkitCurrentFullScreenElementPropertyInfo where+    type AttrAllowedOps DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMElement+    type AttrLabel DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = "DOMDocument::webkit-current-full-screen-element"+    attrGet _ = getDOMDocumentWebkitCurrentFullScreenElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "webkit-full-screen-keyboard-input-allowed"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: (MonadIO m, DOMDocumentK o) => o -> m Bool+getDOMDocumentWebkitFullScreenKeyboardInputAllowed obj = liftIO $ getObjectPropertyBool obj "webkit-full-screen-keyboard-input-allowed"++data DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo+instance AttrInfo DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo where+    type AttrAllowedOps DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = Bool+    type AttrLabel DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = "DOMDocument::webkit-full-screen-keyboard-input-allowed"+    attrGet _ = getDOMDocumentWebkitFullScreenKeyboardInputAllowed+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "webkit-fullscreen-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMDocumentWebkitFullscreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement+getDOMDocumentWebkitFullscreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-fullscreen-element" DOMElement++data DOMDocumentWebkitFullscreenElementPropertyInfo+instance AttrInfo DOMDocumentWebkitFullscreenElementPropertyInfo where+    type AttrAllowedOps DOMDocumentWebkitFullscreenElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentWebkitFullscreenElementPropertyInfo = DOMElement+    type AttrLabel DOMDocumentWebkitFullscreenElementPropertyInfo = "DOMDocument::webkit-fullscreen-element"+    attrGet _ = getDOMDocumentWebkitFullscreenElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "webkit-fullscreen-enabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMDocumentWebkitFullscreenEnabled :: (MonadIO m, DOMDocumentK o) => o -> m Bool+getDOMDocumentWebkitFullscreenEnabled obj = liftIO $ getObjectPropertyBool obj "webkit-fullscreen-enabled"++data DOMDocumentWebkitFullscreenEnabledPropertyInfo+instance AttrInfo DOMDocumentWebkitFullscreenEnabledPropertyInfo where+    type AttrAllowedOps DOMDocumentWebkitFullscreenEnabledPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentWebkitFullscreenEnabledPropertyInfo = Bool+    type AttrLabel DOMDocumentWebkitFullscreenEnabledPropertyInfo = "DOMDocument::webkit-fullscreen-enabled"+    attrGet _ = getDOMDocumentWebkitFullscreenEnabled+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "webkit-is-full-screen"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMDocumentWebkitIsFullScreen :: (MonadIO m, DOMDocumentK o) => o -> m Bool+getDOMDocumentWebkitIsFullScreen obj = liftIO $ getObjectPropertyBool obj "webkit-is-full-screen"++data DOMDocumentWebkitIsFullScreenPropertyInfo+instance AttrInfo DOMDocumentWebkitIsFullScreenPropertyInfo where+    type AttrAllowedOps DOMDocumentWebkitIsFullScreenPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentWebkitIsFullScreenPropertyInfo = Bool+    type AttrLabel DOMDocumentWebkitIsFullScreenPropertyInfo = "DOMDocument::webkit-is-full-screen"+    attrGet _ = getDOMDocumentWebkitIsFullScreen+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "xml-encoding"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentXmlEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentXmlEncoding obj = liftIO $ getObjectPropertyString obj "xml-encoding"++data DOMDocumentXmlEncodingPropertyInfo+instance AttrInfo DOMDocumentXmlEncodingPropertyInfo where+    type AttrAllowedOps DOMDocumentXmlEncodingPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentXmlEncodingPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentXmlEncodingPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentXmlEncodingPropertyInfo = T.Text+    type AttrLabel DOMDocumentXmlEncodingPropertyInfo = "DOMDocument::xml-encoding"+    attrGet _ = getDOMDocumentXmlEncoding+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "xml-standalone"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> m Bool+getDOMDocumentXmlStandalone obj = liftIO $ getObjectPropertyBool obj "xml-standalone"++setDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> Bool -> m ()+setDOMDocumentXmlStandalone obj val = liftIO $ setObjectPropertyBool obj "xml-standalone" val++constructDOMDocumentXmlStandalone :: Bool -> IO ([Char], GValue)+constructDOMDocumentXmlStandalone val = constructObjectPropertyBool "xml-standalone" val++data DOMDocumentXmlStandalonePropertyInfo+instance AttrInfo DOMDocumentXmlStandalonePropertyInfo where+    type AttrAllowedOps DOMDocumentXmlStandalonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentXmlStandalonePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMDocumentXmlStandalonePropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentXmlStandalonePropertyInfo = Bool+    type AttrLabel DOMDocumentXmlStandalonePropertyInfo = "DOMDocument::xml-standalone"+    attrGet _ = getDOMDocumentXmlStandalone+    attrSet _ = setDOMDocumentXmlStandalone+    attrConstruct _ = constructDOMDocumentXmlStandalone++-- VVV Prop "xml-version"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m T.Text+getDOMDocumentXmlVersion obj = liftIO $ getObjectPropertyString obj "xml-version"++setDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m ()+setDOMDocumentXmlVersion obj val = liftIO $ setObjectPropertyString obj "xml-version" val++constructDOMDocumentXmlVersion :: T.Text -> IO ([Char], GValue)+constructDOMDocumentXmlVersion val = constructObjectPropertyString "xml-version" val++data DOMDocumentXmlVersionPropertyInfo+instance AttrInfo DOMDocumentXmlVersionPropertyInfo where+    type AttrAllowedOps DOMDocumentXmlVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentXmlVersionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMDocumentXmlVersionPropertyInfo = DOMDocumentK+    type AttrGetType DOMDocumentXmlVersionPropertyInfo = T.Text+    type AttrLabel DOMDocumentXmlVersionPropertyInfo = "DOMDocument::xml-version"+    attrGet _ = getDOMDocumentXmlVersion+    attrSet _ = setDOMDocumentXmlVersion+    attrConstruct _ = constructDOMDocumentXmlVersion++type instance AttributeList DOMDocument = DOMDocumentAttributeList+type DOMDocumentAttributeList = ('[ '("active-element", DOMDocumentActiveElementPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("compat-mode", DOMDocumentCompatModePropertyInfo), '("content-type", DOMDocumentContentTypePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pointer-lock-element", DOMDocumentPointerLockElementPropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMDocument = DOMDocumentSignalList+type DOMDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMDocument::adopt_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMNode"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_document_adopt_node" webkit_dom_document_adopt_node :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "DOMDocument"+    Ptr DOMNode ->                          -- source : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_adopt_node" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        touchManagedPtr source+        return result'+     ) (do+        return ()+     )++-- method DOMDocument::create_attribute+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMAttr"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_document_create_attribute" webkit_dom_document_create_attribute :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_create_attribute" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_create_attribute_ns" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_'+        checkUnexpectedReturnNULL "webkit_dom_document_create_cdata_section" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMComment"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_create_comment" webkit_dom_document_create_comment :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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_'+    checkUnexpectedReturnNULL "webkit_dom_document_create_comment" result+    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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_create_css_style_declaration" result+    result' <- (wrapObject DOMCSSStyleDeclaration) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::create_document_fragment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_create_document_fragment" result+    result' <- (newObject DOMDocumentFragment) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::create_element+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_document_create_element" webkit_dom_document_create_element :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_create_element" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_create_element_ns" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_document_create_entity_reference" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEvent"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_document_create_event" webkit_dom_document_create_event :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_create_event" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathNSResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMXPathExpression"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_document_create_expression" webkit_dom_document_create_expression :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "DOMDocument"+    CString ->                              -- expression : TBasicType TUTF8+    Ptr DOMXPathNSResolver ->               -- resolver : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_create_expression" result+        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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, 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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, 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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument"+    Ptr DOMNode ->                          -- root : TInterface "WebKit2WebExtension" "DOMNode"+    Word64 ->                               -- whatToShow : TBasicType TUInt64+    Ptr DOMNodeFilter ->                    -- filter : TInterface "WebKit2WebExtension" "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+    Maybe (c) ->                            -- filter+    Bool ->                                 -- expandEntityReferences+    m DOMNodeIterator+dOMDocumentCreateNodeIterator _obj root whatToShow filter expandEntityReferences = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let root' = unsafeManagedPtrCastPtr root+    maybeFilter <- case filter of+        Nothing -> return nullPtr+        Just jFilter -> do+            let jFilter' = unsafeManagedPtrCastPtr jFilter+            return jFilter'+    let expandEntityReferences' = (fromIntegral . fromEnum) expandEntityReferences+    onException (do+        result <- propagateGError $ webkit_dom_document_create_node_iterator _obj' root' whatToShow maybeFilter expandEntityReferences'+        checkUnexpectedReturnNULL "webkit_dom_document_create_node_iterator" result+        result' <- (wrapObject DOMNodeIterator) result+        touchManagedPtr _obj+        touchManagedPtr root+        whenJust filter touchManagedPtr+        return result'+     ) (do+        return ()+     )++-- method DOMDocument::create_ns_resolver+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nodeResolver", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nodeResolver", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument"+    Ptr DOMNode ->                          -- nodeResolver : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_create_ns_resolver" result+    result' <- (wrapObject DOMXPathNSResolver) result+    touchManagedPtr _obj+    touchManagedPtr nodeResolver+    return result'++-- method DOMDocument::create_processing_instruction+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_'+        checkUnexpectedReturnNULL "webkit_dom_document_create_processing_instruction" result+        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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMRange"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_create_range" webkit_dom_document_create_range :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_create_range" result+    result' <- (wrapObject DOMRange) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::create_text_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_'+    checkUnexpectedReturnNULL "webkit_dom_document_create_text_node" result+    result' <- (newObject DOMText) result+    touchManagedPtr _obj+    freeMem data_'+    return result'++-- method DOMDocument::create_tree_walker+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, 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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeFilter", direction = DirectionIn, mayBeNull = True, 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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument"+    Ptr DOMNode ->                          -- root : TInterface "WebKit2WebExtension" "DOMNode"+    Word64 ->                               -- whatToShow : TBasicType TUInt64+    Ptr DOMNodeFilter ->                    -- filter : TInterface "WebKit2WebExtension" "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+    Maybe (c) ->                            -- filter+    Bool ->                                 -- expandEntityReferences+    m DOMTreeWalker+dOMDocumentCreateTreeWalker _obj root whatToShow filter expandEntityReferences = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let root' = unsafeManagedPtrCastPtr root+    maybeFilter <- case filter of+        Nothing -> return nullPtr+        Just jFilter -> do+            let jFilter' = unsafeManagedPtrCastPtr jFilter+            return jFilter'+    let expandEntityReferences' = (fromIntegral . fromEnum) expandEntityReferences+    onException (do+        result <- propagateGError $ webkit_dom_document_create_tree_walker _obj' root' whatToShow maybeFilter expandEntityReferences'+        checkUnexpectedReturnNULL "webkit_dom_document_create_tree_walker" result+        result' <- (wrapObject DOMTreeWalker) result+        touchManagedPtr _obj+        touchManagedPtr root+        whenJust filter touchManagedPtr+        return result'+     ) (do+        return ()+     )++-- method DOMDocument::element_from_point+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_document_element_from_point" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::evaluate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolver", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMXPathResult"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_document_evaluate" webkit_dom_document_evaluate :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "DOMDocument"+    CString ->                              -- expression : TBasicType TUTF8+    Ptr DOMNode ->                          -- contextNode : TInterface "WebKit2WebExtension" "DOMNode"+    Ptr DOMXPathNSResolver ->               -- resolver : TInterface "WebKit2WebExtension" "DOMXPathNSResolver"+    Word16 ->                               -- type : TBasicType TUInt16+    Ptr DOMXPathResult ->                   -- inResult : TInterface "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_document_evaluate" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_active_element+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMElement"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_active_element" webkit_dom_document_get_active_element :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "DOMDocument"+    IO (Ptr DOMElement)+++dOMDocumentGetActiveElement ::+    (MonadIO m, DOMDocumentK a) =>+    a ->                                    -- _obj+    m DOMElement+dOMDocumentGetActiveElement _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_document_get_active_element _obj'+    checkUnexpectedReturnNULL "webkit_dom_document_get_active_element" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_anchors+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_anchors" webkit_dom_document_get_anchors :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_anchors" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_applets+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_applets" webkit_dom_document_get_applets :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_applets" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_body+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMHTMLElement"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_body" webkit_dom_document_get_body :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_body" result+    result' <- (newObject DOMHTMLElement) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_character_set+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_character_set" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_charset" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_cookie+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_get_cookie" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMDocument::get_default_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_default_charset" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_default_view+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_default_view" result+    result' <- (wrapObject DOMDOMWindow) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_doctype+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMDocumentType"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_doctype" webkit_dom_document_get_doctype :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_doctype" result+    result' <- (newObject DOMDocumentType) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_document_element+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_document_element" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_document_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_document_uri" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_domain" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_element_by_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_element_by_id" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_class_name" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_name" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_elements_by_tag_name_ns" result+    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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_forms" webkit_dom_document_get_forms :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_forms" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_head+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMHTMLHeadElement"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_head" webkit_dom_document_get_head :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_head" result+    result' <- (newObject DOMHTMLHeadElement) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_images+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_images" webkit_dom_document_get_images :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_images" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_implementation+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMDOMImplementation"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_implementation" webkit_dom_document_get_implementation :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_implementation" result+    result' <- (wrapObject DOMDOMImplementation) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_input_encoding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_input_encoding" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_last_modified+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_last_modified" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_links+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMHTMLCollection"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_document_get_links" webkit_dom_document_get_links :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_links" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_override_style+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument"+    Ptr DOMElement ->                       -- element : TInterface "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_document_get_override_style" result+    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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_preferred_stylesheet_set" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_ready_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_ready_state" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_referrer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_referrer" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_selected_stylesheet_set+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_selected_stylesheet_set" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_style_sheets+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_style_sheets" result+    result' <- (newObject DOMStyleSheetList) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_title+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_title" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_url+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_url" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_xml_encoding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_xml_encoding" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::get_xml_standalone+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_get_xml_version" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::has_focus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_has_focus" webkit_dom_document_has_focus :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "DOMDocument"+    IO CInt+++dOMDocumentHasFocus ::+    (MonadIO m, DOMDocumentK a) =>+    a ->                                    -- _obj+    m Bool+dOMDocumentHasFocus _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_document_has_focus _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method DOMDocument::import_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "importedNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "importedNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_document_import_node" webkit_dom_document_import_node :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "DOMDocument"+    Ptr DOMNode ->                          -- importedNode : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_import_node" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_query_command_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem command'+    return result'++-- method DOMDocument::query_selector+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_document_query_selector" webkit_dom_document_query_selector :: +    Ptr DOMDocument ->                      -- _obj : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_query_selector" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_document_query_selector_all" result+        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 "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMDocument"+    Ptr DOMHTMLElement ->                   -- value : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+     )++
+ GI/WebKit2WebExtension/Objects/DOMDocument.hs-boot view
@@ -0,0 +1,55 @@+module GI.WebKit2WebExtension.Objects.DOMDocument where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMDocument = DOMDocument (ForeignPtr DOMDocument)+instance GObject DOMDocument where+class GObject o => DOMDocumentK o+instance (GObject o, IsDescendantOf DOMDocument o) => DOMDocumentK o+data DOMDocumentActiveElementPropertyInfo+data DOMDocumentAnchorsPropertyInfo+data DOMDocumentAppletsPropertyInfo+data DOMDocumentBodyPropertyInfo+data DOMDocumentCharacterSetPropertyInfo+data DOMDocumentCharsetPropertyInfo+data DOMDocumentCompatModePropertyInfo+data DOMDocumentContentTypePropertyInfo+data DOMDocumentCookiePropertyInfo+data DOMDocumentCurrentScriptPropertyInfo+data DOMDocumentDefaultCharsetPropertyInfo+data DOMDocumentDefaultViewPropertyInfo+data DOMDocumentDoctypePropertyInfo+data DOMDocumentDocumentElementPropertyInfo+data DOMDocumentDocumentUriPropertyInfo+data DOMDocumentDomainPropertyInfo+data DOMDocumentFormsPropertyInfo+data DOMDocumentHeadPropertyInfo+data DOMDocumentHiddenPropertyInfo+data DOMDocumentImagesPropertyInfo+data DOMDocumentImplementationPropertyInfo+data DOMDocumentInputEncodingPropertyInfo+data DOMDocumentLastModifiedPropertyInfo+data DOMDocumentLinksPropertyInfo+data DOMDocumentOriginPropertyInfo+data DOMDocumentPointerLockElementPropertyInfo+data DOMDocumentPreferredStylesheetSetPropertyInfo+data DOMDocumentReadyStatePropertyInfo+data DOMDocumentReferrerPropertyInfo+data DOMDocumentSelectedStylesheetSetPropertyInfo+data DOMDocumentStyleSheetsPropertyInfo+data DOMDocumentTitlePropertyInfo+data DOMDocumentUrlPropertyInfo+data DOMDocumentVisibilityStatePropertyInfo+data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo+data DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo+data DOMDocumentWebkitFullscreenElementPropertyInfo+data DOMDocumentWebkitFullscreenEnabledPropertyInfo+data DOMDocumentWebkitIsFullScreenPropertyInfo+data DOMDocumentXmlEncodingPropertyInfo+data DOMDocumentXmlStandalonePropertyInfo+data DOMDocumentXmlVersionPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMDocumentFragment+    ( ++-- * Exported types+    DOMDocumentFragment(..)                 ,+    DOMDocumentFragmentK                    ,+    toDOMDocumentFragment                   ,+    noDOMDocumentFragment                   ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMDocumentFragment = DOMDocumentFragment (ForeignPtr DOMDocumentFragment)+foreign import ccall "webkit_dom_document_fragment_get_type"+    c_webkit_dom_document_fragment_get_type :: IO GType++type instance ParentTypes DOMDocumentFragment = DOMDocumentFragmentParentTypes+type DOMDocumentFragmentParentTypes = '[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++noDOMDocumentFragment :: Maybe DOMDocumentFragment+noDOMDocumentFragment = Nothing++type instance AttributeList DOMDocumentFragment = DOMDocumentFragmentAttributeList+type DOMDocumentFragmentAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMDocumentFragment = DOMDocumentFragmentSignalList+type DOMDocumentFragmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/WebKit2WebExtension/Objects/DOMDocumentFragment.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.DOMDocumentFragment where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMDocumentFragment = DOMDocumentFragment (ForeignPtr DOMDocumentFragment)+instance GObject DOMDocumentFragment where+class GObject o => DOMDocumentFragmentK o+instance (GObject o, IsDescendantOf DOMDocumentFragment o) => DOMDocumentFragmentK o
+ GI/WebKit2WebExtension/Objects/DOMDocumentType.hs view
@@ -0,0 +1,386 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMDocumentType+    ( ++-- * Exported types+    DOMDocumentType(..)                     ,+    DOMDocumentTypeK                        ,+    toDOMDocumentType                       ,+    noDOMDocumentType                       ,+++ -- * Methods+-- ** dOMDocumentTypeGetEntities+    dOMDocumentTypeGetEntities              ,+++-- ** dOMDocumentTypeGetInternalSubset+    dOMDocumentTypeGetInternalSubset        ,+++-- ** dOMDocumentTypeGetName+    dOMDocumentTypeGetName                  ,+++-- ** dOMDocumentTypeGetNotations+    dOMDocumentTypeGetNotations             ,+++-- ** dOMDocumentTypeGetPublicId+    dOMDocumentTypeGetPublicId              ,+++-- ** dOMDocumentTypeGetSystemId+    dOMDocumentTypeGetSystemId              ,+++++ -- * Properties+-- ** Entities+    DOMDocumentTypeEntitiesPropertyInfo     ,+    getDOMDocumentTypeEntities              ,+++-- ** InternalSubset+    DOMDocumentTypeInternalSubsetPropertyInfo,+    getDOMDocumentTypeInternalSubset        ,+++-- ** Name+    DOMDocumentTypeNamePropertyInfo         ,+    getDOMDocumentTypeName                  ,+++-- ** Notations+    DOMDocumentTypeNotationsPropertyInfo    ,+    getDOMDocumentTypeNotations             ,+++-- ** PublicId+    DOMDocumentTypePublicIdPropertyInfo     ,+    getDOMDocumentTypePublicId              ,+++-- ** SystemId+    DOMDocumentTypeSystemIdPropertyInfo     ,+    getDOMDocumentTypeSystemId              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMDocumentType = DOMDocumentType (ForeignPtr DOMDocumentType)+foreign import ccall "webkit_dom_document_type_get_type"+    c_webkit_dom_document_type_get_type :: IO GType++type instance ParentTypes DOMDocumentType = DOMDocumentTypeParentTypes+type DOMDocumentTypeParentTypes = '[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++noDOMDocumentType :: Maybe DOMDocumentType+noDOMDocumentType = Nothing++-- VVV Prop "entities"+   -- Type: TInterface "WebKit2WebExtension" "DOMNamedNodeMap"+   -- Flags: [PropertyReadable]++getDOMDocumentTypeEntities :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap+getDOMDocumentTypeEntities obj = liftIO $ getObjectPropertyObject obj "entities" DOMNamedNodeMap++data DOMDocumentTypeEntitiesPropertyInfo+instance AttrInfo DOMDocumentTypeEntitiesPropertyInfo where+    type AttrAllowedOps DOMDocumentTypeEntitiesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = DOMDocumentTypeK+    type AttrGetType DOMDocumentTypeEntitiesPropertyInfo = DOMNamedNodeMap+    type AttrLabel DOMDocumentTypeEntitiesPropertyInfo = "DOMDocumentType::entities"+    attrGet _ = getDOMDocumentTypeEntities+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "internal-subset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentTypeInternalSubset :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text+getDOMDocumentTypeInternalSubset obj = liftIO $ getObjectPropertyString obj "internal-subset"++data DOMDocumentTypeInternalSubsetPropertyInfo+instance AttrInfo DOMDocumentTypeInternalSubsetPropertyInfo where+    type AttrAllowedOps DOMDocumentTypeInternalSubsetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = DOMDocumentTypeK+    type AttrGetType DOMDocumentTypeInternalSubsetPropertyInfo = T.Text+    type AttrLabel DOMDocumentTypeInternalSubsetPropertyInfo = "DOMDocumentType::internal-subset"+    attrGet _ = getDOMDocumentTypeInternalSubset+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentTypeName :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text+getDOMDocumentTypeName obj = liftIO $ getObjectPropertyString obj "name"++data DOMDocumentTypeNamePropertyInfo+instance AttrInfo DOMDocumentTypeNamePropertyInfo where+    type AttrAllowedOps DOMDocumentTypeNamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentTypeNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentTypeNamePropertyInfo = DOMDocumentTypeK+    type AttrGetType DOMDocumentTypeNamePropertyInfo = T.Text+    type AttrLabel DOMDocumentTypeNamePropertyInfo = "DOMDocumentType::name"+    attrGet _ = getDOMDocumentTypeName+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "notations"+   -- Type: TInterface "WebKit2WebExtension" "DOMNamedNodeMap"+   -- Flags: [PropertyReadable]++getDOMDocumentTypeNotations :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap+getDOMDocumentTypeNotations obj = liftIO $ getObjectPropertyObject obj "notations" DOMNamedNodeMap++data DOMDocumentTypeNotationsPropertyInfo+instance AttrInfo DOMDocumentTypeNotationsPropertyInfo where+    type AttrAllowedOps DOMDocumentTypeNotationsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentTypeNotationsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentTypeNotationsPropertyInfo = DOMDocumentTypeK+    type AttrGetType DOMDocumentTypeNotationsPropertyInfo = DOMNamedNodeMap+    type AttrLabel DOMDocumentTypeNotationsPropertyInfo = "DOMDocumentType::notations"+    attrGet _ = getDOMDocumentTypeNotations+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "public-id"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentTypePublicId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text+getDOMDocumentTypePublicId obj = liftIO $ getObjectPropertyString obj "public-id"++data DOMDocumentTypePublicIdPropertyInfo+instance AttrInfo DOMDocumentTypePublicIdPropertyInfo where+    type AttrAllowedOps DOMDocumentTypePublicIdPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentTypePublicIdPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentTypePublicIdPropertyInfo = DOMDocumentTypeK+    type AttrGetType DOMDocumentTypePublicIdPropertyInfo = T.Text+    type AttrLabel DOMDocumentTypePublicIdPropertyInfo = "DOMDocumentType::public-id"+    attrGet _ = getDOMDocumentTypePublicId+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "system-id"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMDocumentTypeSystemId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text+getDOMDocumentTypeSystemId obj = liftIO $ getObjectPropertyString obj "system-id"++data DOMDocumentTypeSystemIdPropertyInfo+instance AttrInfo DOMDocumentTypeSystemIdPropertyInfo where+    type AttrAllowedOps DOMDocumentTypeSystemIdPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = DOMDocumentTypeK+    type AttrGetType DOMDocumentTypeSystemIdPropertyInfo = T.Text+    type AttrLabel DOMDocumentTypeSystemIdPropertyInfo = "DOMDocumentType::system-id"+    attrGet _ = getDOMDocumentTypeSystemId+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMDocumentType = DOMDocumentTypeAttributeList+type DOMDocumentTypeAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("entities", DOMDocumentTypeEntitiesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("internal-subset", DOMDocumentTypeInternalSubsetPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMDocumentTypeNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("notations", DOMDocumentTypeNotationsPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("public-id", DOMDocumentTypePublicIdPropertyInfo), '("system-id", DOMDocumentTypeSystemIdPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMDocumentType = DOMDocumentTypeSignalList+type DOMDocumentTypeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMDocumentType::get_entities+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_type_get_entities" result+    result' <- (wrapObject DOMNamedNodeMap) result+    touchManagedPtr _obj+    return result'++-- method DOMDocumentType::get_internal_subset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_type_get_internal_subset" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocumentType::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_type_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocumentType::get_notations+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_type_get_notations" result+    result' <- (wrapObject DOMNamedNodeMap) result+    touchManagedPtr _obj+    return result'++-- method DOMDocumentType::get_public_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_type_get_public_id" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMDocumentType::get_system_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMDocumentType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_document_type_get_system_id" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMDocumentType.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2WebExtension.Objects.DOMDocumentType where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMDocumentType = DOMDocumentType (ForeignPtr DOMDocumentType)+instance GObject DOMDocumentType where+class GObject o => DOMDocumentTypeK o+instance (GObject o, IsDescendantOf DOMDocumentType o) => DOMDocumentTypeK o+data DOMDocumentTypeEntitiesPropertyInfo+data DOMDocumentTypeInternalSubsetPropertyInfo+data DOMDocumentTypeNamePropertyInfo+data DOMDocumentTypeNotationsPropertyInfo+data DOMDocumentTypePublicIdPropertyInfo+data DOMDocumentTypeSystemIdPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMElement.hs view
@@ -0,0 +1,2530 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMElement+    ( ++-- * Exported types+    DOMElement(..)                          ,+    DOMElementK                             ,+    toDOMElement                            ,+    noDOMElement                            ,+++ -- * Methods+-- ** dOMElementBlur+    dOMElementBlur                          ,+++-- ** dOMElementFocus+    dOMElementFocus                         ,+++-- ** dOMElementGetAttribute+    dOMElementGetAttribute                  ,+++-- ** dOMElementGetAttributeNode+    dOMElementGetAttributeNode              ,+++-- ** dOMElementGetAttributeNodeNs+    dOMElementGetAttributeNodeNs            ,+++-- ** dOMElementGetAttributeNs+    dOMElementGetAttributeNs                ,+++-- ** dOMElementGetAttributes+    dOMElementGetAttributes                 ,+++-- ** dOMElementGetChildElementCount+    dOMElementGetChildElementCount          ,+++-- ** dOMElementGetClassName+    dOMElementGetClassName                  ,+++-- ** dOMElementGetClientHeight+    dOMElementGetClientHeight               ,+++-- ** dOMElementGetClientLeft+    dOMElementGetClientLeft                 ,+++-- ** dOMElementGetClientTop+    dOMElementGetClientTop                  ,+++-- ** dOMElementGetClientWidth+    dOMElementGetClientWidth                ,+++-- ** dOMElementGetElementsByClassName+    dOMElementGetElementsByClassName        ,+++-- ** dOMElementGetElementsByTagName+    dOMElementGetElementsByTagName          ,+++-- ** dOMElementGetElementsByTagNameNs+    dOMElementGetElementsByTagNameNs        ,+++-- ** dOMElementGetFirstElementChild+    dOMElementGetFirstElementChild          ,+++-- ** dOMElementGetId+    dOMElementGetId                         ,+++-- ** dOMElementGetInnerHtml+    dOMElementGetInnerHtml                  ,+++-- ** dOMElementGetLastElementChild+    dOMElementGetLastElementChild           ,+++-- ** dOMElementGetNextElementSibling+    dOMElementGetNextElementSibling         ,+++-- ** dOMElementGetOffsetHeight+    dOMElementGetOffsetHeight               ,+++-- ** dOMElementGetOffsetLeft+    dOMElementGetOffsetLeft                 ,+++-- ** dOMElementGetOffsetParent+    dOMElementGetOffsetParent               ,+++-- ** dOMElementGetOffsetTop+    dOMElementGetOffsetTop                  ,+++-- ** dOMElementGetOffsetWidth+    dOMElementGetOffsetWidth                ,+++-- ** dOMElementGetOuterHtml+    dOMElementGetOuterHtml                  ,+++-- ** dOMElementGetPreviousElementSibling+    dOMElementGetPreviousElementSibling     ,+++-- ** dOMElementGetScrollHeight+    dOMElementGetScrollHeight               ,+++-- ** dOMElementGetScrollLeft+    dOMElementGetScrollLeft                 ,+++-- ** dOMElementGetScrollTop+    dOMElementGetScrollTop                  ,+++-- ** dOMElementGetScrollWidth+    dOMElementGetScrollWidth                ,+++-- ** dOMElementGetStyle+    dOMElementGetStyle                      ,+++-- ** dOMElementGetTagName+    dOMElementGetTagName                    ,+++-- ** dOMElementHasAttribute+    dOMElementHasAttribute                  ,+++-- ** dOMElementHasAttributeNs+    dOMElementHasAttributeNs                ,+++-- ** dOMElementHasAttributes+    dOMElementHasAttributes                 ,+++-- ** dOMElementQuerySelector+    dOMElementQuerySelector                 ,+++-- ** dOMElementQuerySelectorAll+    dOMElementQuerySelectorAll              ,+++-- ** dOMElementRemoveAttribute+    dOMElementRemoveAttribute               ,+++-- ** dOMElementRemoveAttributeNode+    dOMElementRemoveAttributeNode           ,+++-- ** dOMElementRemoveAttributeNs+    dOMElementRemoveAttributeNs             ,+++-- ** dOMElementScrollByLines+    dOMElementScrollByLines                 ,+++-- ** dOMElementScrollByPages+    dOMElementScrollByPages                 ,+++-- ** dOMElementScrollIntoView+    dOMElementScrollIntoView                ,+++-- ** dOMElementScrollIntoViewIfNeeded+    dOMElementScrollIntoViewIfNeeded        ,+++-- ** dOMElementSetAttribute+    dOMElementSetAttribute                  ,+++-- ** dOMElementSetAttributeNode+    dOMElementSetAttributeNode              ,+++-- ** dOMElementSetAttributeNodeNs+    dOMElementSetAttributeNodeNs            ,+++-- ** dOMElementSetAttributeNs+    dOMElementSetAttributeNs                ,+++-- ** dOMElementSetClassName+    dOMElementSetClassName                  ,+++-- ** dOMElementSetId+    dOMElementSetId                         ,+++-- ** dOMElementSetInnerHtml+    dOMElementSetInnerHtml                  ,+++-- ** dOMElementSetOuterHtml+    dOMElementSetOuterHtml                  ,+++-- ** dOMElementSetScrollLeft+    dOMElementSetScrollLeft                 ,+++-- ** dOMElementSetScrollTop+    dOMElementSetScrollTop                  ,+++++ -- * Properties+-- ** Attributes+    DOMElementAttributesPropertyInfo        ,+    getDOMElementAttributes                 ,+++-- ** ChildElementCount+    DOMElementChildElementCountPropertyInfo ,+    getDOMElementChildElementCount          ,+++-- ** ClassName+    DOMElementClassNamePropertyInfo         ,+    constructDOMElementClassName            ,+    getDOMElementClassName                  ,+    setDOMElementClassName                  ,+++-- ** ClientHeight+    DOMElementClientHeightPropertyInfo      ,+    getDOMElementClientHeight               ,+++-- ** ClientLeft+    DOMElementClientLeftPropertyInfo        ,+    getDOMElementClientLeft                 ,+++-- ** ClientTop+    DOMElementClientTopPropertyInfo         ,+    getDOMElementClientTop                  ,+++-- ** ClientWidth+    DOMElementClientWidthPropertyInfo       ,+    getDOMElementClientWidth                ,+++-- ** FirstElementChild+    DOMElementFirstElementChildPropertyInfo ,+    getDOMElementFirstElementChild          ,+++-- ** Id+    DOMElementIdPropertyInfo                ,+    constructDOMElementId                   ,+    getDOMElementId                         ,+    setDOMElementId                         ,+++-- ** InnerHtml+    DOMElementInnerHtmlPropertyInfo         ,+    constructDOMElementInnerHtml            ,+    getDOMElementInnerHtml                  ,+    setDOMElementInnerHtml                  ,+++-- ** LastElementChild+    DOMElementLastElementChildPropertyInfo  ,+    getDOMElementLastElementChild           ,+++-- ** NextElementSibling+    DOMElementNextElementSiblingPropertyInfo,+    getDOMElementNextElementSibling         ,+++-- ** OffsetHeight+    DOMElementOffsetHeightPropertyInfo      ,+    getDOMElementOffsetHeight               ,+++-- ** OffsetLeft+    DOMElementOffsetLeftPropertyInfo        ,+    getDOMElementOffsetLeft                 ,+++-- ** OffsetParent+    DOMElementOffsetParentPropertyInfo      ,+    getDOMElementOffsetParent               ,+++-- ** OffsetTop+    DOMElementOffsetTopPropertyInfo         ,+    getDOMElementOffsetTop                  ,+++-- ** OffsetWidth+    DOMElementOffsetWidthPropertyInfo       ,+    getDOMElementOffsetWidth                ,+++-- ** OuterHtml+    DOMElementOuterHtmlPropertyInfo         ,+    constructDOMElementOuterHtml            ,+    getDOMElementOuterHtml                  ,+    setDOMElementOuterHtml                  ,+++-- ** PreviousElementSibling+    DOMElementPreviousElementSiblingPropertyInfo,+    getDOMElementPreviousElementSibling     ,+++-- ** ScrollHeight+    DOMElementScrollHeightPropertyInfo      ,+    getDOMElementScrollHeight               ,+++-- ** ScrollLeft+    DOMElementScrollLeftPropertyInfo        ,+    constructDOMElementScrollLeft           ,+    getDOMElementScrollLeft                 ,+    setDOMElementScrollLeft                 ,+++-- ** ScrollTop+    DOMElementScrollTopPropertyInfo         ,+    constructDOMElementScrollTop            ,+    getDOMElementScrollTop                  ,+    setDOMElementScrollTop                  ,+++-- ** ScrollWidth+    DOMElementScrollWidthPropertyInfo       ,+    getDOMElementScrollWidth                ,+++-- ** Style+    DOMElementStylePropertyInfo             ,+    getDOMElementStyle                      ,+++-- ** TagName+    DOMElementTagNamePropertyInfo           ,+    getDOMElementTagName                    ,+++-- ** WebkitRegionOverset+    DOMElementWebkitRegionOversetPropertyInfo,+    getDOMElementWebkitRegionOverset        ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMElement = DOMElement (ForeignPtr DOMElement)+foreign import ccall "webkit_dom_element_get_type"+    c_webkit_dom_element_get_type :: IO GType++type instance ParentTypes DOMElement = DOMElementParentTypes+type DOMElementParentTypes = '[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++noDOMElement :: Maybe DOMElement+noDOMElement = Nothing++-- VVV Prop "attributes"+   -- Type: TInterface "WebKit2WebExtension" "DOMNamedNodeMap"+   -- Flags: [PropertyReadable]++getDOMElementAttributes :: (MonadIO m, DOMElementK o) => o -> m DOMNamedNodeMap+getDOMElementAttributes obj = liftIO $ getObjectPropertyObject obj "attributes" DOMNamedNodeMap++data DOMElementAttributesPropertyInfo+instance AttrInfo DOMElementAttributesPropertyInfo where+    type AttrAllowedOps DOMElementAttributesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementAttributesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementAttributesPropertyInfo = DOMElementK+    type AttrGetType DOMElementAttributesPropertyInfo = DOMNamedNodeMap+    type AttrLabel DOMElementAttributesPropertyInfo = "DOMElement::attributes"+    attrGet _ = getDOMElementAttributes+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "child-element-count"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMElementChildElementCount :: (MonadIO m, DOMElementK o) => o -> m Word64+getDOMElementChildElementCount obj = liftIO $ getObjectPropertyUInt64 obj "child-element-count"++data DOMElementChildElementCountPropertyInfo+instance AttrInfo DOMElementChildElementCountPropertyInfo where+    type AttrAllowedOps DOMElementChildElementCountPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementChildElementCountPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementChildElementCountPropertyInfo = DOMElementK+    type AttrGetType DOMElementChildElementCountPropertyInfo = Word64+    type AttrLabel DOMElementChildElementCountPropertyInfo = "DOMElement::child-element-count"+    attrGet _ = getDOMElementChildElementCount+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "class-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> m T.Text+getDOMElementClassName obj = liftIO $ getObjectPropertyString obj "class-name"++setDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> T.Text -> m ()+setDOMElementClassName obj val = liftIO $ setObjectPropertyString obj "class-name" val++constructDOMElementClassName :: T.Text -> IO ([Char], GValue)+constructDOMElementClassName val = constructObjectPropertyString "class-name" val++data DOMElementClassNamePropertyInfo+instance AttrInfo DOMElementClassNamePropertyInfo where+    type AttrAllowedOps DOMElementClassNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMElementClassNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMElementClassNamePropertyInfo = DOMElementK+    type AttrGetType DOMElementClassNamePropertyInfo = T.Text+    type AttrLabel DOMElementClassNamePropertyInfo = "DOMElement::class-name"+    attrGet _ = getDOMElementClassName+    attrSet _ = setDOMElementClassName+    attrConstruct _ = constructDOMElementClassName++-- VVV Prop "client-height"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMElementClientHeight :: (MonadIO m, DOMElementK o) => o -> m Double+getDOMElementClientHeight obj = liftIO $ getObjectPropertyDouble obj "client-height"++data DOMElementClientHeightPropertyInfo+instance AttrInfo DOMElementClientHeightPropertyInfo where+    type AttrAllowedOps DOMElementClientHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementClientHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementClientHeightPropertyInfo = DOMElementK+    type AttrGetType DOMElementClientHeightPropertyInfo = Double+    type AttrLabel DOMElementClientHeightPropertyInfo = "DOMElement::client-height"+    attrGet _ = getDOMElementClientHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "client-left"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMElementClientLeft :: (MonadIO m, DOMElementK o) => o -> m Double+getDOMElementClientLeft obj = liftIO $ getObjectPropertyDouble obj "client-left"++data DOMElementClientLeftPropertyInfo+instance AttrInfo DOMElementClientLeftPropertyInfo where+    type AttrAllowedOps DOMElementClientLeftPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementClientLeftPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementClientLeftPropertyInfo = DOMElementK+    type AttrGetType DOMElementClientLeftPropertyInfo = Double+    type AttrLabel DOMElementClientLeftPropertyInfo = "DOMElement::client-left"+    attrGet _ = getDOMElementClientLeft+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "client-top"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMElementClientTop :: (MonadIO m, DOMElementK o) => o -> m Double+getDOMElementClientTop obj = liftIO $ getObjectPropertyDouble obj "client-top"++data DOMElementClientTopPropertyInfo+instance AttrInfo DOMElementClientTopPropertyInfo where+    type AttrAllowedOps DOMElementClientTopPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementClientTopPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementClientTopPropertyInfo = DOMElementK+    type AttrGetType DOMElementClientTopPropertyInfo = Double+    type AttrLabel DOMElementClientTopPropertyInfo = "DOMElement::client-top"+    attrGet _ = getDOMElementClientTop+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "client-width"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMElementClientWidth :: (MonadIO m, DOMElementK o) => o -> m Double+getDOMElementClientWidth obj = liftIO $ getObjectPropertyDouble obj "client-width"++data DOMElementClientWidthPropertyInfo+instance AttrInfo DOMElementClientWidthPropertyInfo where+    type AttrAllowedOps DOMElementClientWidthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementClientWidthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementClientWidthPropertyInfo = DOMElementK+    type AttrGetType DOMElementClientWidthPropertyInfo = Double+    type AttrLabel DOMElementClientWidthPropertyInfo = "DOMElement::client-width"+    attrGet _ = getDOMElementClientWidth+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "first-element-child"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMElementFirstElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement+getDOMElementFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement++data DOMElementFirstElementChildPropertyInfo+instance AttrInfo DOMElementFirstElementChildPropertyInfo where+    type AttrAllowedOps DOMElementFirstElementChildPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementFirstElementChildPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementFirstElementChildPropertyInfo = DOMElementK+    type AttrGetType DOMElementFirstElementChildPropertyInfo = DOMElement+    type AttrLabel DOMElementFirstElementChildPropertyInfo = "DOMElement::first-element-child"+    attrGet _ = getDOMElementFirstElementChild+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "id"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMElementId :: (MonadIO m, DOMElementK o) => o -> m T.Text+getDOMElementId obj = liftIO $ getObjectPropertyString obj "id"++setDOMElementId :: (MonadIO m, DOMElementK o) => o -> T.Text -> m ()+setDOMElementId obj val = liftIO $ setObjectPropertyString obj "id" val++constructDOMElementId :: T.Text -> IO ([Char], GValue)+constructDOMElementId val = constructObjectPropertyString "id" val++data DOMElementIdPropertyInfo+instance AttrInfo DOMElementIdPropertyInfo where+    type AttrAllowedOps DOMElementIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMElementIdPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMElementIdPropertyInfo = DOMElementK+    type AttrGetType DOMElementIdPropertyInfo = T.Text+    type AttrLabel DOMElementIdPropertyInfo = "DOMElement::id"+    attrGet _ = getDOMElementId+    attrSet _ = setDOMElementId+    attrConstruct _ = constructDOMElementId++-- VVV Prop "inner-html"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMElementInnerHtml :: (MonadIO m, DOMElementK o) => o -> m T.Text+getDOMElementInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html"++setDOMElementInnerHtml :: (MonadIO m, DOMElementK o) => o -> T.Text -> m ()+setDOMElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val++constructDOMElementInnerHtml :: T.Text -> IO ([Char], GValue)+constructDOMElementInnerHtml val = constructObjectPropertyString "inner-html" val++data DOMElementInnerHtmlPropertyInfo+instance AttrInfo DOMElementInnerHtmlPropertyInfo where+    type AttrAllowedOps DOMElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMElementInnerHtmlPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMElementInnerHtmlPropertyInfo = DOMElementK+    type AttrGetType DOMElementInnerHtmlPropertyInfo = T.Text+    type AttrLabel DOMElementInnerHtmlPropertyInfo = "DOMElement::inner-html"+    attrGet _ = getDOMElementInnerHtml+    attrSet _ = setDOMElementInnerHtml+    attrConstruct _ = constructDOMElementInnerHtml++-- VVV Prop "last-element-child"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMElementLastElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement+getDOMElementLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement++data DOMElementLastElementChildPropertyInfo+instance AttrInfo DOMElementLastElementChildPropertyInfo where+    type AttrAllowedOps DOMElementLastElementChildPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementLastElementChildPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementLastElementChildPropertyInfo = DOMElementK+    type AttrGetType DOMElementLastElementChildPropertyInfo = DOMElement+    type AttrLabel DOMElementLastElementChildPropertyInfo = "DOMElement::last-element-child"+    attrGet _ = getDOMElementLastElementChild+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "next-element-sibling"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMElementNextElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement+getDOMElementNextElementSibling obj = liftIO $ getObjectPropertyObject obj "next-element-sibling" DOMElement++data DOMElementNextElementSiblingPropertyInfo+instance AttrInfo DOMElementNextElementSiblingPropertyInfo where+    type AttrAllowedOps DOMElementNextElementSiblingPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementNextElementSiblingPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementNextElementSiblingPropertyInfo = DOMElementK+    type AttrGetType DOMElementNextElementSiblingPropertyInfo = DOMElement+    type AttrLabel DOMElementNextElementSiblingPropertyInfo = "DOMElement::next-element-sibling"+    attrGet _ = getDOMElementNextElementSibling+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "offset-height"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMElementOffsetHeight :: (MonadIO m, DOMElementK o) => o -> m Double+getDOMElementOffsetHeight obj = liftIO $ getObjectPropertyDouble obj "offset-height"++data DOMElementOffsetHeightPropertyInfo+instance AttrInfo DOMElementOffsetHeightPropertyInfo where+    type AttrAllowedOps DOMElementOffsetHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementOffsetHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementOffsetHeightPropertyInfo = DOMElementK+    type AttrGetType DOMElementOffsetHeightPropertyInfo = Double+    type AttrLabel DOMElementOffsetHeightPropertyInfo = "DOMElement::offset-height"+    attrGet _ = getDOMElementOffsetHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "offset-left"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMElementOffsetLeft :: (MonadIO m, DOMElementK o) => o -> m Double+getDOMElementOffsetLeft obj = liftIO $ getObjectPropertyDouble obj "offset-left"++data DOMElementOffsetLeftPropertyInfo+instance AttrInfo DOMElementOffsetLeftPropertyInfo where+    type AttrAllowedOps DOMElementOffsetLeftPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementOffsetLeftPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementOffsetLeftPropertyInfo = DOMElementK+    type AttrGetType DOMElementOffsetLeftPropertyInfo = Double+    type AttrLabel DOMElementOffsetLeftPropertyInfo = "DOMElement::offset-left"+    attrGet _ = getDOMElementOffsetLeft+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "offset-parent"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMElementOffsetParent :: (MonadIO m, DOMElementK o) => o -> m DOMElement+getDOMElementOffsetParent obj = liftIO $ getObjectPropertyObject obj "offset-parent" DOMElement++data DOMElementOffsetParentPropertyInfo+instance AttrInfo DOMElementOffsetParentPropertyInfo where+    type AttrAllowedOps DOMElementOffsetParentPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementOffsetParentPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementOffsetParentPropertyInfo = DOMElementK+    type AttrGetType DOMElementOffsetParentPropertyInfo = DOMElement+    type AttrLabel DOMElementOffsetParentPropertyInfo = "DOMElement::offset-parent"+    attrGet _ = getDOMElementOffsetParent+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "offset-top"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMElementOffsetTop :: (MonadIO m, DOMElementK o) => o -> m Double+getDOMElementOffsetTop obj = liftIO $ getObjectPropertyDouble obj "offset-top"++data DOMElementOffsetTopPropertyInfo+instance AttrInfo DOMElementOffsetTopPropertyInfo where+    type AttrAllowedOps DOMElementOffsetTopPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementOffsetTopPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementOffsetTopPropertyInfo = DOMElementK+    type AttrGetType DOMElementOffsetTopPropertyInfo = Double+    type AttrLabel DOMElementOffsetTopPropertyInfo = "DOMElement::offset-top"+    attrGet _ = getDOMElementOffsetTop+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "offset-width"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMElementOffsetWidth :: (MonadIO m, DOMElementK o) => o -> m Double+getDOMElementOffsetWidth obj = liftIO $ getObjectPropertyDouble obj "offset-width"++data DOMElementOffsetWidthPropertyInfo+instance AttrInfo DOMElementOffsetWidthPropertyInfo where+    type AttrAllowedOps DOMElementOffsetWidthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementOffsetWidthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementOffsetWidthPropertyInfo = DOMElementK+    type AttrGetType DOMElementOffsetWidthPropertyInfo = Double+    type AttrLabel DOMElementOffsetWidthPropertyInfo = "DOMElement::offset-width"+    attrGet _ = getDOMElementOffsetWidth+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "outer-html"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMElementOuterHtml :: (MonadIO m, DOMElementK o) => o -> m T.Text+getDOMElementOuterHtml obj = liftIO $ getObjectPropertyString obj "outer-html"++setDOMElementOuterHtml :: (MonadIO m, DOMElementK o) => o -> T.Text -> m ()+setDOMElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" val++constructDOMElementOuterHtml :: T.Text -> IO ([Char], GValue)+constructDOMElementOuterHtml val = constructObjectPropertyString "outer-html" val++data DOMElementOuterHtmlPropertyInfo+instance AttrInfo DOMElementOuterHtmlPropertyInfo where+    type AttrAllowedOps DOMElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMElementOuterHtmlPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMElementOuterHtmlPropertyInfo = DOMElementK+    type AttrGetType DOMElementOuterHtmlPropertyInfo = T.Text+    type AttrLabel DOMElementOuterHtmlPropertyInfo = "DOMElement::outer-html"+    attrGet _ = getDOMElementOuterHtml+    attrSet _ = setDOMElementOuterHtml+    attrConstruct _ = constructDOMElementOuterHtml++-- VVV Prop "previous-element-sibling"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMElementPreviousElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement+getDOMElementPreviousElementSibling obj = liftIO $ getObjectPropertyObject obj "previous-element-sibling" DOMElement++data DOMElementPreviousElementSiblingPropertyInfo+instance AttrInfo DOMElementPreviousElementSiblingPropertyInfo where+    type AttrAllowedOps DOMElementPreviousElementSiblingPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = DOMElementK+    type AttrGetType DOMElementPreviousElementSiblingPropertyInfo = DOMElement+    type AttrLabel DOMElementPreviousElementSiblingPropertyInfo = "DOMElement::previous-element-sibling"+    attrGet _ = getDOMElementPreviousElementSibling+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "scroll-height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMElementScrollHeight :: (MonadIO m, DOMElementK o) => o -> m Int64+getDOMElementScrollHeight obj = liftIO $ getObjectPropertyInt64 obj "scroll-height"++data DOMElementScrollHeightPropertyInfo+instance AttrInfo DOMElementScrollHeightPropertyInfo where+    type AttrAllowedOps DOMElementScrollHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementScrollHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementScrollHeightPropertyInfo = DOMElementK+    type AttrGetType DOMElementScrollHeightPropertyInfo = Int64+    type AttrLabel DOMElementScrollHeightPropertyInfo = "DOMElement::scroll-height"+    attrGet _ = getDOMElementScrollHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "scroll-left"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> m Int64+getDOMElementScrollLeft obj = liftIO $ getObjectPropertyInt64 obj "scroll-left"++setDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> Int64 -> m ()+setDOMElementScrollLeft obj val = liftIO $ setObjectPropertyInt64 obj "scroll-left" val++constructDOMElementScrollLeft :: Int64 -> IO ([Char], GValue)+constructDOMElementScrollLeft val = constructObjectPropertyInt64 "scroll-left" val++data DOMElementScrollLeftPropertyInfo+instance AttrInfo DOMElementScrollLeftPropertyInfo where+    type AttrAllowedOps DOMElementScrollLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMElementScrollLeftPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMElementScrollLeftPropertyInfo = DOMElementK+    type AttrGetType DOMElementScrollLeftPropertyInfo = Int64+    type AttrLabel DOMElementScrollLeftPropertyInfo = "DOMElement::scroll-left"+    attrGet _ = getDOMElementScrollLeft+    attrSet _ = setDOMElementScrollLeft+    attrConstruct _ = constructDOMElementScrollLeft++-- VVV Prop "scroll-top"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> m Int64+getDOMElementScrollTop obj = liftIO $ getObjectPropertyInt64 obj "scroll-top"++setDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> Int64 -> m ()+setDOMElementScrollTop obj val = liftIO $ setObjectPropertyInt64 obj "scroll-top" val++constructDOMElementScrollTop :: Int64 -> IO ([Char], GValue)+constructDOMElementScrollTop val = constructObjectPropertyInt64 "scroll-top" val++data DOMElementScrollTopPropertyInfo+instance AttrInfo DOMElementScrollTopPropertyInfo where+    type AttrAllowedOps DOMElementScrollTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMElementScrollTopPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMElementScrollTopPropertyInfo = DOMElementK+    type AttrGetType DOMElementScrollTopPropertyInfo = Int64+    type AttrLabel DOMElementScrollTopPropertyInfo = "DOMElement::scroll-top"+    attrGet _ = getDOMElementScrollTop+    attrSet _ = setDOMElementScrollTop+    attrConstruct _ = constructDOMElementScrollTop++-- VVV Prop "scroll-width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMElementScrollWidth :: (MonadIO m, DOMElementK o) => o -> m Int64+getDOMElementScrollWidth obj = liftIO $ getObjectPropertyInt64 obj "scroll-width"++data DOMElementScrollWidthPropertyInfo+instance AttrInfo DOMElementScrollWidthPropertyInfo where+    type AttrAllowedOps DOMElementScrollWidthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementScrollWidthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementScrollWidthPropertyInfo = DOMElementK+    type AttrGetType DOMElementScrollWidthPropertyInfo = Int64+    type AttrLabel DOMElementScrollWidthPropertyInfo = "DOMElement::scroll-width"+    attrGet _ = getDOMElementScrollWidth+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "style"+   -- Type: TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration"+   -- Flags: [PropertyReadable]++getDOMElementStyle :: (MonadIO m, DOMElementK o) => o -> m DOMCSSStyleDeclaration+getDOMElementStyle obj = liftIO $ getObjectPropertyObject obj "style" DOMCSSStyleDeclaration++data DOMElementStylePropertyInfo+instance AttrInfo DOMElementStylePropertyInfo where+    type AttrAllowedOps DOMElementStylePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementStylePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementStylePropertyInfo = DOMElementK+    type AttrGetType DOMElementStylePropertyInfo = DOMCSSStyleDeclaration+    type AttrLabel DOMElementStylePropertyInfo = "DOMElement::style"+    attrGet _ = getDOMElementStyle+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "tag-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMElementTagName :: (MonadIO m, DOMElementK o) => o -> m T.Text+getDOMElementTagName obj = liftIO $ getObjectPropertyString obj "tag-name"++data DOMElementTagNamePropertyInfo+instance AttrInfo DOMElementTagNamePropertyInfo where+    type AttrAllowedOps DOMElementTagNamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementTagNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementTagNamePropertyInfo = DOMElementK+    type AttrGetType DOMElementTagNamePropertyInfo = T.Text+    type AttrLabel DOMElementTagNamePropertyInfo = "DOMElement::tag-name"+    attrGet _ = getDOMElementTagName+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "webkit-region-overset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMElementWebkitRegionOverset :: (MonadIO m, DOMElementK o) => o -> m T.Text+getDOMElementWebkitRegionOverset obj = liftIO $ getObjectPropertyString obj "webkit-region-overset"++data DOMElementWebkitRegionOversetPropertyInfo+instance AttrInfo DOMElementWebkitRegionOversetPropertyInfo where+    type AttrAllowedOps DOMElementWebkitRegionOversetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = DOMElementK+    type AttrGetType DOMElementWebkitRegionOversetPropertyInfo = T.Text+    type AttrLabel DOMElementWebkitRegionOversetPropertyInfo = "DOMElement::webkit-region-overset"+    attrGet _ = getDOMElementWebkitRegionOverset+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMElement = DOMElementAttributeList+type DOMElementAttributeList = ('[ '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMElement = DOMElementSignalList+type DOMElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMElement::blur+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_attribute" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_attribute_node" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_attribute_node_ns" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_attribute_ns" result+    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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMNamedNodeMap"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_element_get_attributes" webkit_dom_element_get_attributes :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_attributes" result+    result' <- (wrapObject DOMNamedNodeMap) result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_child_element_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_class_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_client_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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_element_get_client_height" webkit_dom_element_get_client_height :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CDouble+++dOMElementGetClientHeight ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m Double+dOMElementGetClientHeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_client_height _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_client_left+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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_element_get_client_left" webkit_dom_element_get_client_left :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CDouble+++dOMElementGetClientLeft ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m Double+dOMElementGetClientLeft _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_client_left _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_client_top+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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_element_get_client_top" webkit_dom_element_get_client_top :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CDouble+++dOMElementGetClientTop ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m Double+dOMElementGetClientTop _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_client_top _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_client_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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_element_get_client_width" webkit_dom_element_get_client_width :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CDouble+++dOMElementGetClientWidth ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m Double+dOMElementGetClientWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_client_width _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_elements_by_class_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_class_name" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_elements_by_tag_name_ns" result+    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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_first_element_child" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_id" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_inner_html+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_inner_html" webkit_dom_element_get_inner_html :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CString+++dOMElementGetInnerHtml ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMElementGetInnerHtml _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_inner_html _obj'+    checkUnexpectedReturnNULL "webkit_dom_element_get_inner_html" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_last_element_child+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_last_element_child" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_next_element_sibling+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_next_element_sibling" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_offset_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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_element_get_offset_height" webkit_dom_element_get_offset_height :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CDouble+++dOMElementGetOffsetHeight ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m Double+dOMElementGetOffsetHeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_offset_height _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_offset_left+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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_element_get_offset_left" webkit_dom_element_get_offset_left :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CDouble+++dOMElementGetOffsetLeft ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m Double+dOMElementGetOffsetLeft _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_offset_left _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_offset_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_offset_parent" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_offset_top+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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_element_get_offset_top" webkit_dom_element_get_offset_top :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CDouble+++dOMElementGetOffsetTop ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m Double+dOMElementGetOffsetTop _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_offset_top _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_offset_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", 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_element_get_offset_width" webkit_dom_element_get_offset_width :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CDouble+++dOMElementGetOffsetWidth ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m Double+dOMElementGetOffsetWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_offset_width _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_outer_html+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_outer_html" webkit_dom_element_get_outer_html :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    IO CString+++dOMElementGetOuterHtml ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMElementGetOuterHtml _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_element_get_outer_html _obj'+    checkUnexpectedReturnNULL "webkit_dom_element_get_outer_html" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_previous_element_sibling+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_previous_element_sibling" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_scroll_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMCSSStyleDeclaration"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_element_get_style" webkit_dom_element_get_style :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_style" result+    result' <- (wrapObject DOMCSSStyleDeclaration) result+    touchManagedPtr _obj+    return result'++-- method DOMElement::get_tag_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_element_get_tag_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMElement::has_attribute+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_element_query_selector" webkit_dom_element_query_selector :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_element_query_selector" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_element_query_selector_all" result+        result' <- (wrapObject DOMNodeList) result+        touchManagedPtr _obj+        freeMem selectors'+        return result'+     ) (do+        freeMem selectors'+     )++-- method DOMElement::remove_attribute+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement"+    Ptr DOMAttr ->                          -- oldAttr : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_element_remove_attribute_node" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement"+    Ptr DOMAttr ->                          -- newAttr : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_element_set_attribute_node" result+        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 "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newAttr", argType = TInterface "WebKit2WebExtension" "DOMAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMElement"+    Ptr DOMAttr ->                          -- newAttr : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_element_set_attribute_node_ns" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_inner_html+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 : True+-- Skip return : False++foreign import ccall "webkit_dom_element_set_inner_html" webkit_dom_element_set_inner_html :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    CString ->                              -- value : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO ()+++dOMElementSetInnerHtml ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMElementSetInnerHtml _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    onException (do+        propagateGError $ webkit_dom_element_set_inner_html _obj' value'+        touchManagedPtr _obj+        freeMem value'+        return ()+     ) (do+        freeMem value'+     )++-- method DOMElement::set_outer_html+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 : True+-- Skip return : False++foreign import ccall "webkit_dom_element_set_outer_html" webkit_dom_element_set_outer_html :: +    Ptr DOMElement ->                       -- _obj : TInterface "WebKit2WebExtension" "DOMElement"+    CString ->                              -- value : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO ()+++dOMElementSetOuterHtml ::+    (MonadIO m, DOMElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMElementSetOuterHtml _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    onException (do+        propagateGError $ webkit_dom_element_set_outer_html _obj' value'+        touchManagedPtr _obj+        freeMem value'+        return ()+     ) (do+        freeMem value'+     )++-- method DOMElement::set_scroll_left+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMElement.hs-boot view
@@ -0,0 +1,39 @@+module GI.WebKit2WebExtension.Objects.DOMElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMElement = DOMElement (ForeignPtr DOMElement)+instance GObject DOMElement where+class GObject o => DOMElementK o+instance (GObject o, IsDescendantOf DOMElement o) => DOMElementK o+data DOMElementAttributesPropertyInfo+data DOMElementChildElementCountPropertyInfo+data DOMElementClassNamePropertyInfo+data DOMElementClientHeightPropertyInfo+data DOMElementClientLeftPropertyInfo+data DOMElementClientTopPropertyInfo+data DOMElementClientWidthPropertyInfo+data DOMElementFirstElementChildPropertyInfo+data DOMElementIdPropertyInfo+data DOMElementInnerHtmlPropertyInfo+data DOMElementLastElementChildPropertyInfo+data DOMElementNextElementSiblingPropertyInfo+data DOMElementOffsetHeightPropertyInfo+data DOMElementOffsetLeftPropertyInfo+data DOMElementOffsetParentPropertyInfo+data DOMElementOffsetTopPropertyInfo+data DOMElementOffsetWidthPropertyInfo+data DOMElementOuterHtmlPropertyInfo+data DOMElementPreviousElementSiblingPropertyInfo+data DOMElementScrollHeightPropertyInfo+data DOMElementScrollLeftPropertyInfo+data DOMElementScrollTopPropertyInfo+data DOMElementScrollWidthPropertyInfo+data DOMElementStylePropertyInfo+data DOMElementTagNamePropertyInfo+data DOMElementWebkitRegionOversetPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMEntityReference.hs view
@@ -0,0 +1,58 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMEntityReference+    ( ++-- * Exported types+    DOMEntityReference(..)                  ,+    DOMEntityReferenceK                     ,+    toDOMEntityReference                    ,+    noDOMEntityReference                    ,+++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMEntityReference = DOMEntityReference (ForeignPtr DOMEntityReference)+foreign import ccall "webkit_dom_entity_reference_get_type"+    c_webkit_dom_entity_reference_get_type :: IO GType++type instance ParentTypes DOMEntityReference = DOMEntityReferenceParentTypes+type DOMEntityReferenceParentTypes = '[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++noDOMEntityReference :: Maybe DOMEntityReference+noDOMEntityReference = Nothing++type instance AttributeList DOMEntityReference = DOMEntityReferenceAttributeList+type DOMEntityReferenceAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMEntityReference = DOMEntityReferenceSignalList+type DOMEntityReferenceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/WebKit2WebExtension/Objects/DOMEntityReference.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.DOMEntityReference where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMEntityReference = DOMEntityReference (ForeignPtr DOMEntityReference)+instance GObject DOMEntityReference where+class GObject o => DOMEntityReferenceK o+instance (GObject o, IsDescendantOf DOMEntityReference o) => DOMEntityReferenceK o
+ GI/WebKit2WebExtension/Objects/DOMEvent.hs view
@@ -0,0 +1,782 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMEvent+    ( ++-- * Exported types+    DOMEvent(..)                            ,+    DOMEventK                               ,+    toDOMEvent                              ,+    noDOMEvent                              ,+++ -- * Methods+-- ** dOMEventGetBubbles+    dOMEventGetBubbles                      ,+++-- ** dOMEventGetCancelBubble+    dOMEventGetCancelBubble                 ,+++-- ** dOMEventGetCancelable+    dOMEventGetCancelable                   ,+++-- ** dOMEventGetCurrentTarget+    dOMEventGetCurrentTarget                ,+++-- ** dOMEventGetEventPhase+    dOMEventGetEventPhase                   ,+++-- ** dOMEventGetEventType+    dOMEventGetEventType                    ,+++-- ** dOMEventGetReturnValue+    dOMEventGetReturnValue                  ,+++-- ** dOMEventGetSrcElement+    dOMEventGetSrcElement                   ,+++-- ** dOMEventGetTarget+    dOMEventGetTarget                       ,+++-- ** dOMEventGetTimeStamp+    dOMEventGetTimeStamp                    ,+++-- ** dOMEventInitEvent+    dOMEventInitEvent                       ,+++-- ** dOMEventPreventDefault+    dOMEventPreventDefault                  ,+++-- ** dOMEventSetCancelBubble+    dOMEventSetCancelBubble                 ,+++-- ** dOMEventSetReturnValue+    dOMEventSetReturnValue                  ,+++-- ** dOMEventStopPropagation+    dOMEventStopPropagation                 ,+++++ -- * Properties+-- ** Bubbles+    DOMEventBubblesPropertyInfo             ,+    getDOMEventBubbles                      ,+++-- ** CancelBubble+    DOMEventCancelBubblePropertyInfo        ,+    constructDOMEventCancelBubble           ,+    getDOMEventCancelBubble                 ,+    setDOMEventCancelBubble                 ,+++-- ** Cancelable+    DOMEventCancelablePropertyInfo          ,+    getDOMEventCancelable                   ,+++-- ** CurrentTarget+    DOMEventCurrentTargetPropertyInfo       ,+    getDOMEventCurrentTarget                ,+++-- ** DefaultPrevented+    DOMEventDefaultPreventedPropertyInfo    ,+    getDOMEventDefaultPrevented             ,+++-- ** EventPhase+    DOMEventEventPhasePropertyInfo          ,+    getDOMEventEventPhase                   ,+++-- ** ReturnValue+    DOMEventReturnValuePropertyInfo         ,+    constructDOMEventReturnValue            ,+    getDOMEventReturnValue                  ,+    setDOMEventReturnValue                  ,+++-- ** SrcElement+    DOMEventSrcElementPropertyInfo          ,+    getDOMEventSrcElement                   ,+++-- ** Target+    DOMEventTargetPropertyInfo              ,+    getDOMEventTarget                       ,+++-- ** TimeStamp+    DOMEventTimeStampPropertyInfo           ,+    getDOMEventTimeStamp                    ,+++-- ** Type+    DOMEventTypePropertyInfo                ,+    getDOMEventType                         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMEvent = DOMEvent (ForeignPtr DOMEvent)+foreign import ccall "webkit_dom_event_get_type"+    c_webkit_dom_event_get_type :: IO GType++type instance ParentTypes DOMEvent = DOMEventParentTypes+type DOMEventParentTypes = '[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++noDOMEvent :: Maybe DOMEvent+noDOMEvent = Nothing++-- VVV Prop "bubbles"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMEventBubbles :: (MonadIO m, DOMEventK o) => o -> m Bool+getDOMEventBubbles obj = liftIO $ getObjectPropertyBool obj "bubbles"++data DOMEventBubblesPropertyInfo+instance AttrInfo DOMEventBubblesPropertyInfo where+    type AttrAllowedOps DOMEventBubblesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventBubblesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventBubblesPropertyInfo = DOMEventK+    type AttrGetType DOMEventBubblesPropertyInfo = Bool+    type AttrLabel DOMEventBubblesPropertyInfo = "DOMEvent::bubbles"+    attrGet _ = getDOMEventBubbles+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "cancel-bubble"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> m Bool+getDOMEventCancelBubble obj = liftIO $ getObjectPropertyBool obj "cancel-bubble"++setDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> Bool -> m ()+setDOMEventCancelBubble obj val = liftIO $ setObjectPropertyBool obj "cancel-bubble" val++constructDOMEventCancelBubble :: Bool -> IO ([Char], GValue)+constructDOMEventCancelBubble val = constructObjectPropertyBool "cancel-bubble" val++data DOMEventCancelBubblePropertyInfo+instance AttrInfo DOMEventCancelBubblePropertyInfo where+    type AttrAllowedOps DOMEventCancelBubblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMEventCancelBubblePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMEventCancelBubblePropertyInfo = DOMEventK+    type AttrGetType DOMEventCancelBubblePropertyInfo = Bool+    type AttrLabel DOMEventCancelBubblePropertyInfo = "DOMEvent::cancel-bubble"+    attrGet _ = getDOMEventCancelBubble+    attrSet _ = setDOMEventCancelBubble+    attrConstruct _ = constructDOMEventCancelBubble++-- VVV Prop "cancelable"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMEventCancelable :: (MonadIO m, DOMEventK o) => o -> m Bool+getDOMEventCancelable obj = liftIO $ getObjectPropertyBool obj "cancelable"++data DOMEventCancelablePropertyInfo+instance AttrInfo DOMEventCancelablePropertyInfo where+    type AttrAllowedOps DOMEventCancelablePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventCancelablePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventCancelablePropertyInfo = DOMEventK+    type AttrGetType DOMEventCancelablePropertyInfo = Bool+    type AttrLabel DOMEventCancelablePropertyInfo = "DOMEvent::cancelable"+    attrGet _ = getDOMEventCancelable+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "current-target"+   -- Type: TInterface "WebKit2WebExtension" "DOMEventTarget"+   -- Flags: [PropertyReadable]++getDOMEventCurrentTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget+getDOMEventCurrentTarget obj = liftIO $ getObjectPropertyObject obj "current-target" DOMEventTarget++data DOMEventCurrentTargetPropertyInfo+instance AttrInfo DOMEventCurrentTargetPropertyInfo where+    type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = DOMEventK+    type AttrGetType DOMEventCurrentTargetPropertyInfo = DOMEventTarget+    type AttrLabel DOMEventCurrentTargetPropertyInfo = "DOMEvent::current-target"+    attrGet _ = getDOMEventCurrentTarget+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "default-prevented"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMEventDefaultPrevented :: (MonadIO m, DOMEventK o) => o -> m Bool+getDOMEventDefaultPrevented obj = liftIO $ getObjectPropertyBool obj "default-prevented"++data DOMEventDefaultPreventedPropertyInfo+instance AttrInfo DOMEventDefaultPreventedPropertyInfo where+    type AttrAllowedOps DOMEventDefaultPreventedPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventDefaultPreventedPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventDefaultPreventedPropertyInfo = DOMEventK+    type AttrGetType DOMEventDefaultPreventedPropertyInfo = Bool+    type AttrLabel DOMEventDefaultPreventedPropertyInfo = "DOMEvent::default-prevented"+    attrGet _ = getDOMEventDefaultPrevented+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "event-phase"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getDOMEventEventPhase :: (MonadIO m, DOMEventK o) => o -> m Word32+getDOMEventEventPhase obj = liftIO $ getObjectPropertyCUInt obj "event-phase"++data DOMEventEventPhasePropertyInfo+instance AttrInfo DOMEventEventPhasePropertyInfo where+    type AttrAllowedOps DOMEventEventPhasePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventEventPhasePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventEventPhasePropertyInfo = DOMEventK+    type AttrGetType DOMEventEventPhasePropertyInfo = Word32+    type AttrLabel DOMEventEventPhasePropertyInfo = "DOMEvent::event-phase"+    attrGet _ = getDOMEventEventPhase+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "return-value"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> m Bool+getDOMEventReturnValue obj = liftIO $ getObjectPropertyBool obj "return-value"++setDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> Bool -> m ()+setDOMEventReturnValue obj val = liftIO $ setObjectPropertyBool obj "return-value" val++constructDOMEventReturnValue :: Bool -> IO ([Char], GValue)+constructDOMEventReturnValue val = constructObjectPropertyBool "return-value" val++data DOMEventReturnValuePropertyInfo+instance AttrInfo DOMEventReturnValuePropertyInfo where+    type AttrAllowedOps DOMEventReturnValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMEventReturnValuePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMEventReturnValuePropertyInfo = DOMEventK+    type AttrGetType DOMEventReturnValuePropertyInfo = Bool+    type AttrLabel DOMEventReturnValuePropertyInfo = "DOMEvent::return-value"+    attrGet _ = getDOMEventReturnValue+    attrSet _ = setDOMEventReturnValue+    attrConstruct _ = constructDOMEventReturnValue++-- VVV Prop "src-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMEventTarget"+   -- Flags: [PropertyReadable]++getDOMEventSrcElement :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget+getDOMEventSrcElement obj = liftIO $ getObjectPropertyObject obj "src-element" DOMEventTarget++data DOMEventSrcElementPropertyInfo+instance AttrInfo DOMEventSrcElementPropertyInfo where+    type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = DOMEventK+    type AttrGetType DOMEventSrcElementPropertyInfo = DOMEventTarget+    type AttrLabel DOMEventSrcElementPropertyInfo = "DOMEvent::src-element"+    attrGet _ = getDOMEventSrcElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "target"+   -- Type: TInterface "WebKit2WebExtension" "DOMEventTarget"+   -- Flags: [PropertyReadable]++getDOMEventTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget+getDOMEventTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget++data DOMEventTargetPropertyInfo+instance AttrInfo DOMEventTargetPropertyInfo where+    type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = DOMEventK+    type AttrGetType DOMEventTargetPropertyInfo = DOMEventTarget+    type AttrLabel DOMEventTargetPropertyInfo = "DOMEvent::target"+    attrGet _ = getDOMEventTarget+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "time-stamp"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getDOMEventTimeStamp :: (MonadIO m, DOMEventK o) => o -> m Word32+getDOMEventTimeStamp obj = liftIO $ getObjectPropertyCUInt obj "time-stamp"++data DOMEventTimeStampPropertyInfo+instance AttrInfo DOMEventTimeStampPropertyInfo where+    type AttrAllowedOps DOMEventTimeStampPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventTimeStampPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventTimeStampPropertyInfo = DOMEventK+    type AttrGetType DOMEventTimeStampPropertyInfo = Word32+    type AttrLabel DOMEventTimeStampPropertyInfo = "DOMEvent::time-stamp"+    attrGet _ = getDOMEventTimeStamp+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMEventType :: (MonadIO m, DOMEventK o) => o -> m T.Text+getDOMEventType obj = liftIO $ getObjectPropertyString obj "type"++data DOMEventTypePropertyInfo+instance AttrInfo DOMEventTypePropertyInfo where+    type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMEventTypePropertyInfo = DOMEventK+    type AttrGetType DOMEventTypePropertyInfo = T.Text+    type AttrLabel DOMEventTypePropertyInfo = "DOMEvent::type"+    attrGet _ = getDOMEventType+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMEvent = DOMEventAttributeList+type DOMEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMEvent = DOMEventSignalList+type DOMEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMEvent::get_bubbles+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_event_get_current_target" result+    result' <- (wrapObject DOMEventTarget) result+    touchManagedPtr _obj+    return result'++-- method DOMEvent::get_event_phase+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_event_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_event_get_event_type" webkit_dom_event_get_event_type :: +    Ptr DOMEvent ->                         -- _obj : TInterface "WebKit2WebExtension" "DOMEvent"+    IO CString+++dOMEventGetEventType ::+    (MonadIO m, DOMEventK a) =>+    a ->                                    -- _obj+    m T.Text+dOMEventGetEventType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_event_get_event_type _obj'+    checkUnexpectedReturnNULL "webkit_dom_event_get_event_type" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMEvent::get_return_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_event_get_src_element" result+    result' <- (wrapObject DOMEventTarget) result+    touchManagedPtr _obj+    return result'++-- method DOMEvent::get_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMEventTarget"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_event_get_target" webkit_dom_event_get_target :: +    Ptr DOMEvent ->                         -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_event_get_target" result+    result' <- (wrapObject DOMEventTarget) result+    touchManagedPtr _obj+    return result'++-- method DOMEvent::get_time_stamp+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_propagation+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMEvent.hs-boot view
@@ -0,0 +1,24 @@+module GI.WebKit2WebExtension.Objects.DOMEvent where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMEvent = DOMEvent (ForeignPtr DOMEvent)+instance GObject DOMEvent where+class GObject o => DOMEventK o+instance (GObject o, IsDescendantOf DOMEvent o) => DOMEventK o+data DOMEventBubblesPropertyInfo+data DOMEventCancelBubblePropertyInfo+data DOMEventCancelablePropertyInfo+data DOMEventCurrentTargetPropertyInfo+data DOMEventDefaultPreventedPropertyInfo+data DOMEventEventPhasePropertyInfo+data DOMEventReturnValuePropertyInfo+data DOMEventSrcElementPropertyInfo+data DOMEventTargetPropertyInfo+data DOMEventTimeStampPropertyInfo+data DOMEventTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMFile.hs view
@@ -0,0 +1,118 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMFile+    ( ++-- * Exported types+    DOMFile(..)                             ,+    DOMFileK                                ,+    toDOMFile                               ,+    noDOMFile                               ,+++ -- * Methods+-- ** dOMFileGetName+    dOMFileGetName                          ,+++++ -- * Properties+-- ** Name+    DOMFileNamePropertyInfo                 ,+    getDOMFileName                          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMFile = DOMFile (ForeignPtr DOMFile)+foreign import ccall "webkit_dom_file_get_type"+    c_webkit_dom_file_get_type :: IO GType++type instance ParentTypes DOMFile = DOMFileParentTypes+type DOMFileParentTypes = '[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++noDOMFile :: Maybe DOMFile+noDOMFile = Nothing++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMFileName :: (MonadIO m, DOMFileK o) => o -> m T.Text+getDOMFileName obj = liftIO $ getObjectPropertyString obj "name"++data DOMFileNamePropertyInfo+instance AttrInfo DOMFileNamePropertyInfo where+    type AttrAllowedOps DOMFileNamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMFileNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMFileNamePropertyInfo = DOMFileK+    type AttrGetType DOMFileNamePropertyInfo = T.Text+    type AttrLabel DOMFileNamePropertyInfo = "DOMFile::name"+    attrGet _ = getDOMFileName+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMFile = DOMFileAttributeList+type DOMFileAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("name", DOMFileNamePropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMFile = DOMFileSignalList+type DOMFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMFile::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_file_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMFile.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMFile where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMFile = DOMFile (ForeignPtr DOMFile)+instance GObject DOMFile where+class GObject o => DOMFileK o+instance (GObject o, IsDescendantOf DOMFile o) => DOMFileK o+data DOMFileNamePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMFileList.hs view
@@ -0,0 +1,147 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMFileList+    ( ++-- * Exported types+    DOMFileList(..)                         ,+    DOMFileListK                            ,+    toDOMFileList                           ,+    noDOMFileList                           ,+++ -- * Methods+-- ** dOMFileListGetLength+    dOMFileListGetLength                    ,+++-- ** dOMFileListItem+    dOMFileListItem                         ,+++++ -- * Properties+-- ** Length+    DOMFileListLengthPropertyInfo           ,+    getDOMFileListLength                    ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMFileList = DOMFileList (ForeignPtr DOMFileList)+foreign import ccall "webkit_dom_file_list_get_type"+    c_webkit_dom_file_list_get_type :: IO GType++type instance ParentTypes DOMFileList = DOMFileListParentTypes+type DOMFileListParentTypes = '[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++noDOMFileList :: Maybe DOMFileList+noDOMFileList = Nothing++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMFileListLength :: (MonadIO m, DOMFileListK o) => o -> m Word64+getDOMFileListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMFileListLengthPropertyInfo+instance AttrInfo DOMFileListLengthPropertyInfo where+    type AttrAllowedOps DOMFileListLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMFileListLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMFileListLengthPropertyInfo = DOMFileListK+    type AttrGetType DOMFileListLengthPropertyInfo = Word64+    type AttrLabel DOMFileListLengthPropertyInfo = "DOMFileList::length"+    attrGet _ = getDOMFileListLength+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMFileList = DOMFileListAttributeList+type DOMFileListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMFileListLengthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMFileList = DOMFileListSignalList+type DOMFileListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMFileList::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMFile"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_file_list_item" webkit_dom_file_list_item :: +    Ptr DOMFileList ->                      -- _obj : TInterface "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_file_list_item" result+    result' <- (wrapObject DOMFile) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMFileList.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMFileList where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMFileList = DOMFileList (ForeignPtr DOMFileList)+instance GObject DOMFileList where+class GObject o => DOMFileListK o+instance (GObject o, IsDescendantOf DOMFileList o) => DOMFileListK o+data DOMFileListLengthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs view
@@ -0,0 +1,1809 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLAnchorElement+    ( ++-- * Exported types+    DOMHTMLAnchorElement(..)                ,+    DOMHTMLAnchorElementK                   ,+    toDOMHTMLAnchorElement                  ,+    noDOMHTMLAnchorElement                  ,+++ -- * Methods+-- ** dOMHTMLAnchorElementGetCharset+    dOMHTMLAnchorElementGetCharset          ,+++-- ** dOMHTMLAnchorElementGetCoords+    dOMHTMLAnchorElementGetCoords           ,+++-- ** dOMHTMLAnchorElementGetHash+    dOMHTMLAnchorElementGetHash             ,+++-- ** dOMHTMLAnchorElementGetHost+    dOMHTMLAnchorElementGetHost             ,+++-- ** dOMHTMLAnchorElementGetHostname+    dOMHTMLAnchorElementGetHostname         ,+++-- ** dOMHTMLAnchorElementGetHref+    dOMHTMLAnchorElementGetHref             ,+++-- ** dOMHTMLAnchorElementGetHreflang+    dOMHTMLAnchorElementGetHreflang         ,+++-- ** dOMHTMLAnchorElementGetName+    dOMHTMLAnchorElementGetName             ,+++-- ** dOMHTMLAnchorElementGetPathname+    dOMHTMLAnchorElementGetPathname         ,+++-- ** dOMHTMLAnchorElementGetPort+    dOMHTMLAnchorElementGetPort             ,+++-- ** dOMHTMLAnchorElementGetProtocol+    dOMHTMLAnchorElementGetProtocol         ,+++-- ** dOMHTMLAnchorElementGetRel+    dOMHTMLAnchorElementGetRel              ,+++-- ** dOMHTMLAnchorElementGetRev+    dOMHTMLAnchorElementGetRev              ,+++-- ** dOMHTMLAnchorElementGetSearch+    dOMHTMLAnchorElementGetSearch           ,+++-- ** dOMHTMLAnchorElementGetShape+    dOMHTMLAnchorElementGetShape            ,+++-- ** dOMHTMLAnchorElementGetTarget+    dOMHTMLAnchorElementGetTarget           ,+++-- ** dOMHTMLAnchorElementGetText+    dOMHTMLAnchorElementGetText             ,+++-- ** dOMHTMLAnchorElementGetTypeAttr+    dOMHTMLAnchorElementGetTypeAttr         ,+++-- ** dOMHTMLAnchorElementSetCharset+    dOMHTMLAnchorElementSetCharset          ,+++-- ** dOMHTMLAnchorElementSetCoords+    dOMHTMLAnchorElementSetCoords           ,+++-- ** dOMHTMLAnchorElementSetHash+    dOMHTMLAnchorElementSetHash             ,+++-- ** dOMHTMLAnchorElementSetHost+    dOMHTMLAnchorElementSetHost             ,+++-- ** dOMHTMLAnchorElementSetHostname+    dOMHTMLAnchorElementSetHostname         ,+++-- ** dOMHTMLAnchorElementSetHref+    dOMHTMLAnchorElementSetHref             ,+++-- ** dOMHTMLAnchorElementSetHreflang+    dOMHTMLAnchorElementSetHreflang         ,+++-- ** dOMHTMLAnchorElementSetName+    dOMHTMLAnchorElementSetName             ,+++-- ** dOMHTMLAnchorElementSetPathname+    dOMHTMLAnchorElementSetPathname         ,+++-- ** dOMHTMLAnchorElementSetPort+    dOMHTMLAnchorElementSetPort             ,+++-- ** dOMHTMLAnchorElementSetProtocol+    dOMHTMLAnchorElementSetProtocol         ,+++-- ** dOMHTMLAnchorElementSetRel+    dOMHTMLAnchorElementSetRel              ,+++-- ** dOMHTMLAnchorElementSetRev+    dOMHTMLAnchorElementSetRev              ,+++-- ** dOMHTMLAnchorElementSetSearch+    dOMHTMLAnchorElementSetSearch           ,+++-- ** dOMHTMLAnchorElementSetShape+    dOMHTMLAnchorElementSetShape            ,+++-- ** dOMHTMLAnchorElementSetTarget+    dOMHTMLAnchorElementSetTarget           ,+++-- ** dOMHTMLAnchorElementSetTypeAttr+    dOMHTMLAnchorElementSetTypeAttr         ,+++++ -- * Properties+-- ** Charset+    DOMHTMLAnchorElementCharsetPropertyInfo ,+    constructDOMHTMLAnchorElementCharset    ,+    getDOMHTMLAnchorElementCharset          ,+    setDOMHTMLAnchorElementCharset          ,+++-- ** Coords+    DOMHTMLAnchorElementCoordsPropertyInfo  ,+    constructDOMHTMLAnchorElementCoords     ,+    getDOMHTMLAnchorElementCoords           ,+    setDOMHTMLAnchorElementCoords           ,+++-- ** Download+    DOMHTMLAnchorElementDownloadPropertyInfo,+    constructDOMHTMLAnchorElementDownload   ,+    getDOMHTMLAnchorElementDownload         ,+    setDOMHTMLAnchorElementDownload         ,+++-- ** Hash+    DOMHTMLAnchorElementHashPropertyInfo    ,+    constructDOMHTMLAnchorElementHash       ,+    getDOMHTMLAnchorElementHash             ,+    setDOMHTMLAnchorElementHash             ,+++-- ** Host+    DOMHTMLAnchorElementHostPropertyInfo    ,+    constructDOMHTMLAnchorElementHost       ,+    getDOMHTMLAnchorElementHost             ,+    setDOMHTMLAnchorElementHost             ,+++-- ** Hostname+    DOMHTMLAnchorElementHostnamePropertyInfo,+    constructDOMHTMLAnchorElementHostname   ,+    getDOMHTMLAnchorElementHostname         ,+    setDOMHTMLAnchorElementHostname         ,+++-- ** Href+    DOMHTMLAnchorElementHrefPropertyInfo    ,+    constructDOMHTMLAnchorElementHref       ,+    getDOMHTMLAnchorElementHref             ,+    setDOMHTMLAnchorElementHref             ,+++-- ** Hreflang+    DOMHTMLAnchorElementHreflangPropertyInfo,+    constructDOMHTMLAnchorElementHreflang   ,+    getDOMHTMLAnchorElementHreflang         ,+    setDOMHTMLAnchorElementHreflang         ,+++-- ** Name+    DOMHTMLAnchorElementNamePropertyInfo    ,+    constructDOMHTMLAnchorElementName       ,+    getDOMHTMLAnchorElementName             ,+    setDOMHTMLAnchorElementName             ,+++-- ** Origin+    DOMHTMLAnchorElementOriginPropertyInfo  ,+    getDOMHTMLAnchorElementOrigin           ,+++-- ** Pathname+    DOMHTMLAnchorElementPathnamePropertyInfo,+    constructDOMHTMLAnchorElementPathname   ,+    getDOMHTMLAnchorElementPathname         ,+    setDOMHTMLAnchorElementPathname         ,+++-- ** Ping+    DOMHTMLAnchorElementPingPropertyInfo    ,+    constructDOMHTMLAnchorElementPing       ,+    getDOMHTMLAnchorElementPing             ,+    setDOMHTMLAnchorElementPing             ,+++-- ** Port+    DOMHTMLAnchorElementPortPropertyInfo    ,+    constructDOMHTMLAnchorElementPort       ,+    getDOMHTMLAnchorElementPort             ,+    setDOMHTMLAnchorElementPort             ,+++-- ** Protocol+    DOMHTMLAnchorElementProtocolPropertyInfo,+    constructDOMHTMLAnchorElementProtocol   ,+    getDOMHTMLAnchorElementProtocol         ,+    setDOMHTMLAnchorElementProtocol         ,+++-- ** Rel+    DOMHTMLAnchorElementRelPropertyInfo     ,+    constructDOMHTMLAnchorElementRel        ,+    getDOMHTMLAnchorElementRel              ,+    setDOMHTMLAnchorElementRel              ,+++-- ** Rev+    DOMHTMLAnchorElementRevPropertyInfo     ,+    constructDOMHTMLAnchorElementRev        ,+    getDOMHTMLAnchorElementRev              ,+    setDOMHTMLAnchorElementRev              ,+++-- ** Search+    DOMHTMLAnchorElementSearchPropertyInfo  ,+    constructDOMHTMLAnchorElementSearch     ,+    getDOMHTMLAnchorElementSearch           ,+    setDOMHTMLAnchorElementSearch           ,+++-- ** Shape+    DOMHTMLAnchorElementShapePropertyInfo   ,+    constructDOMHTMLAnchorElementShape      ,+    getDOMHTMLAnchorElementShape            ,+    setDOMHTMLAnchorElementShape            ,+++-- ** Target+    DOMHTMLAnchorElementTargetPropertyInfo  ,+    constructDOMHTMLAnchorElementTarget     ,+    getDOMHTMLAnchorElementTarget           ,+    setDOMHTMLAnchorElementTarget           ,+++-- ** Text+    DOMHTMLAnchorElementTextPropertyInfo    ,+    constructDOMHTMLAnchorElementText       ,+    getDOMHTMLAnchorElementText             ,+    setDOMHTMLAnchorElementText             ,+++-- ** Type+    DOMHTMLAnchorElementTypePropertyInfo    ,+    constructDOMHTMLAnchorElementType       ,+    getDOMHTMLAnchorElementType             ,+    setDOMHTMLAnchorElementType             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLAnchorElement = DOMHTMLAnchorElement (ForeignPtr DOMHTMLAnchorElement)+foreign import ccall "webkit_dom_html_anchor_element_get_type"+    c_webkit_dom_html_anchor_element_get_type :: IO GType++type instance ParentTypes DOMHTMLAnchorElement = DOMHTMLAnchorElementParentTypes+type DOMHTMLAnchorElementParentTypes = '[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++noDOMHTMLAnchorElement :: Maybe DOMHTMLAnchorElement+noDOMHTMLAnchorElement = Nothing++-- VVV Prop "charset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementCharset obj = liftIO $ getObjectPropertyString obj "charset"++setDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val++constructDOMHTMLAnchorElementCharset :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementCharset val = constructObjectPropertyString "charset" val++data DOMHTMLAnchorElementCharsetPropertyInfo+instance AttrInfo DOMHTMLAnchorElementCharsetPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementCharsetPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementCharsetPropertyInfo = "DOMHTMLAnchorElement::charset"+    attrGet _ = getDOMHTMLAnchorElementCharset+    attrSet _ = setDOMHTMLAnchorElementCharset+    attrConstruct _ = constructDOMHTMLAnchorElementCharset++-- VVV Prop "coords"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementCoords obj = liftIO $ getObjectPropertyString obj "coords"++setDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val++constructDOMHTMLAnchorElementCoords :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementCoords val = constructObjectPropertyString "coords" val++data DOMHTMLAnchorElementCoordsPropertyInfo+instance AttrInfo DOMHTMLAnchorElementCoordsPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementCoordsPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementCoordsPropertyInfo = "DOMHTMLAnchorElement::coords"+    attrGet _ = getDOMHTMLAnchorElementCoords+    attrSet _ = setDOMHTMLAnchorElementCoords+    attrConstruct _ = constructDOMHTMLAnchorElementCoords++-- VVV Prop "download"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementDownload obj = liftIO $ getObjectPropertyString obj "download"++setDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementDownload obj val = liftIO $ setObjectPropertyString obj "download" val++constructDOMHTMLAnchorElementDownload :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementDownload val = constructObjectPropertyString "download" val++data DOMHTMLAnchorElementDownloadPropertyInfo+instance AttrInfo DOMHTMLAnchorElementDownloadPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementDownloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementDownloadPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementDownloadPropertyInfo = "DOMHTMLAnchorElement::download"+    attrGet _ = getDOMHTMLAnchorElementDownload+    attrSet _ = setDOMHTMLAnchorElementDownload+    attrConstruct _ = constructDOMHTMLAnchorElementDownload++-- VVV Prop "hash"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementHash obj = liftIO $ getObjectPropertyString obj "hash"++setDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementHash obj val = liftIO $ setObjectPropertyString obj "hash" val++constructDOMHTMLAnchorElementHash :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementHash val = constructObjectPropertyString "hash" val++data DOMHTMLAnchorElementHashPropertyInfo+instance AttrInfo DOMHTMLAnchorElementHashPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementHashPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementHashPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementHashPropertyInfo = "DOMHTMLAnchorElement::hash"+    attrGet _ = getDOMHTMLAnchorElementHash+    attrSet _ = setDOMHTMLAnchorElementHash+    attrConstruct _ = constructDOMHTMLAnchorElementHash++-- VVV Prop "host"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementHost obj = liftIO $ getObjectPropertyString obj "host"++setDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementHost obj val = liftIO $ setObjectPropertyString obj "host" val++constructDOMHTMLAnchorElementHost :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementHost val = constructObjectPropertyString "host" val++data DOMHTMLAnchorElementHostPropertyInfo+instance AttrInfo DOMHTMLAnchorElementHostPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementHostPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementHostPropertyInfo = "DOMHTMLAnchorElement::host"+    attrGet _ = getDOMHTMLAnchorElementHost+    attrSet _ = setDOMHTMLAnchorElementHost+    attrConstruct _ = constructDOMHTMLAnchorElementHost++-- VVV Prop "hostname"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementHostname obj = liftIO $ getObjectPropertyString obj "hostname"++setDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementHostname obj val = liftIO $ setObjectPropertyString obj "hostname" val++constructDOMHTMLAnchorElementHostname :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementHostname val = constructObjectPropertyString "hostname" val++data DOMHTMLAnchorElementHostnamePropertyInfo+instance AttrInfo DOMHTMLAnchorElementHostnamePropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementHostnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementHostnamePropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementHostnamePropertyInfo = "DOMHTMLAnchorElement::hostname"+    attrGet _ = getDOMHTMLAnchorElementHostname+    attrSet _ = setDOMHTMLAnchorElementHostname+    attrConstruct _ = constructDOMHTMLAnchorElementHostname++-- VVV Prop "href"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementHref obj = liftIO $ getObjectPropertyString obj "href"++setDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementHref obj val = liftIO $ setObjectPropertyString obj "href" val++constructDOMHTMLAnchorElementHref :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementHref val = constructObjectPropertyString "href" val++data DOMHTMLAnchorElementHrefPropertyInfo+instance AttrInfo DOMHTMLAnchorElementHrefPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementHrefPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementHrefPropertyInfo = "DOMHTMLAnchorElement::href"+    attrGet _ = getDOMHTMLAnchorElementHref+    attrSet _ = setDOMHTMLAnchorElementHref+    attrConstruct _ = constructDOMHTMLAnchorElementHref++-- VVV Prop "hreflang"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang"++setDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val++constructDOMHTMLAnchorElementHreflang :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementHreflang val = constructObjectPropertyString "hreflang" val++data DOMHTMLAnchorElementHreflangPropertyInfo+instance AttrInfo DOMHTMLAnchorElementHreflangPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementHreflangPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementHreflangPropertyInfo = "DOMHTMLAnchorElement::hreflang"+    attrGet _ = getDOMHTMLAnchorElementHreflang+    attrSet _ = setDOMHTMLAnchorElementHreflang+    attrConstruct _ = constructDOMHTMLAnchorElementHreflang++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLAnchorElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementName val = constructObjectPropertyString "name" val++data DOMHTMLAnchorElementNamePropertyInfo+instance AttrInfo DOMHTMLAnchorElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementNamePropertyInfo = "DOMHTMLAnchorElement::name"+    attrGet _ = getDOMHTMLAnchorElementName+    attrSet _ = setDOMHTMLAnchorElementName+    attrConstruct _ = constructDOMHTMLAnchorElementName++-- VVV Prop "origin"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLAnchorElementOrigin :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementOrigin obj = liftIO $ getObjectPropertyString obj "origin"++data DOMHTMLAnchorElementOriginPropertyInfo+instance AttrInfo DOMHTMLAnchorElementOriginPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementOriginPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementOriginPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementOriginPropertyInfo = "DOMHTMLAnchorElement::origin"+    attrGet _ = getDOMHTMLAnchorElementOrigin+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "pathname"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementPathname obj = liftIO $ getObjectPropertyString obj "pathname"++setDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementPathname obj val = liftIO $ setObjectPropertyString obj "pathname" val++constructDOMHTMLAnchorElementPathname :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementPathname val = constructObjectPropertyString "pathname" val++data DOMHTMLAnchorElementPathnamePropertyInfo+instance AttrInfo DOMHTMLAnchorElementPathnamePropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementPathnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementPathnamePropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementPathnamePropertyInfo = "DOMHTMLAnchorElement::pathname"+    attrGet _ = getDOMHTMLAnchorElementPathname+    attrSet _ = setDOMHTMLAnchorElementPathname+    attrConstruct _ = constructDOMHTMLAnchorElementPathname++-- VVV Prop "ping"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementPing obj = liftIO $ getObjectPropertyString obj "ping"++setDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val++constructDOMHTMLAnchorElementPing :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementPing val = constructObjectPropertyString "ping" val++data DOMHTMLAnchorElementPingPropertyInfo+instance AttrInfo DOMHTMLAnchorElementPingPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementPingPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementPingPropertyInfo = "DOMHTMLAnchorElement::ping"+    attrGet _ = getDOMHTMLAnchorElementPing+    attrSet _ = setDOMHTMLAnchorElementPing+    attrConstruct _ = constructDOMHTMLAnchorElementPing++-- VVV Prop "port"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementPort obj = liftIO $ getObjectPropertyString obj "port"++setDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementPort obj val = liftIO $ setObjectPropertyString obj "port" val++constructDOMHTMLAnchorElementPort :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementPort val = constructObjectPropertyString "port" val++data DOMHTMLAnchorElementPortPropertyInfo+instance AttrInfo DOMHTMLAnchorElementPortPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementPortPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementPortPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementPortPropertyInfo = "DOMHTMLAnchorElement::port"+    attrGet _ = getDOMHTMLAnchorElementPort+    attrSet _ = setDOMHTMLAnchorElementPort+    attrConstruct _ = constructDOMHTMLAnchorElementPort++-- VVV Prop "protocol"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol"++setDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementProtocol obj val = liftIO $ setObjectPropertyString obj "protocol" val++constructDOMHTMLAnchorElementProtocol :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementProtocol val = constructObjectPropertyString "protocol" val++data DOMHTMLAnchorElementProtocolPropertyInfo+instance AttrInfo DOMHTMLAnchorElementProtocolPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementProtocolPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementProtocolPropertyInfo = "DOMHTMLAnchorElement::protocol"+    attrGet _ = getDOMHTMLAnchorElementProtocol+    attrSet _ = setDOMHTMLAnchorElementProtocol+    attrConstruct _ = constructDOMHTMLAnchorElementProtocol++-- VVV Prop "rel"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementRel obj = liftIO $ getObjectPropertyString obj "rel"++setDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val++constructDOMHTMLAnchorElementRel :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementRel val = constructObjectPropertyString "rel" val++data DOMHTMLAnchorElementRelPropertyInfo+instance AttrInfo DOMHTMLAnchorElementRelPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementRelPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementRelPropertyInfo = "DOMHTMLAnchorElement::rel"+    attrGet _ = getDOMHTMLAnchorElementRel+    attrSet _ = setDOMHTMLAnchorElementRel+    attrConstruct _ = constructDOMHTMLAnchorElementRel++-- VVV Prop "rev"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementRev obj = liftIO $ getObjectPropertyString obj "rev"++setDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val++constructDOMHTMLAnchorElementRev :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementRev val = constructObjectPropertyString "rev" val++data DOMHTMLAnchorElementRevPropertyInfo+instance AttrInfo DOMHTMLAnchorElementRevPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementRevPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementRevPropertyInfo = "DOMHTMLAnchorElement::rev"+    attrGet _ = getDOMHTMLAnchorElementRev+    attrSet _ = setDOMHTMLAnchorElementRev+    attrConstruct _ = constructDOMHTMLAnchorElementRev++-- VVV Prop "search"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementSearch obj = liftIO $ getObjectPropertyString obj "search"++setDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementSearch obj val = liftIO $ setObjectPropertyString obj "search" val++constructDOMHTMLAnchorElementSearch :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementSearch val = constructObjectPropertyString "search" val++data DOMHTMLAnchorElementSearchPropertyInfo+instance AttrInfo DOMHTMLAnchorElementSearchPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementSearchPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementSearchPropertyInfo = "DOMHTMLAnchorElement::search"+    attrGet _ = getDOMHTMLAnchorElementSearch+    attrSet _ = setDOMHTMLAnchorElementSearch+    attrConstruct _ = constructDOMHTMLAnchorElementSearch++-- VVV Prop "shape"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementShape obj = liftIO $ getObjectPropertyString obj "shape"++setDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val++constructDOMHTMLAnchorElementShape :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementShape val = constructObjectPropertyString "shape" val++data DOMHTMLAnchorElementShapePropertyInfo+instance AttrInfo DOMHTMLAnchorElementShapePropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementShapePropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementShapePropertyInfo = "DOMHTMLAnchorElement::shape"+    attrGet _ = getDOMHTMLAnchorElementShape+    attrSet _ = setDOMHTMLAnchorElementShape+    attrConstruct _ = constructDOMHTMLAnchorElementShape++-- VVV Prop "target"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementTarget obj = liftIO $ getObjectPropertyString obj "target"++setDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val++constructDOMHTMLAnchorElementTarget :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementTarget val = constructObjectPropertyString "target" val++data DOMHTMLAnchorElementTargetPropertyInfo+instance AttrInfo DOMHTMLAnchorElementTargetPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementTargetPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementTargetPropertyInfo = "DOMHTMLAnchorElement::target"+    attrGet _ = getDOMHTMLAnchorElementTarget+    attrSet _ = setDOMHTMLAnchorElementTarget+    attrConstruct _ = constructDOMHTMLAnchorElementTarget++-- VVV Prop "text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementText obj = liftIO $ getObjectPropertyString obj "text"++setDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementText obj val = liftIO $ setObjectPropertyString obj "text" val++constructDOMHTMLAnchorElementText :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementText val = constructObjectPropertyString "text" val++data DOMHTMLAnchorElementTextPropertyInfo+instance AttrInfo DOMHTMLAnchorElementTextPropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementTextPropertyInfo = "DOMHTMLAnchorElement::text"+    attrGet _ = getDOMHTMLAnchorElementText+    attrSet _ = setDOMHTMLAnchorElementText+    attrConstruct _ = constructDOMHTMLAnchorElementText++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text+getDOMHTMLAnchorElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m ()+setDOMHTMLAnchorElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLAnchorElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAnchorElementType val = constructObjectPropertyString "type" val++data DOMHTMLAnchorElementTypePropertyInfo+instance AttrInfo DOMHTMLAnchorElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLAnchorElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = DOMHTMLAnchorElementK+    type AttrGetType DOMHTMLAnchorElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLAnchorElementTypePropertyInfo = "DOMHTMLAnchorElement::type"+    attrGet _ = getDOMHTMLAnchorElementType+    attrSet _ = setDOMHTMLAnchorElementType+    attrConstruct _ = constructDOMHTMLAnchorElementType++type instance AttributeList DOMHTMLAnchorElement = DOMHTMLAnchorElementAttributeList+type DOMHTMLAnchorElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLAnchorElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAnchorElementCoordsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("download", DOMHTMLAnchorElementDownloadPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAnchorElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAnchorElementHostPropertyInfo), '("hostname", DOMHTMLAnchorElementHostnamePropertyInfo), '("href", DOMHTMLAnchorElementHrefPropertyInfo), '("hreflang", DOMHTMLAnchorElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAnchorElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("origin", DOMHTMLAnchorElementOriginPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAnchorElementPathnamePropertyInfo), '("ping", DOMHTMLAnchorElementPingPropertyInfo), '("port", DOMHTMLAnchorElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAnchorElementProtocolPropertyInfo), '("rel", DOMHTMLAnchorElementRelPropertyInfo), '("rev", DOMHTMLAnchorElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAnchorElementSearchPropertyInfo), '("shape", DOMHTMLAnchorElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAnchorElementTargetPropertyInfo), '("text", DOMHTMLAnchorElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLAnchorElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLAnchorElement = DOMHTMLAnchorElementSignalList+type DOMHTMLAnchorElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLAnchorElement::get_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_charset" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_coords+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_coords" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_hash" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_host+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_host" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_hostname+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_hostname" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_href+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_href" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_hreflang+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_hreflang" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_pathname+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_pathname" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_port+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_port" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_protocol+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_protocol" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_rel+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_rel" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_rev+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_rev" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_search+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_search" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_shape+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_shape" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_target" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_type_attr" webkit_dom_html_anchor_element_get_type_attr :: +    Ptr DOMHTMLAnchorElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement"+    IO CString+++dOMHTMLAnchorElementGetTypeAttr ::+    (MonadIO m, DOMHTMLAnchorElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLAnchorElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_anchor_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_anchor_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAnchorElement::set_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_port+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++-- method DOMHTMLAnchorElement::set_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr" webkit_dom_html_anchor_element_set_type_attr :: +    Ptr DOMHTMLAnchorElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLAnchorElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLAnchorElementSetTypeAttr ::+    (MonadIO m, DOMHTMLAnchorElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLAnchorElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_anchor_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLAnchorElement.hs-boot view
@@ -0,0 +1,34 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLAnchorElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLAnchorElement = DOMHTMLAnchorElement (ForeignPtr DOMHTMLAnchorElement)+instance GObject DOMHTMLAnchorElement where+class GObject o => DOMHTMLAnchorElementK o+instance (GObject o, IsDescendantOf DOMHTMLAnchorElement o) => DOMHTMLAnchorElementK o+data DOMHTMLAnchorElementCharsetPropertyInfo+data DOMHTMLAnchorElementCoordsPropertyInfo+data DOMHTMLAnchorElementDownloadPropertyInfo+data DOMHTMLAnchorElementHashPropertyInfo+data DOMHTMLAnchorElementHostPropertyInfo+data DOMHTMLAnchorElementHostnamePropertyInfo+data DOMHTMLAnchorElementHrefPropertyInfo+data DOMHTMLAnchorElementHreflangPropertyInfo+data DOMHTMLAnchorElementNamePropertyInfo+data DOMHTMLAnchorElementOriginPropertyInfo+data DOMHTMLAnchorElementPathnamePropertyInfo+data DOMHTMLAnchorElementPingPropertyInfo+data DOMHTMLAnchorElementPortPropertyInfo+data DOMHTMLAnchorElementProtocolPropertyInfo+data DOMHTMLAnchorElementRelPropertyInfo+data DOMHTMLAnchorElementRevPropertyInfo+data DOMHTMLAnchorElementSearchPropertyInfo+data DOMHTMLAnchorElementShapePropertyInfo+data DOMHTMLAnchorElementTargetPropertyInfo+data DOMHTMLAnchorElementTextPropertyInfo+data DOMHTMLAnchorElementTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs view
@@ -0,0 +1,1088 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLAppletElement+    ( ++-- * Exported types+    DOMHTMLAppletElement(..)                ,+    DOMHTMLAppletElementK                   ,+    toDOMHTMLAppletElement                  ,+    noDOMHTMLAppletElement                  ,+++ -- * Methods+-- ** dOMHTMLAppletElementGetAlign+    dOMHTMLAppletElementGetAlign            ,+++-- ** dOMHTMLAppletElementGetAlt+    dOMHTMLAppletElementGetAlt              ,+++-- ** dOMHTMLAppletElementGetArchive+    dOMHTMLAppletElementGetArchive          ,+++-- ** dOMHTMLAppletElementGetCode+    dOMHTMLAppletElementGetCode             ,+++-- ** dOMHTMLAppletElementGetCodeBase+    dOMHTMLAppletElementGetCodeBase         ,+++-- ** dOMHTMLAppletElementGetHeight+    dOMHTMLAppletElementGetHeight           ,+++-- ** dOMHTMLAppletElementGetHspace+    dOMHTMLAppletElementGetHspace           ,+++-- ** dOMHTMLAppletElementGetName+    dOMHTMLAppletElementGetName             ,+++-- ** dOMHTMLAppletElementGetObject+    dOMHTMLAppletElementGetObject           ,+++-- ** dOMHTMLAppletElementGetVspace+    dOMHTMLAppletElementGetVspace           ,+++-- ** dOMHTMLAppletElementGetWidth+    dOMHTMLAppletElementGetWidth            ,+++-- ** dOMHTMLAppletElementSetAlign+    dOMHTMLAppletElementSetAlign            ,+++-- ** dOMHTMLAppletElementSetAlt+    dOMHTMLAppletElementSetAlt              ,+++-- ** dOMHTMLAppletElementSetArchive+    dOMHTMLAppletElementSetArchive          ,+++-- ** dOMHTMLAppletElementSetCode+    dOMHTMLAppletElementSetCode             ,+++-- ** dOMHTMLAppletElementSetCodeBase+    dOMHTMLAppletElementSetCodeBase         ,+++-- ** dOMHTMLAppletElementSetHeight+    dOMHTMLAppletElementSetHeight           ,+++-- ** dOMHTMLAppletElementSetHspace+    dOMHTMLAppletElementSetHspace           ,+++-- ** dOMHTMLAppletElementSetName+    dOMHTMLAppletElementSetName             ,+++-- ** dOMHTMLAppletElementSetObject+    dOMHTMLAppletElementSetObject           ,+++-- ** dOMHTMLAppletElementSetVspace+    dOMHTMLAppletElementSetVspace           ,+++-- ** dOMHTMLAppletElementSetWidth+    dOMHTMLAppletElementSetWidth            ,+++++ -- * Properties+-- ** Align+    DOMHTMLAppletElementAlignPropertyInfo   ,+    constructDOMHTMLAppletElementAlign      ,+    getDOMHTMLAppletElementAlign            ,+    setDOMHTMLAppletElementAlign            ,+++-- ** Alt+    DOMHTMLAppletElementAltPropertyInfo     ,+    constructDOMHTMLAppletElementAlt        ,+    getDOMHTMLAppletElementAlt              ,+    setDOMHTMLAppletElementAlt              ,+++-- ** Archive+    DOMHTMLAppletElementArchivePropertyInfo ,+    constructDOMHTMLAppletElementArchive    ,+    getDOMHTMLAppletElementArchive          ,+    setDOMHTMLAppletElementArchive          ,+++-- ** Code+    DOMHTMLAppletElementCodePropertyInfo    ,+    constructDOMHTMLAppletElementCode       ,+    getDOMHTMLAppletElementCode             ,+    setDOMHTMLAppletElementCode             ,+++-- ** CodeBase+    DOMHTMLAppletElementCodeBasePropertyInfo,+    constructDOMHTMLAppletElementCodeBase   ,+    getDOMHTMLAppletElementCodeBase         ,+    setDOMHTMLAppletElementCodeBase         ,+++-- ** Height+    DOMHTMLAppletElementHeightPropertyInfo  ,+    constructDOMHTMLAppletElementHeight     ,+    getDOMHTMLAppletElementHeight           ,+    setDOMHTMLAppletElementHeight           ,+++-- ** Hspace+    DOMHTMLAppletElementHspacePropertyInfo  ,+    constructDOMHTMLAppletElementHspace     ,+    getDOMHTMLAppletElementHspace           ,+    setDOMHTMLAppletElementHspace           ,+++-- ** Name+    DOMHTMLAppletElementNamePropertyInfo    ,+    constructDOMHTMLAppletElementName       ,+    getDOMHTMLAppletElementName             ,+    setDOMHTMLAppletElementName             ,+++-- ** Object+    DOMHTMLAppletElementObjectPropertyInfo  ,+    constructDOMHTMLAppletElementObject     ,+    getDOMHTMLAppletElementObject           ,+    setDOMHTMLAppletElementObject           ,+++-- ** Vspace+    DOMHTMLAppletElementVspacePropertyInfo  ,+    constructDOMHTMLAppletElementVspace     ,+    getDOMHTMLAppletElementVspace           ,+    setDOMHTMLAppletElementVspace           ,+++-- ** Width+    DOMHTMLAppletElementWidthPropertyInfo   ,+    constructDOMHTMLAppletElementWidth      ,+    getDOMHTMLAppletElementWidth            ,+    setDOMHTMLAppletElementWidth            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLAppletElement = DOMHTMLAppletElement (ForeignPtr DOMHTMLAppletElement)+foreign import ccall "webkit_dom_html_applet_element_get_type"+    c_webkit_dom_html_applet_element_get_type :: IO GType++type instance ParentTypes DOMHTMLAppletElement = DOMHTMLAppletElementParentTypes+type DOMHTMLAppletElementParentTypes = '[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++noDOMHTMLAppletElement :: Maybe DOMHTMLAppletElement+noDOMHTMLAppletElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLAppletElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLAppletElementAlignPropertyInfo+instance AttrInfo DOMHTMLAppletElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementAlignPropertyInfo = "DOMHTMLAppletElement::align"+    attrGet _ = getDOMHTMLAppletElementAlign+    attrSet _ = setDOMHTMLAppletElementAlign+    attrConstruct _ = constructDOMHTMLAppletElementAlign++-- VVV Prop "alt"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementAlt obj = liftIO $ getObjectPropertyString obj "alt"++setDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val++constructDOMHTMLAppletElementAlt :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementAlt val = constructObjectPropertyString "alt" val++data DOMHTMLAppletElementAltPropertyInfo+instance AttrInfo DOMHTMLAppletElementAltPropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementAltPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementAltPropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementAltPropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementAltPropertyInfo = "DOMHTMLAppletElement::alt"+    attrGet _ = getDOMHTMLAppletElementAlt+    attrSet _ = setDOMHTMLAppletElementAlt+    attrConstruct _ = constructDOMHTMLAppletElementAlt++-- VVV Prop "archive"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementArchive obj = liftIO $ getObjectPropertyString obj "archive"++setDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val++constructDOMHTMLAppletElementArchive :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementArchive val = constructObjectPropertyString "archive" val++data DOMHTMLAppletElementArchivePropertyInfo+instance AttrInfo DOMHTMLAppletElementArchivePropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementArchivePropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementArchivePropertyInfo = "DOMHTMLAppletElement::archive"+    attrGet _ = getDOMHTMLAppletElementArchive+    attrSet _ = setDOMHTMLAppletElementArchive+    attrConstruct _ = constructDOMHTMLAppletElementArchive++-- VVV Prop "code"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementCode obj = liftIO $ getObjectPropertyString obj "code"++setDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementCode obj val = liftIO $ setObjectPropertyString obj "code" val++constructDOMHTMLAppletElementCode :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementCode val = constructObjectPropertyString "code" val++data DOMHTMLAppletElementCodePropertyInfo+instance AttrInfo DOMHTMLAppletElementCodePropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementCodePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementCodePropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementCodePropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementCodePropertyInfo = "DOMHTMLAppletElement::code"+    attrGet _ = getDOMHTMLAppletElementCode+    attrSet _ = setDOMHTMLAppletElementCode+    attrConstruct _ = constructDOMHTMLAppletElementCode++-- VVV Prop "code-base"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base"++setDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val++constructDOMHTMLAppletElementCodeBase :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementCodeBase val = constructObjectPropertyString "code-base" val++data DOMHTMLAppletElementCodeBasePropertyInfo+instance AttrInfo DOMHTMLAppletElementCodeBasePropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementCodeBasePropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementCodeBasePropertyInfo = "DOMHTMLAppletElement::code-base"+    attrGet _ = getDOMHTMLAppletElementCodeBase+    attrSet _ = setDOMHTMLAppletElementCodeBase+    attrConstruct _ = constructDOMHTMLAppletElementCodeBase++-- VVV Prop "height"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementHeight obj = liftIO $ getObjectPropertyString obj "height"++setDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val++constructDOMHTMLAppletElementHeight :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementHeight val = constructObjectPropertyString "height" val++data DOMHTMLAppletElementHeightPropertyInfo+instance AttrInfo DOMHTMLAppletElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementHeightPropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementHeightPropertyInfo = "DOMHTMLAppletElement::height"+    attrGet _ = getDOMHTMLAppletElementHeight+    attrSet _ = setDOMHTMLAppletElementHeight+    attrConstruct _ = constructDOMHTMLAppletElementHeight++-- VVV Prop "hspace"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64+getDOMHTMLAppletElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace"++setDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m ()+setDOMHTMLAppletElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val++constructDOMHTMLAppletElementHspace :: Int64 -> IO ([Char], GValue)+constructDOMHTMLAppletElementHspace val = constructObjectPropertyInt64 "hspace" val++data DOMHTMLAppletElementHspacePropertyInfo+instance AttrInfo DOMHTMLAppletElementHspacePropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementHspacePropertyInfo = Int64+    type AttrLabel DOMHTMLAppletElementHspacePropertyInfo = "DOMHTMLAppletElement::hspace"+    attrGet _ = getDOMHTMLAppletElementHspace+    attrSet _ = setDOMHTMLAppletElementHspace+    attrConstruct _ = constructDOMHTMLAppletElementHspace++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLAppletElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementName val = constructObjectPropertyString "name" val++data DOMHTMLAppletElementNamePropertyInfo+instance AttrInfo DOMHTMLAppletElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementNamePropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementNamePropertyInfo = "DOMHTMLAppletElement::name"+    attrGet _ = getDOMHTMLAppletElementName+    attrSet _ = setDOMHTMLAppletElementName+    attrConstruct _ = constructDOMHTMLAppletElementName++-- VVV Prop "object"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementObject obj = liftIO $ getObjectPropertyString obj "object"++setDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementObject obj val = liftIO $ setObjectPropertyString obj "object" val++constructDOMHTMLAppletElementObject :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementObject val = constructObjectPropertyString "object" val++data DOMHTMLAppletElementObjectPropertyInfo+instance AttrInfo DOMHTMLAppletElementObjectPropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementObjectPropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementObjectPropertyInfo = "DOMHTMLAppletElement::object"+    attrGet _ = getDOMHTMLAppletElementObject+    attrSet _ = setDOMHTMLAppletElementObject+    attrConstruct _ = constructDOMHTMLAppletElementObject++-- VVV Prop "vspace"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64+getDOMHTMLAppletElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace"++setDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m ()+setDOMHTMLAppletElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val++constructDOMHTMLAppletElementVspace :: Int64 -> IO ([Char], GValue)+constructDOMHTMLAppletElementVspace val = constructObjectPropertyInt64 "vspace" val++data DOMHTMLAppletElementVspacePropertyInfo+instance AttrInfo DOMHTMLAppletElementVspacePropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementVspacePropertyInfo = Int64+    type AttrLabel DOMHTMLAppletElementVspacePropertyInfo = "DOMHTMLAppletElement::vspace"+    attrGet _ = getDOMHTMLAppletElementVspace+    attrSet _ = setDOMHTMLAppletElementVspace+    attrConstruct _ = constructDOMHTMLAppletElementVspace++-- VVV Prop "width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text+getDOMHTMLAppletElementWidth obj = liftIO $ getObjectPropertyString obj "width"++setDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m ()+setDOMHTMLAppletElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val++constructDOMHTMLAppletElementWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAppletElementWidth val = constructObjectPropertyString "width" val++data DOMHTMLAppletElementWidthPropertyInfo+instance AttrInfo DOMHTMLAppletElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLAppletElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = DOMHTMLAppletElementK+    type AttrGetType DOMHTMLAppletElementWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLAppletElementWidthPropertyInfo = "DOMHTMLAppletElement::width"+    attrGet _ = getDOMHTMLAppletElementWidth+    attrSet _ = setDOMHTMLAppletElementWidth+    attrConstruct _ = constructDOMHTMLAppletElementWidth++type instance AttributeList DOMHTMLAppletElement = DOMHTMLAppletElementAttributeList+type DOMHTMLAppletElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLAppletElementAlignPropertyInfo), '("alt", DOMHTMLAppletElementAltPropertyInfo), '("archive", DOMHTMLAppletElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLAppletElementCodePropertyInfo), '("code-base", DOMHTMLAppletElementCodeBasePropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLAppletElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLAppletElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAppletElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("object", DOMHTMLAppletElementObjectPropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vspace", DOMHTMLAppletElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLAppletElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLAppletElement = DOMHTMLAppletElementSignalList+type DOMHTMLAppletElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLAppletElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::get_alt+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_alt" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::get_archive+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_archive" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::get_code+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_code" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::get_code_base+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_code_base" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_height" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::get_hspace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::get_object+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_object" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::get_vspace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLAppletElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_applet_element_get_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAppletElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLAppletElement.hs-boot view
@@ -0,0 +1,24 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLAppletElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLAppletElement = DOMHTMLAppletElement (ForeignPtr DOMHTMLAppletElement)+instance GObject DOMHTMLAppletElement where+class GObject o => DOMHTMLAppletElementK o+instance (GObject o, IsDescendantOf DOMHTMLAppletElement o) => DOMHTMLAppletElementK o+data DOMHTMLAppletElementAlignPropertyInfo+data DOMHTMLAppletElementAltPropertyInfo+data DOMHTMLAppletElementArchivePropertyInfo+data DOMHTMLAppletElementCodePropertyInfo+data DOMHTMLAppletElementCodeBasePropertyInfo+data DOMHTMLAppletElementHeightPropertyInfo+data DOMHTMLAppletElementHspacePropertyInfo+data DOMHTMLAppletElementNamePropertyInfo+data DOMHTMLAppletElementObjectPropertyInfo+data DOMHTMLAppletElementVspacePropertyInfo+data DOMHTMLAppletElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs view
@@ -0,0 +1,1065 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLAreaElement+    ( ++-- * Exported types+    DOMHTMLAreaElement(..)                  ,+    DOMHTMLAreaElementK                     ,+    toDOMHTMLAreaElement                    ,+    noDOMHTMLAreaElement                    ,+++ -- * Methods+-- ** dOMHTMLAreaElementGetAlt+    dOMHTMLAreaElementGetAlt                ,+++-- ** dOMHTMLAreaElementGetCoords+    dOMHTMLAreaElementGetCoords             ,+++-- ** dOMHTMLAreaElementGetHash+    dOMHTMLAreaElementGetHash               ,+++-- ** dOMHTMLAreaElementGetHost+    dOMHTMLAreaElementGetHost               ,+++-- ** dOMHTMLAreaElementGetHostname+    dOMHTMLAreaElementGetHostname           ,+++-- ** dOMHTMLAreaElementGetHref+    dOMHTMLAreaElementGetHref               ,+++-- ** dOMHTMLAreaElementGetNoHref+    dOMHTMLAreaElementGetNoHref             ,+++-- ** dOMHTMLAreaElementGetPathname+    dOMHTMLAreaElementGetPathname           ,+++-- ** dOMHTMLAreaElementGetPort+    dOMHTMLAreaElementGetPort               ,+++-- ** dOMHTMLAreaElementGetProtocol+    dOMHTMLAreaElementGetProtocol           ,+++-- ** dOMHTMLAreaElementGetSearch+    dOMHTMLAreaElementGetSearch             ,+++-- ** dOMHTMLAreaElementGetShape+    dOMHTMLAreaElementGetShape              ,+++-- ** dOMHTMLAreaElementGetTarget+    dOMHTMLAreaElementGetTarget             ,+++-- ** dOMHTMLAreaElementSetAlt+    dOMHTMLAreaElementSetAlt                ,+++-- ** dOMHTMLAreaElementSetCoords+    dOMHTMLAreaElementSetCoords             ,+++-- ** dOMHTMLAreaElementSetHref+    dOMHTMLAreaElementSetHref               ,+++-- ** dOMHTMLAreaElementSetNoHref+    dOMHTMLAreaElementSetNoHref             ,+++-- ** dOMHTMLAreaElementSetShape+    dOMHTMLAreaElementSetShape              ,+++-- ** dOMHTMLAreaElementSetTarget+    dOMHTMLAreaElementSetTarget             ,+++++ -- * Properties+-- ** Alt+    DOMHTMLAreaElementAltPropertyInfo       ,+    constructDOMHTMLAreaElementAlt          ,+    getDOMHTMLAreaElementAlt                ,+    setDOMHTMLAreaElementAlt                ,+++-- ** Coords+    DOMHTMLAreaElementCoordsPropertyInfo    ,+    constructDOMHTMLAreaElementCoords       ,+    getDOMHTMLAreaElementCoords             ,+    setDOMHTMLAreaElementCoords             ,+++-- ** Hash+    DOMHTMLAreaElementHashPropertyInfo      ,+    getDOMHTMLAreaElementHash               ,+++-- ** Host+    DOMHTMLAreaElementHostPropertyInfo      ,+    getDOMHTMLAreaElementHost               ,+++-- ** Hostname+    DOMHTMLAreaElementHostnamePropertyInfo  ,+    getDOMHTMLAreaElementHostname           ,+++-- ** Href+    DOMHTMLAreaElementHrefPropertyInfo      ,+    constructDOMHTMLAreaElementHref         ,+    getDOMHTMLAreaElementHref               ,+    setDOMHTMLAreaElementHref               ,+++-- ** NoHref+    DOMHTMLAreaElementNoHrefPropertyInfo    ,+    constructDOMHTMLAreaElementNoHref       ,+    getDOMHTMLAreaElementNoHref             ,+    setDOMHTMLAreaElementNoHref             ,+++-- ** Pathname+    DOMHTMLAreaElementPathnamePropertyInfo  ,+    getDOMHTMLAreaElementPathname           ,+++-- ** Ping+    DOMHTMLAreaElementPingPropertyInfo      ,+    constructDOMHTMLAreaElementPing         ,+    getDOMHTMLAreaElementPing               ,+    setDOMHTMLAreaElementPing               ,+++-- ** Port+    DOMHTMLAreaElementPortPropertyInfo      ,+    getDOMHTMLAreaElementPort               ,+++-- ** Protocol+    DOMHTMLAreaElementProtocolPropertyInfo  ,+    getDOMHTMLAreaElementProtocol           ,+++-- ** Rel+    DOMHTMLAreaElementRelPropertyInfo       ,+    constructDOMHTMLAreaElementRel          ,+    getDOMHTMLAreaElementRel                ,+    setDOMHTMLAreaElementRel                ,+++-- ** Search+    DOMHTMLAreaElementSearchPropertyInfo    ,+    getDOMHTMLAreaElementSearch             ,+++-- ** Shape+    DOMHTMLAreaElementShapePropertyInfo     ,+    constructDOMHTMLAreaElementShape        ,+    getDOMHTMLAreaElementShape              ,+    setDOMHTMLAreaElementShape              ,+++-- ** Target+    DOMHTMLAreaElementTargetPropertyInfo    ,+    constructDOMHTMLAreaElementTarget       ,+    getDOMHTMLAreaElementTarget             ,+    setDOMHTMLAreaElementTarget             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLAreaElement = DOMHTMLAreaElement (ForeignPtr DOMHTMLAreaElement)+foreign import ccall "webkit_dom_html_area_element_get_type"+    c_webkit_dom_html_area_element_get_type :: IO GType++type instance ParentTypes DOMHTMLAreaElement = DOMHTMLAreaElementParentTypes+type DOMHTMLAreaElementParentTypes = '[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++noDOMHTMLAreaElement :: Maybe DOMHTMLAreaElement+noDOMHTMLAreaElement = Nothing++-- VVV Prop "alt"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementAlt obj = liftIO $ getObjectPropertyString obj "alt"++setDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLAreaElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val++constructDOMHTMLAreaElementAlt :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAreaElementAlt val = constructObjectPropertyString "alt" val++data DOMHTMLAreaElementAltPropertyInfo+instance AttrInfo DOMHTMLAreaElementAltPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementAltPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAreaElementAltPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementAltPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementAltPropertyInfo = "DOMHTMLAreaElement::alt"+    attrGet _ = getDOMHTMLAreaElementAlt+    attrSet _ = setDOMHTMLAreaElementAlt+    attrConstruct _ = constructDOMHTMLAreaElementAlt++-- VVV Prop "coords"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementCoords obj = liftIO $ getObjectPropertyString obj "coords"++setDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLAreaElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val++constructDOMHTMLAreaElementCoords :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAreaElementCoords val = constructObjectPropertyString "coords" val++data DOMHTMLAreaElementCoordsPropertyInfo+instance AttrInfo DOMHTMLAreaElementCoordsPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementCoordsPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementCoordsPropertyInfo = "DOMHTMLAreaElement::coords"+    attrGet _ = getDOMHTMLAreaElementCoords+    attrSet _ = setDOMHTMLAreaElementCoords+    attrConstruct _ = constructDOMHTMLAreaElementCoords++-- VVV Prop "hash"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLAreaElementHash :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementHash obj = liftIO $ getObjectPropertyString obj "hash"++data DOMHTMLAreaElementHashPropertyInfo+instance AttrInfo DOMHTMLAreaElementHashPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementHashPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementHashPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLAreaElementHashPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementHashPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementHashPropertyInfo = "DOMHTMLAreaElement::hash"+    attrGet _ = getDOMHTMLAreaElementHash+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "host"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLAreaElementHost :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementHost obj = liftIO $ getObjectPropertyString obj "host"++data DOMHTMLAreaElementHostPropertyInfo+instance AttrInfo DOMHTMLAreaElementHostPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementHostPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementHostPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLAreaElementHostPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementHostPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementHostPropertyInfo = "DOMHTMLAreaElement::host"+    attrGet _ = getDOMHTMLAreaElementHost+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "hostname"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLAreaElementHostname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementHostname obj = liftIO $ getObjectPropertyString obj "hostname"++data DOMHTMLAreaElementHostnamePropertyInfo+instance AttrInfo DOMHTMLAreaElementHostnamePropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementHostnamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementHostnamePropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementHostnamePropertyInfo = "DOMHTMLAreaElement::hostname"+    attrGet _ = getDOMHTMLAreaElementHostname+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "href"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementHref obj = liftIO $ getObjectPropertyString obj "href"++setDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLAreaElementHref obj val = liftIO $ setObjectPropertyString obj "href" val++constructDOMHTMLAreaElementHref :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAreaElementHref val = constructObjectPropertyString "href" val++data DOMHTMLAreaElementHrefPropertyInfo+instance AttrInfo DOMHTMLAreaElementHrefPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementHrefPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementHrefPropertyInfo = "DOMHTMLAreaElement::href"+    attrGet _ = getDOMHTMLAreaElementHref+    attrSet _ = setDOMHTMLAreaElementHref+    attrConstruct _ = constructDOMHTMLAreaElementHref++-- VVV Prop "no-href"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m Bool+getDOMHTMLAreaElementNoHref obj = liftIO $ getObjectPropertyBool obj "no-href"++setDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> Bool -> m ()+setDOMHTMLAreaElementNoHref obj val = liftIO $ setObjectPropertyBool obj "no-href" val++constructDOMHTMLAreaElementNoHref :: Bool -> IO ([Char], GValue)+constructDOMHTMLAreaElementNoHref val = constructObjectPropertyBool "no-href" val++data DOMHTMLAreaElementNoHrefPropertyInfo+instance AttrInfo DOMHTMLAreaElementNoHrefPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementNoHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementNoHrefPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLAreaElementNoHrefPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementNoHrefPropertyInfo = Bool+    type AttrLabel DOMHTMLAreaElementNoHrefPropertyInfo = "DOMHTMLAreaElement::no-href"+    attrGet _ = getDOMHTMLAreaElementNoHref+    attrSet _ = setDOMHTMLAreaElementNoHref+    attrConstruct _ = constructDOMHTMLAreaElementNoHref++-- VVV Prop "pathname"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLAreaElementPathname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementPathname obj = liftIO $ getObjectPropertyString obj "pathname"++data DOMHTMLAreaElementPathnamePropertyInfo+instance AttrInfo DOMHTMLAreaElementPathnamePropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementPathnamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementPathnamePropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementPathnamePropertyInfo = "DOMHTMLAreaElement::pathname"+    attrGet _ = getDOMHTMLAreaElementPathname+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "ping"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementPing obj = liftIO $ getObjectPropertyString obj "ping"++setDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLAreaElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val++constructDOMHTMLAreaElementPing :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAreaElementPing val = constructObjectPropertyString "ping" val++data DOMHTMLAreaElementPingPropertyInfo+instance AttrInfo DOMHTMLAreaElementPingPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementPingPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAreaElementPingPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementPingPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementPingPropertyInfo = "DOMHTMLAreaElement::ping"+    attrGet _ = getDOMHTMLAreaElementPing+    attrSet _ = setDOMHTMLAreaElementPing+    attrConstruct _ = constructDOMHTMLAreaElementPing++-- VVV Prop "port"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLAreaElementPort :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementPort obj = liftIO $ getObjectPropertyString obj "port"++data DOMHTMLAreaElementPortPropertyInfo+instance AttrInfo DOMHTMLAreaElementPortPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementPortPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementPortPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLAreaElementPortPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementPortPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementPortPropertyInfo = "DOMHTMLAreaElement::port"+    attrGet _ = getDOMHTMLAreaElementPort+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "protocol"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLAreaElementProtocol :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol"++data DOMHTMLAreaElementProtocolPropertyInfo+instance AttrInfo DOMHTMLAreaElementProtocolPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementProtocolPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementProtocolPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementProtocolPropertyInfo = "DOMHTMLAreaElement::protocol"+    attrGet _ = getDOMHTMLAreaElementProtocol+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "rel"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementRel obj = liftIO $ getObjectPropertyString obj "rel"++setDOMHTMLAreaElementRel :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLAreaElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val++constructDOMHTMLAreaElementRel :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAreaElementRel val = constructObjectPropertyString "rel" val++data DOMHTMLAreaElementRelPropertyInfo+instance AttrInfo DOMHTMLAreaElementRelPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementRelPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAreaElementRelPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementRelPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementRelPropertyInfo = "DOMHTMLAreaElement::rel"+    attrGet _ = getDOMHTMLAreaElementRel+    attrSet _ = setDOMHTMLAreaElementRel+    attrConstruct _ = constructDOMHTMLAreaElementRel++-- VVV Prop "search"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLAreaElementSearch :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementSearch obj = liftIO $ getObjectPropertyString obj "search"++data DOMHTMLAreaElementSearchPropertyInfo+instance AttrInfo DOMHTMLAreaElementSearchPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementSearchPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementSearchPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementSearchPropertyInfo = "DOMHTMLAreaElement::search"+    attrGet _ = getDOMHTMLAreaElementSearch+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "shape"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementShape obj = liftIO $ getObjectPropertyString obj "shape"++setDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLAreaElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val++constructDOMHTMLAreaElementShape :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAreaElementShape val = constructObjectPropertyString "shape" val++data DOMHTMLAreaElementShapePropertyInfo+instance AttrInfo DOMHTMLAreaElementShapePropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementShapePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAreaElementShapePropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementShapePropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementShapePropertyInfo = "DOMHTMLAreaElement::shape"+    attrGet _ = getDOMHTMLAreaElementShape+    attrSet _ = setDOMHTMLAreaElementShape+    attrConstruct _ = constructDOMHTMLAreaElementShape++-- VVV Prop "target"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text+getDOMHTMLAreaElementTarget obj = liftIO $ getObjectPropertyString obj "target"++setDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLAreaElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val++constructDOMHTMLAreaElementTarget :: T.Text -> IO ([Char], GValue)+constructDOMHTMLAreaElementTarget val = constructObjectPropertyString "target" val++data DOMHTMLAreaElementTargetPropertyInfo+instance AttrInfo DOMHTMLAreaElementTargetPropertyInfo where+    type AttrAllowedOps DOMHTMLAreaElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = DOMHTMLAreaElementK+    type AttrGetType DOMHTMLAreaElementTargetPropertyInfo = T.Text+    type AttrLabel DOMHTMLAreaElementTargetPropertyInfo = "DOMHTMLAreaElement::target"+    attrGet _ = getDOMHTMLAreaElementTarget+    attrSet _ = setDOMHTMLAreaElementTarget+    attrConstruct _ = constructDOMHTMLAreaElementTarget++type instance AttributeList DOMHTMLAreaElement = DOMHTMLAreaElementAttributeList+type DOMHTMLAreaElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("alt", DOMHTMLAreaElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAreaElementCoordsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAreaElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAreaElementHostPropertyInfo), '("hostname", DOMHTMLAreaElementHostnamePropertyInfo), '("href", DOMHTMLAreaElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-href", DOMHTMLAreaElementNoHrefPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAreaElementPathnamePropertyInfo), '("ping", DOMHTMLAreaElementPingPropertyInfo), '("port", DOMHTMLAreaElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAreaElementProtocolPropertyInfo), '("rel", DOMHTMLAreaElementRelPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAreaElementSearchPropertyInfo), '("shape", DOMHTMLAreaElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAreaElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLAreaElement = DOMHTMLAreaElementSignalList+type DOMHTMLAreaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLAreaElement::get_alt+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_alt" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_coords+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_coords" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_hash" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_host+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_host" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_hostname+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_hostname" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_href+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_href" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_no_href+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_pathname" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_port+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_port" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_protocol+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_protocol" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_search+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_search" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_shape+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_shape" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::get_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_area_element_get_target" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLAreaElement::set_alt+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_shape+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLAreaElement.hs-boot view
@@ -0,0 +1,28 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLAreaElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLAreaElement = DOMHTMLAreaElement (ForeignPtr DOMHTMLAreaElement)+instance GObject DOMHTMLAreaElement where+class GObject o => DOMHTMLAreaElementK o+instance (GObject o, IsDescendantOf DOMHTMLAreaElement o) => DOMHTMLAreaElementK o+data DOMHTMLAreaElementAltPropertyInfo+data DOMHTMLAreaElementCoordsPropertyInfo+data DOMHTMLAreaElementHashPropertyInfo+data DOMHTMLAreaElementHostPropertyInfo+data DOMHTMLAreaElementHostnamePropertyInfo+data DOMHTMLAreaElementHrefPropertyInfo+data DOMHTMLAreaElementNoHrefPropertyInfo+data DOMHTMLAreaElementPathnamePropertyInfo+data DOMHTMLAreaElementPingPropertyInfo+data DOMHTMLAreaElementPortPropertyInfo+data DOMHTMLAreaElementProtocolPropertyInfo+data DOMHTMLAreaElementRelPropertyInfo+data DOMHTMLAreaElementSearchPropertyInfo+data DOMHTMLAreaElementShapePropertyInfo+data DOMHTMLAreaElementTargetPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs view
@@ -0,0 +1,158 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLBRElement+    ( ++-- * Exported types+    DOMHTMLBRElement(..)                    ,+    DOMHTMLBRElementK                       ,+    toDOMHTMLBRElement                      ,+    noDOMHTMLBRElement                      ,+++ -- * Methods+-- ** dOMHTMLBRElementGetClear+    dOMHTMLBRElementGetClear                ,+++-- ** dOMHTMLBRElementSetClear+    dOMHTMLBRElementSetClear                ,+++++ -- * Properties+-- ** Clear+    DOMHTMLBRElementClearPropertyInfo       ,+    constructDOMHTMLBRElementClear          ,+    getDOMHTMLBRElementClear                ,+    setDOMHTMLBRElementClear                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLBRElement = DOMHTMLBRElement (ForeignPtr DOMHTMLBRElement)+foreign import ccall "webkit_dom_html_br_element_get_type"+    c_webkit_dom_html_br_element_get_type :: IO GType++type instance ParentTypes DOMHTMLBRElement = DOMHTMLBRElementParentTypes+type DOMHTMLBRElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]++instance GObject DOMHTMLBRElement where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_dom_html_br_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++noDOMHTMLBRElement :: Maybe DOMHTMLBRElement+noDOMHTMLBRElement = Nothing++-- VVV Prop "clear"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> m T.Text+getDOMHTMLBRElementClear obj = liftIO $ getObjectPropertyString obj "clear"++setDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> T.Text -> m ()+setDOMHTMLBRElementClear obj val = liftIO $ setObjectPropertyString obj "clear" val++constructDOMHTMLBRElementClear :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBRElementClear val = constructObjectPropertyString "clear" val++data DOMHTMLBRElementClearPropertyInfo+instance AttrInfo DOMHTMLBRElementClearPropertyInfo where+    type AttrAllowedOps DOMHTMLBRElementClearPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBRElementClearPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBRElementClearPropertyInfo = DOMHTMLBRElementK+    type AttrGetType DOMHTMLBRElementClearPropertyInfo = T.Text+    type AttrLabel DOMHTMLBRElementClearPropertyInfo = "DOMHTMLBRElement::clear"+    attrGet _ = getDOMHTMLBRElementClear+    attrSet _ = setDOMHTMLBRElementClear+    attrConstruct _ = constructDOMHTMLBRElementClear++type instance AttributeList DOMHTMLBRElement = DOMHTMLBRElementAttributeList+type DOMHTMLBRElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("clear", DOMHTMLBRElementClearPropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLBRElement = DOMHTMLBRElementSignalList+type DOMHTMLBRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLBRElement::get_clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_br_element_get_clear" webkit_dom_html_br_element_get_clear :: +    Ptr DOMHTMLBRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLBRElement"+    IO CString+++dOMHTMLBRElementGetClear ::+    (MonadIO m, DOMHTMLBRElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLBRElementGetClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_br_element_get_clear _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_br_element_get_clear" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBRElement::set_clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_br_element_set_clear" webkit_dom_html_br_element_set_clear :: +    Ptr DOMHTMLBRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "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_html_br_element_set_clear _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLBRElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLBRElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLBRElement = DOMHTMLBRElement (ForeignPtr DOMHTMLBRElement)+instance GObject DOMHTMLBRElement where+class GObject o => DOMHTMLBRElementK o+instance (GObject o, IsDescendantOf DOMHTMLBRElement o) => DOMHTMLBRElementK o+data DOMHTMLBRElementClearPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs view
@@ -0,0 +1,252 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLBaseElement+    ( ++-- * Exported types+    DOMHTMLBaseElement(..)                  ,+    DOMHTMLBaseElementK                     ,+    toDOMHTMLBaseElement                    ,+    noDOMHTMLBaseElement                    ,+++ -- * Methods+-- ** dOMHTMLBaseElementGetHref+    dOMHTMLBaseElementGetHref               ,+++-- ** dOMHTMLBaseElementGetTarget+    dOMHTMLBaseElementGetTarget             ,+++-- ** dOMHTMLBaseElementSetHref+    dOMHTMLBaseElementSetHref               ,+++-- ** dOMHTMLBaseElementSetTarget+    dOMHTMLBaseElementSetTarget             ,+++++ -- * Properties+-- ** Href+    DOMHTMLBaseElementHrefPropertyInfo      ,+    constructDOMHTMLBaseElementHref         ,+    getDOMHTMLBaseElementHref               ,+    setDOMHTMLBaseElementHref               ,+++-- ** Target+    DOMHTMLBaseElementTargetPropertyInfo    ,+    constructDOMHTMLBaseElementTarget       ,+    getDOMHTMLBaseElementTarget             ,+    setDOMHTMLBaseElementTarget             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLBaseElement = DOMHTMLBaseElement (ForeignPtr DOMHTMLBaseElement)+foreign import ccall "webkit_dom_html_base_element_get_type"+    c_webkit_dom_html_base_element_get_type :: IO GType++type instance ParentTypes DOMHTMLBaseElement = DOMHTMLBaseElementParentTypes+type DOMHTMLBaseElementParentTypes = '[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++noDOMHTMLBaseElement :: Maybe DOMHTMLBaseElement+noDOMHTMLBaseElement = Nothing++-- VVV Prop "href"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text+getDOMHTMLBaseElementHref obj = liftIO $ getObjectPropertyString obj "href"++setDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m ()+setDOMHTMLBaseElementHref obj val = liftIO $ setObjectPropertyString obj "href" val++constructDOMHTMLBaseElementHref :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBaseElementHref val = constructObjectPropertyString "href" val++data DOMHTMLBaseElementHrefPropertyInfo+instance AttrInfo DOMHTMLBaseElementHrefPropertyInfo where+    type AttrAllowedOps DOMHTMLBaseElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = DOMHTMLBaseElementK+    type AttrGetType DOMHTMLBaseElementHrefPropertyInfo = T.Text+    type AttrLabel DOMHTMLBaseElementHrefPropertyInfo = "DOMHTMLBaseElement::href"+    attrGet _ = getDOMHTMLBaseElementHref+    attrSet _ = setDOMHTMLBaseElementHref+    attrConstruct _ = constructDOMHTMLBaseElementHref++-- VVV Prop "target"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text+getDOMHTMLBaseElementTarget obj = liftIO $ getObjectPropertyString obj "target"++setDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m ()+setDOMHTMLBaseElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val++constructDOMHTMLBaseElementTarget :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBaseElementTarget val = constructObjectPropertyString "target" val++data DOMHTMLBaseElementTargetPropertyInfo+instance AttrInfo DOMHTMLBaseElementTargetPropertyInfo where+    type AttrAllowedOps DOMHTMLBaseElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = DOMHTMLBaseElementK+    type AttrGetType DOMHTMLBaseElementTargetPropertyInfo = T.Text+    type AttrLabel DOMHTMLBaseElementTargetPropertyInfo = "DOMHTMLBaseElement::target"+    attrGet _ = getDOMHTMLBaseElementTarget+    attrSet _ = setDOMHTMLBaseElementTarget+    attrConstruct _ = constructDOMHTMLBaseElementTarget++type instance AttributeList DOMHTMLBaseElement = DOMHTMLBaseElementAttributeList+type DOMHTMLBaseElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLBaseElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLBaseElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLBaseElement = DOMHTMLBaseElementSignalList+type DOMHTMLBaseElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLBaseElement::get_href+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_base_element_get_href" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBaseElement::get_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_base_element_get_target" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBaseElement::set_href+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLBaseElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLBaseElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLBaseElement = DOMHTMLBaseElement (ForeignPtr DOMHTMLBaseElement)+instance GObject DOMHTMLBaseElement where+class GObject o => DOMHTMLBaseElementK o+instance (GObject o, IsDescendantOf DOMHTMLBaseElement o) => DOMHTMLBaseElementK o+data DOMHTMLBaseElementHrefPropertyInfo+data DOMHTMLBaseElementTargetPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs view
@@ -0,0 +1,341 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLBaseFontElement+    ( ++-- * Exported types+    DOMHTMLBaseFontElement(..)              ,+    DOMHTMLBaseFontElementK                 ,+    toDOMHTMLBaseFontElement                ,+    noDOMHTMLBaseFontElement                ,+++ -- * Methods+-- ** dOMHTMLBaseFontElementGetColor+    dOMHTMLBaseFontElementGetColor          ,+++-- ** dOMHTMLBaseFontElementGetFace+    dOMHTMLBaseFontElementGetFace           ,+++-- ** dOMHTMLBaseFontElementGetSize+    dOMHTMLBaseFontElementGetSize           ,+++-- ** dOMHTMLBaseFontElementSetColor+    dOMHTMLBaseFontElementSetColor          ,+++-- ** dOMHTMLBaseFontElementSetFace+    dOMHTMLBaseFontElementSetFace           ,+++-- ** dOMHTMLBaseFontElementSetSize+    dOMHTMLBaseFontElementSetSize           ,+++++ -- * Properties+-- ** Color+    DOMHTMLBaseFontElementColorPropertyInfo ,+    constructDOMHTMLBaseFontElementColor    ,+    getDOMHTMLBaseFontElementColor          ,+    setDOMHTMLBaseFontElementColor          ,+++-- ** Face+    DOMHTMLBaseFontElementFacePropertyInfo  ,+    constructDOMHTMLBaseFontElementFace     ,+    getDOMHTMLBaseFontElementFace           ,+    setDOMHTMLBaseFontElementFace           ,+++-- ** Size+    DOMHTMLBaseFontElementSizePropertyInfo  ,+    constructDOMHTMLBaseFontElementSize     ,+    getDOMHTMLBaseFontElementSize           ,+    setDOMHTMLBaseFontElementSize           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLBaseFontElement = DOMHTMLBaseFontElement (ForeignPtr DOMHTMLBaseFontElement)+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 = DOMHTMLBaseFontElementParentTypes+type DOMHTMLBaseFontElementParentTypes = '[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++noDOMHTMLBaseFontElement :: Maybe DOMHTMLBaseFontElement+noDOMHTMLBaseFontElement = Nothing++-- VVV Prop "color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text+getDOMHTMLBaseFontElementColor obj = liftIO $ getObjectPropertyString obj "color"++setDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m ()+setDOMHTMLBaseFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val++constructDOMHTMLBaseFontElementColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBaseFontElementColor val = constructObjectPropertyString "color" val++data DOMHTMLBaseFontElementColorPropertyInfo+instance AttrInfo DOMHTMLBaseFontElementColorPropertyInfo where+    type AttrAllowedOps DOMHTMLBaseFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = DOMHTMLBaseFontElementK+    type AttrGetType DOMHTMLBaseFontElementColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLBaseFontElementColorPropertyInfo = "DOMHTMLBaseFontElement::color"+    attrGet _ = getDOMHTMLBaseFontElementColor+    attrSet _ = setDOMHTMLBaseFontElementColor+    attrConstruct _ = constructDOMHTMLBaseFontElementColor++-- VVV Prop "face"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text+getDOMHTMLBaseFontElementFace obj = liftIO $ getObjectPropertyString obj "face"++setDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m ()+setDOMHTMLBaseFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val++constructDOMHTMLBaseFontElementFace :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBaseFontElementFace val = constructObjectPropertyString "face" val++data DOMHTMLBaseFontElementFacePropertyInfo+instance AttrInfo DOMHTMLBaseFontElementFacePropertyInfo where+    type AttrAllowedOps DOMHTMLBaseFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = DOMHTMLBaseFontElementK+    type AttrGetType DOMHTMLBaseFontElementFacePropertyInfo = T.Text+    type AttrLabel DOMHTMLBaseFontElementFacePropertyInfo = "DOMHTMLBaseFontElement::face"+    attrGet _ = getDOMHTMLBaseFontElementFace+    attrSet _ = setDOMHTMLBaseFontElementFace+    attrConstruct _ = constructDOMHTMLBaseFontElementFace++-- VVV Prop "size"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m Int64+getDOMHTMLBaseFontElementSize obj = liftIO $ getObjectPropertyInt64 obj "size"++setDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> Int64 -> m ()+setDOMHTMLBaseFontElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val++constructDOMHTMLBaseFontElementSize :: Int64 -> IO ([Char], GValue)+constructDOMHTMLBaseFontElementSize val = constructObjectPropertyInt64 "size" val++data DOMHTMLBaseFontElementSizePropertyInfo+instance AttrInfo DOMHTMLBaseFontElementSizePropertyInfo where+    type AttrAllowedOps DOMHTMLBaseFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = DOMHTMLBaseFontElementK+    type AttrGetType DOMHTMLBaseFontElementSizePropertyInfo = Int64+    type AttrLabel DOMHTMLBaseFontElementSizePropertyInfo = "DOMHTMLBaseFontElement::size"+    attrGet _ = getDOMHTMLBaseFontElementSize+    attrSet _ = setDOMHTMLBaseFontElementSize+    attrConstruct _ = constructDOMHTMLBaseFontElementSize++type instance AttributeList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementAttributeList+type DOMHTMLBaseFontElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLBaseFontElementColorPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLBaseFontElementFacePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLBaseFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLBaseFontElement = DOMHTMLBaseFontElementSignalList+type DOMHTMLBaseFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLBaseFontElement::get_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_base_font_element_get_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBaseFontElement::get_face+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_base_font_element_get_face" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBaseFontElement::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBaseFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLBaseFontElement.hs-boot view
@@ -0,0 +1,16 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLBaseFontElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLBaseFontElement = DOMHTMLBaseFontElement (ForeignPtr DOMHTMLBaseFontElement)+instance GObject DOMHTMLBaseFontElement where+class GObject o => DOMHTMLBaseFontElementK o+instance (GObject o, IsDescendantOf DOMHTMLBaseFontElement o) => DOMHTMLBaseFontElementK o+data DOMHTMLBaseFontElementColorPropertyInfo+data DOMHTMLBaseFontElementFacePropertyInfo+data DOMHTMLBaseFontElementSizePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs view
@@ -0,0 +1,628 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement+    ( ++-- * Exported types+    DOMHTMLBodyElement(..)                  ,+    DOMHTMLBodyElementK                     ,+    toDOMHTMLBodyElement                    ,+    noDOMHTMLBodyElement                    ,+++ -- * Methods+-- ** dOMHTMLBodyElementGetALink+    dOMHTMLBodyElementGetALink              ,+++-- ** dOMHTMLBodyElementGetBackground+    dOMHTMLBodyElementGetBackground         ,+++-- ** dOMHTMLBodyElementGetBgColor+    dOMHTMLBodyElementGetBgColor            ,+++-- ** dOMHTMLBodyElementGetLink+    dOMHTMLBodyElementGetLink               ,+++-- ** dOMHTMLBodyElementGetText+    dOMHTMLBodyElementGetText               ,+++-- ** dOMHTMLBodyElementGetVLink+    dOMHTMLBodyElementGetVLink              ,+++-- ** dOMHTMLBodyElementSetALink+    dOMHTMLBodyElementSetALink              ,+++-- ** dOMHTMLBodyElementSetBackground+    dOMHTMLBodyElementSetBackground         ,+++-- ** dOMHTMLBodyElementSetBgColor+    dOMHTMLBodyElementSetBgColor            ,+++-- ** dOMHTMLBodyElementSetLink+    dOMHTMLBodyElementSetLink               ,+++-- ** dOMHTMLBodyElementSetText+    dOMHTMLBodyElementSetText               ,+++-- ** dOMHTMLBodyElementSetVLink+    dOMHTMLBodyElementSetVLink              ,+++++ -- * Properties+-- ** ALink+    DOMHTMLBodyElementALinkPropertyInfo     ,+    constructDOMHTMLBodyElementALink        ,+    getDOMHTMLBodyElementALink              ,+    setDOMHTMLBodyElementALink              ,+++-- ** Background+    DOMHTMLBodyElementBackgroundPropertyInfo,+    constructDOMHTMLBodyElementBackground   ,+    getDOMHTMLBodyElementBackground         ,+    setDOMHTMLBodyElementBackground         ,+++-- ** BgColor+    DOMHTMLBodyElementBgColorPropertyInfo   ,+    constructDOMHTMLBodyElementBgColor      ,+    getDOMHTMLBodyElementBgColor            ,+    setDOMHTMLBodyElementBgColor            ,+++-- ** Link+    DOMHTMLBodyElementLinkPropertyInfo      ,+    constructDOMHTMLBodyElementLink         ,+    getDOMHTMLBodyElementLink               ,+    setDOMHTMLBodyElementLink               ,+++-- ** Text+    DOMHTMLBodyElementTextPropertyInfo      ,+    constructDOMHTMLBodyElementText         ,+    getDOMHTMLBodyElementText               ,+    setDOMHTMLBodyElementText               ,+++-- ** VLink+    DOMHTMLBodyElementVLinkPropertyInfo     ,+    constructDOMHTMLBodyElementVLink        ,+    getDOMHTMLBodyElementVLink              ,+    setDOMHTMLBodyElementVLink              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLBodyElement = DOMHTMLBodyElement (ForeignPtr DOMHTMLBodyElement)+foreign import ccall "webkit_dom_html_body_element_get_type"+    c_webkit_dom_html_body_element_get_type :: IO GType++type instance ParentTypes DOMHTMLBodyElement = DOMHTMLBodyElementParentTypes+type DOMHTMLBodyElementParentTypes = '[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++noDOMHTMLBodyElement :: Maybe DOMHTMLBodyElement+noDOMHTMLBodyElement = Nothing++-- VVV Prop "a-link"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text+getDOMHTMLBodyElementALink obj = liftIO $ getObjectPropertyString obj "a-link"++setDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m ()+setDOMHTMLBodyElementALink obj val = liftIO $ setObjectPropertyString obj "a-link" val++constructDOMHTMLBodyElementALink :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBodyElementALink val = constructObjectPropertyString "a-link" val++data DOMHTMLBodyElementALinkPropertyInfo+instance AttrInfo DOMHTMLBodyElementALinkPropertyInfo where+    type AttrAllowedOps DOMHTMLBodyElementALinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = DOMHTMLBodyElementK+    type AttrGetType DOMHTMLBodyElementALinkPropertyInfo = T.Text+    type AttrLabel DOMHTMLBodyElementALinkPropertyInfo = "DOMHTMLBodyElement::a-link"+    attrGet _ = getDOMHTMLBodyElementALink+    attrSet _ = setDOMHTMLBodyElementALink+    attrConstruct _ = constructDOMHTMLBodyElementALink++-- VVV Prop "background"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text+getDOMHTMLBodyElementBackground obj = liftIO $ getObjectPropertyString obj "background"++setDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m ()+setDOMHTMLBodyElementBackground obj val = liftIO $ setObjectPropertyString obj "background" val++constructDOMHTMLBodyElementBackground :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBodyElementBackground val = constructObjectPropertyString "background" val++data DOMHTMLBodyElementBackgroundPropertyInfo+instance AttrInfo DOMHTMLBodyElementBackgroundPropertyInfo where+    type AttrAllowedOps DOMHTMLBodyElementBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = DOMHTMLBodyElementK+    type AttrGetType DOMHTMLBodyElementBackgroundPropertyInfo = T.Text+    type AttrLabel DOMHTMLBodyElementBackgroundPropertyInfo = "DOMHTMLBodyElement::background"+    attrGet _ = getDOMHTMLBodyElementBackground+    attrSet _ = setDOMHTMLBodyElementBackground+    attrConstruct _ = constructDOMHTMLBodyElementBackground++-- VVV Prop "bg-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text+getDOMHTMLBodyElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color"++setDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m ()+setDOMHTMLBodyElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val++constructDOMHTMLBodyElementBgColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBodyElementBgColor val = constructObjectPropertyString "bg-color" val++data DOMHTMLBodyElementBgColorPropertyInfo+instance AttrInfo DOMHTMLBodyElementBgColorPropertyInfo where+    type AttrAllowedOps DOMHTMLBodyElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = DOMHTMLBodyElementK+    type AttrGetType DOMHTMLBodyElementBgColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLBodyElementBgColorPropertyInfo = "DOMHTMLBodyElement::bg-color"+    attrGet _ = getDOMHTMLBodyElementBgColor+    attrSet _ = setDOMHTMLBodyElementBgColor+    attrConstruct _ = constructDOMHTMLBodyElementBgColor++-- VVV Prop "link"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text+getDOMHTMLBodyElementLink obj = liftIO $ getObjectPropertyString obj "link"++setDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m ()+setDOMHTMLBodyElementLink obj val = liftIO $ setObjectPropertyString obj "link" val++constructDOMHTMLBodyElementLink :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBodyElementLink val = constructObjectPropertyString "link" val++data DOMHTMLBodyElementLinkPropertyInfo+instance AttrInfo DOMHTMLBodyElementLinkPropertyInfo where+    type AttrAllowedOps DOMHTMLBodyElementLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = DOMHTMLBodyElementK+    type AttrGetType DOMHTMLBodyElementLinkPropertyInfo = T.Text+    type AttrLabel DOMHTMLBodyElementLinkPropertyInfo = "DOMHTMLBodyElement::link"+    attrGet _ = getDOMHTMLBodyElementLink+    attrSet _ = setDOMHTMLBodyElementLink+    attrConstruct _ = constructDOMHTMLBodyElementLink++-- VVV Prop "text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text+getDOMHTMLBodyElementText obj = liftIO $ getObjectPropertyString obj "text"++setDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m ()+setDOMHTMLBodyElementText obj val = liftIO $ setObjectPropertyString obj "text" val++constructDOMHTMLBodyElementText :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBodyElementText val = constructObjectPropertyString "text" val++data DOMHTMLBodyElementTextPropertyInfo+instance AttrInfo DOMHTMLBodyElementTextPropertyInfo where+    type AttrAllowedOps DOMHTMLBodyElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBodyElementTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBodyElementTextPropertyInfo = DOMHTMLBodyElementK+    type AttrGetType DOMHTMLBodyElementTextPropertyInfo = T.Text+    type AttrLabel DOMHTMLBodyElementTextPropertyInfo = "DOMHTMLBodyElement::text"+    attrGet _ = getDOMHTMLBodyElementText+    attrSet _ = setDOMHTMLBodyElementText+    attrConstruct _ = constructDOMHTMLBodyElementText++-- VVV Prop "v-link"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text+getDOMHTMLBodyElementVLink obj = liftIO $ getObjectPropertyString obj "v-link"++setDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m ()+setDOMHTMLBodyElementVLink obj val = liftIO $ setObjectPropertyString obj "v-link" val++constructDOMHTMLBodyElementVLink :: T.Text -> IO ([Char], GValue)+constructDOMHTMLBodyElementVLink val = constructObjectPropertyString "v-link" val++data DOMHTMLBodyElementVLinkPropertyInfo+instance AttrInfo DOMHTMLBodyElementVLinkPropertyInfo where+    type AttrAllowedOps DOMHTMLBodyElementVLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = DOMHTMLBodyElementK+    type AttrGetType DOMHTMLBodyElementVLinkPropertyInfo = T.Text+    type AttrLabel DOMHTMLBodyElementVLinkPropertyInfo = "DOMHTMLBodyElement::v-link"+    attrGet _ = getDOMHTMLBodyElementVLink+    attrSet _ = setDOMHTMLBodyElementVLink+    attrConstruct _ = constructDOMHTMLBodyElementVLink++type instance AttributeList DOMHTMLBodyElement = DOMHTMLBodyElementAttributeList+type DOMHTMLBodyElementAttributeList = ('[ '("a-link", DOMHTMLBodyElementALinkPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("background", DOMHTMLBodyElementBackgroundPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLBodyElementBgColorPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("link", DOMHTMLBodyElementLinkPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLBodyElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-link", DOMHTMLBodyElementVLinkPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLBodyElement = DOMHTMLBodyElementSignalList+type DOMHTMLBodyElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLBodyElement::get_a_link+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_a_link" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBodyElement::get_background+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_background" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBodyElement::get_bg_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_bg_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBodyElement::get_link+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_link" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBodyElement::get_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBodyElement::get_v_link+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLBodyElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_body_element_get_v_link" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLBodyElement::set_a_link+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLBodyElement.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLBodyElement = DOMHTMLBodyElement (ForeignPtr DOMHTMLBodyElement)+instance GObject DOMHTMLBodyElement where+class GObject o => DOMHTMLBodyElementK o+instance (GObject o, IsDescendantOf DOMHTMLBodyElement o) => DOMHTMLBodyElementK o+data DOMHTMLBodyElementALinkPropertyInfo+data DOMHTMLBodyElementBackgroundPropertyInfo+data DOMHTMLBodyElementBgColorPropertyInfo+data DOMHTMLBodyElementLinkPropertyInfo+data DOMHTMLBodyElementTextPropertyInfo+data DOMHTMLBodyElementVLinkPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs view
@@ -0,0 +1,834 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLButtonElement+    ( ++-- * Exported types+    DOMHTMLButtonElement(..)                ,+    DOMHTMLButtonElementK                   ,+    toDOMHTMLButtonElement                  ,+    noDOMHTMLButtonElement                  ,+++ -- * Methods+-- ** dOMHTMLButtonElementGetAutofocus+    dOMHTMLButtonElementGetAutofocus        ,+++-- ** dOMHTMLButtonElementGetButtonType+    dOMHTMLButtonElementGetButtonType       ,+++-- ** dOMHTMLButtonElementGetDisabled+    dOMHTMLButtonElementGetDisabled         ,+++-- ** dOMHTMLButtonElementGetForm+    dOMHTMLButtonElementGetForm             ,+++-- ** dOMHTMLButtonElementGetName+    dOMHTMLButtonElementGetName             ,+++-- ** dOMHTMLButtonElementGetValue+    dOMHTMLButtonElementGetValue            ,+++-- ** dOMHTMLButtonElementGetWillValidate+    dOMHTMLButtonElementGetWillValidate     ,+++-- ** dOMHTMLButtonElementSetAutofocus+    dOMHTMLButtonElementSetAutofocus        ,+++-- ** dOMHTMLButtonElementSetButtonType+    dOMHTMLButtonElementSetButtonType       ,+++-- ** dOMHTMLButtonElementSetDisabled+    dOMHTMLButtonElementSetDisabled         ,+++-- ** dOMHTMLButtonElementSetName+    dOMHTMLButtonElementSetName             ,+++-- ** dOMHTMLButtonElementSetValue+    dOMHTMLButtonElementSetValue            ,+++++ -- * Properties+-- ** Autofocus+    DOMHTMLButtonElementAutofocusPropertyInfo,+    constructDOMHTMLButtonElementAutofocus  ,+    getDOMHTMLButtonElementAutofocus        ,+    setDOMHTMLButtonElementAutofocus        ,+++-- ** Disabled+    DOMHTMLButtonElementDisabledPropertyInfo,+    constructDOMHTMLButtonElementDisabled   ,+    getDOMHTMLButtonElementDisabled         ,+    setDOMHTMLButtonElementDisabled         ,+++-- ** Form+    DOMHTMLButtonElementFormPropertyInfo    ,+    getDOMHTMLButtonElementForm             ,+++-- ** FormAction+    DOMHTMLButtonElementFormActionPropertyInfo,+    constructDOMHTMLButtonElementFormAction ,+    getDOMHTMLButtonElementFormAction       ,+    setDOMHTMLButtonElementFormAction       ,+++-- ** FormEnctype+    DOMHTMLButtonElementFormEnctypePropertyInfo,+    constructDOMHTMLButtonElementFormEnctype,+    getDOMHTMLButtonElementFormEnctype      ,+    setDOMHTMLButtonElementFormEnctype      ,+++-- ** FormMethod+    DOMHTMLButtonElementFormMethodPropertyInfo,+    constructDOMHTMLButtonElementFormMethod ,+    getDOMHTMLButtonElementFormMethod       ,+    setDOMHTMLButtonElementFormMethod       ,+++-- ** FormNoValidate+    DOMHTMLButtonElementFormNoValidatePropertyInfo,+    constructDOMHTMLButtonElementFormNoValidate,+    getDOMHTMLButtonElementFormNoValidate   ,+    setDOMHTMLButtonElementFormNoValidate   ,+++-- ** FormTarget+    DOMHTMLButtonElementFormTargetPropertyInfo,+    constructDOMHTMLButtonElementFormTarget ,+    getDOMHTMLButtonElementFormTarget       ,+    setDOMHTMLButtonElementFormTarget       ,+++-- ** Labels+    DOMHTMLButtonElementLabelsPropertyInfo  ,+    getDOMHTMLButtonElementLabels           ,+++-- ** Name+    DOMHTMLButtonElementNamePropertyInfo    ,+    constructDOMHTMLButtonElementName       ,+    getDOMHTMLButtonElementName             ,+    setDOMHTMLButtonElementName             ,+++-- ** Type+    DOMHTMLButtonElementTypePropertyInfo    ,+    constructDOMHTMLButtonElementType       ,+    getDOMHTMLButtonElementType             ,+    setDOMHTMLButtonElementType             ,+++-- ** ValidationMessage+    DOMHTMLButtonElementValidationMessagePropertyInfo,+    getDOMHTMLButtonElementValidationMessage,+++-- ** Value+    DOMHTMLButtonElementValuePropertyInfo   ,+    constructDOMHTMLButtonElementValue      ,+    getDOMHTMLButtonElementValue            ,+    setDOMHTMLButtonElementValue            ,+++-- ** WillValidate+    DOMHTMLButtonElementWillValidatePropertyInfo,+    getDOMHTMLButtonElementWillValidate     ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLButtonElement = DOMHTMLButtonElement (ForeignPtr DOMHTMLButtonElement)+foreign import ccall "webkit_dom_html_button_element_get_type"+    c_webkit_dom_html_button_element_get_type :: IO GType++type instance ParentTypes DOMHTMLButtonElement = DOMHTMLButtonElementParentTypes+type DOMHTMLButtonElementParentTypes = '[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++noDOMHTMLButtonElement :: Maybe DOMHTMLButtonElement+noDOMHTMLButtonElement = Nothing++-- VVV Prop "autofocus"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool+getDOMHTMLButtonElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus"++setDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m ()+setDOMHTMLButtonElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val++constructDOMHTMLButtonElementAutofocus :: Bool -> IO ([Char], GValue)+constructDOMHTMLButtonElementAutofocus val = constructObjectPropertyBool "autofocus" val++data DOMHTMLButtonElementAutofocusPropertyInfo+instance AttrInfo DOMHTMLButtonElementAutofocusPropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementAutofocusPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLButtonElementAutofocusPropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementAutofocusPropertyInfo = Bool+    type AttrLabel DOMHTMLButtonElementAutofocusPropertyInfo = "DOMHTMLButtonElement::autofocus"+    attrGet _ = getDOMHTMLButtonElementAutofocus+    attrSet _ = setDOMHTMLButtonElementAutofocus+    attrConstruct _ = constructDOMHTMLButtonElementAutofocus++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool+getDOMHTMLButtonElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m ()+setDOMHTMLButtonElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLButtonElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLButtonElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLButtonElementDisabledPropertyInfo+instance AttrInfo DOMHTMLButtonElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLButtonElementDisabledPropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLButtonElementDisabledPropertyInfo = "DOMHTMLButtonElement::disabled"+    attrGet _ = getDOMHTMLButtonElementDisabled+    attrSet _ = setDOMHTMLButtonElementDisabled+    attrConstruct _ = constructDOMHTMLButtonElementDisabled++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLButtonElementForm :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLButtonElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLButtonElementFormPropertyInfo+instance AttrInfo DOMHTMLButtonElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLButtonElementFormPropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLButtonElementFormPropertyInfo = "DOMHTMLButtonElement::form"+    attrGet _ = getDOMHTMLButtonElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "form-action"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text+getDOMHTMLButtonElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action"++setDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m ()+setDOMHTMLButtonElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val++constructDOMHTMLButtonElementFormAction :: T.Text -> IO ([Char], GValue)+constructDOMHTMLButtonElementFormAction val = constructObjectPropertyString "form-action" val++data DOMHTMLButtonElementFormActionPropertyInfo+instance AttrInfo DOMHTMLButtonElementFormActionPropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementFormActionPropertyInfo = T.Text+    type AttrLabel DOMHTMLButtonElementFormActionPropertyInfo = "DOMHTMLButtonElement::form-action"+    attrGet _ = getDOMHTMLButtonElementFormAction+    attrSet _ = setDOMHTMLButtonElementFormAction+    attrConstruct _ = constructDOMHTMLButtonElementFormAction++-- VVV Prop "form-enctype"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text+getDOMHTMLButtonElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype"++setDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m ()+setDOMHTMLButtonElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val++constructDOMHTMLButtonElementFormEnctype :: T.Text -> IO ([Char], GValue)+constructDOMHTMLButtonElementFormEnctype val = constructObjectPropertyString "form-enctype" val++data DOMHTMLButtonElementFormEnctypePropertyInfo+instance AttrInfo DOMHTMLButtonElementFormEnctypePropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementFormEnctypePropertyInfo = T.Text+    type AttrLabel DOMHTMLButtonElementFormEnctypePropertyInfo = "DOMHTMLButtonElement::form-enctype"+    attrGet _ = getDOMHTMLButtonElementFormEnctype+    attrSet _ = setDOMHTMLButtonElementFormEnctype+    attrConstruct _ = constructDOMHTMLButtonElementFormEnctype++-- VVV Prop "form-method"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text+getDOMHTMLButtonElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method"++setDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m ()+setDOMHTMLButtonElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val++constructDOMHTMLButtonElementFormMethod :: T.Text -> IO ([Char], GValue)+constructDOMHTMLButtonElementFormMethod val = constructObjectPropertyString "form-method" val++data DOMHTMLButtonElementFormMethodPropertyInfo+instance AttrInfo DOMHTMLButtonElementFormMethodPropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementFormMethodPropertyInfo = T.Text+    type AttrLabel DOMHTMLButtonElementFormMethodPropertyInfo = "DOMHTMLButtonElement::form-method"+    attrGet _ = getDOMHTMLButtonElementFormMethod+    attrSet _ = setDOMHTMLButtonElementFormMethod+    attrConstruct _ = constructDOMHTMLButtonElementFormMethod++-- VVV Prop "form-no-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool+getDOMHTMLButtonElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate"++setDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m ()+setDOMHTMLButtonElementFormNoValidate obj val = liftIO $ setObjectPropertyBool obj "form-no-validate" val++constructDOMHTMLButtonElementFormNoValidate :: Bool -> IO ([Char], GValue)+constructDOMHTMLButtonElementFormNoValidate val = constructObjectPropertyBool "form-no-validate" val++data DOMHTMLButtonElementFormNoValidatePropertyInfo+instance AttrInfo DOMHTMLButtonElementFormNoValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementFormNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementFormNoValidatePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLButtonElementFormNoValidatePropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementFormNoValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLButtonElementFormNoValidatePropertyInfo = "DOMHTMLButtonElement::form-no-validate"+    attrGet _ = getDOMHTMLButtonElementFormNoValidate+    attrSet _ = setDOMHTMLButtonElementFormNoValidate+    attrConstruct _ = constructDOMHTMLButtonElementFormNoValidate++-- VVV Prop "form-target"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text+getDOMHTMLButtonElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target"++setDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m ()+setDOMHTMLButtonElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val++constructDOMHTMLButtonElementFormTarget :: T.Text -> IO ([Char], GValue)+constructDOMHTMLButtonElementFormTarget val = constructObjectPropertyString "form-target" val++data DOMHTMLButtonElementFormTargetPropertyInfo+instance AttrInfo DOMHTMLButtonElementFormTargetPropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementFormTargetPropertyInfo = T.Text+    type AttrLabel DOMHTMLButtonElementFormTargetPropertyInfo = "DOMHTMLButtonElement::form-target"+    attrGet _ = getDOMHTMLButtonElementFormTarget+    attrSet _ = setDOMHTMLButtonElementFormTarget+    attrConstruct _ = constructDOMHTMLButtonElementFormTarget++-- VVV Prop "labels"+   -- Type: TInterface "WebKit2WebExtension" "DOMNodeList"+   -- Flags: [PropertyReadable]++getDOMHTMLButtonElementLabels :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMNodeList+getDOMHTMLButtonElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList++data DOMHTMLButtonElementLabelsPropertyInfo+instance AttrInfo DOMHTMLButtonElementLabelsPropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementLabelsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementLabelsPropertyInfo = DOMNodeList+    type AttrLabel DOMHTMLButtonElementLabelsPropertyInfo = "DOMHTMLButtonElement::labels"+    attrGet _ = getDOMHTMLButtonElementLabels+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text+getDOMHTMLButtonElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m ()+setDOMHTMLButtonElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLButtonElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLButtonElementName val = constructObjectPropertyString "name" val++data DOMHTMLButtonElementNamePropertyInfo+instance AttrInfo DOMHTMLButtonElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLButtonElementNamePropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLButtonElementNamePropertyInfo = "DOMHTMLButtonElement::name"+    attrGet _ = getDOMHTMLButtonElementName+    attrSet _ = setDOMHTMLButtonElementName+    attrConstruct _ = constructDOMHTMLButtonElementName++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text+getDOMHTMLButtonElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m ()+setDOMHTMLButtonElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLButtonElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLButtonElementType val = constructObjectPropertyString "type" val++data DOMHTMLButtonElementTypePropertyInfo+instance AttrInfo DOMHTMLButtonElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLButtonElementTypePropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLButtonElementTypePropertyInfo = "DOMHTMLButtonElement::type"+    attrGet _ = getDOMHTMLButtonElementType+    attrSet _ = setDOMHTMLButtonElementType+    attrConstruct _ = constructDOMHTMLButtonElementType++-- VVV Prop "validation-message"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLButtonElementValidationMessage :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text+getDOMHTMLButtonElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message"++data DOMHTMLButtonElementValidationMessagePropertyInfo+instance AttrInfo DOMHTMLButtonElementValidationMessagePropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementValidationMessagePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementValidationMessagePropertyInfo = T.Text+    type AttrLabel DOMHTMLButtonElementValidationMessagePropertyInfo = "DOMHTMLButtonElement::validation-message"+    attrGet _ = getDOMHTMLButtonElementValidationMessage+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text+getDOMHTMLButtonElementValue obj = liftIO $ getObjectPropertyString obj "value"++setDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m ()+setDOMHTMLButtonElementValue obj val = liftIO $ setObjectPropertyString obj "value" val++constructDOMHTMLButtonElementValue :: T.Text -> IO ([Char], GValue)+constructDOMHTMLButtonElementValue val = constructObjectPropertyString "value" val++data DOMHTMLButtonElementValuePropertyInfo+instance AttrInfo DOMHTMLButtonElementValuePropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLButtonElementValuePropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementValuePropertyInfo = T.Text+    type AttrLabel DOMHTMLButtonElementValuePropertyInfo = "DOMHTMLButtonElement::value"+    attrGet _ = getDOMHTMLButtonElementValue+    attrSet _ = setDOMHTMLButtonElementValue+    attrConstruct _ = constructDOMHTMLButtonElementValue++-- VVV Prop "will-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMHTMLButtonElementWillValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool+getDOMHTMLButtonElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate"++data DOMHTMLButtonElementWillValidatePropertyInfo+instance AttrInfo DOMHTMLButtonElementWillValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLButtonElementWillValidatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLButtonElementWillValidatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLButtonElementWillValidatePropertyInfo = DOMHTMLButtonElementK+    type AttrGetType DOMHTMLButtonElementWillValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLButtonElementWillValidatePropertyInfo = "DOMHTMLButtonElement::will-validate"+    attrGet _ = getDOMHTMLButtonElementWillValidate+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLButtonElement = DOMHTMLButtonElementAttributeList+type DOMHTMLButtonElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLButtonElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLButtonElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLButtonElementFormPropertyInfo), '("form-action", DOMHTMLButtonElementFormActionPropertyInfo), '("form-enctype", DOMHTMLButtonElementFormEnctypePropertyInfo), '("form-method", DOMHTMLButtonElementFormMethodPropertyInfo), '("form-no-validate", DOMHTMLButtonElementFormNoValidatePropertyInfo), '("form-target", DOMHTMLButtonElementFormTargetPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLButtonElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLButtonElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLButtonElementTypePropertyInfo), '("validation-message", DOMHTMLButtonElementValidationMessagePropertyInfo), '("value", DOMHTMLButtonElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLButtonElementWillValidatePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLButtonElement = DOMHTMLButtonElementSignalList+type DOMHTMLButtonElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLButtonElement::get_autofocus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_button_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_button_type" webkit_dom_html_button_element_get_button_type :: +    Ptr DOMHTMLButtonElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLButtonElement"+    IO CString+++dOMHTMLButtonElementGetButtonType ::+    (MonadIO m, DOMHTMLButtonElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLButtonElementGetButtonType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_button_element_get_button_type _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_button_type" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLButtonElement::get_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLButtonElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLButtonElement::get_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_button_element_get_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLButtonElement::get_will_validate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLButtonElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_button_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_button_type" webkit_dom_html_button_element_set_button_type :: +    Ptr DOMHTMLButtonElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLButtonElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLButtonElementSetButtonType ::+    (MonadIO m, DOMHTMLButtonElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLButtonElementSetButtonType _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_button_element_set_button_type _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method DOMHTMLButtonElement::set_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLButtonElement.hs-boot view
@@ -0,0 +1,27 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLButtonElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLButtonElement = DOMHTMLButtonElement (ForeignPtr DOMHTMLButtonElement)+instance GObject DOMHTMLButtonElement where+class GObject o => DOMHTMLButtonElementK o+instance (GObject o, IsDescendantOf DOMHTMLButtonElement o) => DOMHTMLButtonElementK o+data DOMHTMLButtonElementAutofocusPropertyInfo+data DOMHTMLButtonElementDisabledPropertyInfo+data DOMHTMLButtonElementFormPropertyInfo+data DOMHTMLButtonElementFormActionPropertyInfo+data DOMHTMLButtonElementFormEnctypePropertyInfo+data DOMHTMLButtonElementFormMethodPropertyInfo+data DOMHTMLButtonElementFormNoValidatePropertyInfo+data DOMHTMLButtonElementFormTargetPropertyInfo+data DOMHTMLButtonElementLabelsPropertyInfo+data DOMHTMLButtonElementNamePropertyInfo+data DOMHTMLButtonElementTypePropertyInfo+data DOMHTMLButtonElementValidationMessagePropertyInfo+data DOMHTMLButtonElementValuePropertyInfo+data DOMHTMLButtonElementWillValidatePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs view
@@ -0,0 +1,242 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLCanvasElement+    ( ++-- * Exported types+    DOMHTMLCanvasElement(..)                ,+    DOMHTMLCanvasElementK                   ,+    toDOMHTMLCanvasElement                  ,+    noDOMHTMLCanvasElement                  ,+++ -- * Methods+-- ** dOMHTMLCanvasElementGetHeight+    dOMHTMLCanvasElementGetHeight           ,+++-- ** dOMHTMLCanvasElementGetWidth+    dOMHTMLCanvasElementGetWidth            ,+++-- ** dOMHTMLCanvasElementSetHeight+    dOMHTMLCanvasElementSetHeight           ,+++-- ** dOMHTMLCanvasElementSetWidth+    dOMHTMLCanvasElementSetWidth            ,+++++ -- * Properties+-- ** Height+    DOMHTMLCanvasElementHeightPropertyInfo  ,+    constructDOMHTMLCanvasElementHeight     ,+    getDOMHTMLCanvasElementHeight           ,+    setDOMHTMLCanvasElementHeight           ,+++-- ** Width+    DOMHTMLCanvasElementWidthPropertyInfo   ,+    constructDOMHTMLCanvasElementWidth      ,+    getDOMHTMLCanvasElementWidth            ,+    setDOMHTMLCanvasElementWidth            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLCanvasElement = DOMHTMLCanvasElement (ForeignPtr DOMHTMLCanvasElement)+foreign import ccall "webkit_dom_html_canvas_element_get_type"+    c_webkit_dom_html_canvas_element_get_type :: IO GType++type instance ParentTypes DOMHTMLCanvasElement = DOMHTMLCanvasElementParentTypes+type DOMHTMLCanvasElementParentTypes = '[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++noDOMHTMLCanvasElement :: Maybe DOMHTMLCanvasElement+noDOMHTMLCanvasElement = Nothing++-- VVV Prop "height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64+getDOMHTMLCanvasElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height"++setDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m ()+setDOMHTMLCanvasElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val++constructDOMHTMLCanvasElementHeight :: Int64 -> IO ([Char], GValue)+constructDOMHTMLCanvasElementHeight val = constructObjectPropertyInt64 "height" val++data DOMHTMLCanvasElementHeightPropertyInfo+instance AttrInfo DOMHTMLCanvasElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLCanvasElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = DOMHTMLCanvasElementK+    type AttrGetType DOMHTMLCanvasElementHeightPropertyInfo = Int64+    type AttrLabel DOMHTMLCanvasElementHeightPropertyInfo = "DOMHTMLCanvasElement::height"+    attrGet _ = getDOMHTMLCanvasElementHeight+    attrSet _ = setDOMHTMLCanvasElementHeight+    attrConstruct _ = constructDOMHTMLCanvasElementHeight++-- VVV Prop "width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64+getDOMHTMLCanvasElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width"++setDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m ()+setDOMHTMLCanvasElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val++constructDOMHTMLCanvasElementWidth :: Int64 -> IO ([Char], GValue)+constructDOMHTMLCanvasElementWidth val = constructObjectPropertyInt64 "width" val++data DOMHTMLCanvasElementWidthPropertyInfo+instance AttrInfo DOMHTMLCanvasElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLCanvasElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = DOMHTMLCanvasElementK+    type AttrGetType DOMHTMLCanvasElementWidthPropertyInfo = Int64+    type AttrLabel DOMHTMLCanvasElementWidthPropertyInfo = "DOMHTMLCanvasElement::width"+    attrGet _ = getDOMHTMLCanvasElementWidth+    attrSet _ = setDOMHTMLCanvasElementWidth+    attrConstruct _ = constructDOMHTMLCanvasElementWidth++type instance AttributeList DOMHTMLCanvasElement = DOMHTMLCanvasElementAttributeList+type DOMHTMLCanvasElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLCanvasElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLCanvasElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLCanvasElement = DOMHTMLCanvasElementSignalList+type DOMHTMLCanvasElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLCanvasElement::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLCanvasElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLCanvasElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLCanvasElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLCanvasElement = DOMHTMLCanvasElement (ForeignPtr DOMHTMLCanvasElement)+instance GObject DOMHTMLCanvasElement where+class GObject o => DOMHTMLCanvasElementK o+instance (GObject o, IsDescendantOf DOMHTMLCanvasElement o) => DOMHTMLCanvasElementK o+data DOMHTMLCanvasElementHeightPropertyInfo+data DOMHTMLCanvasElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs view
@@ -0,0 +1,181 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLCollection+    ( ++-- * Exported types+    DOMHTMLCollection(..)                   ,+    DOMHTMLCollectionK                      ,+    toDOMHTMLCollection                     ,+    noDOMHTMLCollection                     ,+++ -- * Methods+-- ** dOMHTMLCollectionGetLength+    dOMHTMLCollectionGetLength              ,+++-- ** dOMHTMLCollectionItem+    dOMHTMLCollectionItem                   ,+++-- ** dOMHTMLCollectionNamedItem+    dOMHTMLCollectionNamedItem              ,+++++ -- * Properties+-- ** Length+    DOMHTMLCollectionLengthPropertyInfo     ,+    getDOMHTMLCollectionLength              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLCollection = DOMHTMLCollection (ForeignPtr DOMHTMLCollection)+foreign import ccall "webkit_dom_html_collection_get_type"+    c_webkit_dom_html_collection_get_type :: IO GType++type instance ParentTypes DOMHTMLCollection = DOMHTMLCollectionParentTypes+type DOMHTMLCollectionParentTypes = '[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++noDOMHTMLCollection :: Maybe DOMHTMLCollection+noDOMHTMLCollection = Nothing++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMHTMLCollectionLength :: (MonadIO m, DOMHTMLCollectionK o) => o -> m Word64+getDOMHTMLCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMHTMLCollectionLengthPropertyInfo+instance AttrInfo DOMHTMLCollectionLengthPropertyInfo where+    type AttrAllowedOps DOMHTMLCollectionLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLCollectionLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLCollectionLengthPropertyInfo = DOMHTMLCollectionK+    type AttrGetType DOMHTMLCollectionLengthPropertyInfo = Word64+    type AttrLabel DOMHTMLCollectionLengthPropertyInfo = "DOMHTMLCollection::length"+    attrGet _ = getDOMHTMLCollectionLength+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLCollection = DOMHTMLCollectionAttributeList+type DOMHTMLCollectionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLCollectionLengthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLCollection = DOMHTMLCollectionSignalList+type DOMHTMLCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLCollection::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_html_collection_item" webkit_dom_html_collection_item :: +    Ptr DOMHTMLCollection ->                -- _obj : TInterface "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_html_collection_item" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLCollection::named_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_collection_named_item" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    freeMem name'+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMHTMLCollection.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLCollection where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLCollection = DOMHTMLCollection (ForeignPtr DOMHTMLCollection)+instance GObject DOMHTMLCollection where+class GObject o => DOMHTMLCollectionK o+instance (GObject o, IsDescendantOf DOMHTMLCollection o) => DOMHTMLCollectionK o+data DOMHTMLCollectionLengthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs view
@@ -0,0 +1,155 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLDListElement+    ( ++-- * Exported types+    DOMHTMLDListElement(..)                 ,+    DOMHTMLDListElementK                    ,+    toDOMHTMLDListElement                   ,+    noDOMHTMLDListElement                   ,+++ -- * Methods+-- ** dOMHTMLDListElementGetCompact+    dOMHTMLDListElementGetCompact           ,+++-- ** dOMHTMLDListElementSetCompact+    dOMHTMLDListElementSetCompact           ,+++++ -- * Properties+-- ** Compact+    DOMHTMLDListElementCompactPropertyInfo  ,+    constructDOMHTMLDListElementCompact     ,+    getDOMHTMLDListElementCompact           ,+    setDOMHTMLDListElementCompact           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLDListElement = DOMHTMLDListElement (ForeignPtr DOMHTMLDListElement)+foreign import ccall "webkit_dom_html_d_list_element_get_type"+    c_webkit_dom_html_d_list_element_get_type :: IO GType++type instance ParentTypes DOMHTMLDListElement = DOMHTMLDListElementParentTypes+type DOMHTMLDListElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]++instance GObject DOMHTMLDListElement where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_dom_html_d_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++noDOMHTMLDListElement :: Maybe DOMHTMLDListElement+noDOMHTMLDListElement = Nothing++-- VVV Prop "compact"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> m Bool+getDOMHTMLDListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact"++setDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> Bool -> m ()+setDOMHTMLDListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val++constructDOMHTMLDListElementCompact :: Bool -> IO ([Char], GValue)+constructDOMHTMLDListElementCompact val = constructObjectPropertyBool "compact" val++data DOMHTMLDListElementCompactPropertyInfo+instance AttrInfo DOMHTMLDListElementCompactPropertyInfo where+    type AttrAllowedOps DOMHTMLDListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDListElementCompactPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLDListElementCompactPropertyInfo = DOMHTMLDListElementK+    type AttrGetType DOMHTMLDListElementCompactPropertyInfo = Bool+    type AttrLabel DOMHTMLDListElementCompactPropertyInfo = "DOMHTMLDListElement::compact"+    attrGet _ = getDOMHTMLDListElementCompact+    attrSet _ = setDOMHTMLDListElementCompact+    attrConstruct _ = constructDOMHTMLDListElementCompact++type instance AttributeList DOMHTMLDListElement = DOMHTMLDListElementAttributeList+type DOMHTMLDListElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLDListElement = DOMHTMLDListElementSignalList+type DOMHTMLDListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLDListElement::get_compact+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_d_list_element_get_compact" webkit_dom_html_d_list_element_get_compact :: +    Ptr DOMHTMLDListElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLDListElement"+    IO CInt+++dOMHTMLDListElementGetCompact ::+    (MonadIO m, DOMHTMLDListElementK a) =>+    a ->                                    -- _obj+    m Bool+dOMHTMLDListElementGetCompact _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_d_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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_d_list_element_set_compact" webkit_dom_html_d_list_element_set_compact :: +    Ptr DOMHTMLDListElement ->              -- _obj : TInterface "WebKit2WebExtension" "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_html_d_list_element_set_compact _obj' value'+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLDListElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLDListElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLDListElement = DOMHTMLDListElement (ForeignPtr DOMHTMLDListElement)+instance GObject DOMHTMLDListElement where+class GObject o => DOMHTMLDListElementK o+instance (GObject o, IsDescendantOf DOMHTMLDListElement o) => DOMHTMLDListElementK o+data DOMHTMLDListElementCompactPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs view
@@ -0,0 +1,155 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLDirectoryElement+    ( ++-- * Exported types+    DOMHTMLDirectoryElement(..)             ,+    DOMHTMLDirectoryElementK                ,+    toDOMHTMLDirectoryElement               ,+    noDOMHTMLDirectoryElement               ,+++ -- * Methods+-- ** dOMHTMLDirectoryElementGetCompact+    dOMHTMLDirectoryElementGetCompact       ,+++-- ** dOMHTMLDirectoryElementSetCompact+    dOMHTMLDirectoryElementSetCompact       ,+++++ -- * Properties+-- ** Compact+    DOMHTMLDirectoryElementCompactPropertyInfo,+    constructDOMHTMLDirectoryElementCompact ,+    getDOMHTMLDirectoryElementCompact       ,+    setDOMHTMLDirectoryElementCompact       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLDirectoryElement = DOMHTMLDirectoryElement (ForeignPtr DOMHTMLDirectoryElement)+foreign import ccall "webkit_dom_html_directory_element_get_type"+    c_webkit_dom_html_directory_element_get_type :: IO GType++type instance ParentTypes DOMHTMLDirectoryElement = DOMHTMLDirectoryElementParentTypes+type DOMHTMLDirectoryElementParentTypes = '[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++noDOMHTMLDirectoryElement :: Maybe DOMHTMLDirectoryElement+noDOMHTMLDirectoryElement = Nothing++-- VVV Prop "compact"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> m Bool+getDOMHTMLDirectoryElementCompact obj = liftIO $ getObjectPropertyBool obj "compact"++setDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> Bool -> m ()+setDOMHTMLDirectoryElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val++constructDOMHTMLDirectoryElementCompact :: Bool -> IO ([Char], GValue)+constructDOMHTMLDirectoryElementCompact val = constructObjectPropertyBool "compact" val++data DOMHTMLDirectoryElementCompactPropertyInfo+instance AttrInfo DOMHTMLDirectoryElementCompactPropertyInfo where+    type AttrAllowedOps DOMHTMLDirectoryElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDirectoryElementCompactPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLDirectoryElementCompactPropertyInfo = DOMHTMLDirectoryElementK+    type AttrGetType DOMHTMLDirectoryElementCompactPropertyInfo = Bool+    type AttrLabel DOMHTMLDirectoryElementCompactPropertyInfo = "DOMHTMLDirectoryElement::compact"+    attrGet _ = getDOMHTMLDirectoryElementCompact+    attrSet _ = setDOMHTMLDirectoryElementCompact+    attrConstruct _ = constructDOMHTMLDirectoryElementCompact++type instance AttributeList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementAttributeList+type DOMHTMLDirectoryElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDirectoryElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLDirectoryElement = DOMHTMLDirectoryElementSignalList+type DOMHTMLDirectoryElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLDirectoryElement::get_compact+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDirectoryElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLDirectoryElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLDirectoryElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLDirectoryElement = DOMHTMLDirectoryElement (ForeignPtr DOMHTMLDirectoryElement)+instance GObject DOMHTMLDirectoryElement where+class GObject o => DOMHTMLDirectoryElementK o+instance (GObject o, IsDescendantOf DOMHTMLDirectoryElement o) => DOMHTMLDirectoryElementK o+data DOMHTMLDirectoryElementCompactPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs view
@@ -0,0 +1,158 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLDivElement+    ( ++-- * Exported types+    DOMHTMLDivElement(..)                   ,+    DOMHTMLDivElementK                      ,+    toDOMHTMLDivElement                     ,+    noDOMHTMLDivElement                     ,+++ -- * Methods+-- ** dOMHTMLDivElementGetAlign+    dOMHTMLDivElementGetAlign               ,+++-- ** dOMHTMLDivElementSetAlign+    dOMHTMLDivElementSetAlign               ,+++++ -- * Properties+-- ** Align+    DOMHTMLDivElementAlignPropertyInfo      ,+    constructDOMHTMLDivElementAlign         ,+    getDOMHTMLDivElementAlign               ,+    setDOMHTMLDivElementAlign               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLDivElement = DOMHTMLDivElement (ForeignPtr DOMHTMLDivElement)+foreign import ccall "webkit_dom_html_div_element_get_type"+    c_webkit_dom_html_div_element_get_type :: IO GType++type instance ParentTypes DOMHTMLDivElement = DOMHTMLDivElementParentTypes+type DOMHTMLDivElementParentTypes = '[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++noDOMHTMLDivElement :: Maybe DOMHTMLDivElement+noDOMHTMLDivElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> m T.Text+getDOMHTMLDivElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> T.Text -> m ()+setDOMHTMLDivElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLDivElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLDivElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLDivElementAlignPropertyInfo+instance AttrInfo DOMHTMLDivElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLDivElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDivElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLDivElementAlignPropertyInfo = DOMHTMLDivElementK+    type AttrGetType DOMHTMLDivElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLDivElementAlignPropertyInfo = "DOMHTMLDivElement::align"+    attrGet _ = getDOMHTMLDivElementAlign+    attrSet _ = setDOMHTMLDivElementAlign+    attrConstruct _ = constructDOMHTMLDivElementAlign++type instance AttributeList DOMHTMLDivElement = DOMHTMLDivElementAttributeList+type DOMHTMLDivElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLDivElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLDivElement = DOMHTMLDivElementSignalList+type DOMHTMLDivElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLDivElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDivElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_div_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDivElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLDivElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLDivElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLDivElement = DOMHTMLDivElement (ForeignPtr DOMHTMLDivElement)+instance GObject DOMHTMLDivElement where+class GObject o => DOMHTMLDivElementK o+instance (GObject o, IsDescendantOf DOMHTMLDivElement o) => DOMHTMLDivElementK o+data DOMHTMLDivElementAlignPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs view
@@ -0,0 +1,1149 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLDocument+    ( ++-- * Exported types+    DOMHTMLDocument(..)                     ,+    DOMHTMLDocumentK                        ,+    toDOMHTMLDocument                       ,+    noDOMHTMLDocument                       ,+++ -- * Methods+-- ** dOMHTMLDocumentCaptureEvents+    dOMHTMLDocumentCaptureEvents            ,+++-- ** dOMHTMLDocumentClear+    dOMHTMLDocumentClear                    ,+++-- ** dOMHTMLDocumentClose+    dOMHTMLDocumentClose                    ,+++-- ** dOMHTMLDocumentGetAlinkColor+    dOMHTMLDocumentGetAlinkColor            ,+++-- ** dOMHTMLDocumentGetBgColor+    dOMHTMLDocumentGetBgColor               ,+++-- ** dOMHTMLDocumentGetCompatMode+    dOMHTMLDocumentGetCompatMode            ,+++-- ** dOMHTMLDocumentGetDesignMode+    dOMHTMLDocumentGetDesignMode            ,+++-- ** dOMHTMLDocumentGetDir+    dOMHTMLDocumentGetDir                   ,+++-- ** dOMHTMLDocumentGetEmbeds+    dOMHTMLDocumentGetEmbeds                ,+++-- ** dOMHTMLDocumentGetFgColor+    dOMHTMLDocumentGetFgColor               ,+++-- ** dOMHTMLDocumentGetHeight+    dOMHTMLDocumentGetHeight                ,+++-- ** dOMHTMLDocumentGetLinkColor+    dOMHTMLDocumentGetLinkColor             ,+++-- ** dOMHTMLDocumentGetPlugins+    dOMHTMLDocumentGetPlugins               ,+++-- ** dOMHTMLDocumentGetScripts+    dOMHTMLDocumentGetScripts               ,+++-- ** dOMHTMLDocumentGetVlinkColor+    dOMHTMLDocumentGetVlinkColor            ,+++-- ** dOMHTMLDocumentGetWidth+    dOMHTMLDocumentGetWidth                 ,+++-- ** dOMHTMLDocumentReleaseEvents+    dOMHTMLDocumentReleaseEvents            ,+++-- ** dOMHTMLDocumentSetAlinkColor+    dOMHTMLDocumentSetAlinkColor            ,+++-- ** dOMHTMLDocumentSetBgColor+    dOMHTMLDocumentSetBgColor               ,+++-- ** dOMHTMLDocumentSetDesignMode+    dOMHTMLDocumentSetDesignMode            ,+++-- ** dOMHTMLDocumentSetDir+    dOMHTMLDocumentSetDir                   ,+++-- ** dOMHTMLDocumentSetFgColor+    dOMHTMLDocumentSetFgColor               ,+++-- ** dOMHTMLDocumentSetLinkColor+    dOMHTMLDocumentSetLinkColor             ,+++-- ** dOMHTMLDocumentSetVlinkColor+    dOMHTMLDocumentSetVlinkColor            ,+++++ -- * Properties+-- ** AlinkColor+    DOMHTMLDocumentAlinkColorPropertyInfo   ,+    constructDOMHTMLDocumentAlinkColor      ,+    getDOMHTMLDocumentAlinkColor            ,+    setDOMHTMLDocumentAlinkColor            ,+++-- ** BgColor+    DOMHTMLDocumentBgColorPropertyInfo      ,+    constructDOMHTMLDocumentBgColor         ,+    getDOMHTMLDocumentBgColor               ,+    setDOMHTMLDocumentBgColor               ,+++-- ** CompatMode+    DOMHTMLDocumentCompatModePropertyInfo   ,+    getDOMHTMLDocumentCompatMode            ,+++-- ** DesignMode+    DOMHTMLDocumentDesignModePropertyInfo   ,+    constructDOMHTMLDocumentDesignMode      ,+    getDOMHTMLDocumentDesignMode            ,+    setDOMHTMLDocumentDesignMode            ,+++-- ** Dir+    DOMHTMLDocumentDirPropertyInfo          ,+    constructDOMHTMLDocumentDir             ,+    getDOMHTMLDocumentDir                   ,+    setDOMHTMLDocumentDir                   ,+++-- ** Embeds+    DOMHTMLDocumentEmbedsPropertyInfo       ,+    getDOMHTMLDocumentEmbeds                ,+++-- ** FgColor+    DOMHTMLDocumentFgColorPropertyInfo      ,+    constructDOMHTMLDocumentFgColor         ,+    getDOMHTMLDocumentFgColor               ,+    setDOMHTMLDocumentFgColor               ,+++-- ** Height+    DOMHTMLDocumentHeightPropertyInfo       ,+    getDOMHTMLDocumentHeight                ,+++-- ** LinkColor+    DOMHTMLDocumentLinkColorPropertyInfo    ,+    constructDOMHTMLDocumentLinkColor       ,+    getDOMHTMLDocumentLinkColor             ,+    setDOMHTMLDocumentLinkColor             ,+++-- ** Plugins+    DOMHTMLDocumentPluginsPropertyInfo      ,+    getDOMHTMLDocumentPlugins               ,+++-- ** Scripts+    DOMHTMLDocumentScriptsPropertyInfo      ,+    getDOMHTMLDocumentScripts               ,+++-- ** VlinkColor+    DOMHTMLDocumentVlinkColorPropertyInfo   ,+    constructDOMHTMLDocumentVlinkColor      ,+    getDOMHTMLDocumentVlinkColor            ,+    setDOMHTMLDocumentVlinkColor            ,+++-- ** Width+    DOMHTMLDocumentWidthPropertyInfo        ,+    getDOMHTMLDocumentWidth                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLDocument = DOMHTMLDocument (ForeignPtr DOMHTMLDocument)+foreign import ccall "webkit_dom_html_document_get_type"+    c_webkit_dom_html_document_get_type :: IO GType++type instance ParentTypes DOMHTMLDocument = DOMHTMLDocumentParentTypes+type DOMHTMLDocumentParentTypes = '[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++noDOMHTMLDocument :: Maybe DOMHTMLDocument+noDOMHTMLDocument = Nothing++-- VVV Prop "alink-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text+getDOMHTMLDocumentAlinkColor obj = liftIO $ getObjectPropertyString obj "alink-color"++setDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()+setDOMHTMLDocumentAlinkColor obj val = liftIO $ setObjectPropertyString obj "alink-color" val++constructDOMHTMLDocumentAlinkColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLDocumentAlinkColor val = constructObjectPropertyString "alink-color" val++data DOMHTMLDocumentAlinkColorPropertyInfo+instance AttrInfo DOMHTMLDocumentAlinkColorPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentAlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentAlinkColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLDocumentAlinkColorPropertyInfo = "DOMHTMLDocument::alink-color"+    attrGet _ = getDOMHTMLDocumentAlinkColor+    attrSet _ = setDOMHTMLDocumentAlinkColor+    attrConstruct _ = constructDOMHTMLDocumentAlinkColor++-- VVV Prop "bg-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text+getDOMHTMLDocumentBgColor obj = liftIO $ getObjectPropertyString obj "bg-color"++setDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()+setDOMHTMLDocumentBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val++constructDOMHTMLDocumentBgColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLDocumentBgColor val = constructObjectPropertyString "bg-color" val++data DOMHTMLDocumentBgColorPropertyInfo+instance AttrInfo DOMHTMLDocumentBgColorPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentBgColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLDocumentBgColorPropertyInfo = "DOMHTMLDocument::bg-color"+    attrGet _ = getDOMHTMLDocumentBgColor+    attrSet _ = setDOMHTMLDocumentBgColor+    attrConstruct _ = constructDOMHTMLDocumentBgColor++-- VVV Prop "compat-mode"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLDocumentCompatMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text+getDOMHTMLDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode"++data DOMHTMLDocumentCompatModePropertyInfo+instance AttrInfo DOMHTMLDocumentCompatModePropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentCompatModePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentCompatModePropertyInfo = T.Text+    type AttrLabel DOMHTMLDocumentCompatModePropertyInfo = "DOMHTMLDocument::compat-mode"+    attrGet _ = getDOMHTMLDocumentCompatMode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "design-mode"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text+getDOMHTMLDocumentDesignMode obj = liftIO $ getObjectPropertyString obj "design-mode"++setDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()+setDOMHTMLDocumentDesignMode obj val = liftIO $ setObjectPropertyString obj "design-mode" val++constructDOMHTMLDocumentDesignMode :: T.Text -> IO ([Char], GValue)+constructDOMHTMLDocumentDesignMode val = constructObjectPropertyString "design-mode" val++data DOMHTMLDocumentDesignModePropertyInfo+instance AttrInfo DOMHTMLDocumentDesignModePropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentDesignModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentDesignModePropertyInfo = T.Text+    type AttrLabel DOMHTMLDocumentDesignModePropertyInfo = "DOMHTMLDocument::design-mode"+    attrGet _ = getDOMHTMLDocumentDesignMode+    attrSet _ = setDOMHTMLDocumentDesignMode+    attrConstruct _ = constructDOMHTMLDocumentDesignMode++-- VVV Prop "dir"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text+getDOMHTMLDocumentDir obj = liftIO $ getObjectPropertyString obj "dir"++setDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()+setDOMHTMLDocumentDir obj val = liftIO $ setObjectPropertyString obj "dir" val++constructDOMHTMLDocumentDir :: T.Text -> IO ([Char], GValue)+constructDOMHTMLDocumentDir val = constructObjectPropertyString "dir" val++data DOMHTMLDocumentDirPropertyInfo+instance AttrInfo DOMHTMLDocumentDirPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentDirPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLDocumentDirPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentDirPropertyInfo = T.Text+    type AttrLabel DOMHTMLDocumentDirPropertyInfo = "DOMHTMLDocument::dir"+    attrGet _ = getDOMHTMLDocumentDir+    attrSet _ = setDOMHTMLDocumentDir+    attrConstruct _ = constructDOMHTMLDocumentDir++-- VVV Prop "embeds"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLDocumentEmbeds :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection+getDOMHTMLDocumentEmbeds obj = liftIO $ getObjectPropertyObject obj "embeds" DOMHTMLCollection++data DOMHTMLDocumentEmbedsPropertyInfo+instance AttrInfo DOMHTMLDocumentEmbedsPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentEmbedsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLDocumentEmbedsPropertyInfo = "DOMHTMLDocument::embeds"+    attrGet _ = getDOMHTMLDocumentEmbeds+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "fg-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text+getDOMHTMLDocumentFgColor obj = liftIO $ getObjectPropertyString obj "fg-color"++setDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()+setDOMHTMLDocumentFgColor obj val = liftIO $ setObjectPropertyString obj "fg-color" val++constructDOMHTMLDocumentFgColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLDocumentFgColor val = constructObjectPropertyString "fg-color" val++data DOMHTMLDocumentFgColorPropertyInfo+instance AttrInfo DOMHTMLDocumentFgColorPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentFgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentFgColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLDocumentFgColorPropertyInfo = "DOMHTMLDocument::fg-color"+    attrGet _ = getDOMHTMLDocumentFgColor+    attrSet _ = setDOMHTMLDocumentFgColor+    attrConstruct _ = constructDOMHTMLDocumentFgColor++-- VVV Prop "height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLDocumentHeight :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64+getDOMHTMLDocumentHeight obj = liftIO $ getObjectPropertyInt64 obj "height"++data DOMHTMLDocumentHeightPropertyInfo+instance AttrInfo DOMHTMLDocumentHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLDocumentHeightPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentHeightPropertyInfo = Int64+    type AttrLabel DOMHTMLDocumentHeightPropertyInfo = "DOMHTMLDocument::height"+    attrGet _ = getDOMHTMLDocumentHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "link-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text+getDOMHTMLDocumentLinkColor obj = liftIO $ getObjectPropertyString obj "link-color"++setDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()+setDOMHTMLDocumentLinkColor obj val = liftIO $ setObjectPropertyString obj "link-color" val++constructDOMHTMLDocumentLinkColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLDocumentLinkColor val = constructObjectPropertyString "link-color" val++data DOMHTMLDocumentLinkColorPropertyInfo+instance AttrInfo DOMHTMLDocumentLinkColorPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentLinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentLinkColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLDocumentLinkColorPropertyInfo = "DOMHTMLDocument::link-color"+    attrGet _ = getDOMHTMLDocumentLinkColor+    attrSet _ = setDOMHTMLDocumentLinkColor+    attrConstruct _ = constructDOMHTMLDocumentLinkColor++-- VVV Prop "plugins"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLDocumentPlugins :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection+getDOMHTMLDocumentPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMHTMLCollection++data DOMHTMLDocumentPluginsPropertyInfo+instance AttrInfo DOMHTMLDocumentPluginsPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentPluginsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLDocumentPluginsPropertyInfo = "DOMHTMLDocument::plugins"+    attrGet _ = getDOMHTMLDocumentPlugins+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "scripts"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLDocumentScripts :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection+getDOMHTMLDocumentScripts obj = liftIO $ getObjectPropertyObject obj "scripts" DOMHTMLCollection++data DOMHTMLDocumentScriptsPropertyInfo+instance AttrInfo DOMHTMLDocumentScriptsPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentScriptsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLDocumentScriptsPropertyInfo = "DOMHTMLDocument::scripts"+    attrGet _ = getDOMHTMLDocumentScripts+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "vlink-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text+getDOMHTMLDocumentVlinkColor obj = liftIO $ getObjectPropertyString obj "vlink-color"++setDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()+setDOMHTMLDocumentVlinkColor obj val = liftIO $ setObjectPropertyString obj "vlink-color" val++constructDOMHTMLDocumentVlinkColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLDocumentVlinkColor val = constructObjectPropertyString "vlink-color" val++data DOMHTMLDocumentVlinkColorPropertyInfo+instance AttrInfo DOMHTMLDocumentVlinkColorPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentVlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentVlinkColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLDocumentVlinkColorPropertyInfo = "DOMHTMLDocument::vlink-color"+    attrGet _ = getDOMHTMLDocumentVlinkColor+    attrSet _ = setDOMHTMLDocumentVlinkColor+    attrConstruct _ = constructDOMHTMLDocumentVlinkColor++-- VVV Prop "width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLDocumentWidth :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64+getDOMHTMLDocumentWidth obj = liftIO $ getObjectPropertyInt64 obj "width"++data DOMHTMLDocumentWidthPropertyInfo+instance AttrInfo DOMHTMLDocumentWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLDocumentWidthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLDocumentWidthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLDocumentWidthPropertyInfo = DOMHTMLDocumentK+    type AttrGetType DOMHTMLDocumentWidthPropertyInfo = Int64+    type AttrLabel DOMHTMLDocumentWidthPropertyInfo = "DOMHTMLDocument::width"+    attrGet _ = getDOMHTMLDocumentWidth+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLDocument = DOMHTMLDocumentAttributeList+type DOMHTMLDocumentAttributeList = ('[ '("active-element", DOMDocumentActiveElementPropertyInfo), '("alink-color", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("compat-mode", DOMHTMLDocumentCompatModePropertyInfo), '("content-type", DOMDocumentContentTypePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("design-mode", DOMHTMLDocumentDesignModePropertyInfo), '("dir", DOMHTMLDocumentDirPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("embeds", DOMHTMLDocumentEmbedsPropertyInfo), '("fg-color", DOMHTMLDocumentFgColorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("link-color", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("pointer-lock-element", DOMDocumentPointerLockElementPropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("vlink-color", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLDocument = DOMHTMLDocumentSignalList+type DOMHTMLDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLDocument::capture_events+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_alink_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_alink_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_bg_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_bg_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_compat_mode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_compat_mode" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_design_mode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_design_mode" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_dir+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_dir" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_embeds+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_embeds" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_fg_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_fg_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_link_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_plugins+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_plugins" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_scripts+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_scripts" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_vlink_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_document_get_vlink_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLDocument::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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::release_events+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLDocument", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLDocument.hs-boot view
@@ -0,0 +1,26 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLDocument where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLDocument = DOMHTMLDocument (ForeignPtr DOMHTMLDocument)+instance GObject DOMHTMLDocument where+class GObject o => DOMHTMLDocumentK o+instance (GObject o, IsDescendantOf DOMHTMLDocument o) => DOMHTMLDocumentK o+data DOMHTMLDocumentAlinkColorPropertyInfo+data DOMHTMLDocumentBgColorPropertyInfo+data DOMHTMLDocumentCompatModePropertyInfo+data DOMHTMLDocumentDesignModePropertyInfo+data DOMHTMLDocumentDirPropertyInfo+data DOMHTMLDocumentEmbedsPropertyInfo+data DOMHTMLDocumentFgColorPropertyInfo+data DOMHTMLDocumentHeightPropertyInfo+data DOMHTMLDocumentLinkColorPropertyInfo+data DOMHTMLDocumentPluginsPropertyInfo+data DOMHTMLDocumentScriptsPropertyInfo+data DOMHTMLDocumentVlinkColorPropertyInfo+data DOMHTMLDocumentWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs view
@@ -0,0 +1,1250 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLElement+    ( ++-- * Exported types+    DOMHTMLElement(..)                      ,+    DOMHTMLElementK                         ,+    toDOMHTMLElement                        ,+    noDOMHTMLElement                        ,+++ -- * Methods+-- ** dOMHTMLElementClick+    dOMHTMLElementClick                     ,+++-- ** dOMHTMLElementGetAccessKey+    dOMHTMLElementGetAccessKey              ,+++-- ** dOMHTMLElementGetChildren+    dOMHTMLElementGetChildren               ,+++-- ** dOMHTMLElementGetContentEditable+    dOMHTMLElementGetContentEditable        ,+++-- ** dOMHTMLElementGetDir+    dOMHTMLElementGetDir                    ,+++-- ** dOMHTMLElementGetInnerHtml+    dOMHTMLElementGetInnerHtml              ,+++-- ** dOMHTMLElementGetInnerText+    dOMHTMLElementGetInnerText              ,+++-- ** dOMHTMLElementGetIsContentEditable+    dOMHTMLElementGetIsContentEditable      ,+++-- ** dOMHTMLElementGetLang+    dOMHTMLElementGetLang                   ,+++-- ** dOMHTMLElementGetOuterHtml+    dOMHTMLElementGetOuterHtml              ,+++-- ** dOMHTMLElementGetOuterText+    dOMHTMLElementGetOuterText              ,+++-- ** dOMHTMLElementGetTabIndex+    dOMHTMLElementGetTabIndex               ,+++-- ** dOMHTMLElementGetTitle+    dOMHTMLElementGetTitle                  ,+++-- ** dOMHTMLElementSetAccessKey+    dOMHTMLElementSetAccessKey              ,+++-- ** dOMHTMLElementSetContentEditable+    dOMHTMLElementSetContentEditable        ,+++-- ** dOMHTMLElementSetDir+    dOMHTMLElementSetDir                    ,+++-- ** dOMHTMLElementSetInnerHtml+    dOMHTMLElementSetInnerHtml              ,+++-- ** dOMHTMLElementSetInnerText+    dOMHTMLElementSetInnerText              ,+++-- ** dOMHTMLElementSetLang+    dOMHTMLElementSetLang                   ,+++-- ** dOMHTMLElementSetOuterHtml+    dOMHTMLElementSetOuterHtml              ,+++-- ** dOMHTMLElementSetOuterText+    dOMHTMLElementSetOuterText              ,+++-- ** dOMHTMLElementSetTabIndex+    dOMHTMLElementSetTabIndex               ,+++-- ** dOMHTMLElementSetTitle+    dOMHTMLElementSetTitle                  ,+++++ -- * Properties+-- ** AccessKey+    DOMHTMLElementAccessKeyPropertyInfo     ,+    constructDOMHTMLElementAccessKey        ,+    getDOMHTMLElementAccessKey              ,+    setDOMHTMLElementAccessKey              ,+++-- ** Children+    DOMHTMLElementChildrenPropertyInfo      ,+    getDOMHTMLElementChildren               ,+++-- ** ContentEditable+    DOMHTMLElementContentEditablePropertyInfo,+    constructDOMHTMLElementContentEditable  ,+    getDOMHTMLElementContentEditable        ,+    setDOMHTMLElementContentEditable        ,+++-- ** Dir+    DOMHTMLElementDirPropertyInfo           ,+    constructDOMHTMLElementDir              ,+    getDOMHTMLElementDir                    ,+    setDOMHTMLElementDir                    ,+++-- ** Draggable+    DOMHTMLElementDraggablePropertyInfo     ,+    constructDOMHTMLElementDraggable        ,+    getDOMHTMLElementDraggable              ,+    setDOMHTMLElementDraggable              ,+++-- ** Hidden+    DOMHTMLElementHiddenPropertyInfo        ,+    constructDOMHTMLElementHidden           ,+    getDOMHTMLElementHidden                 ,+    setDOMHTMLElementHidden                 ,+++-- ** InnerText+    DOMHTMLElementInnerTextPropertyInfo     ,+    constructDOMHTMLElementInnerText        ,+    getDOMHTMLElementInnerText              ,+    setDOMHTMLElementInnerText              ,+++-- ** IsContentEditable+    DOMHTMLElementIsContentEditablePropertyInfo,+    getDOMHTMLElementIsContentEditable      ,+++-- ** Lang+    DOMHTMLElementLangPropertyInfo          ,+    constructDOMHTMLElementLang             ,+    getDOMHTMLElementLang                   ,+    setDOMHTMLElementLang                   ,+++-- ** OuterText+    DOMHTMLElementOuterTextPropertyInfo     ,+    constructDOMHTMLElementOuterText        ,+    getDOMHTMLElementOuterText              ,+    setDOMHTMLElementOuterText              ,+++-- ** Spellcheck+    DOMHTMLElementSpellcheckPropertyInfo    ,+    constructDOMHTMLElementSpellcheck       ,+    getDOMHTMLElementSpellcheck             ,+    setDOMHTMLElementSpellcheck             ,+++-- ** TabIndex+    DOMHTMLElementTabIndexPropertyInfo      ,+    constructDOMHTMLElementTabIndex         ,+    getDOMHTMLElementTabIndex               ,+    setDOMHTMLElementTabIndex               ,+++-- ** Title+    DOMHTMLElementTitlePropertyInfo         ,+    constructDOMHTMLElementTitle            ,+    getDOMHTMLElementTitle                  ,+    setDOMHTMLElementTitle                  ,+++-- ** Translate+    DOMHTMLElementTranslatePropertyInfo     ,+    constructDOMHTMLElementTranslate        ,+    getDOMHTMLElementTranslate              ,+    setDOMHTMLElementTranslate              ,+++-- ** Webkitdropzone+    DOMHTMLElementWebkitdropzonePropertyInfo,+    constructDOMHTMLElementWebkitdropzone   ,+    getDOMHTMLElementWebkitdropzone         ,+    setDOMHTMLElementWebkitdropzone         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLElement = DOMHTMLElement (ForeignPtr DOMHTMLElement)+foreign import ccall "webkit_dom_html_element_get_type"+    c_webkit_dom_html_element_get_type :: IO GType++type instance ParentTypes DOMHTMLElement = DOMHTMLElementParentTypes+type DOMHTMLElementParentTypes = '[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++noDOMHTMLElement :: Maybe DOMHTMLElement+noDOMHTMLElement = Nothing++-- VVV Prop "access-key"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text+getDOMHTMLElementAccessKey obj = liftIO $ getObjectPropertyString obj "access-key"++setDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()+setDOMHTMLElementAccessKey obj val = liftIO $ setObjectPropertyString obj "access-key" val++constructDOMHTMLElementAccessKey :: T.Text -> IO ([Char], GValue)+constructDOMHTMLElementAccessKey val = constructObjectPropertyString "access-key" val++data DOMHTMLElementAccessKeyPropertyInfo+instance AttrInfo DOMHTMLElementAccessKeyPropertyInfo where+    type AttrAllowedOps DOMHTMLElementAccessKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementAccessKeyPropertyInfo = T.Text+    type AttrLabel DOMHTMLElementAccessKeyPropertyInfo = "DOMHTMLElement::access-key"+    attrGet _ = getDOMHTMLElementAccessKey+    attrSet _ = setDOMHTMLElementAccessKey+    attrConstruct _ = constructDOMHTMLElementAccessKey++-- VVV Prop "children"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLElementChildren :: (MonadIO m, DOMHTMLElementK o) => o -> m DOMHTMLCollection+getDOMHTMLElementChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection++data DOMHTMLElementChildrenPropertyInfo+instance AttrInfo DOMHTMLElementChildrenPropertyInfo where+    type AttrAllowedOps DOMHTMLElementChildrenPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementChildrenPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLElementChildrenPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementChildrenPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLElementChildrenPropertyInfo = "DOMHTMLElement::children"+    attrGet _ = getDOMHTMLElementChildren+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "content-editable"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text+getDOMHTMLElementContentEditable obj = liftIO $ getObjectPropertyString obj "content-editable"++setDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()+setDOMHTMLElementContentEditable obj val = liftIO $ setObjectPropertyString obj "content-editable" val++constructDOMHTMLElementContentEditable :: T.Text -> IO ([Char], GValue)+constructDOMHTMLElementContentEditable val = constructObjectPropertyString "content-editable" val++data DOMHTMLElementContentEditablePropertyInfo+instance AttrInfo DOMHTMLElementContentEditablePropertyInfo where+    type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLElementContentEditablePropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementContentEditablePropertyInfo = T.Text+    type AttrLabel DOMHTMLElementContentEditablePropertyInfo = "DOMHTMLElement::content-editable"+    attrGet _ = getDOMHTMLElementContentEditable+    attrSet _ = setDOMHTMLElementContentEditable+    attrConstruct _ = constructDOMHTMLElementContentEditable++-- VVV Prop "dir"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text+getDOMHTMLElementDir obj = liftIO $ getObjectPropertyString obj "dir"++setDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()+setDOMHTMLElementDir obj val = liftIO $ setObjectPropertyString obj "dir" val++constructDOMHTMLElementDir :: T.Text -> IO ([Char], GValue)+constructDOMHTMLElementDir val = constructObjectPropertyString "dir" val++data DOMHTMLElementDirPropertyInfo+instance AttrInfo DOMHTMLElementDirPropertyInfo where+    type AttrAllowedOps DOMHTMLElementDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementDirPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLElementDirPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementDirPropertyInfo = T.Text+    type AttrLabel DOMHTMLElementDirPropertyInfo = "DOMHTMLElement::dir"+    attrGet _ = getDOMHTMLElementDir+    attrSet _ = setDOMHTMLElementDir+    attrConstruct _ = constructDOMHTMLElementDir++-- VVV Prop "draggable"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool+getDOMHTMLElementDraggable obj = liftIO $ getObjectPropertyBool obj "draggable"++setDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m ()+setDOMHTMLElementDraggable obj val = liftIO $ setObjectPropertyBool obj "draggable" val++constructDOMHTMLElementDraggable :: Bool -> IO ([Char], GValue)+constructDOMHTMLElementDraggable val = constructObjectPropertyBool "draggable" val++data DOMHTMLElementDraggablePropertyInfo+instance AttrInfo DOMHTMLElementDraggablePropertyInfo where+    type AttrAllowedOps DOMHTMLElementDraggablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementDraggablePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLElementDraggablePropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementDraggablePropertyInfo = Bool+    type AttrLabel DOMHTMLElementDraggablePropertyInfo = "DOMHTMLElement::draggable"+    attrGet _ = getDOMHTMLElementDraggable+    attrSet _ = setDOMHTMLElementDraggable+    attrConstruct _ = constructDOMHTMLElementDraggable++-- VVV Prop "hidden"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool+getDOMHTMLElementHidden obj = liftIO $ getObjectPropertyBool obj "hidden"++setDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m ()+setDOMHTMLElementHidden obj val = liftIO $ setObjectPropertyBool obj "hidden" val++constructDOMHTMLElementHidden :: Bool -> IO ([Char], GValue)+constructDOMHTMLElementHidden val = constructObjectPropertyBool "hidden" val++data DOMHTMLElementHiddenPropertyInfo+instance AttrInfo DOMHTMLElementHiddenPropertyInfo where+    type AttrAllowedOps DOMHTMLElementHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementHiddenPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLElementHiddenPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementHiddenPropertyInfo = Bool+    type AttrLabel DOMHTMLElementHiddenPropertyInfo = "DOMHTMLElement::hidden"+    attrGet _ = getDOMHTMLElementHidden+    attrSet _ = setDOMHTMLElementHidden+    attrConstruct _ = constructDOMHTMLElementHidden++-- VVV Prop "inner-text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text+getDOMHTMLElementInnerText obj = liftIO $ getObjectPropertyString obj "inner-text"++setDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()+setDOMHTMLElementInnerText obj val = liftIO $ setObjectPropertyString obj "inner-text" val++constructDOMHTMLElementInnerText :: T.Text -> IO ([Char], GValue)+constructDOMHTMLElementInnerText val = constructObjectPropertyString "inner-text" val++data DOMHTMLElementInnerTextPropertyInfo+instance AttrInfo DOMHTMLElementInnerTextPropertyInfo where+    type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLElementInnerTextPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementInnerTextPropertyInfo = T.Text+    type AttrLabel DOMHTMLElementInnerTextPropertyInfo = "DOMHTMLElement::inner-text"+    attrGet _ = getDOMHTMLElementInnerText+    attrSet _ = setDOMHTMLElementInnerText+    attrConstruct _ = constructDOMHTMLElementInnerText++-- VVV Prop "is-content-editable"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMHTMLElementIsContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool+getDOMHTMLElementIsContentEditable obj = liftIO $ getObjectPropertyBool obj "is-content-editable"++data DOMHTMLElementIsContentEditablePropertyInfo+instance AttrInfo DOMHTMLElementIsContentEditablePropertyInfo where+    type AttrAllowedOps DOMHTMLElementIsContentEditablePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementIsContentEditablePropertyInfo = Bool+    type AttrLabel DOMHTMLElementIsContentEditablePropertyInfo = "DOMHTMLElement::is-content-editable"+    attrGet _ = getDOMHTMLElementIsContentEditable+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "lang"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text+getDOMHTMLElementLang obj = liftIO $ getObjectPropertyString obj "lang"++setDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()+setDOMHTMLElementLang obj val = liftIO $ setObjectPropertyString obj "lang" val++constructDOMHTMLElementLang :: T.Text -> IO ([Char], GValue)+constructDOMHTMLElementLang val = constructObjectPropertyString "lang" val++data DOMHTMLElementLangPropertyInfo+instance AttrInfo DOMHTMLElementLangPropertyInfo where+    type AttrAllowedOps DOMHTMLElementLangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementLangPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLElementLangPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementLangPropertyInfo = T.Text+    type AttrLabel DOMHTMLElementLangPropertyInfo = "DOMHTMLElement::lang"+    attrGet _ = getDOMHTMLElementLang+    attrSet _ = setDOMHTMLElementLang+    attrConstruct _ = constructDOMHTMLElementLang++-- VVV Prop "outer-text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text+getDOMHTMLElementOuterText obj = liftIO $ getObjectPropertyString obj "outer-text"++setDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()+setDOMHTMLElementOuterText obj val = liftIO $ setObjectPropertyString obj "outer-text" val++constructDOMHTMLElementOuterText :: T.Text -> IO ([Char], GValue)+constructDOMHTMLElementOuterText val = constructObjectPropertyString "outer-text" val++data DOMHTMLElementOuterTextPropertyInfo+instance AttrInfo DOMHTMLElementOuterTextPropertyInfo where+    type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLElementOuterTextPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementOuterTextPropertyInfo = T.Text+    type AttrLabel DOMHTMLElementOuterTextPropertyInfo = "DOMHTMLElement::outer-text"+    attrGet _ = getDOMHTMLElementOuterText+    attrSet _ = setDOMHTMLElementOuterText+    attrConstruct _ = constructDOMHTMLElementOuterText++-- VVV Prop "spellcheck"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool+getDOMHTMLElementSpellcheck obj = liftIO $ getObjectPropertyBool obj "spellcheck"++setDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m ()+setDOMHTMLElementSpellcheck obj val = liftIO $ setObjectPropertyBool obj "spellcheck" val++constructDOMHTMLElementSpellcheck :: Bool -> IO ([Char], GValue)+constructDOMHTMLElementSpellcheck val = constructObjectPropertyBool "spellcheck" val++data DOMHTMLElementSpellcheckPropertyInfo+instance AttrInfo DOMHTMLElementSpellcheckPropertyInfo where+    type AttrAllowedOps DOMHTMLElementSpellcheckPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementSpellcheckPropertyInfo = Bool+    type AttrLabel DOMHTMLElementSpellcheckPropertyInfo = "DOMHTMLElement::spellcheck"+    attrGet _ = getDOMHTMLElementSpellcheck+    attrSet _ = setDOMHTMLElementSpellcheck+    attrConstruct _ = constructDOMHTMLElementSpellcheck++-- VVV Prop "tab-index"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> m Int64+getDOMHTMLElementTabIndex obj = liftIO $ getObjectPropertyInt64 obj "tab-index"++setDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> Int64 -> m ()+setDOMHTMLElementTabIndex obj val = liftIO $ setObjectPropertyInt64 obj "tab-index" val++constructDOMHTMLElementTabIndex :: Int64 -> IO ([Char], GValue)+constructDOMHTMLElementTabIndex val = constructObjectPropertyInt64 "tab-index" val++data DOMHTMLElementTabIndexPropertyInfo+instance AttrInfo DOMHTMLElementTabIndexPropertyInfo where+    type AttrAllowedOps DOMHTMLElementTabIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLElementTabIndexPropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementTabIndexPropertyInfo = Int64+    type AttrLabel DOMHTMLElementTabIndexPropertyInfo = "DOMHTMLElement::tab-index"+    attrGet _ = getDOMHTMLElementTabIndex+    attrSet _ = setDOMHTMLElementTabIndex+    attrConstruct _ = constructDOMHTMLElementTabIndex++-- VVV Prop "title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text+getDOMHTMLElementTitle obj = liftIO $ getObjectPropertyString obj "title"++setDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()+setDOMHTMLElementTitle obj val = liftIO $ setObjectPropertyString obj "title" val++constructDOMHTMLElementTitle :: T.Text -> IO ([Char], GValue)+constructDOMHTMLElementTitle val = constructObjectPropertyString "title" val++data DOMHTMLElementTitlePropertyInfo+instance AttrInfo DOMHTMLElementTitlePropertyInfo where+    type AttrAllowedOps DOMHTMLElementTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementTitlePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLElementTitlePropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementTitlePropertyInfo = T.Text+    type AttrLabel DOMHTMLElementTitlePropertyInfo = "DOMHTMLElement::title"+    attrGet _ = getDOMHTMLElementTitle+    attrSet _ = setDOMHTMLElementTitle+    attrConstruct _ = constructDOMHTMLElementTitle++-- VVV Prop "translate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool+getDOMHTMLElementTranslate obj = liftIO $ getObjectPropertyBool obj "translate"++setDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m ()+setDOMHTMLElementTranslate obj val = liftIO $ setObjectPropertyBool obj "translate" val++constructDOMHTMLElementTranslate :: Bool -> IO ([Char], GValue)+constructDOMHTMLElementTranslate val = constructObjectPropertyBool "translate" val++data DOMHTMLElementTranslatePropertyInfo+instance AttrInfo DOMHTMLElementTranslatePropertyInfo where+    type AttrAllowedOps DOMHTMLElementTranslatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementTranslatePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLElementTranslatePropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementTranslatePropertyInfo = Bool+    type AttrLabel DOMHTMLElementTranslatePropertyInfo = "DOMHTMLElement::translate"+    attrGet _ = getDOMHTMLElementTranslate+    attrSet _ = setDOMHTMLElementTranslate+    attrConstruct _ = constructDOMHTMLElementTranslate++-- VVV Prop "webkitdropzone"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text+getDOMHTMLElementWebkitdropzone obj = liftIO $ getObjectPropertyString obj "webkitdropzone"++setDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()+setDOMHTMLElementWebkitdropzone obj val = liftIO $ setObjectPropertyString obj "webkitdropzone" val++constructDOMHTMLElementWebkitdropzone :: T.Text -> IO ([Char], GValue)+constructDOMHTMLElementWebkitdropzone val = constructObjectPropertyString "webkitdropzone" val++data DOMHTMLElementWebkitdropzonePropertyInfo+instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where+    type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = DOMHTMLElementK+    type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = T.Text+    type AttrLabel DOMHTMLElementWebkitdropzonePropertyInfo = "DOMHTMLElement::webkitdropzone"+    attrGet _ = getDOMHTMLElementWebkitdropzone+    attrSet _ = setDOMHTMLElementWebkitdropzone+    attrConstruct _ = constructDOMHTMLElementWebkitdropzone++type instance AttributeList DOMHTMLElement = DOMHTMLElementAttributeList+type DOMHTMLElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLElement = DOMHTMLElementSignalList+type DOMHTMLElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLElement::click+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_access_key" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_children+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_children" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_content_editable+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_content_editable" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_dir+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_dir" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_inner_html+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement"+    IO CString++{-# DEPRECATED dOMHTMLElementGetInnerHtml ["(Since version 2.8)","Use webkit_dom_element_get_inner_html() instead."]#-}+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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_inner_html" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_inner_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_inner_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_is_content_editable+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_lang+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_lang" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_outer_html+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement"+    IO CString++{-# DEPRECATED dOMHTMLElementGetOuterHtml ["(Since version 2.8)","Use webkit_dom_element_get_outer_html() instead."]#-}+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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_outer_html" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_outer_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_outer_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::get_tab_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_element_get_title" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLElement::set_access_key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_content_editable+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_inner_html+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", 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 "WebKit2WebExtension" "DOMHTMLElement"+    CString ->                              -- contents : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO ()++{-# DEPRECATED dOMHTMLElementSetInnerHtml ["(Since version 2.8)","Use webkit_dom_element_set_inner_html() instead."]#-}+dOMHTMLElementSetInnerHtml ::+    (MonadIO m, DOMHTMLElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- contents+    m ()+dOMHTMLElementSetInnerHtml _obj contents = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    contents' <- textToCString contents+    onException (do+        propagateGError $ webkit_dom_html_element_set_inner_html _obj' contents'+        touchManagedPtr _obj+        freeMem contents'+        return ()+     ) (do+        freeMem contents'+     )++-- method DOMHTMLElement::set_inner_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_lang+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", 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 "WebKit2WebExtension" "DOMHTMLElement"+    CString ->                              -- contents : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO ()++{-# DEPRECATED dOMHTMLElementSetOuterHtml ["(Since version 2.8)","Use webkit_dom_element_set_outer_html() instead."]#-}+dOMHTMLElementSetOuterHtml ::+    (MonadIO m, DOMHTMLElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- contents+    m ()+dOMHTMLElementSetOuterHtml _obj contents = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    contents' <- textToCString contents+    onException (do+        propagateGError $ webkit_dom_html_element_set_outer_html _obj' contents'+        touchManagedPtr _obj+        freeMem contents'+        return ()+     ) (do+        freeMem contents'+     )++-- method DOMHTMLElement::set_outer_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_tab_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLElement.hs-boot view
@@ -0,0 +1,28 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLElement = DOMHTMLElement (ForeignPtr DOMHTMLElement)+instance GObject DOMHTMLElement where+class GObject o => DOMHTMLElementK o+instance (GObject o, IsDescendantOf DOMHTMLElement o) => DOMHTMLElementK o+data DOMHTMLElementAccessKeyPropertyInfo+data DOMHTMLElementChildrenPropertyInfo+data DOMHTMLElementContentEditablePropertyInfo+data DOMHTMLElementDirPropertyInfo+data DOMHTMLElementDraggablePropertyInfo+data DOMHTMLElementHiddenPropertyInfo+data DOMHTMLElementInnerTextPropertyInfo+data DOMHTMLElementIsContentEditablePropertyInfo+data DOMHTMLElementLangPropertyInfo+data DOMHTMLElementOuterTextPropertyInfo+data DOMHTMLElementSpellcheckPropertyInfo+data DOMHTMLElementTabIndexPropertyInfo+data DOMHTMLElementTitlePropertyInfo+data DOMHTMLElementTranslatePropertyInfo+data DOMHTMLElementWebkitdropzonePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs view
@@ -0,0 +1,618 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLEmbedElement+    ( ++-- * Exported types+    DOMHTMLEmbedElement(..)                 ,+    DOMHTMLEmbedElementK                    ,+    toDOMHTMLEmbedElement                   ,+    noDOMHTMLEmbedElement                   ,+++ -- * Methods+-- ** dOMHTMLEmbedElementGetAlign+    dOMHTMLEmbedElementGetAlign             ,+++-- ** dOMHTMLEmbedElementGetHeight+    dOMHTMLEmbedElementGetHeight            ,+++-- ** dOMHTMLEmbedElementGetName+    dOMHTMLEmbedElementGetName              ,+++-- ** dOMHTMLEmbedElementGetSrc+    dOMHTMLEmbedElementGetSrc               ,+++-- ** dOMHTMLEmbedElementGetTypeAttr+    dOMHTMLEmbedElementGetTypeAttr          ,+++-- ** dOMHTMLEmbedElementGetWidth+    dOMHTMLEmbedElementGetWidth             ,+++-- ** dOMHTMLEmbedElementSetAlign+    dOMHTMLEmbedElementSetAlign             ,+++-- ** dOMHTMLEmbedElementSetHeight+    dOMHTMLEmbedElementSetHeight            ,+++-- ** dOMHTMLEmbedElementSetName+    dOMHTMLEmbedElementSetName              ,+++-- ** dOMHTMLEmbedElementSetSrc+    dOMHTMLEmbedElementSetSrc               ,+++-- ** dOMHTMLEmbedElementSetTypeAttr+    dOMHTMLEmbedElementSetTypeAttr          ,+++-- ** dOMHTMLEmbedElementSetWidth+    dOMHTMLEmbedElementSetWidth             ,+++++ -- * Properties+-- ** Align+    DOMHTMLEmbedElementAlignPropertyInfo    ,+    constructDOMHTMLEmbedElementAlign       ,+    getDOMHTMLEmbedElementAlign             ,+    setDOMHTMLEmbedElementAlign             ,+++-- ** Height+    DOMHTMLEmbedElementHeightPropertyInfo   ,+    constructDOMHTMLEmbedElementHeight      ,+    getDOMHTMLEmbedElementHeight            ,+    setDOMHTMLEmbedElementHeight            ,+++-- ** Name+    DOMHTMLEmbedElementNamePropertyInfo     ,+    constructDOMHTMLEmbedElementName        ,+    getDOMHTMLEmbedElementName              ,+    setDOMHTMLEmbedElementName              ,+++-- ** Src+    DOMHTMLEmbedElementSrcPropertyInfo      ,+    constructDOMHTMLEmbedElementSrc         ,+    getDOMHTMLEmbedElementSrc               ,+    setDOMHTMLEmbedElementSrc               ,+++-- ** Type+    DOMHTMLEmbedElementTypePropertyInfo     ,+    constructDOMHTMLEmbedElementType        ,+    getDOMHTMLEmbedElementType              ,+    setDOMHTMLEmbedElementType              ,+++-- ** Width+    DOMHTMLEmbedElementWidthPropertyInfo    ,+    constructDOMHTMLEmbedElementWidth       ,+    getDOMHTMLEmbedElementWidth             ,+    setDOMHTMLEmbedElementWidth             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLEmbedElement = DOMHTMLEmbedElement (ForeignPtr DOMHTMLEmbedElement)+foreign import ccall "webkit_dom_html_embed_element_get_type"+    c_webkit_dom_html_embed_element_get_type :: IO GType++type instance ParentTypes DOMHTMLEmbedElement = DOMHTMLEmbedElementParentTypes+type DOMHTMLEmbedElementParentTypes = '[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++noDOMHTMLEmbedElement :: Maybe DOMHTMLEmbedElement+noDOMHTMLEmbedElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text+getDOMHTMLEmbedElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m ()+setDOMHTMLEmbedElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLEmbedElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLEmbedElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLEmbedElementAlignPropertyInfo+instance AttrInfo DOMHTMLEmbedElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLEmbedElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = DOMHTMLEmbedElementK+    type AttrGetType DOMHTMLEmbedElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLEmbedElementAlignPropertyInfo = "DOMHTMLEmbedElement::align"+    attrGet _ = getDOMHTMLEmbedElementAlign+    attrSet _ = setDOMHTMLEmbedElementAlign+    attrConstruct _ = constructDOMHTMLEmbedElementAlign++-- VVV Prop "height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64+getDOMHTMLEmbedElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height"++setDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m ()+setDOMHTMLEmbedElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val++constructDOMHTMLEmbedElementHeight :: Int64 -> IO ([Char], GValue)+constructDOMHTMLEmbedElementHeight val = constructObjectPropertyInt64 "height" val++data DOMHTMLEmbedElementHeightPropertyInfo+instance AttrInfo DOMHTMLEmbedElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLEmbedElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = DOMHTMLEmbedElementK+    type AttrGetType DOMHTMLEmbedElementHeightPropertyInfo = Int64+    type AttrLabel DOMHTMLEmbedElementHeightPropertyInfo = "DOMHTMLEmbedElement::height"+    attrGet _ = getDOMHTMLEmbedElementHeight+    attrSet _ = setDOMHTMLEmbedElementHeight+    attrConstruct _ = constructDOMHTMLEmbedElementHeight++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text+getDOMHTMLEmbedElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m ()+setDOMHTMLEmbedElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLEmbedElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLEmbedElementName val = constructObjectPropertyString "name" val++data DOMHTMLEmbedElementNamePropertyInfo+instance AttrInfo DOMHTMLEmbedElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLEmbedElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = DOMHTMLEmbedElementK+    type AttrGetType DOMHTMLEmbedElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLEmbedElementNamePropertyInfo = "DOMHTMLEmbedElement::name"+    attrGet _ = getDOMHTMLEmbedElementName+    attrSet _ = setDOMHTMLEmbedElementName+    attrConstruct _ = constructDOMHTMLEmbedElementName++-- VVV Prop "src"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text+getDOMHTMLEmbedElementSrc obj = liftIO $ getObjectPropertyString obj "src"++setDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m ()+setDOMHTMLEmbedElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val++constructDOMHTMLEmbedElementSrc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLEmbedElementSrc val = constructObjectPropertyString "src" val++data DOMHTMLEmbedElementSrcPropertyInfo+instance AttrInfo DOMHTMLEmbedElementSrcPropertyInfo where+    type AttrAllowedOps DOMHTMLEmbedElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = DOMHTMLEmbedElementK+    type AttrGetType DOMHTMLEmbedElementSrcPropertyInfo = T.Text+    type AttrLabel DOMHTMLEmbedElementSrcPropertyInfo = "DOMHTMLEmbedElement::src"+    attrGet _ = getDOMHTMLEmbedElementSrc+    attrSet _ = setDOMHTMLEmbedElementSrc+    attrConstruct _ = constructDOMHTMLEmbedElementSrc++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text+getDOMHTMLEmbedElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m ()+setDOMHTMLEmbedElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLEmbedElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLEmbedElementType val = constructObjectPropertyString "type" val++data DOMHTMLEmbedElementTypePropertyInfo+instance AttrInfo DOMHTMLEmbedElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLEmbedElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = DOMHTMLEmbedElementK+    type AttrGetType DOMHTMLEmbedElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLEmbedElementTypePropertyInfo = "DOMHTMLEmbedElement::type"+    attrGet _ = getDOMHTMLEmbedElementType+    attrSet _ = setDOMHTMLEmbedElementType+    attrConstruct _ = constructDOMHTMLEmbedElementType++-- VVV Prop "width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64+getDOMHTMLEmbedElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width"++setDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m ()+setDOMHTMLEmbedElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val++constructDOMHTMLEmbedElementWidth :: Int64 -> IO ([Char], GValue)+constructDOMHTMLEmbedElementWidth val = constructObjectPropertyInt64 "width" val++data DOMHTMLEmbedElementWidthPropertyInfo+instance AttrInfo DOMHTMLEmbedElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLEmbedElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = DOMHTMLEmbedElementK+    type AttrGetType DOMHTMLEmbedElementWidthPropertyInfo = Int64+    type AttrLabel DOMHTMLEmbedElementWidthPropertyInfo = "DOMHTMLEmbedElement::width"+    attrGet _ = getDOMHTMLEmbedElementWidth+    attrSet _ = setDOMHTMLEmbedElementWidth+    attrConstruct _ = constructDOMHTMLEmbedElementWidth++type instance AttributeList DOMHTMLEmbedElement = DOMHTMLEmbedElementAttributeList+type DOMHTMLEmbedElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLEmbedElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLEmbedElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLEmbedElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLEmbedElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLEmbedElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLEmbedElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLEmbedElement = DOMHTMLEmbedElementSignalList+type DOMHTMLEmbedElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLEmbedElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_embed_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLEmbedElement::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_embed_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLEmbedElement::get_src+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_embed_element_get_src" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLEmbedElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_type_attr" webkit_dom_html_embed_element_get_type_attr :: +    Ptr DOMHTMLEmbedElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement"+    IO CString+++dOMHTMLEmbedElementGetTypeAttr ::+    (MonadIO m, DOMHTMLEmbedElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLEmbedElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_embed_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_embed_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLEmbedElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr" webkit_dom_html_embed_element_set_type_attr :: +    Ptr DOMHTMLEmbedElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLEmbedElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLEmbedElementSetTypeAttr ::+    (MonadIO m, DOMHTMLEmbedElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLEmbedElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_embed_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method DOMHTMLEmbedElement::set_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLEmbedElement.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLEmbedElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLEmbedElement = DOMHTMLEmbedElement (ForeignPtr DOMHTMLEmbedElement)+instance GObject DOMHTMLEmbedElement where+class GObject o => DOMHTMLEmbedElementK o+instance (GObject o, IsDescendantOf DOMHTMLEmbedElement o) => DOMHTMLEmbedElementK o+data DOMHTMLEmbedElementAlignPropertyInfo+data DOMHTMLEmbedElementHeightPropertyInfo+data DOMHTMLEmbedElementNamePropertyInfo+data DOMHTMLEmbedElementSrcPropertyInfo+data DOMHTMLEmbedElementTypePropertyInfo+data DOMHTMLEmbedElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs view
@@ -0,0 +1,271 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLFieldSetElement+    ( ++-- * Exported types+    DOMHTMLFieldSetElement(..)              ,+    DOMHTMLFieldSetElementK                 ,+    toDOMHTMLFieldSetElement                ,+    noDOMHTMLFieldSetElement                ,+++ -- * Methods+-- ** dOMHTMLFieldSetElementGetForm+    dOMHTMLFieldSetElementGetForm           ,+++++ -- * Properties+-- ** Disabled+    DOMHTMLFieldSetElementDisabledPropertyInfo,+    constructDOMHTMLFieldSetElementDisabled ,+    getDOMHTMLFieldSetElementDisabled       ,+    setDOMHTMLFieldSetElementDisabled       ,+++-- ** Elements+    DOMHTMLFieldSetElementElementsPropertyInfo,+    getDOMHTMLFieldSetElementElements       ,+++-- ** Form+    DOMHTMLFieldSetElementFormPropertyInfo  ,+    getDOMHTMLFieldSetElementForm           ,+++-- ** Name+    DOMHTMLFieldSetElementNamePropertyInfo  ,+    constructDOMHTMLFieldSetElementName     ,+    getDOMHTMLFieldSetElementName           ,+    setDOMHTMLFieldSetElementName           ,+++-- ** Type+    DOMHTMLFieldSetElementTypePropertyInfo  ,+    getDOMHTMLFieldSetElementType           ,+++-- ** ValidationMessage+    DOMHTMLFieldSetElementValidationMessagePropertyInfo,+    getDOMHTMLFieldSetElementValidationMessage,+++-- ** WillValidate+    DOMHTMLFieldSetElementWillValidatePropertyInfo,+    getDOMHTMLFieldSetElementWillValidate   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLFieldSetElement = DOMHTMLFieldSetElement (ForeignPtr DOMHTMLFieldSetElement)+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 = DOMHTMLFieldSetElementParentTypes+type DOMHTMLFieldSetElementParentTypes = '[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++noDOMHTMLFieldSetElement :: Maybe DOMHTMLFieldSetElement+noDOMHTMLFieldSetElement = Nothing++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool+getDOMHTMLFieldSetElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> Bool -> m ()+setDOMHTMLFieldSetElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLFieldSetElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLFieldSetElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLFieldSetElementDisabledPropertyInfo+instance AttrInfo DOMHTMLFieldSetElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLFieldSetElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFieldSetElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLFieldSetElementDisabledPropertyInfo = DOMHTMLFieldSetElementK+    type AttrGetType DOMHTMLFieldSetElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLFieldSetElementDisabledPropertyInfo = "DOMHTMLFieldSetElement::disabled"+    attrGet _ = getDOMHTMLFieldSetElementDisabled+    attrSet _ = setDOMHTMLFieldSetElementDisabled+    attrConstruct _ = constructDOMHTMLFieldSetElementDisabled++-- VVV Prop "elements"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLFieldSetElementElements :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLCollection+getDOMHTMLFieldSetElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection++data DOMHTMLFieldSetElementElementsPropertyInfo+instance AttrInfo DOMHTMLFieldSetElementElementsPropertyInfo where+    type AttrAllowedOps DOMHTMLFieldSetElementElementsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLFieldSetElementK+    type AttrGetType DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLFieldSetElementElementsPropertyInfo = "DOMHTMLFieldSetElement::elements"+    attrGet _ = getDOMHTMLFieldSetElementElements+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLFieldSetElementForm :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLFieldSetElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLFieldSetElementFormPropertyInfo+instance AttrInfo DOMHTMLFieldSetElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLFieldSetElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFieldSetElementK+    type AttrGetType DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLFieldSetElementFormPropertyInfo = "DOMHTMLFieldSetElement::form"+    attrGet _ = getDOMHTMLFieldSetElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text+getDOMHTMLFieldSetElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> T.Text -> m ()+setDOMHTMLFieldSetElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLFieldSetElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFieldSetElementName val = constructObjectPropertyString "name" val++data DOMHTMLFieldSetElementNamePropertyInfo+instance AttrInfo DOMHTMLFieldSetElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLFieldSetElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = DOMHTMLFieldSetElementK+    type AttrGetType DOMHTMLFieldSetElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLFieldSetElementNamePropertyInfo = "DOMHTMLFieldSetElement::name"+    attrGet _ = getDOMHTMLFieldSetElementName+    attrSet _ = setDOMHTMLFieldSetElementName+    attrConstruct _ = constructDOMHTMLFieldSetElementName++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLFieldSetElementType :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text+getDOMHTMLFieldSetElementType obj = liftIO $ getObjectPropertyString obj "type"++data DOMHTMLFieldSetElementTypePropertyInfo+instance AttrInfo DOMHTMLFieldSetElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLFieldSetElementTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = DOMHTMLFieldSetElementK+    type AttrGetType DOMHTMLFieldSetElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLFieldSetElementTypePropertyInfo = "DOMHTMLFieldSetElement::type"+    attrGet _ = getDOMHTMLFieldSetElementType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "validation-message"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLFieldSetElementValidationMessage :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text+getDOMHTMLFieldSetElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message"++data DOMHTMLFieldSetElementValidationMessagePropertyInfo+instance AttrInfo DOMHTMLFieldSetElementValidationMessagePropertyInfo where+    type AttrAllowedOps DOMHTMLFieldSetElementValidationMessagePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = DOMHTMLFieldSetElementK+    type AttrGetType DOMHTMLFieldSetElementValidationMessagePropertyInfo = T.Text+    type AttrLabel DOMHTMLFieldSetElementValidationMessagePropertyInfo = "DOMHTMLFieldSetElement::validation-message"+    attrGet _ = getDOMHTMLFieldSetElementValidationMessage+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "will-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMHTMLFieldSetElementWillValidate :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool+getDOMHTMLFieldSetElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate"++data DOMHTMLFieldSetElementWillValidatePropertyInfo+instance AttrInfo DOMHTMLFieldSetElementWillValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLFieldSetElementWillValidatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFieldSetElementWillValidatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFieldSetElementWillValidatePropertyInfo = DOMHTMLFieldSetElementK+    type AttrGetType DOMHTMLFieldSetElementWillValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLFieldSetElementWillValidatePropertyInfo = "DOMHTMLFieldSetElement::will-validate"+    attrGet _ = getDOMHTMLFieldSetElementWillValidate+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementAttributeList+type DOMHTMLFieldSetElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLFieldSetElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFieldSetElementElementsPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLFieldSetElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLFieldSetElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLFieldSetElementTypePropertyInfo), '("validation-message", DOMHTMLFieldSetElementValidationMessagePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLFieldSetElementWillValidatePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLFieldSetElement = DOMHTMLFieldSetElementSignalList+type DOMHTMLFieldSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLFieldSetElement::get_form+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFieldSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_field_set_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMHTMLFieldSetElement.hs-boot view
@@ -0,0 +1,20 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLFieldSetElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLFieldSetElement = DOMHTMLFieldSetElement (ForeignPtr DOMHTMLFieldSetElement)+instance GObject DOMHTMLFieldSetElement where+class GObject o => DOMHTMLFieldSetElementK o+instance (GObject o, IsDescendantOf DOMHTMLFieldSetElement o) => DOMHTMLFieldSetElementK o+data DOMHTMLFieldSetElementDisabledPropertyInfo+data DOMHTMLFieldSetElementElementsPropertyInfo+data DOMHTMLFieldSetElementFormPropertyInfo+data DOMHTMLFieldSetElementNamePropertyInfo+data DOMHTMLFieldSetElementTypePropertyInfo+data DOMHTMLFieldSetElementValidationMessagePropertyInfo+data DOMHTMLFieldSetElementWillValidatePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs view
@@ -0,0 +1,346 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLFontElement+    ( ++-- * Exported types+    DOMHTMLFontElement(..)                  ,+    DOMHTMLFontElementK                     ,+    toDOMHTMLFontElement                    ,+    noDOMHTMLFontElement                    ,+++ -- * Methods+-- ** dOMHTMLFontElementGetColor+    dOMHTMLFontElementGetColor              ,+++-- ** dOMHTMLFontElementGetFace+    dOMHTMLFontElementGetFace               ,+++-- ** dOMHTMLFontElementGetSize+    dOMHTMLFontElementGetSize               ,+++-- ** dOMHTMLFontElementSetColor+    dOMHTMLFontElementSetColor              ,+++-- ** dOMHTMLFontElementSetFace+    dOMHTMLFontElementSetFace               ,+++-- ** dOMHTMLFontElementSetSize+    dOMHTMLFontElementSetSize               ,+++++ -- * Properties+-- ** Color+    DOMHTMLFontElementColorPropertyInfo     ,+    constructDOMHTMLFontElementColor        ,+    getDOMHTMLFontElementColor              ,+    setDOMHTMLFontElementColor              ,+++-- ** Face+    DOMHTMLFontElementFacePropertyInfo      ,+    constructDOMHTMLFontElementFace         ,+    getDOMHTMLFontElementFace               ,+    setDOMHTMLFontElementFace               ,+++-- ** Size+    DOMHTMLFontElementSizePropertyInfo      ,+    constructDOMHTMLFontElementSize         ,+    getDOMHTMLFontElementSize               ,+    setDOMHTMLFontElementSize               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLFontElement = DOMHTMLFontElement (ForeignPtr DOMHTMLFontElement)+foreign import ccall "webkit_dom_html_font_element_get_type"+    c_webkit_dom_html_font_element_get_type :: IO GType++type instance ParentTypes DOMHTMLFontElement = DOMHTMLFontElementParentTypes+type DOMHTMLFontElementParentTypes = '[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++noDOMHTMLFontElement :: Maybe DOMHTMLFontElement+noDOMHTMLFontElement = Nothing++-- VVV Prop "color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text+getDOMHTMLFontElementColor obj = liftIO $ getObjectPropertyString obj "color"++setDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m ()+setDOMHTMLFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val++constructDOMHTMLFontElementColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFontElementColor val = constructObjectPropertyString "color" val++data DOMHTMLFontElementColorPropertyInfo+instance AttrInfo DOMHTMLFontElementColorPropertyInfo where+    type AttrAllowedOps DOMHTMLFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFontElementColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFontElementColorPropertyInfo = DOMHTMLFontElementK+    type AttrGetType DOMHTMLFontElementColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLFontElementColorPropertyInfo = "DOMHTMLFontElement::color"+    attrGet _ = getDOMHTMLFontElementColor+    attrSet _ = setDOMHTMLFontElementColor+    attrConstruct _ = constructDOMHTMLFontElementColor++-- VVV Prop "face"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text+getDOMHTMLFontElementFace obj = liftIO $ getObjectPropertyString obj "face"++setDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m ()+setDOMHTMLFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val++constructDOMHTMLFontElementFace :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFontElementFace val = constructObjectPropertyString "face" val++data DOMHTMLFontElementFacePropertyInfo+instance AttrInfo DOMHTMLFontElementFacePropertyInfo where+    type AttrAllowedOps DOMHTMLFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFontElementFacePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFontElementFacePropertyInfo = DOMHTMLFontElementK+    type AttrGetType DOMHTMLFontElementFacePropertyInfo = T.Text+    type AttrLabel DOMHTMLFontElementFacePropertyInfo = "DOMHTMLFontElement::face"+    attrGet _ = getDOMHTMLFontElementFace+    attrSet _ = setDOMHTMLFontElementFace+    attrConstruct _ = constructDOMHTMLFontElementFace++-- VVV Prop "size"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text+getDOMHTMLFontElementSize obj = liftIO $ getObjectPropertyString obj "size"++setDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m ()+setDOMHTMLFontElementSize obj val = liftIO $ setObjectPropertyString obj "size" val++constructDOMHTMLFontElementSize :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFontElementSize val = constructObjectPropertyString "size" val++data DOMHTMLFontElementSizePropertyInfo+instance AttrInfo DOMHTMLFontElementSizePropertyInfo where+    type AttrAllowedOps DOMHTMLFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFontElementSizePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFontElementSizePropertyInfo = DOMHTMLFontElementK+    type AttrGetType DOMHTMLFontElementSizePropertyInfo = T.Text+    type AttrLabel DOMHTMLFontElementSizePropertyInfo = "DOMHTMLFontElement::size"+    attrGet _ = getDOMHTMLFontElementSize+    attrSet _ = setDOMHTMLFontElementSize+    attrConstruct _ = constructDOMHTMLFontElementSize++type instance AttributeList DOMHTMLFontElement = DOMHTMLFontElementAttributeList+type DOMHTMLFontElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLFontElementColorPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLFontElementFacePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLFontElement = DOMHTMLFontElementSignalList+type DOMHTMLFontElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLFontElement::get_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_font_element_get_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFontElement::get_face+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_font_element_get_face" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFontElement::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFontElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_font_element_get_size" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFontElement::set_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLFontElement.hs-boot view
@@ -0,0 +1,16 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLFontElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLFontElement = DOMHTMLFontElement (ForeignPtr DOMHTMLFontElement)+instance GObject DOMHTMLFontElement where+class GObject o => DOMHTMLFontElementK o+instance (GObject o, IsDescendantOf DOMHTMLFontElement o) => DOMHTMLFontElementK o+data DOMHTMLFontElementColorPropertyInfo+data DOMHTMLFontElementFacePropertyInfo+data DOMHTMLFontElementSizePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs view
@@ -0,0 +1,1006 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLFormElement+    ( ++-- * Exported types+    DOMHTMLFormElement(..)                  ,+    DOMHTMLFormElementK                     ,+    toDOMHTMLFormElement                    ,+    noDOMHTMLFormElement                    ,+++ -- * Methods+-- ** dOMHTMLFormElementGetAcceptCharset+    dOMHTMLFormElementGetAcceptCharset      ,+++-- ** dOMHTMLFormElementGetAction+    dOMHTMLFormElementGetAction             ,+++-- ** dOMHTMLFormElementGetElements+    dOMHTMLFormElementGetElements           ,+++-- ** dOMHTMLFormElementGetEncoding+    dOMHTMLFormElementGetEncoding           ,+++-- ** dOMHTMLFormElementGetEnctype+    dOMHTMLFormElementGetEnctype            ,+++-- ** dOMHTMLFormElementGetLength+    dOMHTMLFormElementGetLength             ,+++-- ** dOMHTMLFormElementGetMethod+    dOMHTMLFormElementGetMethod             ,+++-- ** dOMHTMLFormElementGetName+    dOMHTMLFormElementGetName               ,+++-- ** dOMHTMLFormElementGetTarget+    dOMHTMLFormElementGetTarget             ,+++-- ** dOMHTMLFormElementReset+    dOMHTMLFormElementReset                 ,+++-- ** dOMHTMLFormElementSetAcceptCharset+    dOMHTMLFormElementSetAcceptCharset      ,+++-- ** dOMHTMLFormElementSetAction+    dOMHTMLFormElementSetAction             ,+++-- ** dOMHTMLFormElementSetEncoding+    dOMHTMLFormElementSetEncoding           ,+++-- ** dOMHTMLFormElementSetEnctype+    dOMHTMLFormElementSetEnctype            ,+++-- ** dOMHTMLFormElementSetMethod+    dOMHTMLFormElementSetMethod             ,+++-- ** dOMHTMLFormElementSetName+    dOMHTMLFormElementSetName               ,+++-- ** dOMHTMLFormElementSetTarget+    dOMHTMLFormElementSetTarget             ,+++-- ** dOMHTMLFormElementSubmit+    dOMHTMLFormElementSubmit                ,+++++ -- * Properties+-- ** AcceptCharset+    DOMHTMLFormElementAcceptCharsetPropertyInfo,+    constructDOMHTMLFormElementAcceptCharset,+    getDOMHTMLFormElementAcceptCharset      ,+    setDOMHTMLFormElementAcceptCharset      ,+++-- ** Action+    DOMHTMLFormElementActionPropertyInfo    ,+    constructDOMHTMLFormElementAction       ,+    getDOMHTMLFormElementAction             ,+    setDOMHTMLFormElementAction             ,+++-- ** Autocapitalize+    DOMHTMLFormElementAutocapitalizePropertyInfo,+    constructDOMHTMLFormElementAutocapitalize,+    getDOMHTMLFormElementAutocapitalize     ,+    setDOMHTMLFormElementAutocapitalize     ,+++-- ** Autocomplete+    DOMHTMLFormElementAutocompletePropertyInfo,+    constructDOMHTMLFormElementAutocomplete ,+    getDOMHTMLFormElementAutocomplete       ,+    setDOMHTMLFormElementAutocomplete       ,+++-- ** Autocorrect+    DOMHTMLFormElementAutocorrectPropertyInfo,+    constructDOMHTMLFormElementAutocorrect  ,+    getDOMHTMLFormElementAutocorrect        ,+    setDOMHTMLFormElementAutocorrect        ,+++-- ** Elements+    DOMHTMLFormElementElementsPropertyInfo  ,+    getDOMHTMLFormElementElements           ,+++-- ** Encoding+    DOMHTMLFormElementEncodingPropertyInfo  ,+    constructDOMHTMLFormElementEncoding     ,+    getDOMHTMLFormElementEncoding           ,+    setDOMHTMLFormElementEncoding           ,+++-- ** Enctype+    DOMHTMLFormElementEnctypePropertyInfo   ,+    constructDOMHTMLFormElementEnctype      ,+    getDOMHTMLFormElementEnctype            ,+    setDOMHTMLFormElementEnctype            ,+++-- ** Length+    DOMHTMLFormElementLengthPropertyInfo    ,+    getDOMHTMLFormElementLength             ,+++-- ** Method+    DOMHTMLFormElementMethodPropertyInfo    ,+    constructDOMHTMLFormElementMethod       ,+    getDOMHTMLFormElementMethod             ,+    setDOMHTMLFormElementMethod             ,+++-- ** Name+    DOMHTMLFormElementNamePropertyInfo      ,+    constructDOMHTMLFormElementName         ,+    getDOMHTMLFormElementName               ,+    setDOMHTMLFormElementName               ,+++-- ** NoValidate+    DOMHTMLFormElementNoValidatePropertyInfo,+    constructDOMHTMLFormElementNoValidate   ,+    getDOMHTMLFormElementNoValidate         ,+    setDOMHTMLFormElementNoValidate         ,+++-- ** Target+    DOMHTMLFormElementTargetPropertyInfo    ,+    constructDOMHTMLFormElementTarget       ,+    getDOMHTMLFormElementTarget             ,+    setDOMHTMLFormElementTarget             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLFormElement = DOMHTMLFormElement (ForeignPtr DOMHTMLFormElement)+foreign import ccall "webkit_dom_html_form_element_get_type"+    c_webkit_dom_html_form_element_get_type :: IO GType++type instance ParentTypes DOMHTMLFormElement = DOMHTMLFormElementParentTypes+type DOMHTMLFormElementParentTypes = '[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++noDOMHTMLFormElement :: Maybe DOMHTMLFormElement+noDOMHTMLFormElement = Nothing++-- VVV Prop "accept-charset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementAcceptCharset obj = liftIO $ getObjectPropertyString obj "accept-charset"++setDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementAcceptCharset obj val = liftIO $ setObjectPropertyString obj "accept-charset" val++constructDOMHTMLFormElementAcceptCharset :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementAcceptCharset val = constructObjectPropertyString "accept-charset" val++data DOMHTMLFormElementAcceptCharsetPropertyInfo+instance AttrInfo DOMHTMLFormElementAcceptCharsetPropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementAcceptCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementAcceptCharsetPropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementAcceptCharsetPropertyInfo = "DOMHTMLFormElement::accept-charset"+    attrGet _ = getDOMHTMLFormElementAcceptCharset+    attrSet _ = setDOMHTMLFormElementAcceptCharset+    attrConstruct _ = constructDOMHTMLFormElementAcceptCharset++-- VVV Prop "action"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementAction obj = liftIO $ getObjectPropertyString obj "action"++setDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementAction obj val = liftIO $ setObjectPropertyString obj "action" val++constructDOMHTMLFormElementAction :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementAction val = constructObjectPropertyString "action" val++data DOMHTMLFormElementActionPropertyInfo+instance AttrInfo DOMHTMLFormElementActionPropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementActionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementActionPropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementActionPropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementActionPropertyInfo = "DOMHTMLFormElement::action"+    attrGet _ = getDOMHTMLFormElementAction+    attrSet _ = setDOMHTMLFormElementAction+    attrConstruct _ = constructDOMHTMLFormElementAction++-- VVV Prop "autocapitalize"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize"++setDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val++constructDOMHTMLFormElementAutocapitalize :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val++data DOMHTMLFormElementAutocapitalizePropertyInfo+instance AttrInfo DOMHTMLFormElementAutocapitalizePropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementAutocapitalizePropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementAutocapitalizePropertyInfo = "DOMHTMLFormElement::autocapitalize"+    attrGet _ = getDOMHTMLFormElementAutocapitalize+    attrSet _ = setDOMHTMLFormElementAutocapitalize+    attrConstruct _ = constructDOMHTMLFormElementAutocapitalize++-- VVV Prop "autocomplete"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete"++setDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val++constructDOMHTMLFormElementAutocomplete :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementAutocomplete val = constructObjectPropertyString "autocomplete" val++data DOMHTMLFormElementAutocompletePropertyInfo+instance AttrInfo DOMHTMLFormElementAutocompletePropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementAutocompletePropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementAutocompletePropertyInfo = "DOMHTMLFormElement::autocomplete"+    attrGet _ = getDOMHTMLFormElementAutocomplete+    attrSet _ = setDOMHTMLFormElementAutocomplete+    attrConstruct _ = constructDOMHTMLFormElementAutocomplete++-- VVV Prop "autocorrect"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool+getDOMHTMLFormElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect"++setDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> Bool -> m ()+setDOMHTMLFormElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val++constructDOMHTMLFormElementAutocorrect :: Bool -> IO ([Char], GValue)+constructDOMHTMLFormElementAutocorrect val = constructObjectPropertyBool "autocorrect" val++data DOMHTMLFormElementAutocorrectPropertyInfo+instance AttrInfo DOMHTMLFormElementAutocorrectPropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementAutocorrectPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLFormElementAutocorrectPropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementAutocorrectPropertyInfo = Bool+    type AttrLabel DOMHTMLFormElementAutocorrectPropertyInfo = "DOMHTMLFormElement::autocorrect"+    attrGet _ = getDOMHTMLFormElementAutocorrect+    attrSet _ = setDOMHTMLFormElementAutocorrect+    attrConstruct _ = constructDOMHTMLFormElementAutocorrect++-- VVV Prop "elements"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLFormElementElements :: (MonadIO m, DOMHTMLFormElementK o) => o -> m DOMHTMLCollection+getDOMHTMLFormElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection++data DOMHTMLFormElementElementsPropertyInfo+instance AttrInfo DOMHTMLFormElementElementsPropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementElementsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementElementsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFormElementElementsPropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementElementsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLFormElementElementsPropertyInfo = "DOMHTMLFormElement::elements"+    attrGet _ = getDOMHTMLFormElementElements+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "encoding"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementEncoding obj = liftIO $ getObjectPropertyString obj "encoding"++setDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementEncoding obj val = liftIO $ setObjectPropertyString obj "encoding" val++constructDOMHTMLFormElementEncoding :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementEncoding val = constructObjectPropertyString "encoding" val++data DOMHTMLFormElementEncodingPropertyInfo+instance AttrInfo DOMHTMLFormElementEncodingPropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementEncodingPropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementEncodingPropertyInfo = "DOMHTMLFormElement::encoding"+    attrGet _ = getDOMHTMLFormElementEncoding+    attrSet _ = setDOMHTMLFormElementEncoding+    attrConstruct _ = constructDOMHTMLFormElementEncoding++-- VVV Prop "enctype"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementEnctype obj = liftIO $ getObjectPropertyString obj "enctype"++setDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementEnctype obj val = liftIO $ setObjectPropertyString obj "enctype" val++constructDOMHTMLFormElementEnctype :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementEnctype val = constructObjectPropertyString "enctype" val++data DOMHTMLFormElementEnctypePropertyInfo+instance AttrInfo DOMHTMLFormElementEnctypePropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementEnctypePropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementEnctypePropertyInfo = "DOMHTMLFormElement::enctype"+    attrGet _ = getDOMHTMLFormElementEnctype+    attrSet _ = setDOMHTMLFormElementEnctype+    attrConstruct _ = constructDOMHTMLFormElementEnctype++-- VVV Prop "length"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLFormElementLength :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Int64+getDOMHTMLFormElementLength obj = liftIO $ getObjectPropertyInt64 obj "length"++data DOMHTMLFormElementLengthPropertyInfo+instance AttrInfo DOMHTMLFormElementLengthPropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFormElementLengthPropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementLengthPropertyInfo = Int64+    type AttrLabel DOMHTMLFormElementLengthPropertyInfo = "DOMHTMLFormElement::length"+    attrGet _ = getDOMHTMLFormElementLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "method"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementMethod obj = liftIO $ getObjectPropertyString obj "method"++setDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementMethod obj val = liftIO $ setObjectPropertyString obj "method" val++constructDOMHTMLFormElementMethod :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementMethod val = constructObjectPropertyString "method" val++data DOMHTMLFormElementMethodPropertyInfo+instance AttrInfo DOMHTMLFormElementMethodPropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementMethodPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementMethodPropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementMethodPropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementMethodPropertyInfo = "DOMHTMLFormElement::method"+    attrGet _ = getDOMHTMLFormElementMethod+    attrSet _ = setDOMHTMLFormElementMethod+    attrConstruct _ = constructDOMHTMLFormElementMethod++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLFormElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementName val = constructObjectPropertyString "name" val++data DOMHTMLFormElementNamePropertyInfo+instance AttrInfo DOMHTMLFormElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementNamePropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementNamePropertyInfo = "DOMHTMLFormElement::name"+    attrGet _ = getDOMHTMLFormElementName+    attrSet _ = setDOMHTMLFormElementName+    attrConstruct _ = constructDOMHTMLFormElementName++-- VVV Prop "no-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool+getDOMHTMLFormElementNoValidate obj = liftIO $ getObjectPropertyBool obj "no-validate"++setDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> Bool -> m ()+setDOMHTMLFormElementNoValidate obj val = liftIO $ setObjectPropertyBool obj "no-validate" val++constructDOMHTMLFormElementNoValidate :: Bool -> IO ([Char], GValue)+constructDOMHTMLFormElementNoValidate val = constructObjectPropertyBool "no-validate" val++data DOMHTMLFormElementNoValidatePropertyInfo+instance AttrInfo DOMHTMLFormElementNoValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementNoValidatePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLFormElementNoValidatePropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementNoValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLFormElementNoValidatePropertyInfo = "DOMHTMLFormElement::no-validate"+    attrGet _ = getDOMHTMLFormElementNoValidate+    attrSet _ = setDOMHTMLFormElementNoValidate+    attrConstruct _ = constructDOMHTMLFormElementNoValidate++-- VVV Prop "target"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text+getDOMHTMLFormElementTarget obj = liftIO $ getObjectPropertyString obj "target"++setDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m ()+setDOMHTMLFormElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val++constructDOMHTMLFormElementTarget :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFormElementTarget val = constructObjectPropertyString "target" val++data DOMHTMLFormElementTargetPropertyInfo+instance AttrInfo DOMHTMLFormElementTargetPropertyInfo where+    type AttrAllowedOps DOMHTMLFormElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFormElementTargetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFormElementTargetPropertyInfo = DOMHTMLFormElementK+    type AttrGetType DOMHTMLFormElementTargetPropertyInfo = T.Text+    type AttrLabel DOMHTMLFormElementTargetPropertyInfo = "DOMHTMLFormElement::target"+    attrGet _ = getDOMHTMLFormElementTarget+    attrSet _ = setDOMHTMLFormElementTarget+    attrConstruct _ = constructDOMHTMLFormElementTarget++type instance AttributeList DOMHTMLFormElement = DOMHTMLFormElementAttributeList+type DOMHTMLFormElementAttributeList = ('[ '("accept-charset", DOMHTMLFormElementAcceptCharsetPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("action", DOMHTMLFormElementActionPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLFormElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLFormElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLFormElementAutocorrectPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFormElementElementsPropertyInfo), '("encoding", DOMHTMLFormElementEncodingPropertyInfo), '("enctype", DOMHTMLFormElementEnctypePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLFormElementLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("method", DOMHTMLFormElementMethodPropertyInfo), '("name", DOMHTMLFormElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-validate", DOMHTMLFormElementNoValidatePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLFormElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLFormElement = DOMHTMLFormElementSignalList+type DOMHTMLFormElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLFormElement::get_accept_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_accept_charset" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFormElement::get_action+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_action" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFormElement::get_elements+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_elements" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFormElement::get_encoding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_encoding" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFormElement::get_enctype+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_enctype" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFormElement::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_method" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFormElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFormElement::get_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_form_element_get_target" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFormElement::reset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_encoding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLFormElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLFormElement.hs-boot view
@@ -0,0 +1,26 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLFormElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLFormElement = DOMHTMLFormElement (ForeignPtr DOMHTMLFormElement)+instance GObject DOMHTMLFormElement where+class GObject o => DOMHTMLFormElementK o+instance (GObject o, IsDescendantOf DOMHTMLFormElement o) => DOMHTMLFormElementK o+data DOMHTMLFormElementAcceptCharsetPropertyInfo+data DOMHTMLFormElementActionPropertyInfo+data DOMHTMLFormElementAutocapitalizePropertyInfo+data DOMHTMLFormElementAutocompletePropertyInfo+data DOMHTMLFormElementAutocorrectPropertyInfo+data DOMHTMLFormElementElementsPropertyInfo+data DOMHTMLFormElementEncodingPropertyInfo+data DOMHTMLFormElementEnctypePropertyInfo+data DOMHTMLFormElementLengthPropertyInfo+data DOMHTMLFormElementMethodPropertyInfo+data DOMHTMLFormElementNamePropertyInfo+data DOMHTMLFormElementNoValidatePropertyInfo+data DOMHTMLFormElementTargetPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs view
@@ -0,0 +1,1021 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLFrameElement+    ( ++-- * Exported types+    DOMHTMLFrameElement(..)                 ,+    DOMHTMLFrameElementK                    ,+    toDOMHTMLFrameElement                   ,+    noDOMHTMLFrameElement                   ,+++ -- * Methods+-- ** dOMHTMLFrameElementGetContentDocument+    dOMHTMLFrameElementGetContentDocument   ,+++-- ** dOMHTMLFrameElementGetContentWindow+    dOMHTMLFrameElementGetContentWindow     ,+++-- ** dOMHTMLFrameElementGetFrameBorder+    dOMHTMLFrameElementGetFrameBorder       ,+++-- ** dOMHTMLFrameElementGetHeight+    dOMHTMLFrameElementGetHeight            ,+++-- ** dOMHTMLFrameElementGetLongDesc+    dOMHTMLFrameElementGetLongDesc          ,+++-- ** dOMHTMLFrameElementGetMarginHeight+    dOMHTMLFrameElementGetMarginHeight      ,+++-- ** dOMHTMLFrameElementGetMarginWidth+    dOMHTMLFrameElementGetMarginWidth       ,+++-- ** dOMHTMLFrameElementGetName+    dOMHTMLFrameElementGetName              ,+++-- ** dOMHTMLFrameElementGetNoResize+    dOMHTMLFrameElementGetNoResize          ,+++-- ** dOMHTMLFrameElementGetScrolling+    dOMHTMLFrameElementGetScrolling         ,+++-- ** dOMHTMLFrameElementGetSrc+    dOMHTMLFrameElementGetSrc               ,+++-- ** dOMHTMLFrameElementGetWidth+    dOMHTMLFrameElementGetWidth             ,+++-- ** dOMHTMLFrameElementSetFrameBorder+    dOMHTMLFrameElementSetFrameBorder       ,+++-- ** dOMHTMLFrameElementSetLongDesc+    dOMHTMLFrameElementSetLongDesc          ,+++-- ** dOMHTMLFrameElementSetMarginHeight+    dOMHTMLFrameElementSetMarginHeight      ,+++-- ** dOMHTMLFrameElementSetMarginWidth+    dOMHTMLFrameElementSetMarginWidth       ,+++-- ** dOMHTMLFrameElementSetName+    dOMHTMLFrameElementSetName              ,+++-- ** dOMHTMLFrameElementSetNoResize+    dOMHTMLFrameElementSetNoResize          ,+++-- ** dOMHTMLFrameElementSetScrolling+    dOMHTMLFrameElementSetScrolling         ,+++-- ** dOMHTMLFrameElementSetSrc+    dOMHTMLFrameElementSetSrc               ,+++++ -- * Properties+-- ** ContentDocument+    DOMHTMLFrameElementContentDocumentPropertyInfo,+    getDOMHTMLFrameElementContentDocument   ,+++-- ** ContentWindow+    DOMHTMLFrameElementContentWindowPropertyInfo,+    getDOMHTMLFrameElementContentWindow     ,+++-- ** FrameBorder+    DOMHTMLFrameElementFrameBorderPropertyInfo,+    constructDOMHTMLFrameElementFrameBorder ,+    getDOMHTMLFrameElementFrameBorder       ,+    setDOMHTMLFrameElementFrameBorder       ,+++-- ** Height+    DOMHTMLFrameElementHeightPropertyInfo   ,+    getDOMHTMLFrameElementHeight            ,+++-- ** LongDesc+    DOMHTMLFrameElementLongDescPropertyInfo ,+    constructDOMHTMLFrameElementLongDesc    ,+    getDOMHTMLFrameElementLongDesc          ,+    setDOMHTMLFrameElementLongDesc          ,+++-- ** MarginHeight+    DOMHTMLFrameElementMarginHeightPropertyInfo,+    constructDOMHTMLFrameElementMarginHeight,+    getDOMHTMLFrameElementMarginHeight      ,+    setDOMHTMLFrameElementMarginHeight      ,+++-- ** MarginWidth+    DOMHTMLFrameElementMarginWidthPropertyInfo,+    constructDOMHTMLFrameElementMarginWidth ,+    getDOMHTMLFrameElementMarginWidth       ,+    setDOMHTMLFrameElementMarginWidth       ,+++-- ** Name+    DOMHTMLFrameElementNamePropertyInfo     ,+    constructDOMHTMLFrameElementName        ,+    getDOMHTMLFrameElementName              ,+    setDOMHTMLFrameElementName              ,+++-- ** NoResize+    DOMHTMLFrameElementNoResizePropertyInfo ,+    constructDOMHTMLFrameElementNoResize    ,+    getDOMHTMLFrameElementNoResize          ,+    setDOMHTMLFrameElementNoResize          ,+++-- ** Scrolling+    DOMHTMLFrameElementScrollingPropertyInfo,+    constructDOMHTMLFrameElementScrolling   ,+    getDOMHTMLFrameElementScrolling         ,+    setDOMHTMLFrameElementScrolling         ,+++-- ** Src+    DOMHTMLFrameElementSrcPropertyInfo      ,+    constructDOMHTMLFrameElementSrc         ,+    getDOMHTMLFrameElementSrc               ,+    setDOMHTMLFrameElementSrc               ,+++-- ** Width+    DOMHTMLFrameElementWidthPropertyInfo    ,+    getDOMHTMLFrameElementWidth             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLFrameElement = DOMHTMLFrameElement (ForeignPtr DOMHTMLFrameElement)+foreign import ccall "webkit_dom_html_frame_element_get_type"+    c_webkit_dom_html_frame_element_get_type :: IO GType++type instance ParentTypes DOMHTMLFrameElement = DOMHTMLFrameElementParentTypes+type DOMHTMLFrameElementParentTypes = '[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++noDOMHTMLFrameElement :: Maybe DOMHTMLFrameElement+noDOMHTMLFrameElement = Nothing++-- VVV Prop "content-document"+   -- Type: TInterface "WebKit2WebExtension" "DOMDocument"+   -- Flags: [PropertyReadable]++getDOMHTMLFrameElementContentDocument :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDocument+getDOMHTMLFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument++data DOMHTMLFrameElementContentDocumentPropertyInfo+instance AttrInfo DOMHTMLFrameElementContentDocumentPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementContentDocumentPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementContentDocumentPropertyInfo = DOMDocument+    type AttrLabel DOMHTMLFrameElementContentDocumentPropertyInfo = "DOMHTMLFrameElement::content-document"+    attrGet _ = getDOMHTMLFrameElementContentDocument+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "content-window"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMHTMLFrameElementContentWindow :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDOMWindow+getDOMHTMLFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow++data DOMHTMLFrameElementContentWindowPropertyInfo+instance AttrInfo DOMHTMLFrameElementContentWindowPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementContentWindowPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementContentWindowPropertyInfo = DOMDOMWindow+    type AttrLabel DOMHTMLFrameElementContentWindowPropertyInfo = "DOMHTMLFrameElement::content-window"+    attrGet _ = getDOMHTMLFrameElementContentWindow+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "frame-border"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text+getDOMHTMLFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border"++setDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val++constructDOMHTMLFrameElementFrameBorder :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val++data DOMHTMLFrameElementFrameBorderPropertyInfo+instance AttrInfo DOMHTMLFrameElementFrameBorderPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementFrameBorderPropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameElementFrameBorderPropertyInfo = "DOMHTMLFrameElement::frame-border"+    attrGet _ = getDOMHTMLFrameElementFrameBorder+    attrSet _ = setDOMHTMLFrameElementFrameBorder+    attrConstruct _ = constructDOMHTMLFrameElementFrameBorder++-- VVV Prop "height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLFrameElementHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64+getDOMHTMLFrameElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height"++data DOMHTMLFrameElementHeightPropertyInfo+instance AttrInfo DOMHTMLFrameElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementHeightPropertyInfo = Int64+    type AttrLabel DOMHTMLFrameElementHeightPropertyInfo = "DOMHTMLFrameElement::height"+    attrGet _ = getDOMHTMLFrameElementHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "long-desc"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text+getDOMHTMLFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc"++setDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val++constructDOMHTMLFrameElementLongDesc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameElementLongDesc val = constructObjectPropertyString "long-desc" val++data DOMHTMLFrameElementLongDescPropertyInfo+instance AttrInfo DOMHTMLFrameElementLongDescPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementLongDescPropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameElementLongDescPropertyInfo = "DOMHTMLFrameElement::long-desc"+    attrGet _ = getDOMHTMLFrameElementLongDesc+    attrSet _ = setDOMHTMLFrameElementLongDesc+    attrConstruct _ = constructDOMHTMLFrameElementLongDesc++-- VVV Prop "margin-height"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text+getDOMHTMLFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height"++setDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val++constructDOMHTMLFrameElementMarginHeight :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val++data DOMHTMLFrameElementMarginHeightPropertyInfo+instance AttrInfo DOMHTMLFrameElementMarginHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementMarginHeightPropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameElementMarginHeightPropertyInfo = "DOMHTMLFrameElement::margin-height"+    attrGet _ = getDOMHTMLFrameElementMarginHeight+    attrSet _ = setDOMHTMLFrameElementMarginHeight+    attrConstruct _ = constructDOMHTMLFrameElementMarginHeight++-- VVV Prop "margin-width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text+getDOMHTMLFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width"++setDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val++constructDOMHTMLFrameElementMarginWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val++data DOMHTMLFrameElementMarginWidthPropertyInfo+instance AttrInfo DOMHTMLFrameElementMarginWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementMarginWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameElementMarginWidthPropertyInfo = "DOMHTMLFrameElement::margin-width"+    attrGet _ = getDOMHTMLFrameElementMarginWidth+    attrSet _ = setDOMHTMLFrameElementMarginWidth+    attrConstruct _ = constructDOMHTMLFrameElementMarginWidth++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text+getDOMHTMLFrameElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLFrameElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameElementName val = constructObjectPropertyString "name" val++data DOMHTMLFrameElementNamePropertyInfo+instance AttrInfo DOMHTMLFrameElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameElementNamePropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameElementNamePropertyInfo = "DOMHTMLFrameElement::name"+    attrGet _ = getDOMHTMLFrameElementName+    attrSet _ = setDOMHTMLFrameElementName+    attrConstruct _ = constructDOMHTMLFrameElementName++-- VVV Prop "no-resize"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Bool+getDOMHTMLFrameElementNoResize obj = liftIO $ getObjectPropertyBool obj "no-resize"++setDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> Bool -> m ()+setDOMHTMLFrameElementNoResize obj val = liftIO $ setObjectPropertyBool obj "no-resize" val++constructDOMHTMLFrameElementNoResize :: Bool -> IO ([Char], GValue)+constructDOMHTMLFrameElementNoResize val = constructObjectPropertyBool "no-resize" val++data DOMHTMLFrameElementNoResizePropertyInfo+instance AttrInfo DOMHTMLFrameElementNoResizePropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementNoResizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementNoResizePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLFrameElementNoResizePropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementNoResizePropertyInfo = Bool+    type AttrLabel DOMHTMLFrameElementNoResizePropertyInfo = "DOMHTMLFrameElement::no-resize"+    attrGet _ = getDOMHTMLFrameElementNoResize+    attrSet _ = setDOMHTMLFrameElementNoResize+    attrConstruct _ = constructDOMHTMLFrameElementNoResize++-- VVV Prop "scrolling"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text+getDOMHTMLFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling"++setDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val++constructDOMHTMLFrameElementScrolling :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameElementScrolling val = constructObjectPropertyString "scrolling" val++data DOMHTMLFrameElementScrollingPropertyInfo+instance AttrInfo DOMHTMLFrameElementScrollingPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementScrollingPropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameElementScrollingPropertyInfo = "DOMHTMLFrameElement::scrolling"+    attrGet _ = getDOMHTMLFrameElementScrolling+    attrSet _ = setDOMHTMLFrameElementScrolling+    attrConstruct _ = constructDOMHTMLFrameElementScrolling++-- VVV Prop "src"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text+getDOMHTMLFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src"++setDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val++constructDOMHTMLFrameElementSrc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameElementSrc val = constructObjectPropertyString "src" val++data DOMHTMLFrameElementSrcPropertyInfo+instance AttrInfo DOMHTMLFrameElementSrcPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementSrcPropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameElementSrcPropertyInfo = "DOMHTMLFrameElement::src"+    attrGet _ = getDOMHTMLFrameElementSrc+    attrSet _ = setDOMHTMLFrameElementSrc+    attrConstruct _ = constructDOMHTMLFrameElementSrc++-- VVV Prop "width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLFrameElementWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64+getDOMHTMLFrameElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width"++data DOMHTMLFrameElementWidthPropertyInfo+instance AttrInfo DOMHTMLFrameElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameElementWidthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = DOMHTMLFrameElementK+    type AttrGetType DOMHTMLFrameElementWidthPropertyInfo = Int64+    type AttrLabel DOMHTMLFrameElementWidthPropertyInfo = "DOMHTMLFrameElement::width"+    attrGet _ = getDOMHTMLFrameElementWidth+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLFrameElement = DOMHTMLFrameElementAttributeList+type DOMHTMLFrameElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-document", DOMHTMLFrameElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("content-window", DOMHTMLFrameElementContentWindowPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame-border", DOMHTMLFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLFrameElementLongDescPropertyInfo), '("margin-height", DOMHTMLFrameElementMarginHeightPropertyInfo), '("margin-width", DOMHTMLFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLFrameElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-resize", DOMHTMLFrameElementNoResizePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLFrameElementScrollingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLFrameElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLFrameElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLFrameElement = DOMHTMLFrameElementSignalList+type DOMHTMLFrameElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLFrameElement::get_content_document+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_content_document" result+    result' <- (newObject DOMDocument) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_content_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_content_window" result+    result' <- (wrapObject DOMDOMWindow) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_frame_border+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_frame_border" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_long_desc" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_margin_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_margin_height" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_margin_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_margin_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_no_resize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_scrolling" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_src+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_element_get_src" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLFrameElement.hs-boot view
@@ -0,0 +1,25 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLFrameElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLFrameElement = DOMHTMLFrameElement (ForeignPtr DOMHTMLFrameElement)+instance GObject DOMHTMLFrameElement where+class GObject o => DOMHTMLFrameElementK o+instance (GObject o, IsDescendantOf DOMHTMLFrameElement o) => DOMHTMLFrameElementK o+data DOMHTMLFrameElementContentDocumentPropertyInfo+data DOMHTMLFrameElementContentWindowPropertyInfo+data DOMHTMLFrameElementFrameBorderPropertyInfo+data DOMHTMLFrameElementHeightPropertyInfo+data DOMHTMLFrameElementLongDescPropertyInfo+data DOMHTMLFrameElementMarginHeightPropertyInfo+data DOMHTMLFrameElementMarginWidthPropertyInfo+data DOMHTMLFrameElementNamePropertyInfo+data DOMHTMLFrameElementNoResizePropertyInfo+data DOMHTMLFrameElementScrollingPropertyInfo+data DOMHTMLFrameElementSrcPropertyInfo+data DOMHTMLFrameElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs view
@@ -0,0 +1,252 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLFrameSetElement+    ( ++-- * Exported types+    DOMHTMLFrameSetElement(..)              ,+    DOMHTMLFrameSetElementK                 ,+    toDOMHTMLFrameSetElement                ,+    noDOMHTMLFrameSetElement                ,+++ -- * Methods+-- ** dOMHTMLFrameSetElementGetCols+    dOMHTMLFrameSetElementGetCols           ,+++-- ** dOMHTMLFrameSetElementGetRows+    dOMHTMLFrameSetElementGetRows           ,+++-- ** dOMHTMLFrameSetElementSetCols+    dOMHTMLFrameSetElementSetCols           ,+++-- ** dOMHTMLFrameSetElementSetRows+    dOMHTMLFrameSetElementSetRows           ,+++++ -- * Properties+-- ** Cols+    DOMHTMLFrameSetElementColsPropertyInfo  ,+    constructDOMHTMLFrameSetElementCols     ,+    getDOMHTMLFrameSetElementCols           ,+    setDOMHTMLFrameSetElementCols           ,+++-- ** Rows+    DOMHTMLFrameSetElementRowsPropertyInfo  ,+    constructDOMHTMLFrameSetElementRows     ,+    getDOMHTMLFrameSetElementRows           ,+    setDOMHTMLFrameSetElementRows           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLFrameSetElement = DOMHTMLFrameSetElement (ForeignPtr DOMHTMLFrameSetElement)+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 = DOMHTMLFrameSetElementParentTypes+type DOMHTMLFrameSetElementParentTypes = '[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++noDOMHTMLFrameSetElement :: Maybe DOMHTMLFrameSetElement+noDOMHTMLFrameSetElement = Nothing++-- VVV Prop "cols"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text+getDOMHTMLFrameSetElementCols obj = liftIO $ getObjectPropertyString obj "cols"++setDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameSetElementCols obj val = liftIO $ setObjectPropertyString obj "cols" val++constructDOMHTMLFrameSetElementCols :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameSetElementCols val = constructObjectPropertyString "cols" val++data DOMHTMLFrameSetElementColsPropertyInfo+instance AttrInfo DOMHTMLFrameSetElementColsPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameSetElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = DOMHTMLFrameSetElementK+    type AttrGetType DOMHTMLFrameSetElementColsPropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameSetElementColsPropertyInfo = "DOMHTMLFrameSetElement::cols"+    attrGet _ = getDOMHTMLFrameSetElementCols+    attrSet _ = setDOMHTMLFrameSetElementCols+    attrConstruct _ = constructDOMHTMLFrameSetElementCols++-- VVV Prop "rows"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text+getDOMHTMLFrameSetElementRows obj = liftIO $ getObjectPropertyString obj "rows"++setDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m ()+setDOMHTMLFrameSetElementRows obj val = liftIO $ setObjectPropertyString obj "rows" val++constructDOMHTMLFrameSetElementRows :: T.Text -> IO ([Char], GValue)+constructDOMHTMLFrameSetElementRows val = constructObjectPropertyString "rows" val++data DOMHTMLFrameSetElementRowsPropertyInfo+instance AttrInfo DOMHTMLFrameSetElementRowsPropertyInfo where+    type AttrAllowedOps DOMHTMLFrameSetElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = DOMHTMLFrameSetElementK+    type AttrGetType DOMHTMLFrameSetElementRowsPropertyInfo = T.Text+    type AttrLabel DOMHTMLFrameSetElementRowsPropertyInfo = "DOMHTMLFrameSetElement::rows"+    attrGet _ = getDOMHTMLFrameSetElementRows+    attrSet _ = setDOMHTMLFrameSetElementRows+    attrConstruct _ = constructDOMHTMLFrameSetElementRows++type instance AttributeList DOMHTMLFrameSetElement = DOMHTMLFrameSetElementAttributeList+type DOMHTMLFrameSetElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLFrameSetElementColsPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLFrameSetElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLFrameSetElement = DOMHTMLFrameSetElementSignalList+type DOMHTMLFrameSetElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLFrameSetElement::get_cols+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_set_element_get_cols" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameSetElement::get_rows+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLFrameSetElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_frame_set_element_get_rows" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLFrameSetElement::set_cols+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLFrameSetElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLFrameSetElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLFrameSetElement = DOMHTMLFrameSetElement (ForeignPtr DOMHTMLFrameSetElement)+instance GObject DOMHTMLFrameSetElement where+class GObject o => DOMHTMLFrameSetElementK o+instance (GObject o, IsDescendantOf DOMHTMLFrameSetElement o) => DOMHTMLFrameSetElementK o+data DOMHTMLFrameSetElementColsPropertyInfo+data DOMHTMLFrameSetElementRowsPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs view
@@ -0,0 +1,437 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLHRElement+    ( ++-- * Exported types+    DOMHTMLHRElement(..)                    ,+    DOMHTMLHRElementK                       ,+    toDOMHTMLHRElement                      ,+    noDOMHTMLHRElement                      ,+++ -- * Methods+-- ** dOMHTMLHRElementGetAlign+    dOMHTMLHRElementGetAlign                ,+++-- ** dOMHTMLHRElementGetNoShade+    dOMHTMLHRElementGetNoShade              ,+++-- ** dOMHTMLHRElementGetSize+    dOMHTMLHRElementGetSize                 ,+++-- ** dOMHTMLHRElementGetWidth+    dOMHTMLHRElementGetWidth                ,+++-- ** dOMHTMLHRElementSetAlign+    dOMHTMLHRElementSetAlign                ,+++-- ** dOMHTMLHRElementSetNoShade+    dOMHTMLHRElementSetNoShade              ,+++-- ** dOMHTMLHRElementSetSize+    dOMHTMLHRElementSetSize                 ,+++-- ** dOMHTMLHRElementSetWidth+    dOMHTMLHRElementSetWidth                ,+++++ -- * Properties+-- ** Align+    DOMHTMLHRElementAlignPropertyInfo       ,+    constructDOMHTMLHRElementAlign          ,+    getDOMHTMLHRElementAlign                ,+    setDOMHTMLHRElementAlign                ,+++-- ** NoShade+    DOMHTMLHRElementNoShadePropertyInfo     ,+    constructDOMHTMLHRElementNoShade        ,+    getDOMHTMLHRElementNoShade              ,+    setDOMHTMLHRElementNoShade              ,+++-- ** Size+    DOMHTMLHRElementSizePropertyInfo        ,+    constructDOMHTMLHRElementSize           ,+    getDOMHTMLHRElementSize                 ,+    setDOMHTMLHRElementSize                 ,+++-- ** Width+    DOMHTMLHRElementWidthPropertyInfo       ,+    constructDOMHTMLHRElementWidth          ,+    getDOMHTMLHRElementWidth                ,+    setDOMHTMLHRElementWidth                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLHRElement = DOMHTMLHRElement (ForeignPtr DOMHTMLHRElement)+foreign import ccall "webkit_dom_html_hr_element_get_type"+    c_webkit_dom_html_hr_element_get_type :: IO GType++type instance ParentTypes DOMHTMLHRElement = DOMHTMLHRElementParentTypes+type DOMHTMLHRElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]++instance GObject DOMHTMLHRElement where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_dom_html_hr_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++noDOMHTMLHRElement :: Maybe DOMHTMLHRElement+noDOMHTMLHRElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text+getDOMHTMLHRElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m ()+setDOMHTMLHRElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLHRElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLHRElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLHRElementAlignPropertyInfo+instance AttrInfo DOMHTMLHRElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLHRElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLHRElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLHRElementAlignPropertyInfo = DOMHTMLHRElementK+    type AttrGetType DOMHTMLHRElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLHRElementAlignPropertyInfo = "DOMHTMLHRElement::align"+    attrGet _ = getDOMHTMLHRElementAlign+    attrSet _ = setDOMHTMLHRElementAlign+    attrConstruct _ = constructDOMHTMLHRElementAlign++-- VVV Prop "no-shade"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> m Bool+getDOMHTMLHRElementNoShade obj = liftIO $ getObjectPropertyBool obj "no-shade"++setDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> Bool -> m ()+setDOMHTMLHRElementNoShade obj val = liftIO $ setObjectPropertyBool obj "no-shade" val++constructDOMHTMLHRElementNoShade :: Bool -> IO ([Char], GValue)+constructDOMHTMLHRElementNoShade val = constructObjectPropertyBool "no-shade" val++data DOMHTMLHRElementNoShadePropertyInfo+instance AttrInfo DOMHTMLHRElementNoShadePropertyInfo where+    type AttrAllowedOps DOMHTMLHRElementNoShadePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLHRElementNoShadePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLHRElementNoShadePropertyInfo = DOMHTMLHRElementK+    type AttrGetType DOMHTMLHRElementNoShadePropertyInfo = Bool+    type AttrLabel DOMHTMLHRElementNoShadePropertyInfo = "DOMHTMLHRElement::no-shade"+    attrGet _ = getDOMHTMLHRElementNoShade+    attrSet _ = setDOMHTMLHRElementNoShade+    attrConstruct _ = constructDOMHTMLHRElementNoShade++-- VVV Prop "size"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text+getDOMHTMLHRElementSize obj = liftIO $ getObjectPropertyString obj "size"++setDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m ()+setDOMHTMLHRElementSize obj val = liftIO $ setObjectPropertyString obj "size" val++constructDOMHTMLHRElementSize :: T.Text -> IO ([Char], GValue)+constructDOMHTMLHRElementSize val = constructObjectPropertyString "size" val++data DOMHTMLHRElementSizePropertyInfo+instance AttrInfo DOMHTMLHRElementSizePropertyInfo where+    type AttrAllowedOps DOMHTMLHRElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLHRElementSizePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLHRElementSizePropertyInfo = DOMHTMLHRElementK+    type AttrGetType DOMHTMLHRElementSizePropertyInfo = T.Text+    type AttrLabel DOMHTMLHRElementSizePropertyInfo = "DOMHTMLHRElement::size"+    attrGet _ = getDOMHTMLHRElementSize+    attrSet _ = setDOMHTMLHRElementSize+    attrConstruct _ = constructDOMHTMLHRElementSize++-- VVV Prop "width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text+getDOMHTMLHRElementWidth obj = liftIO $ getObjectPropertyString obj "width"++setDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m ()+setDOMHTMLHRElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val++constructDOMHTMLHRElementWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLHRElementWidth val = constructObjectPropertyString "width" val++data DOMHTMLHRElementWidthPropertyInfo+instance AttrInfo DOMHTMLHRElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLHRElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLHRElementWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLHRElementWidthPropertyInfo = DOMHTMLHRElementK+    type AttrGetType DOMHTMLHRElementWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLHRElementWidthPropertyInfo = "DOMHTMLHRElement::width"+    attrGet _ = getDOMHTMLHRElementWidth+    attrSet _ = setDOMHTMLHRElementWidth+    attrConstruct _ = constructDOMHTMLHRElementWidth++type instance AttributeList DOMHTMLHRElement = DOMHTMLHRElementAttributeList+type DOMHTMLHRElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHRElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-shade", DOMHTMLHRElementNoShadePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLHRElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLHRElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLHRElement = DOMHTMLHRElementSignalList+type DOMHTMLHRElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLHRElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_hr_element_get_align" webkit_dom_html_hr_element_get_align :: +    Ptr DOMHTMLHRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLHRElement"+    IO CString+++dOMHTMLHRElementGetAlign ::+    (MonadIO m, DOMHTMLHRElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLHRElementGetAlign _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_hr_element_get_align _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_hr_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLHRElement::get_no_shade+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_hr_element_get_no_shade" webkit_dom_html_hr_element_get_no_shade :: +    Ptr DOMHTMLHRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLHRElement"+    IO CInt+++dOMHTMLHRElementGetNoShade ::+    (MonadIO m, DOMHTMLHRElementK a) =>+    a ->                                    -- _obj+    m Bool+dOMHTMLHRElementGetNoShade _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_hr_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 "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_hr_element_get_size" webkit_dom_html_hr_element_get_size :: +    Ptr DOMHTMLHRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLHRElement"+    IO CString+++dOMHTMLHRElementGetSize ::+    (MonadIO m, DOMHTMLHRElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLHRElementGetSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_hr_element_get_size _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_hr_element_get_size" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLHRElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHRElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_hr_element_get_width" webkit_dom_html_hr_element_get_width :: +    Ptr DOMHTMLHRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLHRElement"+    IO CString+++dOMHTMLHRElementGetWidth ::+    (MonadIO m, DOMHTMLHRElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLHRElementGetWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_hr_element_get_width _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_hr_element_get_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLHRElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_hr_element_set_align" webkit_dom_html_hr_element_set_align :: +    Ptr DOMHTMLHRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "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_html_hr_element_set_align _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method DOMHTMLHRElement::set_no_shade+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_hr_element_set_no_shade" webkit_dom_html_hr_element_set_no_shade :: +    Ptr DOMHTMLHRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "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_html_hr_element_set_no_shade _obj' value'+    touchManagedPtr _obj+    return ()++-- method DOMHTMLHRElement::set_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_hr_element_set_size" webkit_dom_html_hr_element_set_size :: +    Ptr DOMHTMLHRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "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_html_hr_element_set_size _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method DOMHTMLHRElement::set_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_hr_element_set_width" webkit_dom_html_hr_element_set_width :: +    Ptr DOMHTMLHRElement ->                 -- _obj : TInterface "WebKit2WebExtension" "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_html_hr_element_set_width _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLHRElement.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLHRElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLHRElement = DOMHTMLHRElement (ForeignPtr DOMHTMLHRElement)+instance GObject DOMHTMLHRElement where+class GObject o => DOMHTMLHRElementK o+instance (GObject o, IsDescendantOf DOMHTMLHRElement o) => DOMHTMLHRElementK o+data DOMHTMLHRElementAlignPropertyInfo+data DOMHTMLHRElementNoShadePropertyInfo+data DOMHTMLHRElementSizePropertyInfo+data DOMHTMLHRElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs view
@@ -0,0 +1,158 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement+    ( ++-- * Exported types+    DOMHTMLHeadElement(..)                  ,+    DOMHTMLHeadElementK                     ,+    toDOMHTMLHeadElement                    ,+    noDOMHTMLHeadElement                    ,+++ -- * Methods+-- ** dOMHTMLHeadElementGetProfile+    dOMHTMLHeadElementGetProfile            ,+++-- ** dOMHTMLHeadElementSetProfile+    dOMHTMLHeadElementSetProfile            ,+++++ -- * Properties+-- ** Profile+    DOMHTMLHeadElementProfilePropertyInfo   ,+    constructDOMHTMLHeadElementProfile      ,+    getDOMHTMLHeadElementProfile            ,+    setDOMHTMLHeadElementProfile            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLHeadElement = DOMHTMLHeadElement (ForeignPtr DOMHTMLHeadElement)+foreign import ccall "webkit_dom_html_head_element_get_type"+    c_webkit_dom_html_head_element_get_type :: IO GType++type instance ParentTypes DOMHTMLHeadElement = DOMHTMLHeadElementParentTypes+type DOMHTMLHeadElementParentTypes = '[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++noDOMHTMLHeadElement :: Maybe DOMHTMLHeadElement+noDOMHTMLHeadElement = Nothing++-- VVV Prop "profile"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> m T.Text+getDOMHTMLHeadElementProfile obj = liftIO $ getObjectPropertyString obj "profile"++setDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> T.Text -> m ()+setDOMHTMLHeadElementProfile obj val = liftIO $ setObjectPropertyString obj "profile" val++constructDOMHTMLHeadElementProfile :: T.Text -> IO ([Char], GValue)+constructDOMHTMLHeadElementProfile val = constructObjectPropertyString "profile" val++data DOMHTMLHeadElementProfilePropertyInfo+instance AttrInfo DOMHTMLHeadElementProfilePropertyInfo where+    type AttrAllowedOps DOMHTMLHeadElementProfilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = DOMHTMLHeadElementK+    type AttrGetType DOMHTMLHeadElementProfilePropertyInfo = T.Text+    type AttrLabel DOMHTMLHeadElementProfilePropertyInfo = "DOMHTMLHeadElement::profile"+    attrGet _ = getDOMHTMLHeadElementProfile+    attrSet _ = setDOMHTMLHeadElementProfile+    attrConstruct _ = constructDOMHTMLHeadElementProfile++type instance AttributeList DOMHTMLHeadElement = DOMHTMLHeadElementAttributeList+type DOMHTMLHeadElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("profile", DOMHTMLHeadElementProfilePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLHeadElement = DOMHTMLHeadElementSignalList+type DOMHTMLHeadElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLHeadElement::get_profile+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHeadElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_head_element_get_profile" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLHeadElement::set_profile+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLHeadElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLHeadElement = DOMHTMLHeadElement (ForeignPtr DOMHTMLHeadElement)+instance GObject DOMHTMLHeadElement where+class GObject o => DOMHTMLHeadElementK o+instance (GObject o, IsDescendantOf DOMHTMLHeadElement o) => DOMHTMLHeadElementK o+data DOMHTMLHeadElementProfilePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs view
@@ -0,0 +1,158 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLHeadingElement+    ( ++-- * Exported types+    DOMHTMLHeadingElement(..)               ,+    DOMHTMLHeadingElementK                  ,+    toDOMHTMLHeadingElement                 ,+    noDOMHTMLHeadingElement                 ,+++ -- * Methods+-- ** dOMHTMLHeadingElementGetAlign+    dOMHTMLHeadingElementGetAlign           ,+++-- ** dOMHTMLHeadingElementSetAlign+    dOMHTMLHeadingElementSetAlign           ,+++++ -- * Properties+-- ** Align+    DOMHTMLHeadingElementAlignPropertyInfo  ,+    constructDOMHTMLHeadingElementAlign     ,+    getDOMHTMLHeadingElementAlign           ,+    setDOMHTMLHeadingElementAlign           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLHeadingElement = DOMHTMLHeadingElement (ForeignPtr DOMHTMLHeadingElement)+foreign import ccall "webkit_dom_html_heading_element_get_type"+    c_webkit_dom_html_heading_element_get_type :: IO GType++type instance ParentTypes DOMHTMLHeadingElement = DOMHTMLHeadingElementParentTypes+type DOMHTMLHeadingElementParentTypes = '[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++noDOMHTMLHeadingElement :: Maybe DOMHTMLHeadingElement+noDOMHTMLHeadingElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> m T.Text+getDOMHTMLHeadingElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> T.Text -> m ()+setDOMHTMLHeadingElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLHeadingElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLHeadingElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLHeadingElementAlignPropertyInfo+instance AttrInfo DOMHTMLHeadingElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLHeadingElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = DOMHTMLHeadingElementK+    type AttrGetType DOMHTMLHeadingElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLHeadingElementAlignPropertyInfo = "DOMHTMLHeadingElement::align"+    attrGet _ = getDOMHTMLHeadingElementAlign+    attrSet _ = setDOMHTMLHeadingElementAlign+    attrConstruct _ = constructDOMHTMLHeadingElementAlign++type instance AttributeList DOMHTMLHeadingElement = DOMHTMLHeadingElementAttributeList+type DOMHTMLHeadingElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHeadingElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLHeadingElement = DOMHTMLHeadingElementSignalList+type DOMHTMLHeadingElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLHeadingElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHeadingElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_heading_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLHeadingElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLHeadingElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLHeadingElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLHeadingElement = DOMHTMLHeadingElement (ForeignPtr DOMHTMLHeadingElement)+instance GObject DOMHTMLHeadingElement where+class GObject o => DOMHTMLHeadingElementK o+instance (GObject o, IsDescendantOf DOMHTMLHeadingElement o) => DOMHTMLHeadingElementK o+data DOMHTMLHeadingElementAlignPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs view
@@ -0,0 +1,189 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLHtmlElement+    ( ++-- * Exported types+    DOMHTMLHtmlElement(..)                  ,+    DOMHTMLHtmlElementK                     ,+    toDOMHTMLHtmlElement                    ,+    noDOMHTMLHtmlElement                    ,+++ -- * Methods+-- ** dOMHTMLHtmlElementGetVersion+    dOMHTMLHtmlElementGetVersion            ,+++-- ** dOMHTMLHtmlElementSetVersion+    dOMHTMLHtmlElementSetVersion            ,+++++ -- * Properties+-- ** Manifest+    DOMHTMLHtmlElementManifestPropertyInfo  ,+    constructDOMHTMLHtmlElementManifest     ,+    getDOMHTMLHtmlElementManifest           ,+    setDOMHTMLHtmlElementManifest           ,+++-- ** Version+    DOMHTMLHtmlElementVersionPropertyInfo   ,+    constructDOMHTMLHtmlElementVersion      ,+    getDOMHTMLHtmlElementVersion            ,+    setDOMHTMLHtmlElementVersion            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLHtmlElement = DOMHTMLHtmlElement (ForeignPtr DOMHTMLHtmlElement)+foreign import ccall "webkit_dom_html_html_element_get_type"+    c_webkit_dom_html_html_element_get_type :: IO GType++type instance ParentTypes DOMHTMLHtmlElement = DOMHTMLHtmlElementParentTypes+type DOMHTMLHtmlElementParentTypes = '[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++noDOMHTMLHtmlElement :: Maybe DOMHTMLHtmlElement+noDOMHTMLHtmlElement = Nothing++-- VVV Prop "manifest"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text+getDOMHTMLHtmlElementManifest obj = liftIO $ getObjectPropertyString obj "manifest"++setDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m ()+setDOMHTMLHtmlElementManifest obj val = liftIO $ setObjectPropertyString obj "manifest" val++constructDOMHTMLHtmlElementManifest :: T.Text -> IO ([Char], GValue)+constructDOMHTMLHtmlElementManifest val = constructObjectPropertyString "manifest" val++data DOMHTMLHtmlElementManifestPropertyInfo+instance AttrInfo DOMHTMLHtmlElementManifestPropertyInfo where+    type AttrAllowedOps DOMHTMLHtmlElementManifestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = DOMHTMLHtmlElementK+    type AttrGetType DOMHTMLHtmlElementManifestPropertyInfo = T.Text+    type AttrLabel DOMHTMLHtmlElementManifestPropertyInfo = "DOMHTMLHtmlElement::manifest"+    attrGet _ = getDOMHTMLHtmlElementManifest+    attrSet _ = setDOMHTMLHtmlElementManifest+    attrConstruct _ = constructDOMHTMLHtmlElementManifest++-- VVV Prop "version"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text+getDOMHTMLHtmlElementVersion obj = liftIO $ getObjectPropertyString obj "version"++setDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m ()+setDOMHTMLHtmlElementVersion obj val = liftIO $ setObjectPropertyString obj "version" val++constructDOMHTMLHtmlElementVersion :: T.Text -> IO ([Char], GValue)+constructDOMHTMLHtmlElementVersion val = constructObjectPropertyString "version" val++data DOMHTMLHtmlElementVersionPropertyInfo+instance AttrInfo DOMHTMLHtmlElementVersionPropertyInfo where+    type AttrAllowedOps DOMHTMLHtmlElementVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = DOMHTMLHtmlElementK+    type AttrGetType DOMHTMLHtmlElementVersionPropertyInfo = T.Text+    type AttrLabel DOMHTMLHtmlElementVersionPropertyInfo = "DOMHTMLHtmlElement::version"+    attrGet _ = getDOMHTMLHtmlElementVersion+    attrSet _ = setDOMHTMLHtmlElementVersion+    attrConstruct _ = constructDOMHTMLHtmlElementVersion++type instance AttributeList DOMHTMLHtmlElement = DOMHTMLHtmlElementAttributeList+type DOMHTMLHtmlElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("manifest", DOMHTMLHtmlElementManifestPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("version", DOMHTMLHtmlElementVersionPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLHtmlElement = DOMHTMLHtmlElementSignalList+type DOMHTMLHtmlElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLHtmlElement::get_version+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLHtmlElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_html_element_get_version" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLHtmlElement::set_version+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLHtmlElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLHtmlElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLHtmlElement = DOMHTMLHtmlElement (ForeignPtr DOMHTMLHtmlElement)+instance GObject DOMHTMLHtmlElement where+class GObject o => DOMHTMLHtmlElementK o+instance (GObject o, IsDescendantOf DOMHTMLHtmlElement o) => DOMHTMLHtmlElementK o+data DOMHTMLHtmlElementManifestPropertyInfo+data DOMHTMLHtmlElementVersionPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs view
@@ -0,0 +1,1172 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLIFrameElement+    ( ++-- * Exported types+    DOMHTMLIFrameElement(..)                ,+    DOMHTMLIFrameElementK                   ,+    toDOMHTMLIFrameElement                  ,+    noDOMHTMLIFrameElement                  ,+++ -- * Methods+-- ** dOMHTMLIFrameElementGetAlign+    dOMHTMLIFrameElementGetAlign            ,+++-- ** dOMHTMLIFrameElementGetContentDocument+    dOMHTMLIFrameElementGetContentDocument  ,+++-- ** dOMHTMLIFrameElementGetContentWindow+    dOMHTMLIFrameElementGetContentWindow    ,+++-- ** dOMHTMLIFrameElementGetFrameBorder+    dOMHTMLIFrameElementGetFrameBorder      ,+++-- ** dOMHTMLIFrameElementGetHeight+    dOMHTMLIFrameElementGetHeight           ,+++-- ** dOMHTMLIFrameElementGetLongDesc+    dOMHTMLIFrameElementGetLongDesc         ,+++-- ** dOMHTMLIFrameElementGetMarginHeight+    dOMHTMLIFrameElementGetMarginHeight     ,+++-- ** dOMHTMLIFrameElementGetMarginWidth+    dOMHTMLIFrameElementGetMarginWidth      ,+++-- ** dOMHTMLIFrameElementGetName+    dOMHTMLIFrameElementGetName             ,+++-- ** dOMHTMLIFrameElementGetScrolling+    dOMHTMLIFrameElementGetScrolling        ,+++-- ** dOMHTMLIFrameElementGetSrc+    dOMHTMLIFrameElementGetSrc              ,+++-- ** dOMHTMLIFrameElementGetWidth+    dOMHTMLIFrameElementGetWidth            ,+++-- ** dOMHTMLIFrameElementSetAlign+    dOMHTMLIFrameElementSetAlign            ,+++-- ** dOMHTMLIFrameElementSetFrameBorder+    dOMHTMLIFrameElementSetFrameBorder      ,+++-- ** dOMHTMLIFrameElementSetHeight+    dOMHTMLIFrameElementSetHeight           ,+++-- ** dOMHTMLIFrameElementSetLongDesc+    dOMHTMLIFrameElementSetLongDesc         ,+++-- ** dOMHTMLIFrameElementSetMarginHeight+    dOMHTMLIFrameElementSetMarginHeight     ,+++-- ** dOMHTMLIFrameElementSetMarginWidth+    dOMHTMLIFrameElementSetMarginWidth      ,+++-- ** dOMHTMLIFrameElementSetName+    dOMHTMLIFrameElementSetName             ,+++-- ** dOMHTMLIFrameElementSetScrolling+    dOMHTMLIFrameElementSetScrolling        ,+++-- ** dOMHTMLIFrameElementSetSrc+    dOMHTMLIFrameElementSetSrc              ,+++-- ** dOMHTMLIFrameElementSetWidth+    dOMHTMLIFrameElementSetWidth            ,+++++ -- * Properties+-- ** Align+    DOMHTMLIFrameElementAlignPropertyInfo   ,+    constructDOMHTMLIFrameElementAlign      ,+    getDOMHTMLIFrameElementAlign            ,+    setDOMHTMLIFrameElementAlign            ,+++-- ** ContentDocument+    DOMHTMLIFrameElementContentDocumentPropertyInfo,+    getDOMHTMLIFrameElementContentDocument  ,+++-- ** ContentWindow+    DOMHTMLIFrameElementContentWindowPropertyInfo,+    getDOMHTMLIFrameElementContentWindow    ,+++-- ** FrameBorder+    DOMHTMLIFrameElementFrameBorderPropertyInfo,+    constructDOMHTMLIFrameElementFrameBorder,+    getDOMHTMLIFrameElementFrameBorder      ,+    setDOMHTMLIFrameElementFrameBorder      ,+++-- ** Height+    DOMHTMLIFrameElementHeightPropertyInfo  ,+    constructDOMHTMLIFrameElementHeight     ,+    getDOMHTMLIFrameElementHeight           ,+    setDOMHTMLIFrameElementHeight           ,+++-- ** LongDesc+    DOMHTMLIFrameElementLongDescPropertyInfo,+    constructDOMHTMLIFrameElementLongDesc   ,+    getDOMHTMLIFrameElementLongDesc         ,+    setDOMHTMLIFrameElementLongDesc         ,+++-- ** MarginHeight+    DOMHTMLIFrameElementMarginHeightPropertyInfo,+    constructDOMHTMLIFrameElementMarginHeight,+    getDOMHTMLIFrameElementMarginHeight     ,+    setDOMHTMLIFrameElementMarginHeight     ,+++-- ** MarginWidth+    DOMHTMLIFrameElementMarginWidthPropertyInfo,+    constructDOMHTMLIFrameElementMarginWidth,+    getDOMHTMLIFrameElementMarginWidth      ,+    setDOMHTMLIFrameElementMarginWidth      ,+++-- ** Name+    DOMHTMLIFrameElementNamePropertyInfo    ,+    constructDOMHTMLIFrameElementName       ,+    getDOMHTMLIFrameElementName             ,+    setDOMHTMLIFrameElementName             ,+++-- ** Sandbox+    DOMHTMLIFrameElementSandboxPropertyInfo ,+    constructDOMHTMLIFrameElementSandbox    ,+    getDOMHTMLIFrameElementSandbox          ,+    setDOMHTMLIFrameElementSandbox          ,+++-- ** Scrolling+    DOMHTMLIFrameElementScrollingPropertyInfo,+    constructDOMHTMLIFrameElementScrolling  ,+    getDOMHTMLIFrameElementScrolling        ,+    setDOMHTMLIFrameElementScrolling        ,+++-- ** Src+    DOMHTMLIFrameElementSrcPropertyInfo     ,+    constructDOMHTMLIFrameElementSrc        ,+    getDOMHTMLIFrameElementSrc              ,+    setDOMHTMLIFrameElementSrc              ,+++-- ** Srcdoc+    DOMHTMLIFrameElementSrcdocPropertyInfo  ,+    constructDOMHTMLIFrameElementSrcdoc     ,+    getDOMHTMLIFrameElementSrcdoc           ,+    setDOMHTMLIFrameElementSrcdoc           ,+++-- ** Width+    DOMHTMLIFrameElementWidthPropertyInfo   ,+    constructDOMHTMLIFrameElementWidth      ,+    getDOMHTMLIFrameElementWidth            ,+    setDOMHTMLIFrameElementWidth            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLIFrameElement = DOMHTMLIFrameElement (ForeignPtr DOMHTMLIFrameElement)+foreign import ccall "webkit_dom_html_iframe_element_get_type"+    c_webkit_dom_html_iframe_element_get_type :: IO GType++type instance ParentTypes DOMHTMLIFrameElement = DOMHTMLIFrameElementParentTypes+type DOMHTMLIFrameElementParentTypes = '[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++noDOMHTMLIFrameElement :: Maybe DOMHTMLIFrameElement+noDOMHTMLIFrameElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLIFrameElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLIFrameElementAlignPropertyInfo+instance AttrInfo DOMHTMLIFrameElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementAlignPropertyInfo = "DOMHTMLIFrameElement::align"+    attrGet _ = getDOMHTMLIFrameElementAlign+    attrSet _ = setDOMHTMLIFrameElementAlign+    attrConstruct _ = constructDOMHTMLIFrameElementAlign++-- VVV Prop "content-document"+   -- Type: TInterface "WebKit2WebExtension" "DOMDocument"+   -- Flags: [PropertyReadable]++getDOMHTMLIFrameElementContentDocument :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDocument+getDOMHTMLIFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument++data DOMHTMLIFrameElementContentDocumentPropertyInfo+instance AttrInfo DOMHTMLIFrameElementContentDocumentPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementContentDocumentPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMDocument+    type AttrLabel DOMHTMLIFrameElementContentDocumentPropertyInfo = "DOMHTMLIFrameElement::content-document"+    attrGet _ = getDOMHTMLIFrameElementContentDocument+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "content-window"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMHTMLIFrameElementContentWindow :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDOMWindow+getDOMHTMLIFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow++data DOMHTMLIFrameElementContentWindowPropertyInfo+instance AttrInfo DOMHTMLIFrameElementContentWindowPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementContentWindowPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementContentWindowPropertyInfo = DOMDOMWindow+    type AttrLabel DOMHTMLIFrameElementContentWindowPropertyInfo = "DOMHTMLIFrameElement::content-window"+    attrGet _ = getDOMHTMLIFrameElementContentWindow+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "frame-border"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border"++setDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val++constructDOMHTMLIFrameElementFrameBorder :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val++data DOMHTMLIFrameElementFrameBorderPropertyInfo+instance AttrInfo DOMHTMLIFrameElementFrameBorderPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementFrameBorderPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementFrameBorderPropertyInfo = "DOMHTMLIFrameElement::frame-border"+    attrGet _ = getDOMHTMLIFrameElementFrameBorder+    attrSet _ = setDOMHTMLIFrameElementFrameBorder+    attrConstruct _ = constructDOMHTMLIFrameElementFrameBorder++-- VVV Prop "height"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementHeight obj = liftIO $ getObjectPropertyString obj "height"++setDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val++constructDOMHTMLIFrameElementHeight :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementHeight val = constructObjectPropertyString "height" val++data DOMHTMLIFrameElementHeightPropertyInfo+instance AttrInfo DOMHTMLIFrameElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementHeightPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementHeightPropertyInfo = "DOMHTMLIFrameElement::height"+    attrGet _ = getDOMHTMLIFrameElementHeight+    attrSet _ = setDOMHTMLIFrameElementHeight+    attrConstruct _ = constructDOMHTMLIFrameElementHeight++-- VVV Prop "long-desc"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc"++setDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val++constructDOMHTMLIFrameElementLongDesc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementLongDesc val = constructObjectPropertyString "long-desc" val++data DOMHTMLIFrameElementLongDescPropertyInfo+instance AttrInfo DOMHTMLIFrameElementLongDescPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementLongDescPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementLongDescPropertyInfo = "DOMHTMLIFrameElement::long-desc"+    attrGet _ = getDOMHTMLIFrameElementLongDesc+    attrSet _ = setDOMHTMLIFrameElementLongDesc+    attrConstruct _ = constructDOMHTMLIFrameElementLongDesc++-- VVV Prop "margin-height"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height"++setDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val++constructDOMHTMLIFrameElementMarginHeight :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val++data DOMHTMLIFrameElementMarginHeightPropertyInfo+instance AttrInfo DOMHTMLIFrameElementMarginHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementMarginHeightPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementMarginHeightPropertyInfo = "DOMHTMLIFrameElement::margin-height"+    attrGet _ = getDOMHTMLIFrameElementMarginHeight+    attrSet _ = setDOMHTMLIFrameElementMarginHeight+    attrConstruct _ = constructDOMHTMLIFrameElementMarginHeight++-- VVV Prop "margin-width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width"++setDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val++constructDOMHTMLIFrameElementMarginWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val++data DOMHTMLIFrameElementMarginWidthPropertyInfo+instance AttrInfo DOMHTMLIFrameElementMarginWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementMarginWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementMarginWidthPropertyInfo = "DOMHTMLIFrameElement::margin-width"+    attrGet _ = getDOMHTMLIFrameElementMarginWidth+    attrSet _ = setDOMHTMLIFrameElementMarginWidth+    attrConstruct _ = constructDOMHTMLIFrameElementMarginWidth++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLIFrameElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementName val = constructObjectPropertyString "name" val++data DOMHTMLIFrameElementNamePropertyInfo+instance AttrInfo DOMHTMLIFrameElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementNamePropertyInfo = "DOMHTMLIFrameElement::name"+    attrGet _ = getDOMHTMLIFrameElementName+    attrSet _ = setDOMHTMLIFrameElementName+    attrConstruct _ = constructDOMHTMLIFrameElementName++-- VVV Prop "sandbox"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementSandbox obj = liftIO $ getObjectPropertyString obj "sandbox"++setDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementSandbox obj val = liftIO $ setObjectPropertyString obj "sandbox" val++constructDOMHTMLIFrameElementSandbox :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementSandbox val = constructObjectPropertyString "sandbox" val++data DOMHTMLIFrameElementSandboxPropertyInfo+instance AttrInfo DOMHTMLIFrameElementSandboxPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementSandboxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementSandboxPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementSandboxPropertyInfo = "DOMHTMLIFrameElement::sandbox"+    attrGet _ = getDOMHTMLIFrameElementSandbox+    attrSet _ = setDOMHTMLIFrameElementSandbox+    attrConstruct _ = constructDOMHTMLIFrameElementSandbox++-- VVV Prop "scrolling"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling"++setDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val++constructDOMHTMLIFrameElementScrolling :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementScrolling val = constructObjectPropertyString "scrolling" val++data DOMHTMLIFrameElementScrollingPropertyInfo+instance AttrInfo DOMHTMLIFrameElementScrollingPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementScrollingPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementScrollingPropertyInfo = "DOMHTMLIFrameElement::scrolling"+    attrGet _ = getDOMHTMLIFrameElementScrolling+    attrSet _ = setDOMHTMLIFrameElementScrolling+    attrConstruct _ = constructDOMHTMLIFrameElementScrolling++-- VVV Prop "src"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src"++setDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val++constructDOMHTMLIFrameElementSrc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementSrc val = constructObjectPropertyString "src" val++data DOMHTMLIFrameElementSrcPropertyInfo+instance AttrInfo DOMHTMLIFrameElementSrcPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementSrcPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementSrcPropertyInfo = "DOMHTMLIFrameElement::src"+    attrGet _ = getDOMHTMLIFrameElementSrc+    attrSet _ = setDOMHTMLIFrameElementSrc+    attrConstruct _ = constructDOMHTMLIFrameElementSrc++-- VVV Prop "srcdoc"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementSrcdoc obj = liftIO $ getObjectPropertyString obj "srcdoc"++setDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementSrcdoc obj val = liftIO $ setObjectPropertyString obj "srcdoc" val++constructDOMHTMLIFrameElementSrcdoc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementSrcdoc val = constructObjectPropertyString "srcdoc" val++data DOMHTMLIFrameElementSrcdocPropertyInfo+instance AttrInfo DOMHTMLIFrameElementSrcdocPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementSrcdocPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementSrcdocPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementSrcdocPropertyInfo = "DOMHTMLIFrameElement::srcdoc"+    attrGet _ = getDOMHTMLIFrameElementSrcdoc+    attrSet _ = setDOMHTMLIFrameElementSrcdoc+    attrConstruct _ = constructDOMHTMLIFrameElementSrcdoc++-- VVV Prop "width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text+getDOMHTMLIFrameElementWidth obj = liftIO $ getObjectPropertyString obj "width"++setDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m ()+setDOMHTMLIFrameElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val++constructDOMHTMLIFrameElementWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLIFrameElementWidth val = constructObjectPropertyString "width" val++data DOMHTMLIFrameElementWidthPropertyInfo+instance AttrInfo DOMHTMLIFrameElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLIFrameElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = DOMHTMLIFrameElementK+    type AttrGetType DOMHTMLIFrameElementWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLIFrameElementWidthPropertyInfo = "DOMHTMLIFrameElement::width"+    attrGet _ = getDOMHTMLIFrameElementWidth+    attrSet _ = setDOMHTMLIFrameElementWidth+    attrConstruct _ = constructDOMHTMLIFrameElementWidth++type instance AttributeList DOMHTMLIFrameElement = DOMHTMLIFrameElementAttributeList+type DOMHTMLIFrameElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLIFrameElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-document", DOMHTMLIFrameElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("content-window", DOMHTMLIFrameElementContentWindowPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame-border", DOMHTMLIFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLIFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLIFrameElementLongDescPropertyInfo), '("margin-height", DOMHTMLIFrameElementMarginHeightPropertyInfo), '("margin-width", DOMHTMLIFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLIFrameElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("sandbox", DOMHTMLIFrameElementSandboxPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLIFrameElementScrollingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLIFrameElementSrcPropertyInfo), '("srcdoc", DOMHTMLIFrameElementSrcdocPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLIFrameElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLIFrameElement = DOMHTMLIFrameElementSignalList+type DOMHTMLIFrameElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLIFrameElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_content_document+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_content_document" result+    result' <- (newObject DOMDocument) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_content_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_content_window" result+    result' <- (wrapObject DOMDOMWindow) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_frame_border+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_frame_border" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_height" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_long_desc+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_long_desc" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_margin_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_margin_height" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_margin_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_margin_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_scrolling+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_scrolling" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_src+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_src" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLIFrameElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_iframe_element_get_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLIFrameElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_scrolling+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_src+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLIFrameElement.hs-boot view
@@ -0,0 +1,27 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLIFrameElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLIFrameElement = DOMHTMLIFrameElement (ForeignPtr DOMHTMLIFrameElement)+instance GObject DOMHTMLIFrameElement where+class GObject o => DOMHTMLIFrameElementK o+instance (GObject o, IsDescendantOf DOMHTMLIFrameElement o) => DOMHTMLIFrameElementK o+data DOMHTMLIFrameElementAlignPropertyInfo+data DOMHTMLIFrameElementContentDocumentPropertyInfo+data DOMHTMLIFrameElementContentWindowPropertyInfo+data DOMHTMLIFrameElementFrameBorderPropertyInfo+data DOMHTMLIFrameElementHeightPropertyInfo+data DOMHTMLIFrameElementLongDescPropertyInfo+data DOMHTMLIFrameElementMarginHeightPropertyInfo+data DOMHTMLIFrameElementMarginWidthPropertyInfo+data DOMHTMLIFrameElementNamePropertyInfo+data DOMHTMLIFrameElementSandboxPropertyInfo+data DOMHTMLIFrameElementScrollingPropertyInfo+data DOMHTMLIFrameElementSrcPropertyInfo+data DOMHTMLIFrameElementSrcdocPropertyInfo+data DOMHTMLIFrameElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs view
@@ -0,0 +1,1635 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLImageElement+    ( ++-- * Exported types+    DOMHTMLImageElement(..)                 ,+    DOMHTMLImageElementK                    ,+    toDOMHTMLImageElement                   ,+    noDOMHTMLImageElement                   ,+++ -- * Methods+-- ** dOMHTMLImageElementGetAlign+    dOMHTMLImageElementGetAlign             ,+++-- ** dOMHTMLImageElementGetAlt+    dOMHTMLImageElementGetAlt               ,+++-- ** dOMHTMLImageElementGetBorder+    dOMHTMLImageElementGetBorder            ,+++-- ** dOMHTMLImageElementGetComplete+    dOMHTMLImageElementGetComplete          ,+++-- ** dOMHTMLImageElementGetHeight+    dOMHTMLImageElementGetHeight            ,+++-- ** dOMHTMLImageElementGetHspace+    dOMHTMLImageElementGetHspace            ,+++-- ** dOMHTMLImageElementGetIsMap+    dOMHTMLImageElementGetIsMap             ,+++-- ** dOMHTMLImageElementGetLongDesc+    dOMHTMLImageElementGetLongDesc          ,+++-- ** dOMHTMLImageElementGetLowsrc+    dOMHTMLImageElementGetLowsrc            ,+++-- ** dOMHTMLImageElementGetName+    dOMHTMLImageElementGetName              ,+++-- ** dOMHTMLImageElementGetNaturalHeight+    dOMHTMLImageElementGetNaturalHeight     ,+++-- ** dOMHTMLImageElementGetNaturalWidth+    dOMHTMLImageElementGetNaturalWidth      ,+++-- ** dOMHTMLImageElementGetSrc+    dOMHTMLImageElementGetSrc               ,+++-- ** dOMHTMLImageElementGetUseMap+    dOMHTMLImageElementGetUseMap            ,+++-- ** dOMHTMLImageElementGetVspace+    dOMHTMLImageElementGetVspace            ,+++-- ** dOMHTMLImageElementGetWidth+    dOMHTMLImageElementGetWidth             ,+++-- ** dOMHTMLImageElementGetX+    dOMHTMLImageElementGetX                 ,+++-- ** dOMHTMLImageElementGetY+    dOMHTMLImageElementGetY                 ,+++-- ** dOMHTMLImageElementSetAlign+    dOMHTMLImageElementSetAlign             ,+++-- ** dOMHTMLImageElementSetAlt+    dOMHTMLImageElementSetAlt               ,+++-- ** dOMHTMLImageElementSetBorder+    dOMHTMLImageElementSetBorder            ,+++-- ** dOMHTMLImageElementSetHeight+    dOMHTMLImageElementSetHeight            ,+++-- ** dOMHTMLImageElementSetHspace+    dOMHTMLImageElementSetHspace            ,+++-- ** dOMHTMLImageElementSetIsMap+    dOMHTMLImageElementSetIsMap             ,+++-- ** dOMHTMLImageElementSetLongDesc+    dOMHTMLImageElementSetLongDesc          ,+++-- ** dOMHTMLImageElementSetLowsrc+    dOMHTMLImageElementSetLowsrc            ,+++-- ** dOMHTMLImageElementSetName+    dOMHTMLImageElementSetName              ,+++-- ** dOMHTMLImageElementSetSrc+    dOMHTMLImageElementSetSrc               ,+++-- ** dOMHTMLImageElementSetUseMap+    dOMHTMLImageElementSetUseMap            ,+++-- ** dOMHTMLImageElementSetVspace+    dOMHTMLImageElementSetVspace            ,+++-- ** dOMHTMLImageElementSetWidth+    dOMHTMLImageElementSetWidth             ,+++++ -- * Properties+-- ** Align+    DOMHTMLImageElementAlignPropertyInfo    ,+    constructDOMHTMLImageElementAlign       ,+    getDOMHTMLImageElementAlign             ,+    setDOMHTMLImageElementAlign             ,+++-- ** Alt+    DOMHTMLImageElementAltPropertyInfo      ,+    constructDOMHTMLImageElementAlt         ,+    getDOMHTMLImageElementAlt               ,+    setDOMHTMLImageElementAlt               ,+++-- ** Border+    DOMHTMLImageElementBorderPropertyInfo   ,+    constructDOMHTMLImageElementBorder      ,+    getDOMHTMLImageElementBorder            ,+    setDOMHTMLImageElementBorder            ,+++-- ** Complete+    DOMHTMLImageElementCompletePropertyInfo ,+    getDOMHTMLImageElementComplete          ,+++-- ** CrossOrigin+    DOMHTMLImageElementCrossOriginPropertyInfo,+    constructDOMHTMLImageElementCrossOrigin ,+    getDOMHTMLImageElementCrossOrigin       ,+    setDOMHTMLImageElementCrossOrigin       ,+++-- ** CurrentSrc+    DOMHTMLImageElementCurrentSrcPropertyInfo,+    getDOMHTMLImageElementCurrentSrc        ,+++-- ** Height+    DOMHTMLImageElementHeightPropertyInfo   ,+    constructDOMHTMLImageElementHeight      ,+    getDOMHTMLImageElementHeight            ,+    setDOMHTMLImageElementHeight            ,+++-- ** Hspace+    DOMHTMLImageElementHspacePropertyInfo   ,+    constructDOMHTMLImageElementHspace      ,+    getDOMHTMLImageElementHspace            ,+    setDOMHTMLImageElementHspace            ,+++-- ** IsMap+    DOMHTMLImageElementIsMapPropertyInfo    ,+    constructDOMHTMLImageElementIsMap       ,+    getDOMHTMLImageElementIsMap             ,+    setDOMHTMLImageElementIsMap             ,+++-- ** LongDesc+    DOMHTMLImageElementLongDescPropertyInfo ,+    constructDOMHTMLImageElementLongDesc    ,+    getDOMHTMLImageElementLongDesc          ,+    setDOMHTMLImageElementLongDesc          ,+++-- ** Lowsrc+    DOMHTMLImageElementLowsrcPropertyInfo   ,+    constructDOMHTMLImageElementLowsrc      ,+    getDOMHTMLImageElementLowsrc            ,+    setDOMHTMLImageElementLowsrc            ,+++-- ** Name+    DOMHTMLImageElementNamePropertyInfo     ,+    constructDOMHTMLImageElementName        ,+    getDOMHTMLImageElementName              ,+    setDOMHTMLImageElementName              ,+++-- ** NaturalHeight+    DOMHTMLImageElementNaturalHeightPropertyInfo,+    getDOMHTMLImageElementNaturalHeight     ,+++-- ** NaturalWidth+    DOMHTMLImageElementNaturalWidthPropertyInfo,+    getDOMHTMLImageElementNaturalWidth      ,+++-- ** Sizes+    DOMHTMLImageElementSizesPropertyInfo    ,+    constructDOMHTMLImageElementSizes       ,+    getDOMHTMLImageElementSizes             ,+    setDOMHTMLImageElementSizes             ,+++-- ** Src+    DOMHTMLImageElementSrcPropertyInfo      ,+    constructDOMHTMLImageElementSrc         ,+    getDOMHTMLImageElementSrc               ,+    setDOMHTMLImageElementSrc               ,+++-- ** Srcset+    DOMHTMLImageElementSrcsetPropertyInfo   ,+    constructDOMHTMLImageElementSrcset      ,+    getDOMHTMLImageElementSrcset            ,+    setDOMHTMLImageElementSrcset            ,+++-- ** UseMap+    DOMHTMLImageElementUseMapPropertyInfo   ,+    constructDOMHTMLImageElementUseMap      ,+    getDOMHTMLImageElementUseMap            ,+    setDOMHTMLImageElementUseMap            ,+++-- ** Vspace+    DOMHTMLImageElementVspacePropertyInfo   ,+    constructDOMHTMLImageElementVspace      ,+    getDOMHTMLImageElementVspace            ,+    setDOMHTMLImageElementVspace            ,+++-- ** Width+    DOMHTMLImageElementWidthPropertyInfo    ,+    constructDOMHTMLImageElementWidth       ,+    getDOMHTMLImageElementWidth             ,+    setDOMHTMLImageElementWidth             ,+++-- ** X+    DOMHTMLImageElementXPropertyInfo        ,+    getDOMHTMLImageElementX                 ,+++-- ** Y+    DOMHTMLImageElementYPropertyInfo        ,+    getDOMHTMLImageElementY                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLImageElement = DOMHTMLImageElement (ForeignPtr DOMHTMLImageElement)+foreign import ccall "webkit_dom_html_image_element_get_type"+    c_webkit_dom_html_image_element_get_type :: IO GType++type instance ParentTypes DOMHTMLImageElement = DOMHTMLImageElementParentTypes+type DOMHTMLImageElementParentTypes = '[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++noDOMHTMLImageElement :: Maybe DOMHTMLImageElement+noDOMHTMLImageElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLImageElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLImageElementAlignPropertyInfo+instance AttrInfo DOMHTMLImageElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementAlignPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementAlignPropertyInfo = "DOMHTMLImageElement::align"+    attrGet _ = getDOMHTMLImageElementAlign+    attrSet _ = setDOMHTMLImageElementAlign+    attrConstruct _ = constructDOMHTMLImageElementAlign++-- VVV Prop "alt"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementAlt obj = liftIO $ getObjectPropertyString obj "alt"++setDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val++constructDOMHTMLImageElementAlt :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementAlt val = constructObjectPropertyString "alt" val++data DOMHTMLImageElementAltPropertyInfo+instance AttrInfo DOMHTMLImageElementAltPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementAltPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementAltPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementAltPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementAltPropertyInfo = "DOMHTMLImageElement::alt"+    attrGet _ = getDOMHTMLImageElementAlt+    attrSet _ = setDOMHTMLImageElementAlt+    attrConstruct _ = constructDOMHTMLImageElementAlt++-- VVV Prop "border"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementBorder obj = liftIO $ getObjectPropertyString obj "border"++setDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val++constructDOMHTMLImageElementBorder :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementBorder val = constructObjectPropertyString "border" val++data DOMHTMLImageElementBorderPropertyInfo+instance AttrInfo DOMHTMLImageElementBorderPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementBorderPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementBorderPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementBorderPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementBorderPropertyInfo = "DOMHTMLImageElement::border"+    attrGet _ = getDOMHTMLImageElementBorder+    attrSet _ = setDOMHTMLImageElementBorder+    attrConstruct _ = constructDOMHTMLImageElementBorder++-- VVV Prop "complete"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMHTMLImageElementComplete :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool+getDOMHTMLImageElementComplete obj = liftIO $ getObjectPropertyBool obj "complete"++data DOMHTMLImageElementCompletePropertyInfo+instance AttrInfo DOMHTMLImageElementCompletePropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementCompletePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementCompletePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLImageElementCompletePropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementCompletePropertyInfo = Bool+    type AttrLabel DOMHTMLImageElementCompletePropertyInfo = "DOMHTMLImageElement::complete"+    attrGet _ = getDOMHTMLImageElementComplete+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "cross-origin"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin"++setDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val++constructDOMHTMLImageElementCrossOrigin :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementCrossOrigin val = constructObjectPropertyString "cross-origin" val++data DOMHTMLImageElementCrossOriginPropertyInfo+instance AttrInfo DOMHTMLImageElementCrossOriginPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementCrossOriginPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementCrossOriginPropertyInfo = "DOMHTMLImageElement::cross-origin"+    attrGet _ = getDOMHTMLImageElementCrossOrigin+    attrSet _ = setDOMHTMLImageElementCrossOrigin+    attrConstruct _ = constructDOMHTMLImageElementCrossOrigin++-- VVV Prop "current-src"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLImageElementCurrentSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementCurrentSrc obj = liftIO $ getObjectPropertyString obj "current-src"++data DOMHTMLImageElementCurrentSrcPropertyInfo+instance AttrInfo DOMHTMLImageElementCurrentSrcPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementCurrentSrcPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementCurrentSrcPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLImageElementCurrentSrcPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementCurrentSrcPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementCurrentSrcPropertyInfo = "DOMHTMLImageElement::current-src"+    attrGet _ = getDOMHTMLImageElementCurrentSrc+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64+getDOMHTMLImageElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height"++setDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m ()+setDOMHTMLImageElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val++constructDOMHTMLImageElementHeight :: Int64 -> IO ([Char], GValue)+constructDOMHTMLImageElementHeight val = constructObjectPropertyInt64 "height" val++data DOMHTMLImageElementHeightPropertyInfo+instance AttrInfo DOMHTMLImageElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementHeightPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLImageElementHeightPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementHeightPropertyInfo = Int64+    type AttrLabel DOMHTMLImageElementHeightPropertyInfo = "DOMHTMLImageElement::height"+    attrGet _ = getDOMHTMLImageElementHeight+    attrSet _ = setDOMHTMLImageElementHeight+    attrConstruct _ = constructDOMHTMLImageElementHeight++-- VVV Prop "hspace"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64+getDOMHTMLImageElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace"++setDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m ()+setDOMHTMLImageElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val++constructDOMHTMLImageElementHspace :: Int64 -> IO ([Char], GValue)+constructDOMHTMLImageElementHspace val = constructObjectPropertyInt64 "hspace" val++data DOMHTMLImageElementHspacePropertyInfo+instance AttrInfo DOMHTMLImageElementHspacePropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementHspacePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLImageElementHspacePropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementHspacePropertyInfo = Int64+    type AttrLabel DOMHTMLImageElementHspacePropertyInfo = "DOMHTMLImageElement::hspace"+    attrGet _ = getDOMHTMLImageElementHspace+    attrSet _ = setDOMHTMLImageElementHspace+    attrConstruct _ = constructDOMHTMLImageElementHspace++-- VVV Prop "is-map"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool+getDOMHTMLImageElementIsMap obj = liftIO $ getObjectPropertyBool obj "is-map"++setDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> Bool -> m ()+setDOMHTMLImageElementIsMap obj val = liftIO $ setObjectPropertyBool obj "is-map" val++constructDOMHTMLImageElementIsMap :: Bool -> IO ([Char], GValue)+constructDOMHTMLImageElementIsMap val = constructObjectPropertyBool "is-map" val++data DOMHTMLImageElementIsMapPropertyInfo+instance AttrInfo DOMHTMLImageElementIsMapPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementIsMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementIsMapPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLImageElementIsMapPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementIsMapPropertyInfo = Bool+    type AttrLabel DOMHTMLImageElementIsMapPropertyInfo = "DOMHTMLImageElement::is-map"+    attrGet _ = getDOMHTMLImageElementIsMap+    attrSet _ = setDOMHTMLImageElementIsMap+    attrConstruct _ = constructDOMHTMLImageElementIsMap++-- VVV Prop "long-desc"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc"++setDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val++constructDOMHTMLImageElementLongDesc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementLongDesc val = constructObjectPropertyString "long-desc" val++data DOMHTMLImageElementLongDescPropertyInfo+instance AttrInfo DOMHTMLImageElementLongDescPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementLongDescPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementLongDescPropertyInfo = "DOMHTMLImageElement::long-desc"+    attrGet _ = getDOMHTMLImageElementLongDesc+    attrSet _ = setDOMHTMLImageElementLongDesc+    attrConstruct _ = constructDOMHTMLImageElementLongDesc++-- VVV Prop "lowsrc"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementLowsrc obj = liftIO $ getObjectPropertyString obj "lowsrc"++setDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementLowsrc obj val = liftIO $ setObjectPropertyString obj "lowsrc" val++constructDOMHTMLImageElementLowsrc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementLowsrc val = constructObjectPropertyString "lowsrc" val++data DOMHTMLImageElementLowsrcPropertyInfo+instance AttrInfo DOMHTMLImageElementLowsrcPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementLowsrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementLowsrcPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementLowsrcPropertyInfo = "DOMHTMLImageElement::lowsrc"+    attrGet _ = getDOMHTMLImageElementLowsrc+    attrSet _ = setDOMHTMLImageElementLowsrc+    attrConstruct _ = constructDOMHTMLImageElementLowsrc++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLImageElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementName val = constructObjectPropertyString "name" val++data DOMHTMLImageElementNamePropertyInfo+instance AttrInfo DOMHTMLImageElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementNamePropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementNamePropertyInfo = "DOMHTMLImageElement::name"+    attrGet _ = getDOMHTMLImageElementName+    attrSet _ = setDOMHTMLImageElementName+    attrConstruct _ = constructDOMHTMLImageElementName++-- VVV Prop "natural-height"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLImageElementNaturalHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64+getDOMHTMLImageElementNaturalHeight obj = liftIO $ getObjectPropertyInt64 obj "natural-height"++data DOMHTMLImageElementNaturalHeightPropertyInfo+instance AttrInfo DOMHTMLImageElementNaturalHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementNaturalHeightPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementNaturalHeightPropertyInfo = Int64+    type AttrLabel DOMHTMLImageElementNaturalHeightPropertyInfo = "DOMHTMLImageElement::natural-height"+    attrGet _ = getDOMHTMLImageElementNaturalHeight+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "natural-width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLImageElementNaturalWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64+getDOMHTMLImageElementNaturalWidth obj = liftIO $ getObjectPropertyInt64 obj "natural-width"++data DOMHTMLImageElementNaturalWidthPropertyInfo+instance AttrInfo DOMHTMLImageElementNaturalWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementNaturalWidthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementNaturalWidthPropertyInfo = Int64+    type AttrLabel DOMHTMLImageElementNaturalWidthPropertyInfo = "DOMHTMLImageElement::natural-width"+    attrGet _ = getDOMHTMLImageElementNaturalWidth+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "sizes"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementSizes obj = liftIO $ getObjectPropertyString obj "sizes"++setDOMHTMLImageElementSizes :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementSizes obj val = liftIO $ setObjectPropertyString obj "sizes" val++constructDOMHTMLImageElementSizes :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementSizes val = constructObjectPropertyString "sizes" val++data DOMHTMLImageElementSizesPropertyInfo+instance AttrInfo DOMHTMLImageElementSizesPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementSizesPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementSizesPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementSizesPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementSizesPropertyInfo = "DOMHTMLImageElement::sizes"+    attrGet _ = getDOMHTMLImageElementSizes+    attrSet _ = setDOMHTMLImageElementSizes+    attrConstruct _ = constructDOMHTMLImageElementSizes++-- VVV Prop "src"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementSrc obj = liftIO $ getObjectPropertyString obj "src"++setDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val++constructDOMHTMLImageElementSrc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementSrc val = constructObjectPropertyString "src" val++data DOMHTMLImageElementSrcPropertyInfo+instance AttrInfo DOMHTMLImageElementSrcPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementSrcPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementSrcPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementSrcPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementSrcPropertyInfo = "DOMHTMLImageElement::src"+    attrGet _ = getDOMHTMLImageElementSrc+    attrSet _ = setDOMHTMLImageElementSrc+    attrConstruct _ = constructDOMHTMLImageElementSrc++-- VVV Prop "srcset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementSrcset obj = liftIO $ getObjectPropertyString obj "srcset"++setDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementSrcset obj val = liftIO $ setObjectPropertyString obj "srcset" val++constructDOMHTMLImageElementSrcset :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementSrcset val = constructObjectPropertyString "srcset" val++data DOMHTMLImageElementSrcsetPropertyInfo+instance AttrInfo DOMHTMLImageElementSrcsetPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementSrcsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementSrcsetPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementSrcsetPropertyInfo = "DOMHTMLImageElement::srcset"+    attrGet _ = getDOMHTMLImageElementSrcset+    attrSet _ = setDOMHTMLImageElementSrcset+    attrConstruct _ = constructDOMHTMLImageElementSrcset++-- VVV Prop "use-map"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text+getDOMHTMLImageElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map"++setDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m ()+setDOMHTMLImageElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val++constructDOMHTMLImageElementUseMap :: T.Text -> IO ([Char], GValue)+constructDOMHTMLImageElementUseMap val = constructObjectPropertyString "use-map" val++data DOMHTMLImageElementUseMapPropertyInfo+instance AttrInfo DOMHTMLImageElementUseMapPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementUseMapPropertyInfo = T.Text+    type AttrLabel DOMHTMLImageElementUseMapPropertyInfo = "DOMHTMLImageElement::use-map"+    attrGet _ = getDOMHTMLImageElementUseMap+    attrSet _ = setDOMHTMLImageElementUseMap+    attrConstruct _ = constructDOMHTMLImageElementUseMap++-- VVV Prop "vspace"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64+getDOMHTMLImageElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace"++setDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m ()+setDOMHTMLImageElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val++constructDOMHTMLImageElementVspace :: Int64 -> IO ([Char], GValue)+constructDOMHTMLImageElementVspace val = constructObjectPropertyInt64 "vspace" val++data DOMHTMLImageElementVspacePropertyInfo+instance AttrInfo DOMHTMLImageElementVspacePropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementVspacePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLImageElementVspacePropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementVspacePropertyInfo = Int64+    type AttrLabel DOMHTMLImageElementVspacePropertyInfo = "DOMHTMLImageElement::vspace"+    attrGet _ = getDOMHTMLImageElementVspace+    attrSet _ = setDOMHTMLImageElementVspace+    attrConstruct _ = constructDOMHTMLImageElementVspace++-- VVV Prop "width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64+getDOMHTMLImageElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width"++setDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m ()+setDOMHTMLImageElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val++constructDOMHTMLImageElementWidth :: Int64 -> IO ([Char], GValue)+constructDOMHTMLImageElementWidth val = constructObjectPropertyInt64 "width" val++data DOMHTMLImageElementWidthPropertyInfo+instance AttrInfo DOMHTMLImageElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementWidthPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLImageElementWidthPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementWidthPropertyInfo = Int64+    type AttrLabel DOMHTMLImageElementWidthPropertyInfo = "DOMHTMLImageElement::width"+    attrGet _ = getDOMHTMLImageElementWidth+    attrSet _ = setDOMHTMLImageElementWidth+    attrConstruct _ = constructDOMHTMLImageElementWidth++-- VVV Prop "x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLImageElementX :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64+getDOMHTMLImageElementX obj = liftIO $ getObjectPropertyInt64 obj "x"++data DOMHTMLImageElementXPropertyInfo+instance AttrInfo DOMHTMLImageElementXPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLImageElementXPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementXPropertyInfo = Int64+    type AttrLabel DOMHTMLImageElementXPropertyInfo = "DOMHTMLImageElement::x"+    attrGet _ = getDOMHTMLImageElementX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLImageElementY :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64+getDOMHTMLImageElementY obj = liftIO $ getObjectPropertyInt64 obj "y"++data DOMHTMLImageElementYPropertyInfo+instance AttrInfo DOMHTMLImageElementYPropertyInfo where+    type AttrAllowedOps DOMHTMLImageElementYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLImageElementYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLImageElementYPropertyInfo = DOMHTMLImageElementK+    type AttrGetType DOMHTMLImageElementYPropertyInfo = Int64+    type AttrLabel DOMHTMLImageElementYPropertyInfo = "DOMHTMLImageElement::y"+    attrGet _ = getDOMHTMLImageElementY+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLImageElement = DOMHTMLImageElementAttributeList+type DOMHTMLImageElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLImageElementAlignPropertyInfo), '("alt", DOMHTMLImageElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLImageElementBorderPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("complete", DOMHTMLImageElementCompletePropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cross-origin", DOMHTMLImageElementCrossOriginPropertyInfo), '("current-src", DOMHTMLImageElementCurrentSrcPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLImageElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLImageElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("is-map", DOMHTMLImageElementIsMapPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLImageElementLongDescPropertyInfo), '("lowsrc", DOMHTMLImageElementLowsrcPropertyInfo), '("name", DOMHTMLImageElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("natural-height", DOMHTMLImageElementNaturalHeightPropertyInfo), '("natural-width", DOMHTMLImageElementNaturalWidthPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sizes", DOMHTMLImageElementSizesPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLImageElementSrcPropertyInfo), '("srcset", DOMHTMLImageElementSrcsetPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("use-map", DOMHTMLImageElementUseMapPropertyInfo), '("vspace", DOMHTMLImageElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLImageElementWidthPropertyInfo), '("x", DOMHTMLImageElementXPropertyInfo), '("y", DOMHTMLImageElementYPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLImageElement = DOMHTMLImageElementSignalList+type DOMHTMLImageElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLImageElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLImageElement::get_alt+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_alt" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLImageElement::get_border+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_border" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLImageElement::get_complete+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_long_desc" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLImageElement::get_lowsrc+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_lowsrc" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLImageElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLImageElement::get_natural_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_src" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLImageElement::get_use_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_use_map" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLImageElement::get_vspace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLImageElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_use_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLImageElement.hs-boot view
@@ -0,0 +1,35 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLImageElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLImageElement = DOMHTMLImageElement (ForeignPtr DOMHTMLImageElement)+instance GObject DOMHTMLImageElement where+class GObject o => DOMHTMLImageElementK o+instance (GObject o, IsDescendantOf DOMHTMLImageElement o) => DOMHTMLImageElementK o+data DOMHTMLImageElementAlignPropertyInfo+data DOMHTMLImageElementAltPropertyInfo+data DOMHTMLImageElementBorderPropertyInfo+data DOMHTMLImageElementCompletePropertyInfo+data DOMHTMLImageElementCrossOriginPropertyInfo+data DOMHTMLImageElementCurrentSrcPropertyInfo+data DOMHTMLImageElementHeightPropertyInfo+data DOMHTMLImageElementHspacePropertyInfo+data DOMHTMLImageElementIsMapPropertyInfo+data DOMHTMLImageElementLongDescPropertyInfo+data DOMHTMLImageElementLowsrcPropertyInfo+data DOMHTMLImageElementNamePropertyInfo+data DOMHTMLImageElementNaturalHeightPropertyInfo+data DOMHTMLImageElementNaturalWidthPropertyInfo+data DOMHTMLImageElementSizesPropertyInfo+data DOMHTMLImageElementSrcPropertyInfo+data DOMHTMLImageElementSrcsetPropertyInfo+data DOMHTMLImageElementUseMapPropertyInfo+data DOMHTMLImageElementVspacePropertyInfo+data DOMHTMLImageElementWidthPropertyInfo+data DOMHTMLImageElementXPropertyInfo+data DOMHTMLImageElementYPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs view
@@ -0,0 +1,2756 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLInputElement+    ( ++-- * Exported types+    DOMHTMLInputElement(..)                 ,+    DOMHTMLInputElementK                    ,+    toDOMHTMLInputElement                   ,+    noDOMHTMLInputElement                   ,+++ -- * Methods+-- ** dOMHTMLInputElementGetAccept+    dOMHTMLInputElementGetAccept            ,+++-- ** dOMHTMLInputElementGetAlign+    dOMHTMLInputElementGetAlign             ,+++-- ** dOMHTMLInputElementGetAlt+    dOMHTMLInputElementGetAlt               ,+++-- ** dOMHTMLInputElementGetAutofocus+    dOMHTMLInputElementGetAutofocus         ,+++-- ** dOMHTMLInputElementGetCapture+    dOMHTMLInputElementGetCapture           ,+++-- ** dOMHTMLInputElementGetChecked+    dOMHTMLInputElementGetChecked           ,+++-- ** dOMHTMLInputElementGetDefaultChecked+    dOMHTMLInputElementGetDefaultChecked    ,+++-- ** dOMHTMLInputElementGetDefaultValue+    dOMHTMLInputElementGetDefaultValue      ,+++-- ** dOMHTMLInputElementGetDisabled+    dOMHTMLInputElementGetDisabled          ,+++-- ** dOMHTMLInputElementGetFiles+    dOMHTMLInputElementGetFiles             ,+++-- ** dOMHTMLInputElementGetForm+    dOMHTMLInputElementGetForm              ,+++-- ** dOMHTMLInputElementGetHeight+    dOMHTMLInputElementGetHeight            ,+++-- ** dOMHTMLInputElementGetIndeterminate+    dOMHTMLInputElementGetIndeterminate     ,+++-- ** dOMHTMLInputElementGetInputType+    dOMHTMLInputElementGetInputType         ,+++-- ** dOMHTMLInputElementGetMaxLength+    dOMHTMLInputElementGetMaxLength         ,+++-- ** dOMHTMLInputElementGetMultiple+    dOMHTMLInputElementGetMultiple          ,+++-- ** dOMHTMLInputElementGetName+    dOMHTMLInputElementGetName              ,+++-- ** dOMHTMLInputElementGetSize+    dOMHTMLInputElementGetSize              ,+++-- ** dOMHTMLInputElementGetSrc+    dOMHTMLInputElementGetSrc               ,+++-- ** dOMHTMLInputElementGetUseMap+    dOMHTMLInputElementGetUseMap            ,+++-- ** dOMHTMLInputElementGetValue+    dOMHTMLInputElementGetValue             ,+++-- ** dOMHTMLInputElementGetWidth+    dOMHTMLInputElementGetWidth             ,+++-- ** dOMHTMLInputElementGetWillValidate+    dOMHTMLInputElementGetWillValidate      ,+++-- ** dOMHTMLInputElementIsEdited+    dOMHTMLInputElementIsEdited             ,+++-- ** dOMHTMLInputElementSelect+    dOMHTMLInputElementSelect               ,+++-- ** dOMHTMLInputElementSetAccept+    dOMHTMLInputElementSetAccept            ,+++-- ** dOMHTMLInputElementSetAlign+    dOMHTMLInputElementSetAlign             ,+++-- ** dOMHTMLInputElementSetAlt+    dOMHTMLInputElementSetAlt               ,+++-- ** dOMHTMLInputElementSetAutofocus+    dOMHTMLInputElementSetAutofocus         ,+++-- ** dOMHTMLInputElementSetChecked+    dOMHTMLInputElementSetChecked           ,+++-- ** dOMHTMLInputElementSetDefaultValue+    dOMHTMLInputElementSetDefaultValue      ,+++-- ** dOMHTMLInputElementSetDisabled+    dOMHTMLInputElementSetDisabled          ,+++-- ** dOMHTMLInputElementSetFiles+    dOMHTMLInputElementSetFiles             ,+++-- ** dOMHTMLInputElementSetHeight+    dOMHTMLInputElementSetHeight            ,+++-- ** dOMHTMLInputElementSetIndeterminate+    dOMHTMLInputElementSetIndeterminate     ,+++-- ** dOMHTMLInputElementSetInputType+    dOMHTMLInputElementSetInputType         ,+++-- ** dOMHTMLInputElementSetMaxLength+    dOMHTMLInputElementSetMaxLength         ,+++-- ** dOMHTMLInputElementSetMultiple+    dOMHTMLInputElementSetMultiple          ,+++-- ** dOMHTMLInputElementSetName+    dOMHTMLInputElementSetName              ,+++-- ** dOMHTMLInputElementSetReadOnly+    dOMHTMLInputElementSetReadOnly          ,+++-- ** dOMHTMLInputElementSetSize+    dOMHTMLInputElementSetSize              ,+++-- ** dOMHTMLInputElementSetSrc+    dOMHTMLInputElementSetSrc               ,+++-- ** dOMHTMLInputElementSetUseMap+    dOMHTMLInputElementSetUseMap            ,+++-- ** dOMHTMLInputElementSetValue+    dOMHTMLInputElementSetValue             ,+++-- ** dOMHTMLInputElementSetWidth+    dOMHTMLInputElementSetWidth             ,+++++ -- * Properties+-- ** Accept+    DOMHTMLInputElementAcceptPropertyInfo   ,+    constructDOMHTMLInputElementAccept      ,+    getDOMHTMLInputElementAccept            ,+    setDOMHTMLInputElementAccept            ,+++-- ** Align+    DOMHTMLInputElementAlignPropertyInfo    ,+    constructDOMHTMLInputElementAlign       ,+    getDOMHTMLInputElementAlign             ,+    setDOMHTMLInputElementAlign             ,+++-- ** Alt+    DOMHTMLInputElementAltPropertyInfo      ,+    constructDOMHTMLInputElementAlt         ,+    getDOMHTMLInputElementAlt               ,+    setDOMHTMLInputElementAlt               ,+++-- ** Autocapitalize+    DOMHTMLInputElementAutocapitalizePropertyInfo,+    constructDOMHTMLInputElementAutocapitalize,+    getDOMHTMLInputElementAutocapitalize    ,+    setDOMHTMLInputElementAutocapitalize    ,+++-- ** Autocomplete+    DOMHTMLInputElementAutocompletePropertyInfo,+    constructDOMHTMLInputElementAutocomplete,+    getDOMHTMLInputElementAutocomplete      ,+    setDOMHTMLInputElementAutocomplete      ,+++-- ** Autocorrect+    DOMHTMLInputElementAutocorrectPropertyInfo,+    constructDOMHTMLInputElementAutocorrect ,+    getDOMHTMLInputElementAutocorrect       ,+    setDOMHTMLInputElementAutocorrect       ,+++-- ** Autofocus+    DOMHTMLInputElementAutofocusPropertyInfo,+    constructDOMHTMLInputElementAutofocus   ,+    getDOMHTMLInputElementAutofocus         ,+    setDOMHTMLInputElementAutofocus         ,+++-- ** Capture+    DOMHTMLInputElementCapturePropertyInfo  ,+    constructDOMHTMLInputElementCapture     ,+    getDOMHTMLInputElementCapture           ,+    setDOMHTMLInputElementCapture           ,+++-- ** Checked+    DOMHTMLInputElementCheckedPropertyInfo  ,+    constructDOMHTMLInputElementChecked     ,+    getDOMHTMLInputElementChecked           ,+    setDOMHTMLInputElementChecked           ,+++-- ** DefaultChecked+    DOMHTMLInputElementDefaultCheckedPropertyInfo,+    constructDOMHTMLInputElementDefaultChecked,+    getDOMHTMLInputElementDefaultChecked    ,+    setDOMHTMLInputElementDefaultChecked    ,+++-- ** DefaultValue+    DOMHTMLInputElementDefaultValuePropertyInfo,+    constructDOMHTMLInputElementDefaultValue,+    getDOMHTMLInputElementDefaultValue      ,+    setDOMHTMLInputElementDefaultValue      ,+++-- ** DirName+    DOMHTMLInputElementDirNamePropertyInfo  ,+    constructDOMHTMLInputElementDirName     ,+    getDOMHTMLInputElementDirName           ,+    setDOMHTMLInputElementDirName           ,+++-- ** Disabled+    DOMHTMLInputElementDisabledPropertyInfo ,+    constructDOMHTMLInputElementDisabled    ,+    getDOMHTMLInputElementDisabled          ,+    setDOMHTMLInputElementDisabled          ,+++-- ** Files+    DOMHTMLInputElementFilesPropertyInfo    ,+    getDOMHTMLInputElementFiles             ,+++-- ** Form+    DOMHTMLInputElementFormPropertyInfo     ,+    getDOMHTMLInputElementForm              ,+++-- ** FormAction+    DOMHTMLInputElementFormActionPropertyInfo,+    constructDOMHTMLInputElementFormAction  ,+    getDOMHTMLInputElementFormAction        ,+    setDOMHTMLInputElementFormAction        ,+++-- ** FormEnctype+    DOMHTMLInputElementFormEnctypePropertyInfo,+    constructDOMHTMLInputElementFormEnctype ,+    getDOMHTMLInputElementFormEnctype       ,+    setDOMHTMLInputElementFormEnctype       ,+++-- ** FormMethod+    DOMHTMLInputElementFormMethodPropertyInfo,+    constructDOMHTMLInputElementFormMethod  ,+    getDOMHTMLInputElementFormMethod        ,+    setDOMHTMLInputElementFormMethod        ,+++-- ** FormNoValidate+    DOMHTMLInputElementFormNoValidatePropertyInfo,+    constructDOMHTMLInputElementFormNoValidate,+    getDOMHTMLInputElementFormNoValidate    ,+    setDOMHTMLInputElementFormNoValidate    ,+++-- ** FormTarget+    DOMHTMLInputElementFormTargetPropertyInfo,+    constructDOMHTMLInputElementFormTarget  ,+    getDOMHTMLInputElementFormTarget        ,+    setDOMHTMLInputElementFormTarget        ,+++-- ** Height+    DOMHTMLInputElementHeightPropertyInfo   ,+    constructDOMHTMLInputElementHeight      ,+    getDOMHTMLInputElementHeight            ,+    setDOMHTMLInputElementHeight            ,+++-- ** Incremental+    DOMHTMLInputElementIncrementalPropertyInfo,+    constructDOMHTMLInputElementIncremental ,+    getDOMHTMLInputElementIncremental       ,+    setDOMHTMLInputElementIncremental       ,+++-- ** Indeterminate+    DOMHTMLInputElementIndeterminatePropertyInfo,+    constructDOMHTMLInputElementIndeterminate,+    getDOMHTMLInputElementIndeterminate     ,+    setDOMHTMLInputElementIndeterminate     ,+++-- ** Labels+    DOMHTMLInputElementLabelsPropertyInfo   ,+    getDOMHTMLInputElementLabels            ,+++-- ** List+    DOMHTMLInputElementListPropertyInfo     ,+    getDOMHTMLInputElementList              ,+++-- ** Max+    DOMHTMLInputElementMaxPropertyInfo      ,+    constructDOMHTMLInputElementMax         ,+    getDOMHTMLInputElementMax               ,+    setDOMHTMLInputElementMax               ,+++-- ** MaxLength+    DOMHTMLInputElementMaxLengthPropertyInfo,+    constructDOMHTMLInputElementMaxLength   ,+    getDOMHTMLInputElementMaxLength         ,+    setDOMHTMLInputElementMaxLength         ,+++-- ** Min+    DOMHTMLInputElementMinPropertyInfo      ,+    constructDOMHTMLInputElementMin         ,+    getDOMHTMLInputElementMin               ,+    setDOMHTMLInputElementMin               ,+++-- ** Multiple+    DOMHTMLInputElementMultiplePropertyInfo ,+    constructDOMHTMLInputElementMultiple    ,+    getDOMHTMLInputElementMultiple          ,+    setDOMHTMLInputElementMultiple          ,+++-- ** Name+    DOMHTMLInputElementNamePropertyInfo     ,+    constructDOMHTMLInputElementName        ,+    getDOMHTMLInputElementName              ,+    setDOMHTMLInputElementName              ,+++-- ** Pattern+    DOMHTMLInputElementPatternPropertyInfo  ,+    constructDOMHTMLInputElementPattern     ,+    getDOMHTMLInputElementPattern           ,+    setDOMHTMLInputElementPattern           ,+++-- ** Placeholder+    DOMHTMLInputElementPlaceholderPropertyInfo,+    constructDOMHTMLInputElementPlaceholder ,+    getDOMHTMLInputElementPlaceholder       ,+    setDOMHTMLInputElementPlaceholder       ,+++-- ** ReadOnly+    DOMHTMLInputElementReadOnlyPropertyInfo ,+    constructDOMHTMLInputElementReadOnly    ,+    getDOMHTMLInputElementReadOnly          ,+    setDOMHTMLInputElementReadOnly          ,+++-- ** Required+    DOMHTMLInputElementRequiredPropertyInfo ,+    constructDOMHTMLInputElementRequired    ,+    getDOMHTMLInputElementRequired          ,+    setDOMHTMLInputElementRequired          ,+++-- ** Size+    DOMHTMLInputElementSizePropertyInfo     ,+    constructDOMHTMLInputElementSize        ,+    getDOMHTMLInputElementSize              ,+    setDOMHTMLInputElementSize              ,+++-- ** Src+    DOMHTMLInputElementSrcPropertyInfo      ,+    constructDOMHTMLInputElementSrc         ,+    getDOMHTMLInputElementSrc               ,+    setDOMHTMLInputElementSrc               ,+++-- ** Step+    DOMHTMLInputElementStepPropertyInfo     ,+    constructDOMHTMLInputElementStep        ,+    getDOMHTMLInputElementStep              ,+    setDOMHTMLInputElementStep              ,+++-- ** Type+    DOMHTMLInputElementTypePropertyInfo     ,+    constructDOMHTMLInputElementType        ,+    getDOMHTMLInputElementType              ,+    setDOMHTMLInputElementType              ,+++-- ** UseMap+    DOMHTMLInputElementUseMapPropertyInfo   ,+    constructDOMHTMLInputElementUseMap      ,+    getDOMHTMLInputElementUseMap            ,+    setDOMHTMLInputElementUseMap            ,+++-- ** ValidationMessage+    DOMHTMLInputElementValidationMessagePropertyInfo,+    getDOMHTMLInputElementValidationMessage ,+++-- ** Value+    DOMHTMLInputElementValuePropertyInfo    ,+    constructDOMHTMLInputElementValue       ,+    getDOMHTMLInputElementValue             ,+    setDOMHTMLInputElementValue             ,+++-- ** ValueAsNumber+    DOMHTMLInputElementValueAsNumberPropertyInfo,+    constructDOMHTMLInputElementValueAsNumber,+    getDOMHTMLInputElementValueAsNumber     ,+    setDOMHTMLInputElementValueAsNumber     ,+++-- ** Width+    DOMHTMLInputElementWidthPropertyInfo    ,+    constructDOMHTMLInputElementWidth       ,+    getDOMHTMLInputElementWidth             ,+    setDOMHTMLInputElementWidth             ,+++-- ** WillValidate+    DOMHTMLInputElementWillValidatePropertyInfo,+    getDOMHTMLInputElementWillValidate      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLInputElement = DOMHTMLInputElement (ForeignPtr DOMHTMLInputElement)+foreign import ccall "webkit_dom_html_input_element_get_type"+    c_webkit_dom_html_input_element_get_type :: IO GType++type instance ParentTypes DOMHTMLInputElement = DOMHTMLInputElementParentTypes+type DOMHTMLInputElementParentTypes = '[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++noDOMHTMLInputElement :: Maybe DOMHTMLInputElement+noDOMHTMLInputElement = Nothing++-- VVV Prop "accept"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementAccept obj = liftIO $ getObjectPropertyString obj "accept"++setDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementAccept obj val = liftIO $ setObjectPropertyString obj "accept" val++constructDOMHTMLInputElementAccept :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementAccept val = constructObjectPropertyString "accept" val++data DOMHTMLInputElementAcceptPropertyInfo+instance AttrInfo DOMHTMLInputElementAcceptPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementAcceptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementAcceptPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementAcceptPropertyInfo = "DOMHTMLInputElement::accept"+    attrGet _ = getDOMHTMLInputElementAccept+    attrSet _ = setDOMHTMLInputElementAccept+    attrConstruct _ = constructDOMHTMLInputElementAccept++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLInputElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLInputElementAlignPropertyInfo+instance AttrInfo DOMHTMLInputElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementAlignPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementAlignPropertyInfo = "DOMHTMLInputElement::align"+    attrGet _ = getDOMHTMLInputElementAlign+    attrSet _ = setDOMHTMLInputElementAlign+    attrConstruct _ = constructDOMHTMLInputElementAlign++-- VVV Prop "alt"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementAlt obj = liftIO $ getObjectPropertyString obj "alt"++setDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val++constructDOMHTMLInputElementAlt :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementAlt val = constructObjectPropertyString "alt" val++data DOMHTMLInputElementAltPropertyInfo+instance AttrInfo DOMHTMLInputElementAltPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementAltPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementAltPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementAltPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementAltPropertyInfo = "DOMHTMLInputElement::alt"+    attrGet _ = getDOMHTMLInputElementAlt+    attrSet _ = setDOMHTMLInputElementAlt+    attrConstruct _ = constructDOMHTMLInputElementAlt++-- VVV Prop "autocapitalize"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize"++setDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val++constructDOMHTMLInputElementAutocapitalize :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val++data DOMHTMLInputElementAutocapitalizePropertyInfo+instance AttrInfo DOMHTMLInputElementAutocapitalizePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementAutocapitalizePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementAutocapitalizePropertyInfo = "DOMHTMLInputElement::autocapitalize"+    attrGet _ = getDOMHTMLInputElementAutocapitalize+    attrSet _ = setDOMHTMLInputElementAutocapitalize+    attrConstruct _ = constructDOMHTMLInputElementAutocapitalize++-- VVV Prop "autocomplete"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete"++setDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val++constructDOMHTMLInputElementAutocomplete :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementAutocomplete val = constructObjectPropertyString "autocomplete" val++data DOMHTMLInputElementAutocompletePropertyInfo+instance AttrInfo DOMHTMLInputElementAutocompletePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementAutocompletePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementAutocompletePropertyInfo = "DOMHTMLInputElement::autocomplete"+    attrGet _ = getDOMHTMLInputElementAutocomplete+    attrSet _ = setDOMHTMLInputElementAutocomplete+    attrConstruct _ = constructDOMHTMLInputElementAutocomplete++-- VVV Prop "autocorrect"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect"++setDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val++constructDOMHTMLInputElementAutocorrect :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementAutocorrect val = constructObjectPropertyBool "autocorrect" val++data DOMHTMLInputElementAutocorrectPropertyInfo+instance AttrInfo DOMHTMLInputElementAutocorrectPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementAutocorrectPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementAutocorrectPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementAutocorrectPropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementAutocorrectPropertyInfo = "DOMHTMLInputElement::autocorrect"+    attrGet _ = getDOMHTMLInputElementAutocorrect+    attrSet _ = setDOMHTMLInputElementAutocorrect+    attrConstruct _ = constructDOMHTMLInputElementAutocorrect++-- VVV Prop "autofocus"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus"++setDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val++constructDOMHTMLInputElementAutofocus :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementAutofocus val = constructObjectPropertyBool "autofocus" val++data DOMHTMLInputElementAutofocusPropertyInfo+instance AttrInfo DOMHTMLInputElementAutofocusPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementAutofocusPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementAutofocusPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementAutofocusPropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementAutofocusPropertyInfo = "DOMHTMLInputElement::autofocus"+    attrGet _ = getDOMHTMLInputElementAutofocus+    attrSet _ = setDOMHTMLInputElementAutofocus+    attrConstruct _ = constructDOMHTMLInputElementAutofocus++-- VVV Prop "capture"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementCapture obj = liftIO $ getObjectPropertyBool obj "capture"++setDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementCapture obj val = liftIO $ setObjectPropertyBool obj "capture" val++constructDOMHTMLInputElementCapture :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementCapture val = constructObjectPropertyBool "capture" val++data DOMHTMLInputElementCapturePropertyInfo+instance AttrInfo DOMHTMLInputElementCapturePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementCapturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementCapturePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementCapturePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementCapturePropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementCapturePropertyInfo = "DOMHTMLInputElement::capture"+    attrGet _ = getDOMHTMLInputElementCapture+    attrSet _ = setDOMHTMLInputElementCapture+    attrConstruct _ = constructDOMHTMLInputElementCapture++-- VVV Prop "checked"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementChecked obj = liftIO $ getObjectPropertyBool obj "checked"++setDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementChecked obj val = liftIO $ setObjectPropertyBool obj "checked" val++constructDOMHTMLInputElementChecked :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementChecked val = constructObjectPropertyBool "checked" val++data DOMHTMLInputElementCheckedPropertyInfo+instance AttrInfo DOMHTMLInputElementCheckedPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementCheckedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementCheckedPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementCheckedPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementCheckedPropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementCheckedPropertyInfo = "DOMHTMLInputElement::checked"+    attrGet _ = getDOMHTMLInputElementChecked+    attrSet _ = setDOMHTMLInputElementChecked+    attrConstruct _ = constructDOMHTMLInputElementChecked++-- VVV Prop "default-checked"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementDefaultChecked obj = liftIO $ getObjectPropertyBool obj "default-checked"++setDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementDefaultChecked obj val = liftIO $ setObjectPropertyBool obj "default-checked" val++constructDOMHTMLInputElementDefaultChecked :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementDefaultChecked val = constructObjectPropertyBool "default-checked" val++data DOMHTMLInputElementDefaultCheckedPropertyInfo+instance AttrInfo DOMHTMLInputElementDefaultCheckedPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementDefaultCheckedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementDefaultCheckedPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementDefaultCheckedPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementDefaultCheckedPropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementDefaultCheckedPropertyInfo = "DOMHTMLInputElement::default-checked"+    attrGet _ = getDOMHTMLInputElementDefaultChecked+    attrSet _ = setDOMHTMLInputElementDefaultChecked+    attrConstruct _ = constructDOMHTMLInputElementDefaultChecked++-- VVV Prop "default-value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value"++setDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val++constructDOMHTMLInputElementDefaultValue :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementDefaultValue val = constructObjectPropertyString "default-value" val++data DOMHTMLInputElementDefaultValuePropertyInfo+instance AttrInfo DOMHTMLInputElementDefaultValuePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementDefaultValuePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementDefaultValuePropertyInfo = "DOMHTMLInputElement::default-value"+    attrGet _ = getDOMHTMLInputElementDefaultValue+    attrSet _ = setDOMHTMLInputElementDefaultValue+    attrConstruct _ = constructDOMHTMLInputElementDefaultValue++-- VVV Prop "dir-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name"++setDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val++constructDOMHTMLInputElementDirName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementDirName val = constructObjectPropertyString "dir-name" val++data DOMHTMLInputElementDirNamePropertyInfo+instance AttrInfo DOMHTMLInputElementDirNamePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementDirNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementDirNamePropertyInfo = "DOMHTMLInputElement::dir-name"+    attrGet _ = getDOMHTMLInputElementDirName+    attrSet _ = setDOMHTMLInputElementDirName+    attrConstruct _ = constructDOMHTMLInputElementDirName++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLInputElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLInputElementDisabledPropertyInfo+instance AttrInfo DOMHTMLInputElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementDisabledPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementDisabledPropertyInfo = "DOMHTMLInputElement::disabled"+    attrGet _ = getDOMHTMLInputElementDisabled+    attrSet _ = setDOMHTMLInputElementDisabled+    attrConstruct _ = constructDOMHTMLInputElementDisabled++-- VVV Prop "files"+   -- Type: TInterface "WebKit2WebExtension" "DOMFileList"+   -- Flags: [PropertyReadable]++getDOMHTMLInputElementFiles :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMFileList+getDOMHTMLInputElementFiles obj = liftIO $ getObjectPropertyObject obj "files" DOMFileList++data DOMHTMLInputElementFilesPropertyInfo+instance AttrInfo DOMHTMLInputElementFilesPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementFilesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementFilesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLInputElementFilesPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementFilesPropertyInfo = DOMFileList+    type AttrLabel DOMHTMLInputElementFilesPropertyInfo = "DOMHTMLInputElement::files"+    attrGet _ = getDOMHTMLInputElementFiles+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLInputElementForm :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLInputElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLInputElementFormPropertyInfo+instance AttrInfo DOMHTMLInputElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLInputElementFormPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLInputElementFormPropertyInfo = "DOMHTMLInputElement::form"+    attrGet _ = getDOMHTMLInputElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "form-action"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action"++setDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val++constructDOMHTMLInputElementFormAction :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementFormAction val = constructObjectPropertyString "form-action" val++data DOMHTMLInputElementFormActionPropertyInfo+instance AttrInfo DOMHTMLInputElementFormActionPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementFormActionPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementFormActionPropertyInfo = "DOMHTMLInputElement::form-action"+    attrGet _ = getDOMHTMLInputElementFormAction+    attrSet _ = setDOMHTMLInputElementFormAction+    attrConstruct _ = constructDOMHTMLInputElementFormAction++-- VVV Prop "form-enctype"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype"++setDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val++constructDOMHTMLInputElementFormEnctype :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementFormEnctype val = constructObjectPropertyString "form-enctype" val++data DOMHTMLInputElementFormEnctypePropertyInfo+instance AttrInfo DOMHTMLInputElementFormEnctypePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementFormEnctypePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementFormEnctypePropertyInfo = "DOMHTMLInputElement::form-enctype"+    attrGet _ = getDOMHTMLInputElementFormEnctype+    attrSet _ = setDOMHTMLInputElementFormEnctype+    attrConstruct _ = constructDOMHTMLInputElementFormEnctype++-- VVV Prop "form-method"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method"++setDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val++constructDOMHTMLInputElementFormMethod :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementFormMethod val = constructObjectPropertyString "form-method" val++data DOMHTMLInputElementFormMethodPropertyInfo+instance AttrInfo DOMHTMLInputElementFormMethodPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementFormMethodPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementFormMethodPropertyInfo = "DOMHTMLInputElement::form-method"+    attrGet _ = getDOMHTMLInputElementFormMethod+    attrSet _ = setDOMHTMLInputElementFormMethod+    attrConstruct _ = constructDOMHTMLInputElementFormMethod++-- VVV Prop "form-no-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate"++setDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementFormNoValidate obj val = liftIO $ setObjectPropertyBool obj "form-no-validate" val++constructDOMHTMLInputElementFormNoValidate :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementFormNoValidate val = constructObjectPropertyBool "form-no-validate" val++data DOMHTMLInputElementFormNoValidatePropertyInfo+instance AttrInfo DOMHTMLInputElementFormNoValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementFormNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementFormNoValidatePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementFormNoValidatePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementFormNoValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementFormNoValidatePropertyInfo = "DOMHTMLInputElement::form-no-validate"+    attrGet _ = getDOMHTMLInputElementFormNoValidate+    attrSet _ = setDOMHTMLInputElementFormNoValidate+    attrConstruct _ = constructDOMHTMLInputElementFormNoValidate++-- VVV Prop "form-target"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target"++setDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val++constructDOMHTMLInputElementFormTarget :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementFormTarget val = constructObjectPropertyString "form-target" val++data DOMHTMLInputElementFormTargetPropertyInfo+instance AttrInfo DOMHTMLInputElementFormTargetPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementFormTargetPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementFormTargetPropertyInfo = "DOMHTMLInputElement::form-target"+    attrGet _ = getDOMHTMLInputElementFormTarget+    attrSet _ = setDOMHTMLInputElementFormTarget+    attrConstruct _ = constructDOMHTMLInputElementFormTarget++-- VVV Prop "height"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64+getDOMHTMLInputElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height"++setDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m ()+setDOMHTMLInputElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val++constructDOMHTMLInputElementHeight :: Word64 -> IO ([Char], GValue)+constructDOMHTMLInputElementHeight val = constructObjectPropertyUInt64 "height" val++data DOMHTMLInputElementHeightPropertyInfo+instance AttrInfo DOMHTMLInputElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementHeightPropertyInfo = (~) Word64+    type AttrBaseTypeConstraint DOMHTMLInputElementHeightPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementHeightPropertyInfo = Word64+    type AttrLabel DOMHTMLInputElementHeightPropertyInfo = "DOMHTMLInputElement::height"+    attrGet _ = getDOMHTMLInputElementHeight+    attrSet _ = setDOMHTMLInputElementHeight+    attrConstruct _ = constructDOMHTMLInputElementHeight++-- VVV Prop "incremental"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementIncremental obj = liftIO $ getObjectPropertyBool obj "incremental"++setDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementIncremental obj val = liftIO $ setObjectPropertyBool obj "incremental" val++constructDOMHTMLInputElementIncremental :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementIncremental val = constructObjectPropertyBool "incremental" val++data DOMHTMLInputElementIncrementalPropertyInfo+instance AttrInfo DOMHTMLInputElementIncrementalPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementIncrementalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementIncrementalPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementIncrementalPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementIncrementalPropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementIncrementalPropertyInfo = "DOMHTMLInputElement::incremental"+    attrGet _ = getDOMHTMLInputElementIncremental+    attrSet _ = setDOMHTMLInputElementIncremental+    attrConstruct _ = constructDOMHTMLInputElementIncremental++-- VVV Prop "indeterminate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementIndeterminate obj = liftIO $ getObjectPropertyBool obj "indeterminate"++setDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementIndeterminate obj val = liftIO $ setObjectPropertyBool obj "indeterminate" val++constructDOMHTMLInputElementIndeterminate :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementIndeterminate val = constructObjectPropertyBool "indeterminate" val++data DOMHTMLInputElementIndeterminatePropertyInfo+instance AttrInfo DOMHTMLInputElementIndeterminatePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementIndeterminatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementIndeterminatePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementIndeterminatePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementIndeterminatePropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementIndeterminatePropertyInfo = "DOMHTMLInputElement::indeterminate"+    attrGet _ = getDOMHTMLInputElementIndeterminate+    attrSet _ = setDOMHTMLInputElementIndeterminate+    attrConstruct _ = constructDOMHTMLInputElementIndeterminate++-- VVV Prop "labels"+   -- Type: TInterface "WebKit2WebExtension" "DOMNodeList"+   -- Flags: [PropertyReadable]++getDOMHTMLInputElementLabels :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMNodeList+getDOMHTMLInputElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList++data DOMHTMLInputElementLabelsPropertyInfo+instance AttrInfo DOMHTMLInputElementLabelsPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementLabelsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementLabelsPropertyInfo = DOMNodeList+    type AttrLabel DOMHTMLInputElementLabelsPropertyInfo = "DOMHTMLInputElement::labels"+    attrGet _ = getDOMHTMLInputElementLabels+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "list"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLElement"+   -- Flags: [PropertyReadable]++getDOMHTMLInputElementList :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLElement+getDOMHTMLInputElementList obj = liftIO $ getObjectPropertyObject obj "list" DOMHTMLElement++data DOMHTMLInputElementListPropertyInfo+instance AttrInfo DOMHTMLInputElementListPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementListPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementListPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLInputElementListPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementListPropertyInfo = DOMHTMLElement+    type AttrLabel DOMHTMLInputElementListPropertyInfo = "DOMHTMLInputElement::list"+    attrGet _ = getDOMHTMLInputElementList+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "max"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementMax obj = liftIO $ getObjectPropertyString obj "max"++setDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementMax obj val = liftIO $ setObjectPropertyString obj "max" val++constructDOMHTMLInputElementMax :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementMax val = constructObjectPropertyString "max" val++data DOMHTMLInputElementMaxPropertyInfo+instance AttrInfo DOMHTMLInputElementMaxPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementMaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementMaxPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementMaxPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementMaxPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementMaxPropertyInfo = "DOMHTMLInputElement::max"+    attrGet _ = getDOMHTMLInputElementMax+    attrSet _ = setDOMHTMLInputElementMax+    attrConstruct _ = constructDOMHTMLInputElementMax++-- VVV Prop "max-length"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Int64+getDOMHTMLInputElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length"++setDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> Int64 -> m ()+setDOMHTMLInputElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val++constructDOMHTMLInputElementMaxLength :: Int64 -> IO ([Char], GValue)+constructDOMHTMLInputElementMaxLength val = constructObjectPropertyInt64 "max-length" val++data DOMHTMLInputElementMaxLengthPropertyInfo+instance AttrInfo DOMHTMLInputElementMaxLengthPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementMaxLengthPropertyInfo = Int64+    type AttrLabel DOMHTMLInputElementMaxLengthPropertyInfo = "DOMHTMLInputElement::max-length"+    attrGet _ = getDOMHTMLInputElementMaxLength+    attrSet _ = setDOMHTMLInputElementMaxLength+    attrConstruct _ = constructDOMHTMLInputElementMaxLength++-- VVV Prop "min"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementMin obj = liftIO $ getObjectPropertyString obj "min"++setDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementMin obj val = liftIO $ setObjectPropertyString obj "min" val++constructDOMHTMLInputElementMin :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementMin val = constructObjectPropertyString "min" val++data DOMHTMLInputElementMinPropertyInfo+instance AttrInfo DOMHTMLInputElementMinPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementMinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementMinPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementMinPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementMinPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementMinPropertyInfo = "DOMHTMLInputElement::min"+    attrGet _ = getDOMHTMLInputElementMin+    attrSet _ = setDOMHTMLInputElementMin+    attrConstruct _ = constructDOMHTMLInputElementMin++-- VVV Prop "multiple"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple"++setDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementMultiple obj val = liftIO $ setObjectPropertyBool obj "multiple" val++constructDOMHTMLInputElementMultiple :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementMultiple val = constructObjectPropertyBool "multiple" val++data DOMHTMLInputElementMultiplePropertyInfo+instance AttrInfo DOMHTMLInputElementMultiplePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementMultiplePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementMultiplePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementMultiplePropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementMultiplePropertyInfo = "DOMHTMLInputElement::multiple"+    attrGet _ = getDOMHTMLInputElementMultiple+    attrSet _ = setDOMHTMLInputElementMultiple+    attrConstruct _ = constructDOMHTMLInputElementMultiple++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLInputElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementName val = constructObjectPropertyString "name" val++data DOMHTMLInputElementNamePropertyInfo+instance AttrInfo DOMHTMLInputElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementNamePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementNamePropertyInfo = "DOMHTMLInputElement::name"+    attrGet _ = getDOMHTMLInputElementName+    attrSet _ = setDOMHTMLInputElementName+    attrConstruct _ = constructDOMHTMLInputElementName++-- VVV Prop "pattern"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementPattern obj = liftIO $ getObjectPropertyString obj "pattern"++setDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val++constructDOMHTMLInputElementPattern :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementPattern val = constructObjectPropertyString "pattern" val++data DOMHTMLInputElementPatternPropertyInfo+instance AttrInfo DOMHTMLInputElementPatternPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementPatternPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementPatternPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementPatternPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementPatternPropertyInfo = "DOMHTMLInputElement::pattern"+    attrGet _ = getDOMHTMLInputElementPattern+    attrSet _ = setDOMHTMLInputElementPattern+    attrConstruct _ = constructDOMHTMLInputElementPattern++-- VVV Prop "placeholder"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder"++setDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val++constructDOMHTMLInputElementPlaceholder :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementPlaceholder val = constructObjectPropertyString "placeholder" val++data DOMHTMLInputElementPlaceholderPropertyInfo+instance AttrInfo DOMHTMLInputElementPlaceholderPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementPlaceholderPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementPlaceholderPropertyInfo = "DOMHTMLInputElement::placeholder"+    attrGet _ = getDOMHTMLInputElementPlaceholder+    attrSet _ = setDOMHTMLInputElementPlaceholder+    attrConstruct _ = constructDOMHTMLInputElementPlaceholder++-- VVV Prop "read-only"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only"++setDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementReadOnly obj val = liftIO $ setObjectPropertyBool obj "read-only" val++constructDOMHTMLInputElementReadOnly :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementReadOnly val = constructObjectPropertyBool "read-only" val++data DOMHTMLInputElementReadOnlyPropertyInfo+instance AttrInfo DOMHTMLInputElementReadOnlyPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementReadOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementReadOnlyPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementReadOnlyPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementReadOnlyPropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementReadOnlyPropertyInfo = "DOMHTMLInputElement::read-only"+    attrGet _ = getDOMHTMLInputElementReadOnly+    attrSet _ = setDOMHTMLInputElementReadOnly+    attrConstruct _ = constructDOMHTMLInputElementReadOnly++-- VVV Prop "required"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementRequired obj = liftIO $ getObjectPropertyBool obj "required"++setDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m ()+setDOMHTMLInputElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val++constructDOMHTMLInputElementRequired :: Bool -> IO ([Char], GValue)+constructDOMHTMLInputElementRequired val = constructObjectPropertyBool "required" val++data DOMHTMLInputElementRequiredPropertyInfo+instance AttrInfo DOMHTMLInputElementRequiredPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementRequiredPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLInputElementRequiredPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementRequiredPropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementRequiredPropertyInfo = "DOMHTMLInputElement::required"+    attrGet _ = getDOMHTMLInputElementRequired+    attrSet _ = setDOMHTMLInputElementRequired+    attrConstruct _ = constructDOMHTMLInputElementRequired++-- VVV Prop "size"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64+getDOMHTMLInputElementSize obj = liftIO $ getObjectPropertyUInt64 obj "size"++setDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m ()+setDOMHTMLInputElementSize obj val = liftIO $ setObjectPropertyUInt64 obj "size" val++constructDOMHTMLInputElementSize :: Word64 -> IO ([Char], GValue)+constructDOMHTMLInputElementSize val = constructObjectPropertyUInt64 "size" val++data DOMHTMLInputElementSizePropertyInfo+instance AttrInfo DOMHTMLInputElementSizePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementSizePropertyInfo = (~) Word64+    type AttrBaseTypeConstraint DOMHTMLInputElementSizePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementSizePropertyInfo = Word64+    type AttrLabel DOMHTMLInputElementSizePropertyInfo = "DOMHTMLInputElement::size"+    attrGet _ = getDOMHTMLInputElementSize+    attrSet _ = setDOMHTMLInputElementSize+    attrConstruct _ = constructDOMHTMLInputElementSize++-- VVV Prop "src"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementSrc obj = liftIO $ getObjectPropertyString obj "src"++setDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val++constructDOMHTMLInputElementSrc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementSrc val = constructObjectPropertyString "src" val++data DOMHTMLInputElementSrcPropertyInfo+instance AttrInfo DOMHTMLInputElementSrcPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementSrcPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementSrcPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementSrcPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementSrcPropertyInfo = "DOMHTMLInputElement::src"+    attrGet _ = getDOMHTMLInputElementSrc+    attrSet _ = setDOMHTMLInputElementSrc+    attrConstruct _ = constructDOMHTMLInputElementSrc++-- VVV Prop "step"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementStep obj = liftIO $ getObjectPropertyString obj "step"++setDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementStep obj val = liftIO $ setObjectPropertyString obj "step" val++constructDOMHTMLInputElementStep :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementStep val = constructObjectPropertyString "step" val++data DOMHTMLInputElementStepPropertyInfo+instance AttrInfo DOMHTMLInputElementStepPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementStepPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementStepPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementStepPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementStepPropertyInfo = "DOMHTMLInputElement::step"+    attrGet _ = getDOMHTMLInputElementStep+    attrSet _ = setDOMHTMLInputElementStep+    attrConstruct _ = constructDOMHTMLInputElementStep++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLInputElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementType val = constructObjectPropertyString "type" val++data DOMHTMLInputElementTypePropertyInfo+instance AttrInfo DOMHTMLInputElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementTypePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementTypePropertyInfo = "DOMHTMLInputElement::type"+    attrGet _ = getDOMHTMLInputElementType+    attrSet _ = setDOMHTMLInputElementType+    attrConstruct _ = constructDOMHTMLInputElementType++-- VVV Prop "use-map"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map"++setDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val++constructDOMHTMLInputElementUseMap :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementUseMap val = constructObjectPropertyString "use-map" val++data DOMHTMLInputElementUseMapPropertyInfo+instance AttrInfo DOMHTMLInputElementUseMapPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementUseMapPropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementUseMapPropertyInfo = "DOMHTMLInputElement::use-map"+    attrGet _ = getDOMHTMLInputElementUseMap+    attrSet _ = setDOMHTMLInputElementUseMap+    attrConstruct _ = constructDOMHTMLInputElementUseMap++-- VVV Prop "validation-message"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLInputElementValidationMessage :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message"++data DOMHTMLInputElementValidationMessagePropertyInfo+instance AttrInfo DOMHTMLInputElementValidationMessagePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementValidationMessagePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementValidationMessagePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementValidationMessagePropertyInfo = "DOMHTMLInputElement::validation-message"+    attrGet _ = getDOMHTMLInputElementValidationMessage+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text+getDOMHTMLInputElementValue obj = liftIO $ getObjectPropertyString obj "value"++setDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m ()+setDOMHTMLInputElementValue obj val = liftIO $ setObjectPropertyString obj "value" val++constructDOMHTMLInputElementValue :: T.Text -> IO ([Char], GValue)+constructDOMHTMLInputElementValue val = constructObjectPropertyString "value" val++data DOMHTMLInputElementValuePropertyInfo+instance AttrInfo DOMHTMLInputElementValuePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLInputElementValuePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementValuePropertyInfo = T.Text+    type AttrLabel DOMHTMLInputElementValuePropertyInfo = "DOMHTMLInputElement::value"+    attrGet _ = getDOMHTMLInputElementValue+    attrSet _ = setDOMHTMLInputElementValue+    attrConstruct _ = constructDOMHTMLInputElementValue++-- VVV Prop "value-as-number"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Double+getDOMHTMLInputElementValueAsNumber obj = liftIO $ getObjectPropertyDouble obj "value-as-number"++setDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> Double -> m ()+setDOMHTMLInputElementValueAsNumber obj val = liftIO $ setObjectPropertyDouble obj "value-as-number" val++constructDOMHTMLInputElementValueAsNumber :: Double -> IO ([Char], GValue)+constructDOMHTMLInputElementValueAsNumber val = constructObjectPropertyDouble "value-as-number" val++data DOMHTMLInputElementValueAsNumberPropertyInfo+instance AttrInfo DOMHTMLInputElementValueAsNumberPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementValueAsNumberPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementValueAsNumberPropertyInfo = (~) Double+    type AttrBaseTypeConstraint DOMHTMLInputElementValueAsNumberPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementValueAsNumberPropertyInfo = Double+    type AttrLabel DOMHTMLInputElementValueAsNumberPropertyInfo = "DOMHTMLInputElement::value-as-number"+    attrGet _ = getDOMHTMLInputElementValueAsNumber+    attrSet _ = setDOMHTMLInputElementValueAsNumber+    attrConstruct _ = constructDOMHTMLInputElementValueAsNumber++-- VVV Prop "width"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64+getDOMHTMLInputElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width"++setDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m ()+setDOMHTMLInputElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val++constructDOMHTMLInputElementWidth :: Word64 -> IO ([Char], GValue)+constructDOMHTMLInputElementWidth val = constructObjectPropertyUInt64 "width" val++data DOMHTMLInputElementWidthPropertyInfo+instance AttrInfo DOMHTMLInputElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementWidthPropertyInfo = (~) Word64+    type AttrBaseTypeConstraint DOMHTMLInputElementWidthPropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementWidthPropertyInfo = Word64+    type AttrLabel DOMHTMLInputElementWidthPropertyInfo = "DOMHTMLInputElement::width"+    attrGet _ = getDOMHTMLInputElementWidth+    attrSet _ = setDOMHTMLInputElementWidth+    attrConstruct _ = constructDOMHTMLInputElementWidth++-- VVV Prop "will-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMHTMLInputElementWillValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool+getDOMHTMLInputElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate"++data DOMHTMLInputElementWillValidatePropertyInfo+instance AttrInfo DOMHTMLInputElementWillValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLInputElementWillValidatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLInputElementWillValidatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLInputElementWillValidatePropertyInfo = DOMHTMLInputElementK+    type AttrGetType DOMHTMLInputElementWillValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLInputElementWillValidatePropertyInfo = "DOMHTMLInputElement::will-validate"+    attrGet _ = getDOMHTMLInputElementWillValidate+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLInputElement = DOMHTMLInputElementAttributeList+type DOMHTMLInputElementAttributeList = ('[ '("accept", DOMHTMLInputElementAcceptPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLInputElementAlignPropertyInfo), '("alt", DOMHTMLInputElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLInputElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLInputElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLInputElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLInputElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("capture", DOMHTMLInputElementCapturePropertyInfo), '("checked", DOMHTMLInputElementCheckedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-checked", DOMHTMLInputElementDefaultCheckedPropertyInfo), '("default-value", DOMHTMLInputElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dir-name", DOMHTMLInputElementDirNamePropertyInfo), '("disabled", DOMHTMLInputElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("files", DOMHTMLInputElementFilesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLInputElementFormPropertyInfo), '("form-action", DOMHTMLInputElementFormActionPropertyInfo), '("form-enctype", DOMHTMLInputElementFormEnctypePropertyInfo), '("form-method", DOMHTMLInputElementFormMethodPropertyInfo), '("form-no-validate", DOMHTMLInputElementFormNoValidatePropertyInfo), '("form-target", DOMHTMLInputElementFormTargetPropertyInfo), '("height", DOMHTMLInputElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("incremental", DOMHTMLInputElementIncrementalPropertyInfo), '("indeterminate", DOMHTMLInputElementIndeterminatePropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLInputElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("list", DOMHTMLInputElementListPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("max", DOMHTMLInputElementMaxPropertyInfo), '("max-length", DOMHTMLInputElementMaxLengthPropertyInfo), '("min", DOMHTMLInputElementMinPropertyInfo), '("multiple", DOMHTMLInputElementMultiplePropertyInfo), '("name", DOMHTMLInputElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pattern", DOMHTMLInputElementPatternPropertyInfo), '("placeholder", DOMHTMLInputElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("read-only", DOMHTMLInputElementReadOnlyPropertyInfo), '("required", DOMHTMLInputElementRequiredPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLInputElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLInputElementSrcPropertyInfo), '("step", DOMHTMLInputElementStepPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLInputElementTypePropertyInfo), '("use-map", DOMHTMLInputElementUseMapPropertyInfo), '("validation-message", DOMHTMLInputElementValidationMessagePropertyInfo), '("value", DOMHTMLInputElementValuePropertyInfo), '("value-as-number", DOMHTMLInputElementValueAsNumberPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLInputElementWidthPropertyInfo), '("will-validate", DOMHTMLInputElementWillValidatePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLInputElement = DOMHTMLInputElementSignalList+type DOMHTMLInputElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLInputElement::get_accept+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_accept" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_alt+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_alt" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_autofocus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_capture" webkit_dom_html_input_element_get_capture :: +    Ptr DOMHTMLInputElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLInputElement"+    IO CInt+++dOMHTMLInputElementGetCapture ::+    (MonadIO m, DOMHTMLInputElementK a) =>+    a ->                                    -- _obj+    m Bool+dOMHTMLInputElementGetCapture _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_input_element_get_capture _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_checked+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_default_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_files" result+    result' <- (wrapObject DOMFileList) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_form+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_indeterminate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_input_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_input_type" webkit_dom_html_input_element_get_input_type :: +    Ptr DOMHTMLInputElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLInputElement"+    IO CString+++dOMHTMLInputElementGetInputType ::+    (MonadIO m, DOMHTMLInputElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLInputElementGetInputType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_input_element_get_input_type _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_input_type" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_max_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_multiple+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_src" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_use_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_use_map" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_input_element_get_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLInputElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_autofocus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_checked+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_default_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "DOMFileList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLInputElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLInputElement"+    Ptr DOMFileList ->                      -- value : TInterface "WebKit2WebExtension" "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_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_indeterminate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_input_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_input_type" webkit_dom_html_input_element_set_input_type :: +    Ptr DOMHTMLInputElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLInputElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLInputElementSetInputType ::+    (MonadIO m, DOMHTMLInputElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLInputElementSetInputType _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_input_element_set_input_type _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method DOMHTMLInputElement::set_max_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_multiple+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_read_only+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_use_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLInputElement.hs-boot view
@@ -0,0 +1,57 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLInputElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLInputElement = DOMHTMLInputElement (ForeignPtr DOMHTMLInputElement)+instance GObject DOMHTMLInputElement where+class GObject o => DOMHTMLInputElementK o+instance (GObject o, IsDescendantOf DOMHTMLInputElement o) => DOMHTMLInputElementK o+data DOMHTMLInputElementAcceptPropertyInfo+data DOMHTMLInputElementAlignPropertyInfo+data DOMHTMLInputElementAltPropertyInfo+data DOMHTMLInputElementAutocapitalizePropertyInfo+data DOMHTMLInputElementAutocompletePropertyInfo+data DOMHTMLInputElementAutocorrectPropertyInfo+data DOMHTMLInputElementAutofocusPropertyInfo+data DOMHTMLInputElementCapturePropertyInfo+data DOMHTMLInputElementCheckedPropertyInfo+data DOMHTMLInputElementDefaultCheckedPropertyInfo+data DOMHTMLInputElementDefaultValuePropertyInfo+data DOMHTMLInputElementDirNamePropertyInfo+data DOMHTMLInputElementDisabledPropertyInfo+data DOMHTMLInputElementFilesPropertyInfo+data DOMHTMLInputElementFormPropertyInfo+data DOMHTMLInputElementFormActionPropertyInfo+data DOMHTMLInputElementFormEnctypePropertyInfo+data DOMHTMLInputElementFormMethodPropertyInfo+data DOMHTMLInputElementFormNoValidatePropertyInfo+data DOMHTMLInputElementFormTargetPropertyInfo+data DOMHTMLInputElementHeightPropertyInfo+data DOMHTMLInputElementIncrementalPropertyInfo+data DOMHTMLInputElementIndeterminatePropertyInfo+data DOMHTMLInputElementLabelsPropertyInfo+data DOMHTMLInputElementListPropertyInfo+data DOMHTMLInputElementMaxPropertyInfo+data DOMHTMLInputElementMaxLengthPropertyInfo+data DOMHTMLInputElementMinPropertyInfo+data DOMHTMLInputElementMultiplePropertyInfo+data DOMHTMLInputElementNamePropertyInfo+data DOMHTMLInputElementPatternPropertyInfo+data DOMHTMLInputElementPlaceholderPropertyInfo+data DOMHTMLInputElementReadOnlyPropertyInfo+data DOMHTMLInputElementRequiredPropertyInfo+data DOMHTMLInputElementSizePropertyInfo+data DOMHTMLInputElementSrcPropertyInfo+data DOMHTMLInputElementStepPropertyInfo+data DOMHTMLInputElementTypePropertyInfo+data DOMHTMLInputElementUseMapPropertyInfo+data DOMHTMLInputElementValidationMessagePropertyInfo+data DOMHTMLInputElementValuePropertyInfo+data DOMHTMLInputElementValueAsNumberPropertyInfo+data DOMHTMLInputElementWidthPropertyInfo+data DOMHTMLInputElementWillValidatePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs view
@@ -0,0 +1,247 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLLIElement+    ( ++-- * Exported types+    DOMHTMLLIElement(..)                    ,+    DOMHTMLLIElementK                       ,+    toDOMHTMLLIElement                      ,+    noDOMHTMLLIElement                      ,+++ -- * Methods+-- ** dOMHTMLLIElementGetTypeAttr+    dOMHTMLLIElementGetTypeAttr             ,+++-- ** dOMHTMLLIElementGetValue+    dOMHTMLLIElementGetValue                ,+++-- ** dOMHTMLLIElementSetTypeAttr+    dOMHTMLLIElementSetTypeAttr             ,+++-- ** dOMHTMLLIElementSetValue+    dOMHTMLLIElementSetValue                ,+++++ -- * Properties+-- ** Type+    DOMHTMLLIElementTypePropertyInfo        ,+    constructDOMHTMLLIElementType           ,+    getDOMHTMLLIElementType                 ,+    setDOMHTMLLIElementType                 ,+++-- ** Value+    DOMHTMLLIElementValuePropertyInfo       ,+    constructDOMHTMLLIElementValue          ,+    getDOMHTMLLIElementValue                ,+    setDOMHTMLLIElementValue                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLLIElement = DOMHTMLLIElement (ForeignPtr DOMHTMLLIElement)+foreign import ccall "webkit_dom_html_li_element_get_type"+    c_webkit_dom_html_li_element_get_type :: IO GType++type instance ParentTypes DOMHTMLLIElement = DOMHTMLLIElementParentTypes+type DOMHTMLLIElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]++instance GObject DOMHTMLLIElement where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_dom_html_li_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++noDOMHTMLLIElement :: Maybe DOMHTMLLIElement+noDOMHTMLLIElement = Nothing++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m T.Text+getDOMHTMLLIElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> T.Text -> m ()+setDOMHTMLLIElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLLIElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLIElementType val = constructObjectPropertyString "type" val++data DOMHTMLLIElementTypePropertyInfo+instance AttrInfo DOMHTMLLIElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLLIElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLIElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLIElementTypePropertyInfo = DOMHTMLLIElementK+    type AttrGetType DOMHTMLLIElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLLIElementTypePropertyInfo = "DOMHTMLLIElement::type"+    attrGet _ = getDOMHTMLLIElementType+    attrSet _ = setDOMHTMLLIElementType+    attrConstruct _ = constructDOMHTMLLIElementType++-- VVV Prop "value"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> m Int64+getDOMHTMLLIElementValue obj = liftIO $ getObjectPropertyInt64 obj "value"++setDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> Int64 -> m ()+setDOMHTMLLIElementValue obj val = liftIO $ setObjectPropertyInt64 obj "value" val++constructDOMHTMLLIElementValue :: Int64 -> IO ([Char], GValue)+constructDOMHTMLLIElementValue val = constructObjectPropertyInt64 "value" val++data DOMHTMLLIElementValuePropertyInfo+instance AttrInfo DOMHTMLLIElementValuePropertyInfo where+    type AttrAllowedOps DOMHTMLLIElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLIElementValuePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLLIElementValuePropertyInfo = DOMHTMLLIElementK+    type AttrGetType DOMHTMLLIElementValuePropertyInfo = Int64+    type AttrLabel DOMHTMLLIElementValuePropertyInfo = "DOMHTMLLIElement::value"+    attrGet _ = getDOMHTMLLIElementValue+    attrSet _ = setDOMHTMLLIElementValue+    attrConstruct _ = constructDOMHTMLLIElementValue++type instance AttributeList DOMHTMLLIElement = DOMHTMLLIElementAttributeList+type DOMHTMLLIElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLIElementTypePropertyInfo), '("value", DOMHTMLLIElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLLIElement = DOMHTMLLIElementSignalList+type DOMHTMLLIElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLLIElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_html_li_element_get_type_attr" webkit_dom_html_li_element_get_type_attr :: +    Ptr DOMHTMLLIElement ->                 -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLLIElement"+    IO CString+++dOMHTMLLIElementGetTypeAttr ::+    (MonadIO m, DOMHTMLLIElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLLIElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_li_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_li_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLIElement::get_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_li_element_get_value" webkit_dom_html_li_element_get_value :: +    Ptr DOMHTMLLIElement ->                 -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLLIElement"+    IO Int64+++dOMHTMLLIElementGetValue ::+    (MonadIO m, DOMHTMLLIElementK a) =>+    a ->                                    -- _obj+    m Int64+dOMHTMLLIElementGetValue _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_li_element_get_value _obj'+    touchManagedPtr _obj+    return result++-- method DOMHTMLLIElement::set_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLIElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_html_li_element_set_type_attr" webkit_dom_html_li_element_set_type_attr :: +    Ptr DOMHTMLLIElement ->                 -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLLIElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLLIElementSetTypeAttr ::+    (MonadIO m, DOMHTMLLIElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLLIElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_li_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method DOMHTMLLIElement::set_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_li_element_set_value" webkit_dom_html_li_element_set_value :: +    Ptr DOMHTMLLIElement ->                 -- _obj : TInterface "WebKit2WebExtension" "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_html_li_element_set_value _obj' value+    touchManagedPtr _obj+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLLIElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLLIElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLLIElement = DOMHTMLLIElement (ForeignPtr DOMHTMLLIElement)+instance GObject DOMHTMLLIElement where+class GObject o => DOMHTMLLIElementK o+instance (GObject o, IsDescendantOf DOMHTMLLIElement o) => DOMHTMLLIElementK o+data DOMHTMLLIElementTypePropertyInfo+data DOMHTMLLIElementValuePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs view
@@ -0,0 +1,234 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLLabelElement+    ( ++-- * Exported types+    DOMHTMLLabelElement(..)                 ,+    DOMHTMLLabelElementK                    ,+    toDOMHTMLLabelElement                   ,+    noDOMHTMLLabelElement                   ,+++ -- * Methods+-- ** dOMHTMLLabelElementGetForm+    dOMHTMLLabelElementGetForm              ,+++-- ** dOMHTMLLabelElementGetHtmlFor+    dOMHTMLLabelElementGetHtmlFor           ,+++-- ** dOMHTMLLabelElementSetHtmlFor+    dOMHTMLLabelElementSetHtmlFor           ,+++++ -- * Properties+-- ** Control+    DOMHTMLLabelElementControlPropertyInfo  ,+    getDOMHTMLLabelElementControl           ,+++-- ** Form+    DOMHTMLLabelElementFormPropertyInfo     ,+    getDOMHTMLLabelElementForm              ,+++-- ** HtmlFor+    DOMHTMLLabelElementHtmlForPropertyInfo  ,+    constructDOMHTMLLabelElementHtmlFor     ,+    getDOMHTMLLabelElementHtmlFor           ,+    setDOMHTMLLabelElementHtmlFor           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLLabelElement = DOMHTMLLabelElement (ForeignPtr DOMHTMLLabelElement)+foreign import ccall "webkit_dom_html_label_element_get_type"+    c_webkit_dom_html_label_element_get_type :: IO GType++type instance ParentTypes DOMHTMLLabelElement = DOMHTMLLabelElementParentTypes+type DOMHTMLLabelElementParentTypes = '[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++noDOMHTMLLabelElement :: Maybe DOMHTMLLabelElement+noDOMHTMLLabelElement = Nothing++-- VVV Prop "control"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLElement"+   -- Flags: [PropertyReadable]++getDOMHTMLLabelElementControl :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLElement+getDOMHTMLLabelElementControl obj = liftIO $ getObjectPropertyObject obj "control" DOMHTMLElement++data DOMHTMLLabelElementControlPropertyInfo+instance AttrInfo DOMHTMLLabelElementControlPropertyInfo where+    type AttrAllowedOps DOMHTMLLabelElementControlPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLabelElementControlPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLLabelElementControlPropertyInfo = DOMHTMLLabelElementK+    type AttrGetType DOMHTMLLabelElementControlPropertyInfo = DOMHTMLElement+    type AttrLabel DOMHTMLLabelElementControlPropertyInfo = "DOMHTMLLabelElement::control"+    attrGet _ = getDOMHTMLLabelElementControl+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLLabelElementForm :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLLabelElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLLabelElementFormPropertyInfo+instance AttrInfo DOMHTMLLabelElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLLabelElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLabelElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLLabelElementFormPropertyInfo = DOMHTMLLabelElementK+    type AttrGetType DOMHTMLLabelElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLLabelElementFormPropertyInfo = "DOMHTMLLabelElement::form"+    attrGet _ = getDOMHTMLLabelElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "html-for"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m T.Text+getDOMHTMLLabelElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for"++setDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> T.Text -> m ()+setDOMHTMLLabelElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val++constructDOMHTMLLabelElementHtmlFor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLabelElementHtmlFor val = constructObjectPropertyString "html-for" val++data DOMHTMLLabelElementHtmlForPropertyInfo+instance AttrInfo DOMHTMLLabelElementHtmlForPropertyInfo where+    type AttrAllowedOps DOMHTMLLabelElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = DOMHTMLLabelElementK+    type AttrGetType DOMHTMLLabelElementHtmlForPropertyInfo = T.Text+    type AttrLabel DOMHTMLLabelElementHtmlForPropertyInfo = "DOMHTMLLabelElement::html-for"+    attrGet _ = getDOMHTMLLabelElementHtmlFor+    attrSet _ = setDOMHTMLLabelElementHtmlFor+    attrConstruct _ = constructDOMHTMLLabelElementHtmlFor++type instance AttributeList DOMHTMLLabelElement = DOMHTMLLabelElementAttributeList+type DOMHTMLLabelElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("control", DOMHTMLLabelElementControlPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLabelElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("html-for", DOMHTMLLabelElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLLabelElement = DOMHTMLLabelElementSignalList+type DOMHTMLLabelElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLLabelElement::get_form+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_label_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLabelElement::get_html_for+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLabelElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_label_element_get_html_for" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLabelElement::set_html_for+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLLabelElement.hs-boot view
@@ -0,0 +1,16 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLLabelElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLLabelElement = DOMHTMLLabelElement (ForeignPtr DOMHTMLLabelElement)+instance GObject DOMHTMLLabelElement where+class GObject o => DOMHTMLLabelElementK o+instance (GObject o, IsDescendantOf DOMHTMLLabelElement o) => DOMHTMLLabelElementK o+data DOMHTMLLabelElementControlPropertyInfo+data DOMHTMLLabelElementFormPropertyInfo+data DOMHTMLLabelElementHtmlForPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs view
@@ -0,0 +1,211 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLLegendElement+    ( ++-- * Exported types+    DOMHTMLLegendElement(..)                ,+    DOMHTMLLegendElementK                   ,+    toDOMHTMLLegendElement                  ,+    noDOMHTMLLegendElement                  ,+++ -- * Methods+-- ** dOMHTMLLegendElementGetAlign+    dOMHTMLLegendElementGetAlign            ,+++-- ** dOMHTMLLegendElementGetForm+    dOMHTMLLegendElementGetForm             ,+++-- ** dOMHTMLLegendElementSetAlign+    dOMHTMLLegendElementSetAlign            ,+++++ -- * Properties+-- ** Align+    DOMHTMLLegendElementAlignPropertyInfo   ,+    constructDOMHTMLLegendElementAlign      ,+    getDOMHTMLLegendElementAlign            ,+    setDOMHTMLLegendElementAlign            ,+++-- ** Form+    DOMHTMLLegendElementFormPropertyInfo    ,+    getDOMHTMLLegendElementForm             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLLegendElement = DOMHTMLLegendElement (ForeignPtr DOMHTMLLegendElement)+foreign import ccall "webkit_dom_html_legend_element_get_type"+    c_webkit_dom_html_legend_element_get_type :: IO GType++type instance ParentTypes DOMHTMLLegendElement = DOMHTMLLegendElementParentTypes+type DOMHTMLLegendElementParentTypes = '[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++noDOMHTMLLegendElement :: Maybe DOMHTMLLegendElement+noDOMHTMLLegendElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m T.Text+getDOMHTMLLegendElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> T.Text -> m ()+setDOMHTMLLegendElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLLegendElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLegendElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLLegendElementAlignPropertyInfo+instance AttrInfo DOMHTMLLegendElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLLegendElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = DOMHTMLLegendElementK+    type AttrGetType DOMHTMLLegendElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLLegendElementAlignPropertyInfo = "DOMHTMLLegendElement::align"+    attrGet _ = getDOMHTMLLegendElementAlign+    attrSet _ = setDOMHTMLLegendElementAlign+    attrConstruct _ = constructDOMHTMLLegendElementAlign++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLLegendElementForm :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLLegendElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLLegendElementFormPropertyInfo+instance AttrInfo DOMHTMLLegendElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLLegendElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLegendElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLLegendElementFormPropertyInfo = DOMHTMLLegendElementK+    type AttrGetType DOMHTMLLegendElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLLegendElementFormPropertyInfo = "DOMHTMLLegendElement::form"+    attrGet _ = getDOMHTMLLegendElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLLegendElement = DOMHTMLLegendElementAttributeList+type DOMHTMLLegendElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLLegendElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLegendElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLLegendElement = DOMHTMLLegendElementSignalList+type DOMHTMLLegendElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLLegendElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_legend_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLegendElement::get_form+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLegendElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_legend_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLegendElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLLegendElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLLegendElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLLegendElement = DOMHTMLLegendElement (ForeignPtr DOMHTMLLegendElement)+instance GObject DOMHTMLLegendElement where+class GObject o => DOMHTMLLegendElementK o+instance (GObject o, IsDescendantOf DOMHTMLLegendElement o) => DOMHTMLLegendElementK o+data DOMHTMLLegendElementAlignPropertyInfo+data DOMHTMLLegendElementFormPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs view
@@ -0,0 +1,960 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLLinkElement+    ( ++-- * Exported types+    DOMHTMLLinkElement(..)                  ,+    DOMHTMLLinkElementK                     ,+    toDOMHTMLLinkElement                    ,+    noDOMHTMLLinkElement                    ,+++ -- * Methods+-- ** dOMHTMLLinkElementGetCharset+    dOMHTMLLinkElementGetCharset            ,+++-- ** dOMHTMLLinkElementGetDisabled+    dOMHTMLLinkElementGetDisabled           ,+++-- ** dOMHTMLLinkElementGetHref+    dOMHTMLLinkElementGetHref               ,+++-- ** dOMHTMLLinkElementGetHreflang+    dOMHTMLLinkElementGetHreflang           ,+++-- ** dOMHTMLLinkElementGetMedia+    dOMHTMLLinkElementGetMedia              ,+++-- ** dOMHTMLLinkElementGetRel+    dOMHTMLLinkElementGetRel                ,+++-- ** dOMHTMLLinkElementGetRev+    dOMHTMLLinkElementGetRev                ,+++-- ** dOMHTMLLinkElementGetSheet+    dOMHTMLLinkElementGetSheet              ,+++-- ** dOMHTMLLinkElementGetTarget+    dOMHTMLLinkElementGetTarget             ,+++-- ** dOMHTMLLinkElementGetTypeAttr+    dOMHTMLLinkElementGetTypeAttr           ,+++-- ** dOMHTMLLinkElementSetCharset+    dOMHTMLLinkElementSetCharset            ,+++-- ** dOMHTMLLinkElementSetDisabled+    dOMHTMLLinkElementSetDisabled           ,+++-- ** dOMHTMLLinkElementSetHref+    dOMHTMLLinkElementSetHref               ,+++-- ** dOMHTMLLinkElementSetHreflang+    dOMHTMLLinkElementSetHreflang           ,+++-- ** dOMHTMLLinkElementSetMedia+    dOMHTMLLinkElementSetMedia              ,+++-- ** dOMHTMLLinkElementSetRel+    dOMHTMLLinkElementSetRel                ,+++-- ** dOMHTMLLinkElementSetRev+    dOMHTMLLinkElementSetRev                ,+++-- ** dOMHTMLLinkElementSetTarget+    dOMHTMLLinkElementSetTarget             ,+++-- ** dOMHTMLLinkElementSetTypeAttr+    dOMHTMLLinkElementSetTypeAttr           ,+++++ -- * Properties+-- ** Charset+    DOMHTMLLinkElementCharsetPropertyInfo   ,+    constructDOMHTMLLinkElementCharset      ,+    getDOMHTMLLinkElementCharset            ,+    setDOMHTMLLinkElementCharset            ,+++-- ** Disabled+    DOMHTMLLinkElementDisabledPropertyInfo  ,+    constructDOMHTMLLinkElementDisabled     ,+    getDOMHTMLLinkElementDisabled           ,+    setDOMHTMLLinkElementDisabled           ,+++-- ** Href+    DOMHTMLLinkElementHrefPropertyInfo      ,+    constructDOMHTMLLinkElementHref         ,+    getDOMHTMLLinkElementHref               ,+    setDOMHTMLLinkElementHref               ,+++-- ** Hreflang+    DOMHTMLLinkElementHreflangPropertyInfo  ,+    constructDOMHTMLLinkElementHreflang     ,+    getDOMHTMLLinkElementHreflang           ,+    setDOMHTMLLinkElementHreflang           ,+++-- ** Media+    DOMHTMLLinkElementMediaPropertyInfo     ,+    constructDOMHTMLLinkElementMedia        ,+    getDOMHTMLLinkElementMedia              ,+    setDOMHTMLLinkElementMedia              ,+++-- ** Rel+    DOMHTMLLinkElementRelPropertyInfo       ,+    constructDOMHTMLLinkElementRel          ,+    getDOMHTMLLinkElementRel                ,+    setDOMHTMLLinkElementRel                ,+++-- ** Rev+    DOMHTMLLinkElementRevPropertyInfo       ,+    constructDOMHTMLLinkElementRev          ,+    getDOMHTMLLinkElementRev                ,+    setDOMHTMLLinkElementRev                ,+++-- ** Sheet+    DOMHTMLLinkElementSheetPropertyInfo     ,+    getDOMHTMLLinkElementSheet              ,+++-- ** Target+    DOMHTMLLinkElementTargetPropertyInfo    ,+    constructDOMHTMLLinkElementTarget       ,+    getDOMHTMLLinkElementTarget             ,+    setDOMHTMLLinkElementTarget             ,+++-- ** Type+    DOMHTMLLinkElementTypePropertyInfo      ,+    constructDOMHTMLLinkElementType         ,+    getDOMHTMLLinkElementType               ,+    setDOMHTMLLinkElementType               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLLinkElement = DOMHTMLLinkElement (ForeignPtr DOMHTMLLinkElement)+foreign import ccall "webkit_dom_html_link_element_get_type"+    c_webkit_dom_html_link_element_get_type :: IO GType++type instance ParentTypes DOMHTMLLinkElement = DOMHTMLLinkElementParentTypes+type DOMHTMLLinkElementParentTypes = '[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++noDOMHTMLLinkElement :: Maybe DOMHTMLLinkElement+noDOMHTMLLinkElement = Nothing++-- VVV Prop "charset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text+getDOMHTMLLinkElementCharset obj = liftIO $ getObjectPropertyString obj "charset"++setDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()+setDOMHTMLLinkElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val++constructDOMHTMLLinkElementCharset :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLinkElementCharset val = constructObjectPropertyString "charset" val++data DOMHTMLLinkElementCharsetPropertyInfo+instance AttrInfo DOMHTMLLinkElementCharsetPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementCharsetPropertyInfo = T.Text+    type AttrLabel DOMHTMLLinkElementCharsetPropertyInfo = "DOMHTMLLinkElement::charset"+    attrGet _ = getDOMHTMLLinkElementCharset+    attrSet _ = setDOMHTMLLinkElementCharset+    attrConstruct _ = constructDOMHTMLLinkElementCharset++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m Bool+getDOMHTMLLinkElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> Bool -> m ()+setDOMHTMLLinkElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLLinkElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLLinkElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLLinkElementDisabledPropertyInfo+instance AttrInfo DOMHTMLLinkElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLLinkElementDisabledPropertyInfo = "DOMHTMLLinkElement::disabled"+    attrGet _ = getDOMHTMLLinkElementDisabled+    attrSet _ = setDOMHTMLLinkElementDisabled+    attrConstruct _ = constructDOMHTMLLinkElementDisabled++-- VVV Prop "href"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text+getDOMHTMLLinkElementHref obj = liftIO $ getObjectPropertyString obj "href"++setDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()+setDOMHTMLLinkElementHref obj val = liftIO $ setObjectPropertyString obj "href" val++constructDOMHTMLLinkElementHref :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLinkElementHref val = constructObjectPropertyString "href" val++data DOMHTMLLinkElementHrefPropertyInfo+instance AttrInfo DOMHTMLLinkElementHrefPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementHrefPropertyInfo = T.Text+    type AttrLabel DOMHTMLLinkElementHrefPropertyInfo = "DOMHTMLLinkElement::href"+    attrGet _ = getDOMHTMLLinkElementHref+    attrSet _ = setDOMHTMLLinkElementHref+    attrConstruct _ = constructDOMHTMLLinkElementHref++-- VVV Prop "hreflang"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text+getDOMHTMLLinkElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang"++setDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()+setDOMHTMLLinkElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val++constructDOMHTMLLinkElementHreflang :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLinkElementHreflang val = constructObjectPropertyString "hreflang" val++data DOMHTMLLinkElementHreflangPropertyInfo+instance AttrInfo DOMHTMLLinkElementHreflangPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementHreflangPropertyInfo = T.Text+    type AttrLabel DOMHTMLLinkElementHreflangPropertyInfo = "DOMHTMLLinkElement::hreflang"+    attrGet _ = getDOMHTMLLinkElementHreflang+    attrSet _ = setDOMHTMLLinkElementHreflang+    attrConstruct _ = constructDOMHTMLLinkElementHreflang++-- VVV Prop "media"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text+getDOMHTMLLinkElementMedia obj = liftIO $ getObjectPropertyString obj "media"++setDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()+setDOMHTMLLinkElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val++constructDOMHTMLLinkElementMedia :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLinkElementMedia val = constructObjectPropertyString "media" val++data DOMHTMLLinkElementMediaPropertyInfo+instance AttrInfo DOMHTMLLinkElementMediaPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementMediaPropertyInfo = T.Text+    type AttrLabel DOMHTMLLinkElementMediaPropertyInfo = "DOMHTMLLinkElement::media"+    attrGet _ = getDOMHTMLLinkElementMedia+    attrSet _ = setDOMHTMLLinkElementMedia+    attrConstruct _ = constructDOMHTMLLinkElementMedia++-- VVV Prop "rel"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text+getDOMHTMLLinkElementRel obj = liftIO $ getObjectPropertyString obj "rel"++setDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()+setDOMHTMLLinkElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val++constructDOMHTMLLinkElementRel :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLinkElementRel val = constructObjectPropertyString "rel" val++data DOMHTMLLinkElementRelPropertyInfo+instance AttrInfo DOMHTMLLinkElementRelPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementRelPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLinkElementRelPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementRelPropertyInfo = T.Text+    type AttrLabel DOMHTMLLinkElementRelPropertyInfo = "DOMHTMLLinkElement::rel"+    attrGet _ = getDOMHTMLLinkElementRel+    attrSet _ = setDOMHTMLLinkElementRel+    attrConstruct _ = constructDOMHTMLLinkElementRel++-- VVV Prop "rev"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text+getDOMHTMLLinkElementRev obj = liftIO $ getObjectPropertyString obj "rev"++setDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()+setDOMHTMLLinkElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val++constructDOMHTMLLinkElementRev :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLinkElementRev val = constructObjectPropertyString "rev" val++data DOMHTMLLinkElementRevPropertyInfo+instance AttrInfo DOMHTMLLinkElementRevPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementRevPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLinkElementRevPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementRevPropertyInfo = T.Text+    type AttrLabel DOMHTMLLinkElementRevPropertyInfo = "DOMHTMLLinkElement::rev"+    attrGet _ = getDOMHTMLLinkElementRev+    attrSet _ = setDOMHTMLLinkElementRev+    attrConstruct _ = constructDOMHTMLLinkElementRev++-- VVV Prop "sheet"+   -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheet"+   -- Flags: [PropertyReadable]++getDOMHTMLLinkElementSheet :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m DOMStyleSheet+getDOMHTMLLinkElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet++data DOMHTMLLinkElementSheetPropertyInfo+instance AttrInfo DOMHTMLLinkElementSheetPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementSheetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementSheetPropertyInfo = DOMStyleSheet+    type AttrLabel DOMHTMLLinkElementSheetPropertyInfo = "DOMHTMLLinkElement::sheet"+    attrGet _ = getDOMHTMLLinkElementSheet+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "target"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text+getDOMHTMLLinkElementTarget obj = liftIO $ getObjectPropertyString obj "target"++setDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()+setDOMHTMLLinkElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val++constructDOMHTMLLinkElementTarget :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLinkElementTarget val = constructObjectPropertyString "target" val++data DOMHTMLLinkElementTargetPropertyInfo+instance AttrInfo DOMHTMLLinkElementTargetPropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementTargetPropertyInfo = T.Text+    type AttrLabel DOMHTMLLinkElementTargetPropertyInfo = "DOMHTMLLinkElement::target"+    attrGet _ = getDOMHTMLLinkElementTarget+    attrSet _ = setDOMHTMLLinkElementTarget+    attrConstruct _ = constructDOMHTMLLinkElementTarget++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text+getDOMHTMLLinkElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m ()+setDOMHTMLLinkElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLLinkElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLLinkElementType val = constructObjectPropertyString "type" val++data DOMHTMLLinkElementTypePropertyInfo+instance AttrInfo DOMHTMLLinkElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLLinkElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLLinkElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLLinkElementTypePropertyInfo = DOMHTMLLinkElementK+    type AttrGetType DOMHTMLLinkElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLLinkElementTypePropertyInfo = "DOMHTMLLinkElement::type"+    attrGet _ = getDOMHTMLLinkElementType+    attrSet _ = setDOMHTMLLinkElementType+    attrConstruct _ = constructDOMHTMLLinkElementType++type instance AttributeList DOMHTMLLinkElement = DOMHTMLLinkElementAttributeList+type DOMHTMLLinkElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLLinkElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLLinkElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLLinkElementHrefPropertyInfo), '("hreflang", DOMHTMLLinkElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLLinkElementMediaPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rel", DOMHTMLLinkElementRelPropertyInfo), '("rev", DOMHTMLLinkElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLLinkElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLLinkElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLinkElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLLinkElement = DOMHTMLLinkElementSignalList+type DOMHTMLLinkElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLLinkElement::get_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_charset" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::get_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_href" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::get_hreflang+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_hreflang" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::get_media+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_media" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::get_rel+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_rel" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::get_rev+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_rev" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::get_sheet+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_sheet" result+    result' <- (wrapObject DOMStyleSheet) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::get_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_target" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLLinkElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_type_attr" webkit_dom_html_link_element_get_type_attr :: +    Ptr DOMHTMLLinkElement ->               -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLLinkElement"+    IO CString+++dOMHTMLLinkElementGetTypeAttr ::+    (MonadIO m, DOMHTMLLinkElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLLinkElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_link_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_link_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLLinkElement::set_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++-- method DOMHTMLLinkElement::set_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr" webkit_dom_html_link_element_set_type_attr :: +    Ptr DOMHTMLLinkElement ->               -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLLinkElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLLinkElementSetTypeAttr ::+    (MonadIO m, DOMHTMLLinkElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLLinkElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_link_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLLinkElement.hs-boot view
@@ -0,0 +1,23 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLLinkElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLLinkElement = DOMHTMLLinkElement (ForeignPtr DOMHTMLLinkElement)+instance GObject DOMHTMLLinkElement where+class GObject o => DOMHTMLLinkElementK o+instance (GObject o, IsDescendantOf DOMHTMLLinkElement o) => DOMHTMLLinkElementK o+data DOMHTMLLinkElementCharsetPropertyInfo+data DOMHTMLLinkElementDisabledPropertyInfo+data DOMHTMLLinkElementHrefPropertyInfo+data DOMHTMLLinkElementHreflangPropertyInfo+data DOMHTMLLinkElementMediaPropertyInfo+data DOMHTMLLinkElementRelPropertyInfo+data DOMHTMLLinkElementRevPropertyInfo+data DOMHTMLLinkElementSheetPropertyInfo+data DOMHTMLLinkElementTargetPropertyInfo+data DOMHTMLLinkElementTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs view
@@ -0,0 +1,211 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLMapElement+    ( ++-- * Exported types+    DOMHTMLMapElement(..)                   ,+    DOMHTMLMapElementK                      ,+    toDOMHTMLMapElement                     ,+    noDOMHTMLMapElement                     ,+++ -- * Methods+-- ** dOMHTMLMapElementGetAreas+    dOMHTMLMapElementGetAreas               ,+++-- ** dOMHTMLMapElementGetName+    dOMHTMLMapElementGetName                ,+++-- ** dOMHTMLMapElementSetName+    dOMHTMLMapElementSetName                ,+++++ -- * Properties+-- ** Areas+    DOMHTMLMapElementAreasPropertyInfo      ,+    getDOMHTMLMapElementAreas               ,+++-- ** Name+    DOMHTMLMapElementNamePropertyInfo       ,+    constructDOMHTMLMapElementName          ,+    getDOMHTMLMapElementName                ,+    setDOMHTMLMapElementName                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLMapElement = DOMHTMLMapElement (ForeignPtr DOMHTMLMapElement)+foreign import ccall "webkit_dom_html_map_element_get_type"+    c_webkit_dom_html_map_element_get_type :: IO GType++type instance ParentTypes DOMHTMLMapElement = DOMHTMLMapElementParentTypes+type DOMHTMLMapElementParentTypes = '[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++noDOMHTMLMapElement :: Maybe DOMHTMLMapElement+noDOMHTMLMapElement = Nothing++-- VVV Prop "areas"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLMapElementAreas :: (MonadIO m, DOMHTMLMapElementK o) => o -> m DOMHTMLCollection+getDOMHTMLMapElementAreas obj = liftIO $ getObjectPropertyObject obj "areas" DOMHTMLCollection++data DOMHTMLMapElementAreasPropertyInfo+instance AttrInfo DOMHTMLMapElementAreasPropertyInfo where+    type AttrAllowedOps DOMHTMLMapElementAreasPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMapElementAreasPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLMapElementAreasPropertyInfo = DOMHTMLMapElementK+    type AttrGetType DOMHTMLMapElementAreasPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLMapElementAreasPropertyInfo = "DOMHTMLMapElement::areas"+    attrGet _ = getDOMHTMLMapElementAreas+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> m T.Text+getDOMHTMLMapElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> T.Text -> m ()+setDOMHTMLMapElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLMapElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMapElementName val = constructObjectPropertyString "name" val++data DOMHTMLMapElementNamePropertyInfo+instance AttrInfo DOMHTMLMapElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLMapElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMapElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMapElementNamePropertyInfo = DOMHTMLMapElementK+    type AttrGetType DOMHTMLMapElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLMapElementNamePropertyInfo = "DOMHTMLMapElement::name"+    attrGet _ = getDOMHTMLMapElementName+    attrSet _ = setDOMHTMLMapElementName+    attrConstruct _ = constructDOMHTMLMapElementName++type instance AttributeList DOMHTMLMapElement = DOMHTMLMapElementAttributeList+type DOMHTMLMapElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("areas", DOMHTMLMapElementAreasPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMapElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLMapElement = DOMHTMLMapElementSignalList+type DOMHTMLMapElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLMapElement::get_areas+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_map_element_get_areas" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLMapElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMapElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_map_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLMapElement::set_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLMapElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLMapElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLMapElement = DOMHTMLMapElement (ForeignPtr DOMHTMLMapElement)+instance GObject DOMHTMLMapElement where+class GObject o => DOMHTMLMapElementK o+instance (GObject o, IsDescendantOf DOMHTMLMapElement o) => DOMHTMLMapElementK o+data DOMHTMLMapElementAreasPropertyInfo+data DOMHTMLMapElementNamePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs view
@@ -0,0 +1,461 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLMarqueeElement+    ( ++-- * Exported types+    DOMHTMLMarqueeElement(..)               ,+    DOMHTMLMarqueeElementK                  ,+    toDOMHTMLMarqueeElement                 ,+    noDOMHTMLMarqueeElement                 ,+++ -- * Methods+-- ** dOMHTMLMarqueeElementStart+    dOMHTMLMarqueeElementStart              ,+++-- ** dOMHTMLMarqueeElementStop+    dOMHTMLMarqueeElementStop               ,+++++ -- * Properties+-- ** Behavior+    DOMHTMLMarqueeElementBehaviorPropertyInfo,+    constructDOMHTMLMarqueeElementBehavior  ,+    getDOMHTMLMarqueeElementBehavior        ,+    setDOMHTMLMarqueeElementBehavior        ,+++-- ** BgColor+    DOMHTMLMarqueeElementBgColorPropertyInfo,+    constructDOMHTMLMarqueeElementBgColor   ,+    getDOMHTMLMarqueeElementBgColor         ,+    setDOMHTMLMarqueeElementBgColor         ,+++-- ** Direction+    DOMHTMLMarqueeElementDirectionPropertyInfo,+    constructDOMHTMLMarqueeElementDirection ,+    getDOMHTMLMarqueeElementDirection       ,+    setDOMHTMLMarqueeElementDirection       ,+++-- ** Height+    DOMHTMLMarqueeElementHeightPropertyInfo ,+    constructDOMHTMLMarqueeElementHeight    ,+    getDOMHTMLMarqueeElementHeight          ,+    setDOMHTMLMarqueeElementHeight          ,+++-- ** Hspace+    DOMHTMLMarqueeElementHspacePropertyInfo ,+    constructDOMHTMLMarqueeElementHspace    ,+    getDOMHTMLMarqueeElementHspace          ,+    setDOMHTMLMarqueeElementHspace          ,+++-- ** Loop+    DOMHTMLMarqueeElementLoopPropertyInfo   ,+    constructDOMHTMLMarqueeElementLoop      ,+    getDOMHTMLMarqueeElementLoop            ,+    setDOMHTMLMarqueeElementLoop            ,+++-- ** ScrollAmount+    DOMHTMLMarqueeElementScrollAmountPropertyInfo,+    constructDOMHTMLMarqueeElementScrollAmount,+    getDOMHTMLMarqueeElementScrollAmount    ,+    setDOMHTMLMarqueeElementScrollAmount    ,+++-- ** ScrollDelay+    DOMHTMLMarqueeElementScrollDelayPropertyInfo,+    constructDOMHTMLMarqueeElementScrollDelay,+    getDOMHTMLMarqueeElementScrollDelay     ,+    setDOMHTMLMarqueeElementScrollDelay     ,+++-- ** TrueSpeed+    DOMHTMLMarqueeElementTrueSpeedPropertyInfo,+    constructDOMHTMLMarqueeElementTrueSpeed ,+    getDOMHTMLMarqueeElementTrueSpeed       ,+    setDOMHTMLMarqueeElementTrueSpeed       ,+++-- ** Vspace+    DOMHTMLMarqueeElementVspacePropertyInfo ,+    constructDOMHTMLMarqueeElementVspace    ,+    getDOMHTMLMarqueeElementVspace          ,+    setDOMHTMLMarqueeElementVspace          ,+++-- ** Width+    DOMHTMLMarqueeElementWidthPropertyInfo  ,+    constructDOMHTMLMarqueeElementWidth     ,+    getDOMHTMLMarqueeElementWidth           ,+    setDOMHTMLMarqueeElementWidth           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLMarqueeElement = DOMHTMLMarqueeElement (ForeignPtr DOMHTMLMarqueeElement)+foreign import ccall "webkit_dom_html_marquee_element_get_type"+    c_webkit_dom_html_marquee_element_get_type :: IO GType++type instance ParentTypes DOMHTMLMarqueeElement = DOMHTMLMarqueeElementParentTypes+type DOMHTMLMarqueeElementParentTypes = '[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++noDOMHTMLMarqueeElement :: Maybe DOMHTMLMarqueeElement+noDOMHTMLMarqueeElement = Nothing++-- VVV Prop "behavior"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text+getDOMHTMLMarqueeElementBehavior obj = liftIO $ getObjectPropertyString obj "behavior"++setDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m ()+setDOMHTMLMarqueeElementBehavior obj val = liftIO $ setObjectPropertyString obj "behavior" val++constructDOMHTMLMarqueeElementBehavior :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementBehavior val = constructObjectPropertyString "behavior" val++data DOMHTMLMarqueeElementBehaviorPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementBehaviorPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementBehaviorPropertyInfo = T.Text+    type AttrLabel DOMHTMLMarqueeElementBehaviorPropertyInfo = "DOMHTMLMarqueeElement::behavior"+    attrGet _ = getDOMHTMLMarqueeElementBehavior+    attrSet _ = setDOMHTMLMarqueeElementBehavior+    attrConstruct _ = constructDOMHTMLMarqueeElementBehavior++-- VVV Prop "bg-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text+getDOMHTMLMarqueeElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color"++setDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m ()+setDOMHTMLMarqueeElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val++constructDOMHTMLMarqueeElementBgColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementBgColor val = constructObjectPropertyString "bg-color" val++data DOMHTMLMarqueeElementBgColorPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementBgColorPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementBgColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLMarqueeElementBgColorPropertyInfo = "DOMHTMLMarqueeElement::bg-color"+    attrGet _ = getDOMHTMLMarqueeElementBgColor+    attrSet _ = setDOMHTMLMarqueeElementBgColor+    attrConstruct _ = constructDOMHTMLMarqueeElementBgColor++-- VVV Prop "direction"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text+getDOMHTMLMarqueeElementDirection obj = liftIO $ getObjectPropertyString obj "direction"++setDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m ()+setDOMHTMLMarqueeElementDirection obj val = liftIO $ setObjectPropertyString obj "direction" val++constructDOMHTMLMarqueeElementDirection :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementDirection val = constructObjectPropertyString "direction" val++data DOMHTMLMarqueeElementDirectionPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementDirectionPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementDirectionPropertyInfo = T.Text+    type AttrLabel DOMHTMLMarqueeElementDirectionPropertyInfo = "DOMHTMLMarqueeElement::direction"+    attrGet _ = getDOMHTMLMarqueeElementDirection+    attrSet _ = setDOMHTMLMarqueeElementDirection+    attrConstruct _ = constructDOMHTMLMarqueeElementDirection++-- VVV Prop "height"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text+getDOMHTMLMarqueeElementHeight obj = liftIO $ getObjectPropertyString obj "height"++setDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m ()+setDOMHTMLMarqueeElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val++constructDOMHTMLMarqueeElementHeight :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementHeight val = constructObjectPropertyString "height" val++data DOMHTMLMarqueeElementHeightPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementHeightPropertyInfo = T.Text+    type AttrLabel DOMHTMLMarqueeElementHeightPropertyInfo = "DOMHTMLMarqueeElement::height"+    attrGet _ = getDOMHTMLMarqueeElementHeight+    attrSet _ = setDOMHTMLMarqueeElementHeight+    attrConstruct _ = constructDOMHTMLMarqueeElementHeight++-- VVV Prop "hspace"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64+getDOMHTMLMarqueeElementHspace obj = liftIO $ getObjectPropertyUInt64 obj "hspace"++setDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m ()+setDOMHTMLMarqueeElementHspace obj val = liftIO $ setObjectPropertyUInt64 obj "hspace" val++constructDOMHTMLMarqueeElementHspace :: Word64 -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementHspace val = constructObjectPropertyUInt64 "hspace" val++data DOMHTMLMarqueeElementHspacePropertyInfo+instance AttrInfo DOMHTMLMarqueeElementHspacePropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = (~) Word64+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementHspacePropertyInfo = Word64+    type AttrLabel DOMHTMLMarqueeElementHspacePropertyInfo = "DOMHTMLMarqueeElement::hspace"+    attrGet _ = getDOMHTMLMarqueeElementHspace+    attrSet _ = setDOMHTMLMarqueeElementHspace+    attrConstruct _ = constructDOMHTMLMarqueeElementHspace++-- VVV Prop "loop"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64+getDOMHTMLMarqueeElementLoop obj = liftIO $ getObjectPropertyInt64 obj "loop"++setDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m ()+setDOMHTMLMarqueeElementLoop obj val = liftIO $ setObjectPropertyInt64 obj "loop" val++constructDOMHTMLMarqueeElementLoop :: Int64 -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementLoop val = constructObjectPropertyInt64 "loop" val++data DOMHTMLMarqueeElementLoopPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementLoopPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementLoopPropertyInfo = Int64+    type AttrLabel DOMHTMLMarqueeElementLoopPropertyInfo = "DOMHTMLMarqueeElement::loop"+    attrGet _ = getDOMHTMLMarqueeElementLoop+    attrSet _ = setDOMHTMLMarqueeElementLoop+    attrConstruct _ = constructDOMHTMLMarqueeElementLoop++-- VVV Prop "scroll-amount"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64+getDOMHTMLMarqueeElementScrollAmount obj = liftIO $ getObjectPropertyInt64 obj "scroll-amount"++setDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m ()+setDOMHTMLMarqueeElementScrollAmount obj val = liftIO $ setObjectPropertyInt64 obj "scroll-amount" val++constructDOMHTMLMarqueeElementScrollAmount :: Int64 -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementScrollAmount val = constructObjectPropertyInt64 "scroll-amount" val++data DOMHTMLMarqueeElementScrollAmountPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementScrollAmountPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementScrollAmountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementScrollAmountPropertyInfo = Int64+    type AttrLabel DOMHTMLMarqueeElementScrollAmountPropertyInfo = "DOMHTMLMarqueeElement::scroll-amount"+    attrGet _ = getDOMHTMLMarqueeElementScrollAmount+    attrSet _ = setDOMHTMLMarqueeElementScrollAmount+    attrConstruct _ = constructDOMHTMLMarqueeElementScrollAmount++-- VVV Prop "scroll-delay"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64+getDOMHTMLMarqueeElementScrollDelay obj = liftIO $ getObjectPropertyInt64 obj "scroll-delay"++setDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m ()+setDOMHTMLMarqueeElementScrollDelay obj val = liftIO $ setObjectPropertyInt64 obj "scroll-delay" val++constructDOMHTMLMarqueeElementScrollDelay :: Int64 -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementScrollDelay val = constructObjectPropertyInt64 "scroll-delay" val++data DOMHTMLMarqueeElementScrollDelayPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementScrollDelayPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementScrollDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementScrollDelayPropertyInfo = Int64+    type AttrLabel DOMHTMLMarqueeElementScrollDelayPropertyInfo = "DOMHTMLMarqueeElement::scroll-delay"+    attrGet _ = getDOMHTMLMarqueeElementScrollDelay+    attrSet _ = setDOMHTMLMarqueeElementScrollDelay+    attrConstruct _ = constructDOMHTMLMarqueeElementScrollDelay++-- VVV Prop "true-speed"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Bool+getDOMHTMLMarqueeElementTrueSpeed obj = liftIO $ getObjectPropertyBool obj "true-speed"++setDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Bool -> m ()+setDOMHTMLMarqueeElementTrueSpeed obj val = liftIO $ setObjectPropertyBool obj "true-speed" val++constructDOMHTMLMarqueeElementTrueSpeed :: Bool -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementTrueSpeed val = constructObjectPropertyBool "true-speed" val++data DOMHTMLMarqueeElementTrueSpeedPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementTrueSpeedPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementTrueSpeedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementTrueSpeedPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementTrueSpeedPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementTrueSpeedPropertyInfo = Bool+    type AttrLabel DOMHTMLMarqueeElementTrueSpeedPropertyInfo = "DOMHTMLMarqueeElement::true-speed"+    attrGet _ = getDOMHTMLMarqueeElementTrueSpeed+    attrSet _ = setDOMHTMLMarqueeElementTrueSpeed+    attrConstruct _ = constructDOMHTMLMarqueeElementTrueSpeed++-- VVV Prop "vspace"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64+getDOMHTMLMarqueeElementVspace obj = liftIO $ getObjectPropertyUInt64 obj "vspace"++setDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m ()+setDOMHTMLMarqueeElementVspace obj val = liftIO $ setObjectPropertyUInt64 obj "vspace" val++constructDOMHTMLMarqueeElementVspace :: Word64 -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementVspace val = constructObjectPropertyUInt64 "vspace" val++data DOMHTMLMarqueeElementVspacePropertyInfo+instance AttrInfo DOMHTMLMarqueeElementVspacePropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = (~) Word64+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementVspacePropertyInfo = Word64+    type AttrLabel DOMHTMLMarqueeElementVspacePropertyInfo = "DOMHTMLMarqueeElement::vspace"+    attrGet _ = getDOMHTMLMarqueeElementVspace+    attrSet _ = setDOMHTMLMarqueeElementVspace+    attrConstruct _ = constructDOMHTMLMarqueeElementVspace++-- VVV Prop "width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text+getDOMHTMLMarqueeElementWidth obj = liftIO $ getObjectPropertyString obj "width"++setDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m ()+setDOMHTMLMarqueeElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val++constructDOMHTMLMarqueeElementWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMarqueeElementWidth val = constructObjectPropertyString "width" val++data DOMHTMLMarqueeElementWidthPropertyInfo+instance AttrInfo DOMHTMLMarqueeElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLMarqueeElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = DOMHTMLMarqueeElementK+    type AttrGetType DOMHTMLMarqueeElementWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLMarqueeElementWidthPropertyInfo = "DOMHTMLMarqueeElement::width"+    attrGet _ = getDOMHTMLMarqueeElementWidth+    attrSet _ = setDOMHTMLMarqueeElementWidth+    attrConstruct _ = constructDOMHTMLMarqueeElementWidth++type instance AttributeList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementAttributeList+type DOMHTMLMarqueeElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("behavior", DOMHTMLMarqueeElementBehaviorPropertyInfo), '("bg-color", DOMHTMLMarqueeElementBgColorPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("direction", DOMHTMLMarqueeElementDirectionPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLMarqueeElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLMarqueeElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMarqueeElementLoopPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-amount", DOMHTMLMarqueeElementScrollAmountPropertyInfo), '("scroll-delay", DOMHTMLMarqueeElementScrollDelayPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("true-speed", DOMHTMLMarqueeElementTrueSpeedPropertyInfo), '("vspace", DOMHTMLMarqueeElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLMarqueeElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLMarqueeElement = DOMHTMLMarqueeElementSignalList+type DOMHTMLMarqueeElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLMarqueeElement::start+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLMarqueeElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLMarqueeElement.hs-boot view
@@ -0,0 +1,24 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLMarqueeElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLMarqueeElement = DOMHTMLMarqueeElement (ForeignPtr DOMHTMLMarqueeElement)+instance GObject DOMHTMLMarqueeElement where+class GObject o => DOMHTMLMarqueeElementK o+instance (GObject o, IsDescendantOf DOMHTMLMarqueeElement o) => DOMHTMLMarqueeElementK o+data DOMHTMLMarqueeElementBehaviorPropertyInfo+data DOMHTMLMarqueeElementBgColorPropertyInfo+data DOMHTMLMarqueeElementDirectionPropertyInfo+data DOMHTMLMarqueeElementHeightPropertyInfo+data DOMHTMLMarqueeElementHspacePropertyInfo+data DOMHTMLMarqueeElementLoopPropertyInfo+data DOMHTMLMarqueeElementScrollAmountPropertyInfo+data DOMHTMLMarqueeElementScrollDelayPropertyInfo+data DOMHTMLMarqueeElementTrueSpeedPropertyInfo+data DOMHTMLMarqueeElementVspacePropertyInfo+data DOMHTMLMarqueeElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs view
@@ -0,0 +1,155 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLMenuElement+    ( ++-- * Exported types+    DOMHTMLMenuElement(..)                  ,+    DOMHTMLMenuElementK                     ,+    toDOMHTMLMenuElement                    ,+    noDOMHTMLMenuElement                    ,+++ -- * Methods+-- ** dOMHTMLMenuElementGetCompact+    dOMHTMLMenuElementGetCompact            ,+++-- ** dOMHTMLMenuElementSetCompact+    dOMHTMLMenuElementSetCompact            ,+++++ -- * Properties+-- ** Compact+    DOMHTMLMenuElementCompactPropertyInfo   ,+    constructDOMHTMLMenuElementCompact      ,+    getDOMHTMLMenuElementCompact            ,+    setDOMHTMLMenuElementCompact            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLMenuElement = DOMHTMLMenuElement (ForeignPtr DOMHTMLMenuElement)+foreign import ccall "webkit_dom_html_menu_element_get_type"+    c_webkit_dom_html_menu_element_get_type :: IO GType++type instance ParentTypes DOMHTMLMenuElement = DOMHTMLMenuElementParentTypes+type DOMHTMLMenuElementParentTypes = '[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++noDOMHTMLMenuElement :: Maybe DOMHTMLMenuElement+noDOMHTMLMenuElement = Nothing++-- VVV Prop "compact"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> m Bool+getDOMHTMLMenuElementCompact obj = liftIO $ getObjectPropertyBool obj "compact"++setDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> Bool -> m ()+setDOMHTMLMenuElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val++constructDOMHTMLMenuElementCompact :: Bool -> IO ([Char], GValue)+constructDOMHTMLMenuElementCompact val = constructObjectPropertyBool "compact" val++data DOMHTMLMenuElementCompactPropertyInfo+instance AttrInfo DOMHTMLMenuElementCompactPropertyInfo where+    type AttrAllowedOps DOMHTMLMenuElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMenuElementCompactPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLMenuElementCompactPropertyInfo = DOMHTMLMenuElementK+    type AttrGetType DOMHTMLMenuElementCompactPropertyInfo = Bool+    type AttrLabel DOMHTMLMenuElementCompactPropertyInfo = "DOMHTMLMenuElement::compact"+    attrGet _ = getDOMHTMLMenuElementCompact+    attrSet _ = setDOMHTMLMenuElementCompact+    attrConstruct _ = constructDOMHTMLMenuElementCompact++type instance AttributeList DOMHTMLMenuElement = DOMHTMLMenuElementAttributeList+type DOMHTMLMenuElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLMenuElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLMenuElement = DOMHTMLMenuElementSignalList+type DOMHTMLMenuElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLMenuElement::get_compact+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMenuElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLMenuElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLMenuElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLMenuElement = DOMHTMLMenuElement (ForeignPtr DOMHTMLMenuElement)+instance GObject DOMHTMLMenuElement where+class GObject o => DOMHTMLMenuElementK o+instance (GObject o, IsDescendantOf DOMHTMLMenuElement o) => DOMHTMLMenuElementK o+data DOMHTMLMenuElementCompactPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs view
@@ -0,0 +1,440 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLMetaElement+    ( ++-- * Exported types+    DOMHTMLMetaElement(..)                  ,+    DOMHTMLMetaElementK                     ,+    toDOMHTMLMetaElement                    ,+    noDOMHTMLMetaElement                    ,+++ -- * Methods+-- ** dOMHTMLMetaElementGetContent+    dOMHTMLMetaElementGetContent            ,+++-- ** dOMHTMLMetaElementGetHttpEquiv+    dOMHTMLMetaElementGetHttpEquiv          ,+++-- ** dOMHTMLMetaElementGetName+    dOMHTMLMetaElementGetName               ,+++-- ** dOMHTMLMetaElementGetScheme+    dOMHTMLMetaElementGetScheme             ,+++-- ** dOMHTMLMetaElementSetContent+    dOMHTMLMetaElementSetContent            ,+++-- ** dOMHTMLMetaElementSetHttpEquiv+    dOMHTMLMetaElementSetHttpEquiv          ,+++-- ** dOMHTMLMetaElementSetName+    dOMHTMLMetaElementSetName               ,+++-- ** dOMHTMLMetaElementSetScheme+    dOMHTMLMetaElementSetScheme             ,+++++ -- * Properties+-- ** Content+    DOMHTMLMetaElementContentPropertyInfo   ,+    constructDOMHTMLMetaElementContent      ,+    getDOMHTMLMetaElementContent            ,+    setDOMHTMLMetaElementContent            ,+++-- ** HttpEquiv+    DOMHTMLMetaElementHttpEquivPropertyInfo ,+    constructDOMHTMLMetaElementHttpEquiv    ,+    getDOMHTMLMetaElementHttpEquiv          ,+    setDOMHTMLMetaElementHttpEquiv          ,+++-- ** Name+    DOMHTMLMetaElementNamePropertyInfo      ,+    constructDOMHTMLMetaElementName         ,+    getDOMHTMLMetaElementName               ,+    setDOMHTMLMetaElementName               ,+++-- ** Scheme+    DOMHTMLMetaElementSchemePropertyInfo    ,+    constructDOMHTMLMetaElementScheme       ,+    getDOMHTMLMetaElementScheme             ,+    setDOMHTMLMetaElementScheme             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLMetaElement = DOMHTMLMetaElement (ForeignPtr DOMHTMLMetaElement)+foreign import ccall "webkit_dom_html_meta_element_get_type"+    c_webkit_dom_html_meta_element_get_type :: IO GType++type instance ParentTypes DOMHTMLMetaElement = DOMHTMLMetaElementParentTypes+type DOMHTMLMetaElementParentTypes = '[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++noDOMHTMLMetaElement :: Maybe DOMHTMLMetaElement+noDOMHTMLMetaElement = Nothing++-- VVV Prop "content"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text+getDOMHTMLMetaElementContent obj = liftIO $ getObjectPropertyString obj "content"++setDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m ()+setDOMHTMLMetaElementContent obj val = liftIO $ setObjectPropertyString obj "content" val++constructDOMHTMLMetaElementContent :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMetaElementContent val = constructObjectPropertyString "content" val++data DOMHTMLMetaElementContentPropertyInfo+instance AttrInfo DOMHTMLMetaElementContentPropertyInfo where+    type AttrAllowedOps DOMHTMLMetaElementContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMetaElementContentPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMetaElementContentPropertyInfo = DOMHTMLMetaElementK+    type AttrGetType DOMHTMLMetaElementContentPropertyInfo = T.Text+    type AttrLabel DOMHTMLMetaElementContentPropertyInfo = "DOMHTMLMetaElement::content"+    attrGet _ = getDOMHTMLMetaElementContent+    attrSet _ = setDOMHTMLMetaElementContent+    attrConstruct _ = constructDOMHTMLMetaElementContent++-- VVV Prop "http-equiv"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text+getDOMHTMLMetaElementHttpEquiv obj = liftIO $ getObjectPropertyString obj "http-equiv"++setDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m ()+setDOMHTMLMetaElementHttpEquiv obj val = liftIO $ setObjectPropertyString obj "http-equiv" val++constructDOMHTMLMetaElementHttpEquiv :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMetaElementHttpEquiv val = constructObjectPropertyString "http-equiv" val++data DOMHTMLMetaElementHttpEquivPropertyInfo+instance AttrInfo DOMHTMLMetaElementHttpEquivPropertyInfo where+    type AttrAllowedOps DOMHTMLMetaElementHttpEquivPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = DOMHTMLMetaElementK+    type AttrGetType DOMHTMLMetaElementHttpEquivPropertyInfo = T.Text+    type AttrLabel DOMHTMLMetaElementHttpEquivPropertyInfo = "DOMHTMLMetaElement::http-equiv"+    attrGet _ = getDOMHTMLMetaElementHttpEquiv+    attrSet _ = setDOMHTMLMetaElementHttpEquiv+    attrConstruct _ = constructDOMHTMLMetaElementHttpEquiv++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text+getDOMHTMLMetaElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m ()+setDOMHTMLMetaElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLMetaElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMetaElementName val = constructObjectPropertyString "name" val++data DOMHTMLMetaElementNamePropertyInfo+instance AttrInfo DOMHTMLMetaElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLMetaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMetaElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMetaElementNamePropertyInfo = DOMHTMLMetaElementK+    type AttrGetType DOMHTMLMetaElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLMetaElementNamePropertyInfo = "DOMHTMLMetaElement::name"+    attrGet _ = getDOMHTMLMetaElementName+    attrSet _ = setDOMHTMLMetaElementName+    attrConstruct _ = constructDOMHTMLMetaElementName++-- VVV Prop "scheme"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text+getDOMHTMLMetaElementScheme obj = liftIO $ getObjectPropertyString obj "scheme"++setDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m ()+setDOMHTMLMetaElementScheme obj val = liftIO $ setObjectPropertyString obj "scheme" val++constructDOMHTMLMetaElementScheme :: T.Text -> IO ([Char], GValue)+constructDOMHTMLMetaElementScheme val = constructObjectPropertyString "scheme" val++data DOMHTMLMetaElementSchemePropertyInfo+instance AttrInfo DOMHTMLMetaElementSchemePropertyInfo where+    type AttrAllowedOps DOMHTMLMetaElementSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = DOMHTMLMetaElementK+    type AttrGetType DOMHTMLMetaElementSchemePropertyInfo = T.Text+    type AttrLabel DOMHTMLMetaElementSchemePropertyInfo = "DOMHTMLMetaElement::scheme"+    attrGet _ = getDOMHTMLMetaElementScheme+    attrSet _ = setDOMHTMLMetaElementScheme+    attrConstruct _ = constructDOMHTMLMetaElementScheme++type instance AttributeList DOMHTMLMetaElement = DOMHTMLMetaElementAttributeList+type DOMHTMLMetaElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content", DOMHTMLMetaElementContentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("http-equiv", DOMHTMLMetaElementHttpEquivPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMetaElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scheme", DOMHTMLMetaElementSchemePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLMetaElement = DOMHTMLMetaElementSignalList+type DOMHTMLMetaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLMetaElement::get_content+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_meta_element_get_content" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLMetaElement::get_http_equiv+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_meta_element_get_http_equiv" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLMetaElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_meta_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLMetaElement::get_scheme+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLMetaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_meta_element_get_scheme" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLMetaElement::set_content+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLMetaElement.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLMetaElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLMetaElement = DOMHTMLMetaElement (ForeignPtr DOMHTMLMetaElement)+instance GObject DOMHTMLMetaElement where+class GObject o => DOMHTMLMetaElementK o+instance (GObject o, IsDescendantOf DOMHTMLMetaElement o) => DOMHTMLMetaElementK o+data DOMHTMLMetaElementContentPropertyInfo+data DOMHTMLMetaElementHttpEquivPropertyInfo+data DOMHTMLMetaElementNamePropertyInfo+data DOMHTMLMetaElementSchemePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs view
@@ -0,0 +1,252 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLModElement+    ( ++-- * Exported types+    DOMHTMLModElement(..)                   ,+    DOMHTMLModElementK                      ,+    toDOMHTMLModElement                     ,+    noDOMHTMLModElement                     ,+++ -- * Methods+-- ** dOMHTMLModElementGetCite+    dOMHTMLModElementGetCite                ,+++-- ** dOMHTMLModElementGetDateTime+    dOMHTMLModElementGetDateTime            ,+++-- ** dOMHTMLModElementSetCite+    dOMHTMLModElementSetCite                ,+++-- ** dOMHTMLModElementSetDateTime+    dOMHTMLModElementSetDateTime            ,+++++ -- * Properties+-- ** Cite+    DOMHTMLModElementCitePropertyInfo       ,+    constructDOMHTMLModElementCite          ,+    getDOMHTMLModElementCite                ,+    setDOMHTMLModElementCite                ,+++-- ** DateTime+    DOMHTMLModElementDateTimePropertyInfo   ,+    constructDOMHTMLModElementDateTime      ,+    getDOMHTMLModElementDateTime            ,+    setDOMHTMLModElementDateTime            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLModElement = DOMHTMLModElement (ForeignPtr DOMHTMLModElement)+foreign import ccall "webkit_dom_html_mod_element_get_type"+    c_webkit_dom_html_mod_element_get_type :: IO GType++type instance ParentTypes DOMHTMLModElement = DOMHTMLModElementParentTypes+type DOMHTMLModElementParentTypes = '[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++noDOMHTMLModElement :: Maybe DOMHTMLModElement+noDOMHTMLModElement = Nothing++-- VVV Prop "cite"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text+getDOMHTMLModElementCite obj = liftIO $ getObjectPropertyString obj "cite"++setDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m ()+setDOMHTMLModElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val++constructDOMHTMLModElementCite :: T.Text -> IO ([Char], GValue)+constructDOMHTMLModElementCite val = constructObjectPropertyString "cite" val++data DOMHTMLModElementCitePropertyInfo+instance AttrInfo DOMHTMLModElementCitePropertyInfo where+    type AttrAllowedOps DOMHTMLModElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLModElementCitePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLModElementCitePropertyInfo = DOMHTMLModElementK+    type AttrGetType DOMHTMLModElementCitePropertyInfo = T.Text+    type AttrLabel DOMHTMLModElementCitePropertyInfo = "DOMHTMLModElement::cite"+    attrGet _ = getDOMHTMLModElementCite+    attrSet _ = setDOMHTMLModElementCite+    attrConstruct _ = constructDOMHTMLModElementCite++-- VVV Prop "date-time"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text+getDOMHTMLModElementDateTime obj = liftIO $ getObjectPropertyString obj "date-time"++setDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m ()+setDOMHTMLModElementDateTime obj val = liftIO $ setObjectPropertyString obj "date-time" val++constructDOMHTMLModElementDateTime :: T.Text -> IO ([Char], GValue)+constructDOMHTMLModElementDateTime val = constructObjectPropertyString "date-time" val++data DOMHTMLModElementDateTimePropertyInfo+instance AttrInfo DOMHTMLModElementDateTimePropertyInfo where+    type AttrAllowedOps DOMHTMLModElementDateTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLModElementDateTimePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLModElementDateTimePropertyInfo = DOMHTMLModElementK+    type AttrGetType DOMHTMLModElementDateTimePropertyInfo = T.Text+    type AttrLabel DOMHTMLModElementDateTimePropertyInfo = "DOMHTMLModElement::date-time"+    attrGet _ = getDOMHTMLModElementDateTime+    attrSet _ = setDOMHTMLModElementDateTime+    attrConstruct _ = constructDOMHTMLModElementDateTime++type instance AttributeList DOMHTMLModElement = DOMHTMLModElementAttributeList+type DOMHTMLModElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLModElementCitePropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("date-time", DOMHTMLModElementDateTimePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLModElement = DOMHTMLModElementSignalList+type DOMHTMLModElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLModElement::get_cite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_mod_element_get_cite" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLModElement::get_date_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLModElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_mod_element_get_date_time" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLModElement::set_cite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLModElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLModElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLModElement = DOMHTMLModElement (ForeignPtr DOMHTMLModElement)+instance GObject DOMHTMLModElement where+class GObject o => DOMHTMLModElementK o+instance (GObject o, IsDescendantOf DOMHTMLModElement o) => DOMHTMLModElementK o+data DOMHTMLModElementCitePropertyInfo+data DOMHTMLModElementDateTimePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs view
@@ -0,0 +1,369 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLOListElement+    ( ++-- * Exported types+    DOMHTMLOListElement(..)                 ,+    DOMHTMLOListElementK                    ,+    toDOMHTMLOListElement                   ,+    noDOMHTMLOListElement                   ,+++ -- * Methods+-- ** dOMHTMLOListElementGetCompact+    dOMHTMLOListElementGetCompact           ,+++-- ** dOMHTMLOListElementGetStart+    dOMHTMLOListElementGetStart             ,+++-- ** dOMHTMLOListElementGetTypeAttr+    dOMHTMLOListElementGetTypeAttr          ,+++-- ** dOMHTMLOListElementSetCompact+    dOMHTMLOListElementSetCompact           ,+++-- ** dOMHTMLOListElementSetStart+    dOMHTMLOListElementSetStart             ,+++-- ** dOMHTMLOListElementSetTypeAttr+    dOMHTMLOListElementSetTypeAttr          ,+++++ -- * Properties+-- ** Compact+    DOMHTMLOListElementCompactPropertyInfo  ,+    constructDOMHTMLOListElementCompact     ,+    getDOMHTMLOListElementCompact           ,+    setDOMHTMLOListElementCompact           ,+++-- ** Reversed+    DOMHTMLOListElementReversedPropertyInfo ,+    constructDOMHTMLOListElementReversed    ,+    getDOMHTMLOListElementReversed          ,+    setDOMHTMLOListElementReversed          ,+++-- ** Start+    DOMHTMLOListElementStartPropertyInfo    ,+    constructDOMHTMLOListElementStart       ,+    getDOMHTMLOListElementStart             ,+    setDOMHTMLOListElementStart             ,+++-- ** Type+    DOMHTMLOListElementTypePropertyInfo     ,+    constructDOMHTMLOListElementType        ,+    getDOMHTMLOListElementType              ,+    setDOMHTMLOListElementType              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLOListElement = DOMHTMLOListElement (ForeignPtr DOMHTMLOListElement)+foreign import ccall "webkit_dom_html_o_list_element_get_type"+    c_webkit_dom_html_o_list_element_get_type :: IO GType++type instance ParentTypes DOMHTMLOListElement = DOMHTMLOListElementParentTypes+type DOMHTMLOListElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]++instance GObject DOMHTMLOListElement where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_dom_html_o_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++noDOMHTMLOListElement :: Maybe DOMHTMLOListElement+noDOMHTMLOListElement = Nothing++-- VVV Prop "compact"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool+getDOMHTMLOListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact"++setDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> Bool -> m ()+setDOMHTMLOListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val++constructDOMHTMLOListElementCompact :: Bool -> IO ([Char], GValue)+constructDOMHTMLOListElementCompact val = constructObjectPropertyBool "compact" val++data DOMHTMLOListElementCompactPropertyInfo+instance AttrInfo DOMHTMLOListElementCompactPropertyInfo where+    type AttrAllowedOps DOMHTMLOListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOListElementCompactPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLOListElementCompactPropertyInfo = DOMHTMLOListElementK+    type AttrGetType DOMHTMLOListElementCompactPropertyInfo = Bool+    type AttrLabel DOMHTMLOListElementCompactPropertyInfo = "DOMHTMLOListElement::compact"+    attrGet _ = getDOMHTMLOListElementCompact+    attrSet _ = setDOMHTMLOListElementCompact+    attrConstruct _ = constructDOMHTMLOListElementCompact++-- VVV Prop "reversed"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool+getDOMHTMLOListElementReversed obj = liftIO $ getObjectPropertyBool obj "reversed"++setDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> Bool -> m ()+setDOMHTMLOListElementReversed obj val = liftIO $ setObjectPropertyBool obj "reversed" val++constructDOMHTMLOListElementReversed :: Bool -> IO ([Char], GValue)+constructDOMHTMLOListElementReversed val = constructObjectPropertyBool "reversed" val++data DOMHTMLOListElementReversedPropertyInfo+instance AttrInfo DOMHTMLOListElementReversedPropertyInfo where+    type AttrAllowedOps DOMHTMLOListElementReversedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOListElementReversedPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLOListElementReversedPropertyInfo = DOMHTMLOListElementK+    type AttrGetType DOMHTMLOListElementReversedPropertyInfo = Bool+    type AttrLabel DOMHTMLOListElementReversedPropertyInfo = "DOMHTMLOListElement::reversed"+    attrGet _ = getDOMHTMLOListElementReversed+    attrSet _ = setDOMHTMLOListElementReversed+    attrConstruct _ = constructDOMHTMLOListElementReversed++-- VVV Prop "start"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Int64+getDOMHTMLOListElementStart obj = liftIO $ getObjectPropertyInt64 obj "start"++setDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> Int64 -> m ()+setDOMHTMLOListElementStart obj val = liftIO $ setObjectPropertyInt64 obj "start" val++constructDOMHTMLOListElementStart :: Int64 -> IO ([Char], GValue)+constructDOMHTMLOListElementStart val = constructObjectPropertyInt64 "start" val++data DOMHTMLOListElementStartPropertyInfo+instance AttrInfo DOMHTMLOListElementStartPropertyInfo where+    type AttrAllowedOps DOMHTMLOListElementStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOListElementStartPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLOListElementStartPropertyInfo = DOMHTMLOListElementK+    type AttrGetType DOMHTMLOListElementStartPropertyInfo = Int64+    type AttrLabel DOMHTMLOListElementStartPropertyInfo = "DOMHTMLOListElement::start"+    attrGet _ = getDOMHTMLOListElementStart+    attrSet _ = setDOMHTMLOListElementStart+    attrConstruct _ = constructDOMHTMLOListElementStart++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m T.Text+getDOMHTMLOListElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> T.Text -> m ()+setDOMHTMLOListElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLOListElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLOListElementType val = constructObjectPropertyString "type" val++data DOMHTMLOListElementTypePropertyInfo+instance AttrInfo DOMHTMLOListElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLOListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOListElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLOListElementTypePropertyInfo = DOMHTMLOListElementK+    type AttrGetType DOMHTMLOListElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLOListElementTypePropertyInfo = "DOMHTMLOListElement::type"+    attrGet _ = getDOMHTMLOListElementType+    attrSet _ = setDOMHTMLOListElementType+    attrConstruct _ = constructDOMHTMLOListElementType++type instance AttributeList DOMHTMLOListElement = DOMHTMLOListElementAttributeList+type DOMHTMLOListElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLOListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("reversed", DOMHTMLOListElementReversedPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("start", DOMHTMLOListElementStartPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLOListElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLOListElement = DOMHTMLOListElementSignalList+type DOMHTMLOListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLOListElement::get_compact+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_o_list_element_get_compact" webkit_dom_html_o_list_element_get_compact :: +    Ptr DOMHTMLOListElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLOListElement"+    IO CInt+++dOMHTMLOListElementGetCompact ::+    (MonadIO m, DOMHTMLOListElementK a) =>+    a ->                                    -- _obj+    m Bool+dOMHTMLOListElementGetCompact _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_o_list_element_get_compact _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLOListElement::get_start+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_o_list_element_get_start" webkit_dom_html_o_list_element_get_start :: +    Ptr DOMHTMLOListElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLOListElement"+    IO Int64+++dOMHTMLOListElementGetStart ::+    (MonadIO m, DOMHTMLOListElementK a) =>+    a ->                                    -- _obj+    m Int64+dOMHTMLOListElementGetStart _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_o_list_element_get_start _obj'+    touchManagedPtr _obj+    return result++-- method DOMHTMLOListElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_html_o_list_element_get_type_attr" webkit_dom_html_o_list_element_get_type_attr :: +    Ptr DOMHTMLOListElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLOListElement"+    IO CString+++dOMHTMLOListElementGetTypeAttr ::+    (MonadIO m, DOMHTMLOListElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLOListElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_o_list_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_o_list_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLOListElement::set_compact+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_o_list_element_set_compact" webkit_dom_html_o_list_element_set_compact :: +    Ptr DOMHTMLOListElement ->              -- _obj : TInterface "WebKit2WebExtension" "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_html_o_list_element_set_compact _obj' value'+    touchManagedPtr _obj+    return ()++-- method DOMHTMLOListElement::set_start+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_o_list_element_set_start" webkit_dom_html_o_list_element_set_start :: +    Ptr DOMHTMLOListElement ->              -- _obj : TInterface "WebKit2WebExtension" "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_html_o_list_element_set_start _obj' value+    touchManagedPtr _obj+    return ()++-- method DOMHTMLOListElement::set_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_html_o_list_element_set_type_attr" webkit_dom_html_o_list_element_set_type_attr :: +    Ptr DOMHTMLOListElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLOListElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLOListElementSetTypeAttr ::+    (MonadIO m, DOMHTMLOListElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLOListElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_o_list_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLOListElement.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLOListElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLOListElement = DOMHTMLOListElement (ForeignPtr DOMHTMLOListElement)+instance GObject DOMHTMLOListElement where+class GObject o => DOMHTMLOListElementK o+instance (GObject o, IsDescendantOf DOMHTMLOListElement o) => DOMHTMLOListElementK o+data DOMHTMLOListElementCompactPropertyInfo+data DOMHTMLOListElementReversedPropertyInfo+data DOMHTMLOListElementStartPropertyInfo+data DOMHTMLOListElementTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs view
@@ -0,0 +1,1707 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLObjectElement+    ( ++-- * Exported types+    DOMHTMLObjectElement(..)                ,+    DOMHTMLObjectElementK                   ,+    toDOMHTMLObjectElement                  ,+    noDOMHTMLObjectElement                  ,+++ -- * Methods+-- ** dOMHTMLObjectElementGetAlign+    dOMHTMLObjectElementGetAlign            ,+++-- ** dOMHTMLObjectElementGetArchive+    dOMHTMLObjectElementGetArchive          ,+++-- ** dOMHTMLObjectElementGetBorder+    dOMHTMLObjectElementGetBorder           ,+++-- ** dOMHTMLObjectElementGetCode+    dOMHTMLObjectElementGetCode             ,+++-- ** dOMHTMLObjectElementGetCodeBase+    dOMHTMLObjectElementGetCodeBase         ,+++-- ** dOMHTMLObjectElementGetCodeType+    dOMHTMLObjectElementGetCodeType         ,+++-- ** dOMHTMLObjectElementGetContentDocument+    dOMHTMLObjectElementGetContentDocument  ,+++-- ** dOMHTMLObjectElementGetData+    dOMHTMLObjectElementGetData             ,+++-- ** dOMHTMLObjectElementGetDeclare+    dOMHTMLObjectElementGetDeclare          ,+++-- ** dOMHTMLObjectElementGetForm+    dOMHTMLObjectElementGetForm             ,+++-- ** dOMHTMLObjectElementGetHeight+    dOMHTMLObjectElementGetHeight           ,+++-- ** dOMHTMLObjectElementGetHspace+    dOMHTMLObjectElementGetHspace           ,+++-- ** dOMHTMLObjectElementGetName+    dOMHTMLObjectElementGetName             ,+++-- ** dOMHTMLObjectElementGetStandby+    dOMHTMLObjectElementGetStandby          ,+++-- ** dOMHTMLObjectElementGetTypeAttr+    dOMHTMLObjectElementGetTypeAttr         ,+++-- ** dOMHTMLObjectElementGetUseMap+    dOMHTMLObjectElementGetUseMap           ,+++-- ** dOMHTMLObjectElementGetVspace+    dOMHTMLObjectElementGetVspace           ,+++-- ** dOMHTMLObjectElementGetWidth+    dOMHTMLObjectElementGetWidth            ,+++-- ** dOMHTMLObjectElementSetAlign+    dOMHTMLObjectElementSetAlign            ,+++-- ** dOMHTMLObjectElementSetArchive+    dOMHTMLObjectElementSetArchive          ,+++-- ** dOMHTMLObjectElementSetBorder+    dOMHTMLObjectElementSetBorder           ,+++-- ** dOMHTMLObjectElementSetCode+    dOMHTMLObjectElementSetCode             ,+++-- ** dOMHTMLObjectElementSetCodeBase+    dOMHTMLObjectElementSetCodeBase         ,+++-- ** dOMHTMLObjectElementSetCodeType+    dOMHTMLObjectElementSetCodeType         ,+++-- ** dOMHTMLObjectElementSetData+    dOMHTMLObjectElementSetData             ,+++-- ** dOMHTMLObjectElementSetDeclare+    dOMHTMLObjectElementSetDeclare          ,+++-- ** dOMHTMLObjectElementSetHeight+    dOMHTMLObjectElementSetHeight           ,+++-- ** dOMHTMLObjectElementSetHspace+    dOMHTMLObjectElementSetHspace           ,+++-- ** dOMHTMLObjectElementSetName+    dOMHTMLObjectElementSetName             ,+++-- ** dOMHTMLObjectElementSetStandby+    dOMHTMLObjectElementSetStandby          ,+++-- ** dOMHTMLObjectElementSetTypeAttr+    dOMHTMLObjectElementSetTypeAttr         ,+++-- ** dOMHTMLObjectElementSetUseMap+    dOMHTMLObjectElementSetUseMap           ,+++-- ** dOMHTMLObjectElementSetVspace+    dOMHTMLObjectElementSetVspace           ,+++-- ** dOMHTMLObjectElementSetWidth+    dOMHTMLObjectElementSetWidth            ,+++++ -- * Properties+-- ** Align+    DOMHTMLObjectElementAlignPropertyInfo   ,+    constructDOMHTMLObjectElementAlign      ,+    getDOMHTMLObjectElementAlign            ,+    setDOMHTMLObjectElementAlign            ,+++-- ** Archive+    DOMHTMLObjectElementArchivePropertyInfo ,+    constructDOMHTMLObjectElementArchive    ,+    getDOMHTMLObjectElementArchive          ,+    setDOMHTMLObjectElementArchive          ,+++-- ** Border+    DOMHTMLObjectElementBorderPropertyInfo  ,+    constructDOMHTMLObjectElementBorder     ,+    getDOMHTMLObjectElementBorder           ,+    setDOMHTMLObjectElementBorder           ,+++-- ** Code+    DOMHTMLObjectElementCodePropertyInfo    ,+    constructDOMHTMLObjectElementCode       ,+    getDOMHTMLObjectElementCode             ,+    setDOMHTMLObjectElementCode             ,+++-- ** CodeBase+    DOMHTMLObjectElementCodeBasePropertyInfo,+    constructDOMHTMLObjectElementCodeBase   ,+    getDOMHTMLObjectElementCodeBase         ,+    setDOMHTMLObjectElementCodeBase         ,+++-- ** CodeType+    DOMHTMLObjectElementCodeTypePropertyInfo,+    constructDOMHTMLObjectElementCodeType   ,+    getDOMHTMLObjectElementCodeType         ,+    setDOMHTMLObjectElementCodeType         ,+++-- ** ContentDocument+    DOMHTMLObjectElementContentDocumentPropertyInfo,+    getDOMHTMLObjectElementContentDocument  ,+++-- ** Data+    DOMHTMLObjectElementDataPropertyInfo    ,+    constructDOMHTMLObjectElementData       ,+    getDOMHTMLObjectElementData             ,+    setDOMHTMLObjectElementData             ,+++-- ** Declare+    DOMHTMLObjectElementDeclarePropertyInfo ,+    constructDOMHTMLObjectElementDeclare    ,+    getDOMHTMLObjectElementDeclare          ,+    setDOMHTMLObjectElementDeclare          ,+++-- ** Form+    DOMHTMLObjectElementFormPropertyInfo    ,+    getDOMHTMLObjectElementForm             ,+++-- ** Height+    DOMHTMLObjectElementHeightPropertyInfo  ,+    constructDOMHTMLObjectElementHeight     ,+    getDOMHTMLObjectElementHeight           ,+    setDOMHTMLObjectElementHeight           ,+++-- ** Hspace+    DOMHTMLObjectElementHspacePropertyInfo  ,+    constructDOMHTMLObjectElementHspace     ,+    getDOMHTMLObjectElementHspace           ,+    setDOMHTMLObjectElementHspace           ,+++-- ** Name+    DOMHTMLObjectElementNamePropertyInfo    ,+    constructDOMHTMLObjectElementName       ,+    getDOMHTMLObjectElementName             ,+    setDOMHTMLObjectElementName             ,+++-- ** Standby+    DOMHTMLObjectElementStandbyPropertyInfo ,+    constructDOMHTMLObjectElementStandby    ,+    getDOMHTMLObjectElementStandby          ,+    setDOMHTMLObjectElementStandby          ,+++-- ** Type+    DOMHTMLObjectElementTypePropertyInfo    ,+    constructDOMHTMLObjectElementType       ,+    getDOMHTMLObjectElementType             ,+    setDOMHTMLObjectElementType             ,+++-- ** UseMap+    DOMHTMLObjectElementUseMapPropertyInfo  ,+    constructDOMHTMLObjectElementUseMap     ,+    getDOMHTMLObjectElementUseMap           ,+    setDOMHTMLObjectElementUseMap           ,+++-- ** ValidationMessage+    DOMHTMLObjectElementValidationMessagePropertyInfo,+    getDOMHTMLObjectElementValidationMessage,+++-- ** Vspace+    DOMHTMLObjectElementVspacePropertyInfo  ,+    constructDOMHTMLObjectElementVspace     ,+    getDOMHTMLObjectElementVspace           ,+    setDOMHTMLObjectElementVspace           ,+++-- ** Width+    DOMHTMLObjectElementWidthPropertyInfo   ,+    constructDOMHTMLObjectElementWidth      ,+    getDOMHTMLObjectElementWidth            ,+    setDOMHTMLObjectElementWidth            ,+++-- ** WillValidate+    DOMHTMLObjectElementWillValidatePropertyInfo,+    getDOMHTMLObjectElementWillValidate     ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLObjectElement = DOMHTMLObjectElement (ForeignPtr DOMHTMLObjectElement)+foreign import ccall "webkit_dom_html_object_element_get_type"+    c_webkit_dom_html_object_element_get_type :: IO GType++type instance ParentTypes DOMHTMLObjectElement = DOMHTMLObjectElementParentTypes+type DOMHTMLObjectElementParentTypes = '[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++noDOMHTMLObjectElement :: Maybe DOMHTMLObjectElement+noDOMHTMLObjectElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLObjectElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLObjectElementAlignPropertyInfo+instance AttrInfo DOMHTMLObjectElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementAlignPropertyInfo = "DOMHTMLObjectElement::align"+    attrGet _ = getDOMHTMLObjectElementAlign+    attrSet _ = setDOMHTMLObjectElementAlign+    attrConstruct _ = constructDOMHTMLObjectElementAlign++-- VVV Prop "archive"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementArchive obj = liftIO $ getObjectPropertyString obj "archive"++setDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val++constructDOMHTMLObjectElementArchive :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementArchive val = constructObjectPropertyString "archive" val++data DOMHTMLObjectElementArchivePropertyInfo+instance AttrInfo DOMHTMLObjectElementArchivePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementArchivePropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementArchivePropertyInfo = "DOMHTMLObjectElement::archive"+    attrGet _ = getDOMHTMLObjectElementArchive+    attrSet _ = setDOMHTMLObjectElementArchive+    attrConstruct _ = constructDOMHTMLObjectElementArchive++-- VVV Prop "border"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementBorder obj = liftIO $ getObjectPropertyString obj "border"++setDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val++constructDOMHTMLObjectElementBorder :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementBorder val = constructObjectPropertyString "border" val++data DOMHTMLObjectElementBorderPropertyInfo+instance AttrInfo DOMHTMLObjectElementBorderPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementBorderPropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementBorderPropertyInfo = "DOMHTMLObjectElement::border"+    attrGet _ = getDOMHTMLObjectElementBorder+    attrSet _ = setDOMHTMLObjectElementBorder+    attrConstruct _ = constructDOMHTMLObjectElementBorder++-- VVV Prop "code"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementCode obj = liftIO $ getObjectPropertyString obj "code"++setDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementCode obj val = liftIO $ setObjectPropertyString obj "code" val++constructDOMHTMLObjectElementCode :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementCode val = constructObjectPropertyString "code" val++data DOMHTMLObjectElementCodePropertyInfo+instance AttrInfo DOMHTMLObjectElementCodePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementCodePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementCodePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementCodePropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementCodePropertyInfo = "DOMHTMLObjectElement::code"+    attrGet _ = getDOMHTMLObjectElementCode+    attrSet _ = setDOMHTMLObjectElementCode+    attrConstruct _ = constructDOMHTMLObjectElementCode++-- VVV Prop "code-base"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base"++setDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val++constructDOMHTMLObjectElementCodeBase :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementCodeBase val = constructObjectPropertyString "code-base" val++data DOMHTMLObjectElementCodeBasePropertyInfo+instance AttrInfo DOMHTMLObjectElementCodeBasePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementCodeBasePropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementCodeBasePropertyInfo = "DOMHTMLObjectElement::code-base"+    attrGet _ = getDOMHTMLObjectElementCodeBase+    attrSet _ = setDOMHTMLObjectElementCodeBase+    attrConstruct _ = constructDOMHTMLObjectElementCodeBase++-- VVV Prop "code-type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementCodeType obj = liftIO $ getObjectPropertyString obj "code-type"++setDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementCodeType obj val = liftIO $ setObjectPropertyString obj "code-type" val++constructDOMHTMLObjectElementCodeType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementCodeType val = constructObjectPropertyString "code-type" val++data DOMHTMLObjectElementCodeTypePropertyInfo+instance AttrInfo DOMHTMLObjectElementCodeTypePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementCodeTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementCodeTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementCodeTypePropertyInfo = "DOMHTMLObjectElement::code-type"+    attrGet _ = getDOMHTMLObjectElementCodeType+    attrSet _ = setDOMHTMLObjectElementCodeType+    attrConstruct _ = constructDOMHTMLObjectElementCodeType++-- VVV Prop "content-document"+   -- Type: TInterface "WebKit2WebExtension" "DOMDocument"+   -- Flags: [PropertyReadable]++getDOMHTMLObjectElementContentDocument :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMDocument+getDOMHTMLObjectElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument++data DOMHTMLObjectElementContentDocumentPropertyInfo+instance AttrInfo DOMHTMLObjectElementContentDocumentPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementContentDocumentPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementContentDocumentPropertyInfo = DOMDocument+    type AttrLabel DOMHTMLObjectElementContentDocumentPropertyInfo = "DOMHTMLObjectElement::content-document"+    attrGet _ = getDOMHTMLObjectElementContentDocument+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "data"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementData obj = liftIO $ getObjectPropertyString obj "data"++setDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementData obj val = liftIO $ setObjectPropertyString obj "data" val++constructDOMHTMLObjectElementData :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementData val = constructObjectPropertyString "data" val++data DOMHTMLObjectElementDataPropertyInfo+instance AttrInfo DOMHTMLObjectElementDataPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementDataPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementDataPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementDataPropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementDataPropertyInfo = "DOMHTMLObjectElement::data"+    attrGet _ = getDOMHTMLObjectElementData+    attrSet _ = setDOMHTMLObjectElementData+    attrConstruct _ = constructDOMHTMLObjectElementData++-- VVV Prop "declare"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool+getDOMHTMLObjectElementDeclare obj = liftIO $ getObjectPropertyBool obj "declare"++setDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Bool -> m ()+setDOMHTMLObjectElementDeclare obj val = liftIO $ setObjectPropertyBool obj "declare" val++constructDOMHTMLObjectElementDeclare :: Bool -> IO ([Char], GValue)+constructDOMHTMLObjectElementDeclare val = constructObjectPropertyBool "declare" val++data DOMHTMLObjectElementDeclarePropertyInfo+instance AttrInfo DOMHTMLObjectElementDeclarePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementDeclarePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementDeclarePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLObjectElementDeclarePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementDeclarePropertyInfo = Bool+    type AttrLabel DOMHTMLObjectElementDeclarePropertyInfo = "DOMHTMLObjectElement::declare"+    attrGet _ = getDOMHTMLObjectElementDeclare+    attrSet _ = setDOMHTMLObjectElementDeclare+    attrConstruct _ = constructDOMHTMLObjectElementDeclare++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLObjectElementForm :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLObjectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLObjectElementFormPropertyInfo+instance AttrInfo DOMHTMLObjectElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLObjectElementFormPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLObjectElementFormPropertyInfo = "DOMHTMLObjectElement::form"+    attrGet _ = getDOMHTMLObjectElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "height"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementHeight obj = liftIO $ getObjectPropertyString obj "height"++setDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val++constructDOMHTMLObjectElementHeight :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementHeight val = constructObjectPropertyString "height" val++data DOMHTMLObjectElementHeightPropertyInfo+instance AttrInfo DOMHTMLObjectElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementHeightPropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementHeightPropertyInfo = "DOMHTMLObjectElement::height"+    attrGet _ = getDOMHTMLObjectElementHeight+    attrSet _ = setDOMHTMLObjectElementHeight+    attrConstruct _ = constructDOMHTMLObjectElementHeight++-- VVV Prop "hspace"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64+getDOMHTMLObjectElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace"++setDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m ()+setDOMHTMLObjectElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val++constructDOMHTMLObjectElementHspace :: Int64 -> IO ([Char], GValue)+constructDOMHTMLObjectElementHspace val = constructObjectPropertyInt64 "hspace" val++data DOMHTMLObjectElementHspacePropertyInfo+instance AttrInfo DOMHTMLObjectElementHspacePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementHspacePropertyInfo = Int64+    type AttrLabel DOMHTMLObjectElementHspacePropertyInfo = "DOMHTMLObjectElement::hspace"+    attrGet _ = getDOMHTMLObjectElementHspace+    attrSet _ = setDOMHTMLObjectElementHspace+    attrConstruct _ = constructDOMHTMLObjectElementHspace++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLObjectElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementName val = constructObjectPropertyString "name" val++data DOMHTMLObjectElementNamePropertyInfo+instance AttrInfo DOMHTMLObjectElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementNamePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementNamePropertyInfo = "DOMHTMLObjectElement::name"+    attrGet _ = getDOMHTMLObjectElementName+    attrSet _ = setDOMHTMLObjectElementName+    attrConstruct _ = constructDOMHTMLObjectElementName++-- VVV Prop "standby"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementStandby obj = liftIO $ getObjectPropertyString obj "standby"++setDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementStandby obj val = liftIO $ setObjectPropertyString obj "standby" val++constructDOMHTMLObjectElementStandby :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementStandby val = constructObjectPropertyString "standby" val++data DOMHTMLObjectElementStandbyPropertyInfo+instance AttrInfo DOMHTMLObjectElementStandbyPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementStandbyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementStandbyPropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementStandbyPropertyInfo = "DOMHTMLObjectElement::standby"+    attrGet _ = getDOMHTMLObjectElementStandby+    attrSet _ = setDOMHTMLObjectElementStandby+    attrConstruct _ = constructDOMHTMLObjectElementStandby++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLObjectElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementType val = constructObjectPropertyString "type" val++data DOMHTMLObjectElementTypePropertyInfo+instance AttrInfo DOMHTMLObjectElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementTypePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementTypePropertyInfo = "DOMHTMLObjectElement::type"+    attrGet _ = getDOMHTMLObjectElementType+    attrSet _ = setDOMHTMLObjectElementType+    attrConstruct _ = constructDOMHTMLObjectElementType++-- VVV Prop "use-map"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map"++setDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val++constructDOMHTMLObjectElementUseMap :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementUseMap val = constructObjectPropertyString "use-map" val++data DOMHTMLObjectElementUseMapPropertyInfo+instance AttrInfo DOMHTMLObjectElementUseMapPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementUseMapPropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementUseMapPropertyInfo = "DOMHTMLObjectElement::use-map"+    attrGet _ = getDOMHTMLObjectElementUseMap+    attrSet _ = setDOMHTMLObjectElementUseMap+    attrConstruct _ = constructDOMHTMLObjectElementUseMap++-- VVV Prop "validation-message"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLObjectElementValidationMessage :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message"++data DOMHTMLObjectElementValidationMessagePropertyInfo+instance AttrInfo DOMHTMLObjectElementValidationMessagePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementValidationMessagePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementValidationMessagePropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementValidationMessagePropertyInfo = "DOMHTMLObjectElement::validation-message"+    attrGet _ = getDOMHTMLObjectElementValidationMessage+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "vspace"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64+getDOMHTMLObjectElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace"++setDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m ()+setDOMHTMLObjectElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val++constructDOMHTMLObjectElementVspace :: Int64 -> IO ([Char], GValue)+constructDOMHTMLObjectElementVspace val = constructObjectPropertyInt64 "vspace" val++data DOMHTMLObjectElementVspacePropertyInfo+instance AttrInfo DOMHTMLObjectElementVspacePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementVspacePropertyInfo = Int64+    type AttrLabel DOMHTMLObjectElementVspacePropertyInfo = "DOMHTMLObjectElement::vspace"+    attrGet _ = getDOMHTMLObjectElementVspace+    attrSet _ = setDOMHTMLObjectElementVspace+    attrConstruct _ = constructDOMHTMLObjectElementVspace++-- VVV Prop "width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text+getDOMHTMLObjectElementWidth obj = liftIO $ getObjectPropertyString obj "width"++setDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m ()+setDOMHTMLObjectElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val++constructDOMHTMLObjectElementWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLObjectElementWidth val = constructObjectPropertyString "width" val++data DOMHTMLObjectElementWidthPropertyInfo+instance AttrInfo DOMHTMLObjectElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLObjectElementWidthPropertyInfo = "DOMHTMLObjectElement::width"+    attrGet _ = getDOMHTMLObjectElementWidth+    attrSet _ = setDOMHTMLObjectElementWidth+    attrConstruct _ = constructDOMHTMLObjectElementWidth++-- VVV Prop "will-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMHTMLObjectElementWillValidate :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool+getDOMHTMLObjectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate"++data DOMHTMLObjectElementWillValidatePropertyInfo+instance AttrInfo DOMHTMLObjectElementWillValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLObjectElementWillValidatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLObjectElementWillValidatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLObjectElementWillValidatePropertyInfo = DOMHTMLObjectElementK+    type AttrGetType DOMHTMLObjectElementWillValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLObjectElementWillValidatePropertyInfo = "DOMHTMLObjectElement::will-validate"+    attrGet _ = getDOMHTMLObjectElementWillValidate+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLObjectElement = DOMHTMLObjectElementAttributeList+type DOMHTMLObjectElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLObjectElementAlignPropertyInfo), '("archive", DOMHTMLObjectElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLObjectElementBorderPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLObjectElementCodePropertyInfo), '("code-base", DOMHTMLObjectElementCodeBasePropertyInfo), '("code-type", DOMHTMLObjectElementCodeTypePropertyInfo), '("content-document", DOMHTMLObjectElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMHTMLObjectElementDataPropertyInfo), '("declare", DOMHTMLObjectElementDeclarePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLObjectElementFormPropertyInfo), '("height", DOMHTMLObjectElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLObjectElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLObjectElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("standby", DOMHTMLObjectElementStandbyPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLObjectElementTypePropertyInfo), '("use-map", DOMHTMLObjectElementUseMapPropertyInfo), '("validation-message", DOMHTMLObjectElementValidationMessagePropertyInfo), '("vspace", DOMHTMLObjectElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLObjectElementWidthPropertyInfo), '("will-validate", DOMHTMLObjectElementWillValidatePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLObjectElement = DOMHTMLObjectElementSignalList+type DOMHTMLObjectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLObjectElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_archive+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_archive" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_border+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_border" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_code+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_code" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_code_base+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_code_base" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_code_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_code_type" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_content_document+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_content_document" result+    result' <- (newObject DOMDocument) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_data" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_declare+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_height" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_hspace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_standby+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_standby" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_type_attr" webkit_dom_html_object_element_get_type_attr :: +    Ptr DOMHTMLObjectElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLObjectElement"+    IO CString+++dOMHTMLObjectElementGetTypeAttr ::+    (MonadIO m, DOMHTMLObjectElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLObjectElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_object_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_use_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_use_map" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::get_vspace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLObjectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_object_element_get_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLObjectElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr" webkit_dom_html_object_element_set_type_attr :: +    Ptr DOMHTMLObjectElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLObjectElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLObjectElementSetTypeAttr ::+    (MonadIO m, DOMHTMLObjectElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLObjectElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_object_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method DOMHTMLObjectElement::set_use_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLObjectElement.hs-boot view
@@ -0,0 +1,33 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLObjectElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLObjectElement = DOMHTMLObjectElement (ForeignPtr DOMHTMLObjectElement)+instance GObject DOMHTMLObjectElement where+class GObject o => DOMHTMLObjectElementK o+instance (GObject o, IsDescendantOf DOMHTMLObjectElement o) => DOMHTMLObjectElementK o+data DOMHTMLObjectElementAlignPropertyInfo+data DOMHTMLObjectElementArchivePropertyInfo+data DOMHTMLObjectElementBorderPropertyInfo+data DOMHTMLObjectElementCodePropertyInfo+data DOMHTMLObjectElementCodeBasePropertyInfo+data DOMHTMLObjectElementCodeTypePropertyInfo+data DOMHTMLObjectElementContentDocumentPropertyInfo+data DOMHTMLObjectElementDataPropertyInfo+data DOMHTMLObjectElementDeclarePropertyInfo+data DOMHTMLObjectElementFormPropertyInfo+data DOMHTMLObjectElementHeightPropertyInfo+data DOMHTMLObjectElementHspacePropertyInfo+data DOMHTMLObjectElementNamePropertyInfo+data DOMHTMLObjectElementStandbyPropertyInfo+data DOMHTMLObjectElementTypePropertyInfo+data DOMHTMLObjectElementUseMapPropertyInfo+data DOMHTMLObjectElementValidationMessagePropertyInfo+data DOMHTMLObjectElementVspacePropertyInfo+data DOMHTMLObjectElementWidthPropertyInfo+data DOMHTMLObjectElementWillValidatePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs view
@@ -0,0 +1,249 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLOptGroupElement+    ( ++-- * Exported types+    DOMHTMLOptGroupElement(..)              ,+    DOMHTMLOptGroupElementK                 ,+    toDOMHTMLOptGroupElement                ,+    noDOMHTMLOptGroupElement                ,+++ -- * Methods+-- ** dOMHTMLOptGroupElementGetDisabled+    dOMHTMLOptGroupElementGetDisabled       ,+++-- ** dOMHTMLOptGroupElementGetLabel+    dOMHTMLOptGroupElementGetLabel          ,+++-- ** dOMHTMLOptGroupElementSetDisabled+    dOMHTMLOptGroupElementSetDisabled       ,+++-- ** dOMHTMLOptGroupElementSetLabel+    dOMHTMLOptGroupElementSetLabel          ,+++++ -- * Properties+-- ** Disabled+    DOMHTMLOptGroupElementDisabledPropertyInfo,+    constructDOMHTMLOptGroupElementDisabled ,+    getDOMHTMLOptGroupElementDisabled       ,+    setDOMHTMLOptGroupElementDisabled       ,+++-- ** Label+    DOMHTMLOptGroupElementLabelPropertyInfo ,+    constructDOMHTMLOptGroupElementLabel    ,+    getDOMHTMLOptGroupElementLabel          ,+    setDOMHTMLOptGroupElementLabel          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLOptGroupElement = DOMHTMLOptGroupElement (ForeignPtr DOMHTMLOptGroupElement)+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 = DOMHTMLOptGroupElementParentTypes+type DOMHTMLOptGroupElementParentTypes = '[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++noDOMHTMLOptGroupElement :: Maybe DOMHTMLOptGroupElement+noDOMHTMLOptGroupElement = Nothing++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m Bool+getDOMHTMLOptGroupElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> Bool -> m ()+setDOMHTMLOptGroupElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLOptGroupElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLOptGroupElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLOptGroupElementDisabledPropertyInfo+instance AttrInfo DOMHTMLOptGroupElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLOptGroupElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptGroupElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLOptGroupElementDisabledPropertyInfo = DOMHTMLOptGroupElementK+    type AttrGetType DOMHTMLOptGroupElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLOptGroupElementDisabledPropertyInfo = "DOMHTMLOptGroupElement::disabled"+    attrGet _ = getDOMHTMLOptGroupElementDisabled+    attrSet _ = setDOMHTMLOptGroupElementDisabled+    attrConstruct _ = constructDOMHTMLOptGroupElementDisabled++-- VVV Prop "label"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m T.Text+getDOMHTMLOptGroupElementLabel obj = liftIO $ getObjectPropertyString obj "label"++setDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> T.Text -> m ()+setDOMHTMLOptGroupElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val++constructDOMHTMLOptGroupElementLabel :: T.Text -> IO ([Char], GValue)+constructDOMHTMLOptGroupElementLabel val = constructObjectPropertyString "label" val++data DOMHTMLOptGroupElementLabelPropertyInfo+instance AttrInfo DOMHTMLOptGroupElementLabelPropertyInfo where+    type AttrAllowedOps DOMHTMLOptGroupElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = DOMHTMLOptGroupElementK+    type AttrGetType DOMHTMLOptGroupElementLabelPropertyInfo = T.Text+    type AttrLabel DOMHTMLOptGroupElementLabelPropertyInfo = "DOMHTMLOptGroupElement::label"+    attrGet _ = getDOMHTMLOptGroupElementLabel+    attrSet _ = setDOMHTMLOptGroupElementLabel+    attrConstruct _ = constructDOMHTMLOptGroupElementLabel++type instance AttributeList DOMHTMLOptGroupElement = DOMHTMLOptGroupElementAttributeList+type DOMHTMLOptGroupElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptGroupElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptGroupElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLOptGroupElement = DOMHTMLOptGroupElementSignalList+type DOMHTMLOptGroupElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLOptGroupElement::get_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLOptGroupElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_opt_group_element_get_label" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLOptGroupElement::set_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLOptGroupElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLOptGroupElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLOptGroupElement = DOMHTMLOptGroupElement (ForeignPtr DOMHTMLOptGroupElement)+instance GObject DOMHTMLOptGroupElement where+class GObject o => DOMHTMLOptGroupElementK o+instance (GObject o, IsDescendantOf DOMHTMLOptGroupElement o) => DOMHTMLOptGroupElementK o+data DOMHTMLOptGroupElementDisabledPropertyInfo+data DOMHTMLOptGroupElementLabelPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs view
@@ -0,0 +1,683 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLOptionElement+    ( ++-- * Exported types+    DOMHTMLOptionElement(..)                ,+    DOMHTMLOptionElementK                   ,+    toDOMHTMLOptionElement                  ,+    noDOMHTMLOptionElement                  ,+++ -- * Methods+-- ** dOMHTMLOptionElementGetDefaultSelected+    dOMHTMLOptionElementGetDefaultSelected  ,+++-- ** dOMHTMLOptionElementGetDisabled+    dOMHTMLOptionElementGetDisabled         ,+++-- ** dOMHTMLOptionElementGetForm+    dOMHTMLOptionElementGetForm             ,+++-- ** dOMHTMLOptionElementGetIndex+    dOMHTMLOptionElementGetIndex            ,+++-- ** dOMHTMLOptionElementGetLabel+    dOMHTMLOptionElementGetLabel            ,+++-- ** dOMHTMLOptionElementGetSelected+    dOMHTMLOptionElementGetSelected         ,+++-- ** dOMHTMLOptionElementGetText+    dOMHTMLOptionElementGetText             ,+++-- ** dOMHTMLOptionElementGetValue+    dOMHTMLOptionElementGetValue            ,+++-- ** dOMHTMLOptionElementSetDefaultSelected+    dOMHTMLOptionElementSetDefaultSelected  ,+++-- ** dOMHTMLOptionElementSetDisabled+    dOMHTMLOptionElementSetDisabled         ,+++-- ** dOMHTMLOptionElementSetLabel+    dOMHTMLOptionElementSetLabel            ,+++-- ** dOMHTMLOptionElementSetSelected+    dOMHTMLOptionElementSetSelected         ,+++-- ** dOMHTMLOptionElementSetValue+    dOMHTMLOptionElementSetValue            ,+++++ -- * Properties+-- ** DefaultSelected+    DOMHTMLOptionElementDefaultSelectedPropertyInfo,+    constructDOMHTMLOptionElementDefaultSelected,+    getDOMHTMLOptionElementDefaultSelected  ,+    setDOMHTMLOptionElementDefaultSelected  ,+++-- ** Disabled+    DOMHTMLOptionElementDisabledPropertyInfo,+    constructDOMHTMLOptionElementDisabled   ,+    getDOMHTMLOptionElementDisabled         ,+    setDOMHTMLOptionElementDisabled         ,+++-- ** Form+    DOMHTMLOptionElementFormPropertyInfo    ,+    getDOMHTMLOptionElementForm             ,+++-- ** Index+    DOMHTMLOptionElementIndexPropertyInfo   ,+    getDOMHTMLOptionElementIndex            ,+++-- ** Label+    DOMHTMLOptionElementLabelPropertyInfo   ,+    constructDOMHTMLOptionElementLabel      ,+    getDOMHTMLOptionElementLabel            ,+    setDOMHTMLOptionElementLabel            ,+++-- ** Selected+    DOMHTMLOptionElementSelectedPropertyInfo,+    constructDOMHTMLOptionElementSelected   ,+    getDOMHTMLOptionElementSelected         ,+    setDOMHTMLOptionElementSelected         ,+++-- ** Text+    DOMHTMLOptionElementTextPropertyInfo    ,+    getDOMHTMLOptionElementText             ,+++-- ** Value+    DOMHTMLOptionElementValuePropertyInfo   ,+    constructDOMHTMLOptionElementValue      ,+    getDOMHTMLOptionElementValue            ,+    setDOMHTMLOptionElementValue            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLOptionElement = DOMHTMLOptionElement (ForeignPtr DOMHTMLOptionElement)+foreign import ccall "webkit_dom_html_option_element_get_type"+    c_webkit_dom_html_option_element_get_type :: IO GType++type instance ParentTypes DOMHTMLOptionElement = DOMHTMLOptionElementParentTypes+type DOMHTMLOptionElementParentTypes = '[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++noDOMHTMLOptionElement :: Maybe DOMHTMLOptionElement+noDOMHTMLOptionElement = Nothing++-- VVV Prop "default-selected"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool+getDOMHTMLOptionElementDefaultSelected obj = liftIO $ getObjectPropertyBool obj "default-selected"++setDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m ()+setDOMHTMLOptionElementDefaultSelected obj val = liftIO $ setObjectPropertyBool obj "default-selected" val++constructDOMHTMLOptionElementDefaultSelected :: Bool -> IO ([Char], GValue)+constructDOMHTMLOptionElementDefaultSelected val = constructObjectPropertyBool "default-selected" val++data DOMHTMLOptionElementDefaultSelectedPropertyInfo+instance AttrInfo DOMHTMLOptionElementDefaultSelectedPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionElementDefaultSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionElementDefaultSelectedPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLOptionElementDefaultSelectedPropertyInfo = DOMHTMLOptionElementK+    type AttrGetType DOMHTMLOptionElementDefaultSelectedPropertyInfo = Bool+    type AttrLabel DOMHTMLOptionElementDefaultSelectedPropertyInfo = "DOMHTMLOptionElement::default-selected"+    attrGet _ = getDOMHTMLOptionElementDefaultSelected+    attrSet _ = setDOMHTMLOptionElementDefaultSelected+    attrConstruct _ = constructDOMHTMLOptionElementDefaultSelected++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool+getDOMHTMLOptionElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m ()+setDOMHTMLOptionElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLOptionElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLOptionElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLOptionElementDisabledPropertyInfo+instance AttrInfo DOMHTMLOptionElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLOptionElementDisabledPropertyInfo = DOMHTMLOptionElementK+    type AttrGetType DOMHTMLOptionElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLOptionElementDisabledPropertyInfo = "DOMHTMLOptionElement::disabled"+    attrGet _ = getDOMHTMLOptionElementDisabled+    attrSet _ = setDOMHTMLOptionElementDisabled+    attrConstruct _ = constructDOMHTMLOptionElementDisabled++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLOptionElementForm :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLOptionElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLOptionElementFormPropertyInfo+instance AttrInfo DOMHTMLOptionElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLOptionElementFormPropertyInfo = DOMHTMLOptionElementK+    type AttrGetType DOMHTMLOptionElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLOptionElementFormPropertyInfo = "DOMHTMLOptionElement::form"+    attrGet _ = getDOMHTMLOptionElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "index"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLOptionElementIndex :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Int64+getDOMHTMLOptionElementIndex obj = liftIO $ getObjectPropertyInt64 obj "index"++data DOMHTMLOptionElementIndexPropertyInfo+instance AttrInfo DOMHTMLOptionElementIndexPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionElementIndexPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = DOMHTMLOptionElementK+    type AttrGetType DOMHTMLOptionElementIndexPropertyInfo = Int64+    type AttrLabel DOMHTMLOptionElementIndexPropertyInfo = "DOMHTMLOptionElement::index"+    attrGet _ = getDOMHTMLOptionElementIndex+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "label"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text+getDOMHTMLOptionElementLabel obj = liftIO $ getObjectPropertyString obj "label"++setDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m ()+setDOMHTMLOptionElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val++constructDOMHTMLOptionElementLabel :: T.Text -> IO ([Char], GValue)+constructDOMHTMLOptionElementLabel val = constructObjectPropertyString "label" val++data DOMHTMLOptionElementLabelPropertyInfo+instance AttrInfo DOMHTMLOptionElementLabelPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = DOMHTMLOptionElementK+    type AttrGetType DOMHTMLOptionElementLabelPropertyInfo = T.Text+    type AttrLabel DOMHTMLOptionElementLabelPropertyInfo = "DOMHTMLOptionElement::label"+    attrGet _ = getDOMHTMLOptionElementLabel+    attrSet _ = setDOMHTMLOptionElementLabel+    attrConstruct _ = constructDOMHTMLOptionElementLabel++-- VVV Prop "selected"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool+getDOMHTMLOptionElementSelected obj = liftIO $ getObjectPropertyBool obj "selected"++setDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m ()+setDOMHTMLOptionElementSelected obj val = liftIO $ setObjectPropertyBool obj "selected" val++constructDOMHTMLOptionElementSelected :: Bool -> IO ([Char], GValue)+constructDOMHTMLOptionElementSelected val = constructObjectPropertyBool "selected" val++data DOMHTMLOptionElementSelectedPropertyInfo+instance AttrInfo DOMHTMLOptionElementSelectedPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionElementSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionElementSelectedPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLOptionElementSelectedPropertyInfo = DOMHTMLOptionElementK+    type AttrGetType DOMHTMLOptionElementSelectedPropertyInfo = Bool+    type AttrLabel DOMHTMLOptionElementSelectedPropertyInfo = "DOMHTMLOptionElement::selected"+    attrGet _ = getDOMHTMLOptionElementSelected+    attrSet _ = setDOMHTMLOptionElementSelected+    attrConstruct _ = constructDOMHTMLOptionElementSelected++-- VVV Prop "text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLOptionElementText :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text+getDOMHTMLOptionElementText obj = liftIO $ getObjectPropertyString obj "text"++data DOMHTMLOptionElementTextPropertyInfo+instance AttrInfo DOMHTMLOptionElementTextPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionElementTextPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionElementTextPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLOptionElementTextPropertyInfo = DOMHTMLOptionElementK+    type AttrGetType DOMHTMLOptionElementTextPropertyInfo = T.Text+    type AttrLabel DOMHTMLOptionElementTextPropertyInfo = "DOMHTMLOptionElement::text"+    attrGet _ = getDOMHTMLOptionElementText+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text+getDOMHTMLOptionElementValue obj = liftIO $ getObjectPropertyString obj "value"++setDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m ()+setDOMHTMLOptionElementValue obj val = liftIO $ setObjectPropertyString obj "value" val++constructDOMHTMLOptionElementValue :: T.Text -> IO ([Char], GValue)+constructDOMHTMLOptionElementValue val = constructObjectPropertyString "value" val++data DOMHTMLOptionElementValuePropertyInfo+instance AttrInfo DOMHTMLOptionElementValuePropertyInfo where+    type AttrAllowedOps DOMHTMLOptionElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionElementValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLOptionElementValuePropertyInfo = DOMHTMLOptionElementK+    type AttrGetType DOMHTMLOptionElementValuePropertyInfo = T.Text+    type AttrLabel DOMHTMLOptionElementValuePropertyInfo = "DOMHTMLOptionElement::value"+    attrGet _ = getDOMHTMLOptionElementValue+    attrSet _ = setDOMHTMLOptionElementValue+    attrConstruct _ = constructDOMHTMLOptionElementValue++type instance AttributeList DOMHTMLOptionElement = DOMHTMLOptionElementAttributeList+type DOMHTMLOptionElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-selected", DOMHTMLOptionElementDefaultSelectedPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptionElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLOptionElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("index", DOMHTMLOptionElementIndexPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptionElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selected", DOMHTMLOptionElementSelectedPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLOptionElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("value", DOMHTMLOptionElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLOptionElement = DOMHTMLOptionElementSignalList+type DOMHTMLOptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLOptionElement::get_default_selected+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_option_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLOptionElement::get_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_option_element_get_label" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLOptionElement::get_selected+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_option_element_get_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLOptionElement::get_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_option_element_get_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLOptionElement::set_default_selected+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLOptionElement.hs-boot view
@@ -0,0 +1,21 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLOptionElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLOptionElement = DOMHTMLOptionElement (ForeignPtr DOMHTMLOptionElement)+instance GObject DOMHTMLOptionElement where+class GObject o => DOMHTMLOptionElementK o+instance (GObject o, IsDescendantOf DOMHTMLOptionElement o) => DOMHTMLOptionElementK o+data DOMHTMLOptionElementDefaultSelectedPropertyInfo+data DOMHTMLOptionElementDisabledPropertyInfo+data DOMHTMLOptionElementFormPropertyInfo+data DOMHTMLOptionElementIndexPropertyInfo+data DOMHTMLOptionElementLabelPropertyInfo+data DOMHTMLOptionElementSelectedPropertyInfo+data DOMHTMLOptionElementTextPropertyInfo+data DOMHTMLOptionElementValuePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs view
@@ -0,0 +1,238 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLOptionsCollection+    ( ++-- * Exported types+    DOMHTMLOptionsCollection(..)            ,+    DOMHTMLOptionsCollectionK               ,+    toDOMHTMLOptionsCollection              ,+    noDOMHTMLOptionsCollection              ,+++ -- * Methods+-- ** dOMHTMLOptionsCollectionGetLength+    dOMHTMLOptionsCollectionGetLength       ,+++-- ** dOMHTMLOptionsCollectionGetSelectedIndex+    dOMHTMLOptionsCollectionGetSelectedIndex,+++-- ** dOMHTMLOptionsCollectionNamedItem+    dOMHTMLOptionsCollectionNamedItem       ,+++-- ** dOMHTMLOptionsCollectionSetSelectedIndex+    dOMHTMLOptionsCollectionSetSelectedIndex,+++++ -- * Properties+-- ** Length+    DOMHTMLOptionsCollectionLengthPropertyInfo,+    getDOMHTMLOptionsCollectionLength       ,+++-- ** SelectedIndex+    DOMHTMLOptionsCollectionSelectedIndexPropertyInfo,+    constructDOMHTMLOptionsCollectionSelectedIndex,+    getDOMHTMLOptionsCollectionSelectedIndex,+    setDOMHTMLOptionsCollectionSelectedIndex,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLOptionsCollection = DOMHTMLOptionsCollection (ForeignPtr DOMHTMLOptionsCollection)+foreign import ccall "webkit_dom_html_options_collection_get_type"+    c_webkit_dom_html_options_collection_get_type :: IO GType++type instance ParentTypes DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionParentTypes+type DOMHTMLOptionsCollectionParentTypes = '[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++noDOMHTMLOptionsCollection :: Maybe DOMHTMLOptionsCollection+noDOMHTMLOptionsCollection = Nothing++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMHTMLOptionsCollectionLength :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Word64+getDOMHTMLOptionsCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMHTMLOptionsCollectionLengthPropertyInfo+instance AttrInfo DOMHTMLOptionsCollectionLengthPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionsCollectionLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = DOMHTMLOptionsCollectionK+    type AttrGetType DOMHTMLOptionsCollectionLengthPropertyInfo = Word64+    type AttrLabel DOMHTMLOptionsCollectionLengthPropertyInfo = "DOMHTMLOptionsCollection::length"+    attrGet _ = getDOMHTMLOptionsCollectionLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "selected-index"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Int64+getDOMHTMLOptionsCollectionSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index"++setDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> Int64 -> m ()+setDOMHTMLOptionsCollectionSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val++constructDOMHTMLOptionsCollectionSelectedIndex :: Int64 -> IO ([Char], GValue)+constructDOMHTMLOptionsCollectionSelectedIndex val = constructObjectPropertyInt64 "selected-index" val++data DOMHTMLOptionsCollectionSelectedIndexPropertyInfo+instance AttrInfo DOMHTMLOptionsCollectionSelectedIndexPropertyInfo where+    type AttrAllowedOps DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = DOMHTMLOptionsCollectionK+    type AttrGetType DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = Int64+    type AttrLabel DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = "DOMHTMLOptionsCollection::selected-index"+    attrGet _ = getDOMHTMLOptionsCollectionSelectedIndex+    attrSet _ = setDOMHTMLOptionsCollectionSelectedIndex+    attrConstruct _ = constructDOMHTMLOptionsCollectionSelectedIndex++type instance AttributeList DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionAttributeList+type DOMHTMLOptionsCollectionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLOptionsCollectionLengthPropertyInfo), '("selected-index", DOMHTMLOptionsCollectionSelectedIndexPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLOptionsCollection = DOMHTMLOptionsCollectionSignalList+type DOMHTMLOptionsCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLOptionsCollection::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLOptionsCollection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_options_collection_named_item" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    freeMem name'+    return result'++-- method DOMHTMLOptionsCollection::set_selected_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLOptionsCollection.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLOptionsCollection where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLOptionsCollection = DOMHTMLOptionsCollection (ForeignPtr DOMHTMLOptionsCollection)+instance GObject DOMHTMLOptionsCollection where+class GObject o => DOMHTMLOptionsCollectionK o+instance (GObject o, IsDescendantOf DOMHTMLOptionsCollection o) => DOMHTMLOptionsCollectionK o+data DOMHTMLOptionsCollectionLengthPropertyInfo+data DOMHTMLOptionsCollectionSelectedIndexPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs view
@@ -0,0 +1,158 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLParagraphElement+    ( ++-- * Exported types+    DOMHTMLParagraphElement(..)             ,+    DOMHTMLParagraphElementK                ,+    toDOMHTMLParagraphElement               ,+    noDOMHTMLParagraphElement               ,+++ -- * Methods+-- ** dOMHTMLParagraphElementGetAlign+    dOMHTMLParagraphElementGetAlign         ,+++-- ** dOMHTMLParagraphElementSetAlign+    dOMHTMLParagraphElementSetAlign         ,+++++ -- * Properties+-- ** Align+    DOMHTMLParagraphElementAlignPropertyInfo,+    constructDOMHTMLParagraphElementAlign   ,+    getDOMHTMLParagraphElementAlign         ,+    setDOMHTMLParagraphElementAlign         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLParagraphElement = DOMHTMLParagraphElement (ForeignPtr DOMHTMLParagraphElement)+foreign import ccall "webkit_dom_html_paragraph_element_get_type"+    c_webkit_dom_html_paragraph_element_get_type :: IO GType++type instance ParentTypes DOMHTMLParagraphElement = DOMHTMLParagraphElementParentTypes+type DOMHTMLParagraphElementParentTypes = '[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++noDOMHTMLParagraphElement :: Maybe DOMHTMLParagraphElement+noDOMHTMLParagraphElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> m T.Text+getDOMHTMLParagraphElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> T.Text -> m ()+setDOMHTMLParagraphElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLParagraphElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLParagraphElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLParagraphElementAlignPropertyInfo+instance AttrInfo DOMHTMLParagraphElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLParagraphElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = DOMHTMLParagraphElementK+    type AttrGetType DOMHTMLParagraphElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLParagraphElementAlignPropertyInfo = "DOMHTMLParagraphElement::align"+    attrGet _ = getDOMHTMLParagraphElementAlign+    attrSet _ = setDOMHTMLParagraphElementAlign+    attrConstruct _ = constructDOMHTMLParagraphElementAlign++type instance AttributeList DOMHTMLParagraphElement = DOMHTMLParagraphElementAttributeList+type DOMHTMLParagraphElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLParagraphElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLParagraphElement = DOMHTMLParagraphElementSignalList+type DOMHTMLParagraphElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLParagraphElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParagraphElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_paragraph_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLParagraphElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLParagraphElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLParagraphElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLParagraphElement = DOMHTMLParagraphElement (ForeignPtr DOMHTMLParagraphElement)+instance GObject DOMHTMLParagraphElement where+class GObject o => DOMHTMLParagraphElementK o+instance (GObject o, IsDescendantOf DOMHTMLParagraphElement o) => DOMHTMLParagraphElementK o+data DOMHTMLParagraphElementAlignPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs view
@@ -0,0 +1,440 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLParamElement+    ( ++-- * Exported types+    DOMHTMLParamElement(..)                 ,+    DOMHTMLParamElementK                    ,+    toDOMHTMLParamElement                   ,+    noDOMHTMLParamElement                   ,+++ -- * Methods+-- ** dOMHTMLParamElementGetName+    dOMHTMLParamElementGetName              ,+++-- ** dOMHTMLParamElementGetTypeAttr+    dOMHTMLParamElementGetTypeAttr          ,+++-- ** dOMHTMLParamElementGetValue+    dOMHTMLParamElementGetValue             ,+++-- ** dOMHTMLParamElementGetValueType+    dOMHTMLParamElementGetValueType         ,+++-- ** dOMHTMLParamElementSetName+    dOMHTMLParamElementSetName              ,+++-- ** dOMHTMLParamElementSetTypeAttr+    dOMHTMLParamElementSetTypeAttr          ,+++-- ** dOMHTMLParamElementSetValue+    dOMHTMLParamElementSetValue             ,+++-- ** dOMHTMLParamElementSetValueType+    dOMHTMLParamElementSetValueType         ,+++++ -- * Properties+-- ** Name+    DOMHTMLParamElementNamePropertyInfo     ,+    constructDOMHTMLParamElementName        ,+    getDOMHTMLParamElementName              ,+    setDOMHTMLParamElementName              ,+++-- ** Type+    DOMHTMLParamElementTypePropertyInfo     ,+    constructDOMHTMLParamElementType        ,+    getDOMHTMLParamElementType              ,+    setDOMHTMLParamElementType              ,+++-- ** Value+    DOMHTMLParamElementValuePropertyInfo    ,+    constructDOMHTMLParamElementValue       ,+    getDOMHTMLParamElementValue             ,+    setDOMHTMLParamElementValue             ,+++-- ** ValueType+    DOMHTMLParamElementValueTypePropertyInfo,+    constructDOMHTMLParamElementValueType   ,+    getDOMHTMLParamElementValueType         ,+    setDOMHTMLParamElementValueType         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLParamElement = DOMHTMLParamElement (ForeignPtr DOMHTMLParamElement)+foreign import ccall "webkit_dom_html_param_element_get_type"+    c_webkit_dom_html_param_element_get_type :: IO GType++type instance ParentTypes DOMHTMLParamElement = DOMHTMLParamElementParentTypes+type DOMHTMLParamElementParentTypes = '[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++noDOMHTMLParamElement :: Maybe DOMHTMLParamElement+noDOMHTMLParamElement = Nothing++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text+getDOMHTMLParamElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m ()+setDOMHTMLParamElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLParamElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLParamElementName val = constructObjectPropertyString "name" val++data DOMHTMLParamElementNamePropertyInfo+instance AttrInfo DOMHTMLParamElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLParamElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLParamElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLParamElementNamePropertyInfo = DOMHTMLParamElementK+    type AttrGetType DOMHTMLParamElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLParamElementNamePropertyInfo = "DOMHTMLParamElement::name"+    attrGet _ = getDOMHTMLParamElementName+    attrSet _ = setDOMHTMLParamElementName+    attrConstruct _ = constructDOMHTMLParamElementName++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text+getDOMHTMLParamElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m ()+setDOMHTMLParamElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLParamElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLParamElementType val = constructObjectPropertyString "type" val++data DOMHTMLParamElementTypePropertyInfo+instance AttrInfo DOMHTMLParamElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLParamElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLParamElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLParamElementTypePropertyInfo = DOMHTMLParamElementK+    type AttrGetType DOMHTMLParamElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLParamElementTypePropertyInfo = "DOMHTMLParamElement::type"+    attrGet _ = getDOMHTMLParamElementType+    attrSet _ = setDOMHTMLParamElementType+    attrConstruct _ = constructDOMHTMLParamElementType++-- VVV Prop "value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text+getDOMHTMLParamElementValue obj = liftIO $ getObjectPropertyString obj "value"++setDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m ()+setDOMHTMLParamElementValue obj val = liftIO $ setObjectPropertyString obj "value" val++constructDOMHTMLParamElementValue :: T.Text -> IO ([Char], GValue)+constructDOMHTMLParamElementValue val = constructObjectPropertyString "value" val++data DOMHTMLParamElementValuePropertyInfo+instance AttrInfo DOMHTMLParamElementValuePropertyInfo where+    type AttrAllowedOps DOMHTMLParamElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLParamElementValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLParamElementValuePropertyInfo = DOMHTMLParamElementK+    type AttrGetType DOMHTMLParamElementValuePropertyInfo = T.Text+    type AttrLabel DOMHTMLParamElementValuePropertyInfo = "DOMHTMLParamElement::value"+    attrGet _ = getDOMHTMLParamElementValue+    attrSet _ = setDOMHTMLParamElementValue+    attrConstruct _ = constructDOMHTMLParamElementValue++-- VVV Prop "value-type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text+getDOMHTMLParamElementValueType obj = liftIO $ getObjectPropertyString obj "value-type"++setDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m ()+setDOMHTMLParamElementValueType obj val = liftIO $ setObjectPropertyString obj "value-type" val++constructDOMHTMLParamElementValueType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLParamElementValueType val = constructObjectPropertyString "value-type" val++data DOMHTMLParamElementValueTypePropertyInfo+instance AttrInfo DOMHTMLParamElementValueTypePropertyInfo where+    type AttrAllowedOps DOMHTMLParamElementValueTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = DOMHTMLParamElementK+    type AttrGetType DOMHTMLParamElementValueTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLParamElementValueTypePropertyInfo = "DOMHTMLParamElement::value-type"+    attrGet _ = getDOMHTMLParamElementValueType+    attrSet _ = setDOMHTMLParamElementValueType+    attrConstruct _ = constructDOMHTMLParamElementValueType++type instance AttributeList DOMHTMLParamElement = DOMHTMLParamElementAttributeList+type DOMHTMLParamElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLParamElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLParamElementTypePropertyInfo), '("value", DOMHTMLParamElementValuePropertyInfo), '("value-type", DOMHTMLParamElementValueTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLParamElement = DOMHTMLParamElementSignalList+type DOMHTMLParamElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLParamElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_param_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLParamElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_type_attr" webkit_dom_html_param_element_get_type_attr :: +    Ptr DOMHTMLParamElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLParamElement"+    IO CString+++dOMHTMLParamElementGetTypeAttr ::+    (MonadIO m, DOMHTMLParamElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLParamElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_param_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_param_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLParamElement::get_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_param_element_get_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLParamElement::get_value_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLParamElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_param_element_get_value_type" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLParamElement::set_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr" webkit_dom_html_param_element_set_type_attr :: +    Ptr DOMHTMLParamElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLParamElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLParamElementSetTypeAttr ::+    (MonadIO m, DOMHTMLParamElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLParamElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_param_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++-- method DOMHTMLParamElement::set_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLParamElement.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLParamElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLParamElement = DOMHTMLParamElement (ForeignPtr DOMHTMLParamElement)+instance GObject DOMHTMLParamElement where+class GObject o => DOMHTMLParamElementK o+instance (GObject o, IsDescendantOf DOMHTMLParamElement o) => DOMHTMLParamElementK o+data DOMHTMLParamElementNamePropertyInfo+data DOMHTMLParamElementTypePropertyInfo+data DOMHTMLParamElementValuePropertyInfo+data DOMHTMLParamElementValueTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs view
@@ -0,0 +1,244 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLPreElement+    ( ++-- * Exported types+    DOMHTMLPreElement(..)                   ,+    DOMHTMLPreElementK                      ,+    toDOMHTMLPreElement                     ,+    noDOMHTMLPreElement                     ,+++ -- * Methods+-- ** dOMHTMLPreElementGetWidth+    dOMHTMLPreElementGetWidth               ,+++-- ** dOMHTMLPreElementGetWrap+    dOMHTMLPreElementGetWrap                ,+++-- ** dOMHTMLPreElementSetWidth+    dOMHTMLPreElementSetWidth               ,+++-- ** dOMHTMLPreElementSetWrap+    dOMHTMLPreElementSetWrap                ,+++++ -- * Properties+-- ** Width+    DOMHTMLPreElementWidthPropertyInfo      ,+    constructDOMHTMLPreElementWidth         ,+    getDOMHTMLPreElementWidth               ,+    setDOMHTMLPreElementWidth               ,+++-- ** Wrap+    DOMHTMLPreElementWrapPropertyInfo       ,+    constructDOMHTMLPreElementWrap          ,+    getDOMHTMLPreElementWrap                ,+    setDOMHTMLPreElementWrap                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLPreElement = DOMHTMLPreElement (ForeignPtr DOMHTMLPreElement)+foreign import ccall "webkit_dom_html_pre_element_get_type"+    c_webkit_dom_html_pre_element_get_type :: IO GType++type instance ParentTypes DOMHTMLPreElement = DOMHTMLPreElementParentTypes+type DOMHTMLPreElementParentTypes = '[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++noDOMHTMLPreElement :: Maybe DOMHTMLPreElement+noDOMHTMLPreElement = Nothing++-- VVV Prop "width"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Int64+getDOMHTMLPreElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width"++setDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> Int64 -> m ()+setDOMHTMLPreElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val++constructDOMHTMLPreElementWidth :: Int64 -> IO ([Char], GValue)+constructDOMHTMLPreElementWidth val = constructObjectPropertyInt64 "width" val++data DOMHTMLPreElementWidthPropertyInfo+instance AttrInfo DOMHTMLPreElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLPreElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLPreElementWidthPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLPreElementWidthPropertyInfo = DOMHTMLPreElementK+    type AttrGetType DOMHTMLPreElementWidthPropertyInfo = Int64+    type AttrLabel DOMHTMLPreElementWidthPropertyInfo = "DOMHTMLPreElement::width"+    attrGet _ = getDOMHTMLPreElementWidth+    attrSet _ = setDOMHTMLPreElementWidth+    attrConstruct _ = constructDOMHTMLPreElementWidth++-- VVV Prop "wrap"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Bool+getDOMHTMLPreElementWrap obj = liftIO $ getObjectPropertyBool obj "wrap"++setDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> Bool -> m ()+setDOMHTMLPreElementWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val++constructDOMHTMLPreElementWrap :: Bool -> IO ([Char], GValue)+constructDOMHTMLPreElementWrap val = constructObjectPropertyBool "wrap" val++data DOMHTMLPreElementWrapPropertyInfo+instance AttrInfo DOMHTMLPreElementWrapPropertyInfo where+    type AttrAllowedOps DOMHTMLPreElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLPreElementWrapPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLPreElementWrapPropertyInfo = DOMHTMLPreElementK+    type AttrGetType DOMHTMLPreElementWrapPropertyInfo = Bool+    type AttrLabel DOMHTMLPreElementWrapPropertyInfo = "DOMHTMLPreElement::wrap"+    attrGet _ = getDOMHTMLPreElementWrap+    attrSet _ = setDOMHTMLPreElementWrap+    attrConstruct _ = constructDOMHTMLPreElementWrap++type instance AttributeList DOMHTMLPreElement = DOMHTMLPreElementAttributeList+type DOMHTMLPreElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLPreElementWidthPropertyInfo), '("wrap", DOMHTMLPreElementWrapPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLPreElement = DOMHTMLPreElementSignalList+type DOMHTMLPreElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLPreElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLPreElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLPreElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLPreElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLPreElement = DOMHTMLPreElement (ForeignPtr DOMHTMLPreElement)+instance GObject DOMHTMLPreElement where+class GObject o => DOMHTMLPreElementK o+instance (GObject o, IsDescendantOf DOMHTMLPreElement o) => DOMHTMLPreElementK o+data DOMHTMLPreElementWidthPropertyInfo+data DOMHTMLPreElementWrapPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs view
@@ -0,0 +1,158 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLQuoteElement+    ( ++-- * Exported types+    DOMHTMLQuoteElement(..)                 ,+    DOMHTMLQuoteElementK                    ,+    toDOMHTMLQuoteElement                   ,+    noDOMHTMLQuoteElement                   ,+++ -- * Methods+-- ** dOMHTMLQuoteElementGetCite+    dOMHTMLQuoteElementGetCite              ,+++-- ** dOMHTMLQuoteElementSetCite+    dOMHTMLQuoteElementSetCite              ,+++++ -- * Properties+-- ** Cite+    DOMHTMLQuoteElementCitePropertyInfo     ,+    constructDOMHTMLQuoteElementCite        ,+    getDOMHTMLQuoteElementCite              ,+    setDOMHTMLQuoteElementCite              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLQuoteElement = DOMHTMLQuoteElement (ForeignPtr DOMHTMLQuoteElement)+foreign import ccall "webkit_dom_html_quote_element_get_type"+    c_webkit_dom_html_quote_element_get_type :: IO GType++type instance ParentTypes DOMHTMLQuoteElement = DOMHTMLQuoteElementParentTypes+type DOMHTMLQuoteElementParentTypes = '[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++noDOMHTMLQuoteElement :: Maybe DOMHTMLQuoteElement+noDOMHTMLQuoteElement = Nothing++-- VVV Prop "cite"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> m T.Text+getDOMHTMLQuoteElementCite obj = liftIO $ getObjectPropertyString obj "cite"++setDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> T.Text -> m ()+setDOMHTMLQuoteElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val++constructDOMHTMLQuoteElementCite :: T.Text -> IO ([Char], GValue)+constructDOMHTMLQuoteElementCite val = constructObjectPropertyString "cite" val++data DOMHTMLQuoteElementCitePropertyInfo+instance AttrInfo DOMHTMLQuoteElementCitePropertyInfo where+    type AttrAllowedOps DOMHTMLQuoteElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = DOMHTMLQuoteElementK+    type AttrGetType DOMHTMLQuoteElementCitePropertyInfo = T.Text+    type AttrLabel DOMHTMLQuoteElementCitePropertyInfo = "DOMHTMLQuoteElement::cite"+    attrGet _ = getDOMHTMLQuoteElementCite+    attrSet _ = setDOMHTMLQuoteElementCite+    attrConstruct _ = constructDOMHTMLQuoteElementCite++type instance AttributeList DOMHTMLQuoteElement = DOMHTMLQuoteElementAttributeList+type DOMHTMLQuoteElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLQuoteElementCitePropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLQuoteElement = DOMHTMLQuoteElementSignalList+type DOMHTMLQuoteElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLQuoteElement::get_cite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLQuoteElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_quote_element_get_cite" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLQuoteElement::set_cite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLQuoteElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLQuoteElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLQuoteElement = DOMHTMLQuoteElement (ForeignPtr DOMHTMLQuoteElement)+instance GObject DOMHTMLQuoteElement where+class GObject o => DOMHTMLQuoteElementK o+instance (GObject o, IsDescendantOf DOMHTMLQuoteElement o) => DOMHTMLQuoteElementK o+data DOMHTMLQuoteElementCitePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs view
@@ -0,0 +1,780 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement+    ( ++-- * Exported types+    DOMHTMLScriptElement(..)                ,+    DOMHTMLScriptElementK                   ,+    toDOMHTMLScriptElement                  ,+    noDOMHTMLScriptElement                  ,+++ -- * Methods+-- ** dOMHTMLScriptElementGetCharset+    dOMHTMLScriptElementGetCharset          ,+++-- ** dOMHTMLScriptElementGetDefer+    dOMHTMLScriptElementGetDefer            ,+++-- ** dOMHTMLScriptElementGetEvent+    dOMHTMLScriptElementGetEvent            ,+++-- ** dOMHTMLScriptElementGetHtmlFor+    dOMHTMLScriptElementGetHtmlFor          ,+++-- ** dOMHTMLScriptElementGetSrc+    dOMHTMLScriptElementGetSrc              ,+++-- ** dOMHTMLScriptElementGetText+    dOMHTMLScriptElementGetText             ,+++-- ** dOMHTMLScriptElementGetTypeAttr+    dOMHTMLScriptElementGetTypeAttr         ,+++-- ** dOMHTMLScriptElementSetDefer+    dOMHTMLScriptElementSetDefer            ,+++-- ** dOMHTMLScriptElementSetEvent+    dOMHTMLScriptElementSetEvent            ,+++-- ** dOMHTMLScriptElementSetHtmlFor+    dOMHTMLScriptElementSetHtmlFor          ,+++-- ** dOMHTMLScriptElementSetSrc+    dOMHTMLScriptElementSetSrc              ,+++-- ** dOMHTMLScriptElementSetText+    dOMHTMLScriptElementSetText             ,+++-- ** dOMHTMLScriptElementSetTypeAttr+    dOMHTMLScriptElementSetTypeAttr         ,+++++ -- * Properties+-- ** Async+    DOMHTMLScriptElementAsyncPropertyInfo   ,+    constructDOMHTMLScriptElementAsync      ,+    getDOMHTMLScriptElementAsync            ,+    setDOMHTMLScriptElementAsync            ,+++-- ** Charset+    DOMHTMLScriptElementCharsetPropertyInfo ,+    constructDOMHTMLScriptElementCharset    ,+    getDOMHTMLScriptElementCharset          ,+    setDOMHTMLScriptElementCharset          ,+++-- ** CrossOrigin+    DOMHTMLScriptElementCrossOriginPropertyInfo,+    constructDOMHTMLScriptElementCrossOrigin,+    getDOMHTMLScriptElementCrossOrigin      ,+    setDOMHTMLScriptElementCrossOrigin      ,+++-- ** Defer+    DOMHTMLScriptElementDeferPropertyInfo   ,+    constructDOMHTMLScriptElementDefer      ,+    getDOMHTMLScriptElementDefer            ,+    setDOMHTMLScriptElementDefer            ,+++-- ** Event+    DOMHTMLScriptElementEventPropertyInfo   ,+    constructDOMHTMLScriptElementEvent      ,+    getDOMHTMLScriptElementEvent            ,+    setDOMHTMLScriptElementEvent            ,+++-- ** HtmlFor+    DOMHTMLScriptElementHtmlForPropertyInfo ,+    constructDOMHTMLScriptElementHtmlFor    ,+    getDOMHTMLScriptElementHtmlFor          ,+    setDOMHTMLScriptElementHtmlFor          ,+++-- ** Nonce+    DOMHTMLScriptElementNoncePropertyInfo   ,+    constructDOMHTMLScriptElementNonce      ,+    getDOMHTMLScriptElementNonce            ,+    setDOMHTMLScriptElementNonce            ,+++-- ** Src+    DOMHTMLScriptElementSrcPropertyInfo     ,+    constructDOMHTMLScriptElementSrc        ,+    getDOMHTMLScriptElementSrc              ,+    setDOMHTMLScriptElementSrc              ,+++-- ** Text+    DOMHTMLScriptElementTextPropertyInfo    ,+    constructDOMHTMLScriptElementText       ,+    getDOMHTMLScriptElementText             ,+    setDOMHTMLScriptElementText             ,+++-- ** Type+    DOMHTMLScriptElementTypePropertyInfo    ,+    constructDOMHTMLScriptElementType       ,+    getDOMHTMLScriptElementType             ,+    setDOMHTMLScriptElementType             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLScriptElement = DOMHTMLScriptElement (ForeignPtr DOMHTMLScriptElement)+foreign import ccall "webkit_dom_html_script_element_get_type"+    c_webkit_dom_html_script_element_get_type :: IO GType++type instance ParentTypes DOMHTMLScriptElement = DOMHTMLScriptElementParentTypes+type DOMHTMLScriptElementParentTypes = '[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++noDOMHTMLScriptElement :: Maybe DOMHTMLScriptElement+noDOMHTMLScriptElement = Nothing++-- VVV Prop "async"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool+getDOMHTMLScriptElementAsync obj = liftIO $ getObjectPropertyBool obj "async"++setDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> Bool -> m ()+setDOMHTMLScriptElementAsync obj val = liftIO $ setObjectPropertyBool obj "async" val++constructDOMHTMLScriptElementAsync :: Bool -> IO ([Char], GValue)+constructDOMHTMLScriptElementAsync val = constructObjectPropertyBool "async" val++data DOMHTMLScriptElementAsyncPropertyInfo+instance AttrInfo DOMHTMLScriptElementAsyncPropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementAsyncPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLScriptElementAsyncPropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementAsyncPropertyInfo = Bool+    type AttrLabel DOMHTMLScriptElementAsyncPropertyInfo = "DOMHTMLScriptElement::async"+    attrGet _ = getDOMHTMLScriptElementAsync+    attrSet _ = setDOMHTMLScriptElementAsync+    attrConstruct _ = constructDOMHTMLScriptElementAsync++-- VVV Prop "charset"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text+getDOMHTMLScriptElementCharset obj = liftIO $ getObjectPropertyString obj "charset"++setDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m ()+setDOMHTMLScriptElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val++constructDOMHTMLScriptElementCharset :: T.Text -> IO ([Char], GValue)+constructDOMHTMLScriptElementCharset val = constructObjectPropertyString "charset" val++data DOMHTMLScriptElementCharsetPropertyInfo+instance AttrInfo DOMHTMLScriptElementCharsetPropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementCharsetPropertyInfo = T.Text+    type AttrLabel DOMHTMLScriptElementCharsetPropertyInfo = "DOMHTMLScriptElement::charset"+    attrGet _ = getDOMHTMLScriptElementCharset+    attrSet _ = setDOMHTMLScriptElementCharset+    attrConstruct _ = constructDOMHTMLScriptElementCharset++-- VVV Prop "cross-origin"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text+getDOMHTMLScriptElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin"++setDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m ()+setDOMHTMLScriptElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val++constructDOMHTMLScriptElementCrossOrigin :: T.Text -> IO ([Char], GValue)+constructDOMHTMLScriptElementCrossOrigin val = constructObjectPropertyString "cross-origin" val++data DOMHTMLScriptElementCrossOriginPropertyInfo+instance AttrInfo DOMHTMLScriptElementCrossOriginPropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementCrossOriginPropertyInfo = T.Text+    type AttrLabel DOMHTMLScriptElementCrossOriginPropertyInfo = "DOMHTMLScriptElement::cross-origin"+    attrGet _ = getDOMHTMLScriptElementCrossOrigin+    attrSet _ = setDOMHTMLScriptElementCrossOrigin+    attrConstruct _ = constructDOMHTMLScriptElementCrossOrigin++-- VVV Prop "defer"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool+getDOMHTMLScriptElementDefer obj = liftIO $ getObjectPropertyBool obj "defer"++setDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> Bool -> m ()+setDOMHTMLScriptElementDefer obj val = liftIO $ setObjectPropertyBool obj "defer" val++constructDOMHTMLScriptElementDefer :: Bool -> IO ([Char], GValue)+constructDOMHTMLScriptElementDefer val = constructObjectPropertyBool "defer" val++data DOMHTMLScriptElementDeferPropertyInfo+instance AttrInfo DOMHTMLScriptElementDeferPropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementDeferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementDeferPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLScriptElementDeferPropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementDeferPropertyInfo = Bool+    type AttrLabel DOMHTMLScriptElementDeferPropertyInfo = "DOMHTMLScriptElement::defer"+    attrGet _ = getDOMHTMLScriptElementDefer+    attrSet _ = setDOMHTMLScriptElementDefer+    attrConstruct _ = constructDOMHTMLScriptElementDefer++-- VVV Prop "event"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text+getDOMHTMLScriptElementEvent obj = liftIO $ getObjectPropertyString obj "event"++setDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m ()+setDOMHTMLScriptElementEvent obj val = liftIO $ setObjectPropertyString obj "event" val++constructDOMHTMLScriptElementEvent :: T.Text -> IO ([Char], GValue)+constructDOMHTMLScriptElementEvent val = constructObjectPropertyString "event" val++data DOMHTMLScriptElementEventPropertyInfo+instance AttrInfo DOMHTMLScriptElementEventPropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementEventPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementEventPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLScriptElementEventPropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementEventPropertyInfo = T.Text+    type AttrLabel DOMHTMLScriptElementEventPropertyInfo = "DOMHTMLScriptElement::event"+    attrGet _ = getDOMHTMLScriptElementEvent+    attrSet _ = setDOMHTMLScriptElementEvent+    attrConstruct _ = constructDOMHTMLScriptElementEvent++-- VVV Prop "html-for"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text+getDOMHTMLScriptElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for"++setDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m ()+setDOMHTMLScriptElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val++constructDOMHTMLScriptElementHtmlFor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLScriptElementHtmlFor val = constructObjectPropertyString "html-for" val++data DOMHTMLScriptElementHtmlForPropertyInfo+instance AttrInfo DOMHTMLScriptElementHtmlForPropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementHtmlForPropertyInfo = T.Text+    type AttrLabel DOMHTMLScriptElementHtmlForPropertyInfo = "DOMHTMLScriptElement::html-for"+    attrGet _ = getDOMHTMLScriptElementHtmlFor+    attrSet _ = setDOMHTMLScriptElementHtmlFor+    attrConstruct _ = constructDOMHTMLScriptElementHtmlFor++-- VVV Prop "nonce"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text+getDOMHTMLScriptElementNonce obj = liftIO $ getObjectPropertyString obj "nonce"++setDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m ()+setDOMHTMLScriptElementNonce obj val = liftIO $ setObjectPropertyString obj "nonce" val++constructDOMHTMLScriptElementNonce :: T.Text -> IO ([Char], GValue)+constructDOMHTMLScriptElementNonce val = constructObjectPropertyString "nonce" val++data DOMHTMLScriptElementNoncePropertyInfo+instance AttrInfo DOMHTMLScriptElementNoncePropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementNoncePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementNoncePropertyInfo = T.Text+    type AttrLabel DOMHTMLScriptElementNoncePropertyInfo = "DOMHTMLScriptElement::nonce"+    attrGet _ = getDOMHTMLScriptElementNonce+    attrSet _ = setDOMHTMLScriptElementNonce+    attrConstruct _ = constructDOMHTMLScriptElementNonce++-- VVV Prop "src"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text+getDOMHTMLScriptElementSrc obj = liftIO $ getObjectPropertyString obj "src"++setDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m ()+setDOMHTMLScriptElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val++constructDOMHTMLScriptElementSrc :: T.Text -> IO ([Char], GValue)+constructDOMHTMLScriptElementSrc val = constructObjectPropertyString "src" val++data DOMHTMLScriptElementSrcPropertyInfo+instance AttrInfo DOMHTMLScriptElementSrcPropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementSrcPropertyInfo = T.Text+    type AttrLabel DOMHTMLScriptElementSrcPropertyInfo = "DOMHTMLScriptElement::src"+    attrGet _ = getDOMHTMLScriptElementSrc+    attrSet _ = setDOMHTMLScriptElementSrc+    attrConstruct _ = constructDOMHTMLScriptElementSrc++-- VVV Prop "text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text+getDOMHTMLScriptElementText obj = liftIO $ getObjectPropertyString obj "text"++setDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m ()+setDOMHTMLScriptElementText obj val = liftIO $ setObjectPropertyString obj "text" val++constructDOMHTMLScriptElementText :: T.Text -> IO ([Char], GValue)+constructDOMHTMLScriptElementText val = constructObjectPropertyString "text" val++data DOMHTMLScriptElementTextPropertyInfo+instance AttrInfo DOMHTMLScriptElementTextPropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLScriptElementTextPropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementTextPropertyInfo = T.Text+    type AttrLabel DOMHTMLScriptElementTextPropertyInfo = "DOMHTMLScriptElement::text"+    attrGet _ = getDOMHTMLScriptElementText+    attrSet _ = setDOMHTMLScriptElementText+    attrConstruct _ = constructDOMHTMLScriptElementText++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text+getDOMHTMLScriptElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m ()+setDOMHTMLScriptElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLScriptElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLScriptElementType val = constructObjectPropertyString "type" val++data DOMHTMLScriptElementTypePropertyInfo+instance AttrInfo DOMHTMLScriptElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLScriptElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLScriptElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLScriptElementTypePropertyInfo = DOMHTMLScriptElementK+    type AttrGetType DOMHTMLScriptElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLScriptElementTypePropertyInfo = "DOMHTMLScriptElement::type"+    attrGet _ = getDOMHTMLScriptElementType+    attrSet _ = setDOMHTMLScriptElementType+    attrConstruct _ = constructDOMHTMLScriptElementType++type instance AttributeList DOMHTMLScriptElement = DOMHTMLScriptElementAttributeList+type DOMHTMLScriptElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("async", DOMHTMLScriptElementAsyncPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLScriptElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cross-origin", DOMHTMLScriptElementCrossOriginPropertyInfo), '("defer", DOMHTMLScriptElementDeferPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("event", DOMHTMLScriptElementEventPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("html-for", DOMHTMLScriptElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("nonce", DOMHTMLScriptElementNoncePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLScriptElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLScriptElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLScriptElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLScriptElement = DOMHTMLScriptElementSignalList+type DOMHTMLScriptElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLScriptElement::get_charset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_charset" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLScriptElement::get_defer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_event" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLScriptElement::get_html_for+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_html_for" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLScriptElement::get_src+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_src" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLScriptElement::get_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLScriptElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLScriptElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_type_attr" webkit_dom_html_script_element_get_type_attr :: +    Ptr DOMHTMLScriptElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLScriptElement"+    IO CString+++dOMHTMLScriptElementGetTypeAttr ::+    (MonadIO m, DOMHTMLScriptElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLScriptElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_script_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_script_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLScriptElement::set_defer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_src+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++-- method DOMHTMLScriptElement::set_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr" webkit_dom_html_script_element_set_type_attr :: +    Ptr DOMHTMLScriptElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLScriptElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLScriptElementSetTypeAttr ::+    (MonadIO m, DOMHTMLScriptElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLScriptElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_script_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLScriptElement.hs-boot view
@@ -0,0 +1,23 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLScriptElement = DOMHTMLScriptElement (ForeignPtr DOMHTMLScriptElement)+instance GObject DOMHTMLScriptElement where+class GObject o => DOMHTMLScriptElementK o+instance (GObject o, IsDescendantOf DOMHTMLScriptElement o) => DOMHTMLScriptElementK o+data DOMHTMLScriptElementAsyncPropertyInfo+data DOMHTMLScriptElementCharsetPropertyInfo+data DOMHTMLScriptElementCrossOriginPropertyInfo+data DOMHTMLScriptElementDeferPropertyInfo+data DOMHTMLScriptElementEventPropertyInfo+data DOMHTMLScriptElementHtmlForPropertyInfo+data DOMHTMLScriptElementNoncePropertyInfo+data DOMHTMLScriptElementSrcPropertyInfo+data DOMHTMLScriptElementTextPropertyInfo+data DOMHTMLScriptElementTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs view
@@ -0,0 +1,1246 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLSelectElement+    ( ++-- * Exported types+    DOMHTMLSelectElement(..)                ,+    DOMHTMLSelectElementK                   ,+    toDOMHTMLSelectElement                  ,+    noDOMHTMLSelectElement                  ,+++ -- * Methods+-- ** dOMHTMLSelectElementAdd+    dOMHTMLSelectElementAdd                 ,+++-- ** dOMHTMLSelectElementGetAutofocus+    dOMHTMLSelectElementGetAutofocus        ,+++-- ** dOMHTMLSelectElementGetDisabled+    dOMHTMLSelectElementGetDisabled         ,+++-- ** dOMHTMLSelectElementGetForm+    dOMHTMLSelectElementGetForm             ,+++-- ** dOMHTMLSelectElementGetLength+    dOMHTMLSelectElementGetLength           ,+++-- ** dOMHTMLSelectElementGetMultiple+    dOMHTMLSelectElementGetMultiple         ,+++-- ** dOMHTMLSelectElementGetName+    dOMHTMLSelectElementGetName             ,+++-- ** dOMHTMLSelectElementGetOptions+    dOMHTMLSelectElementGetOptions          ,+++-- ** dOMHTMLSelectElementGetSelectType+    dOMHTMLSelectElementGetSelectType       ,+++-- ** dOMHTMLSelectElementGetSelectedIndex+    dOMHTMLSelectElementGetSelectedIndex    ,+++-- ** dOMHTMLSelectElementGetSize+    dOMHTMLSelectElementGetSize             ,+++-- ** dOMHTMLSelectElementGetValue+    dOMHTMLSelectElementGetValue            ,+++-- ** dOMHTMLSelectElementGetWillValidate+    dOMHTMLSelectElementGetWillValidate     ,+++-- ** dOMHTMLSelectElementItem+    dOMHTMLSelectElementItem                ,+++-- ** dOMHTMLSelectElementNamedItem+    dOMHTMLSelectElementNamedItem           ,+++-- ** dOMHTMLSelectElementRemove+    dOMHTMLSelectElementRemove              ,+++-- ** dOMHTMLSelectElementSetAutofocus+    dOMHTMLSelectElementSetAutofocus        ,+++-- ** dOMHTMLSelectElementSetDisabled+    dOMHTMLSelectElementSetDisabled         ,+++-- ** dOMHTMLSelectElementSetLength+    dOMHTMLSelectElementSetLength           ,+++-- ** dOMHTMLSelectElementSetMultiple+    dOMHTMLSelectElementSetMultiple         ,+++-- ** dOMHTMLSelectElementSetName+    dOMHTMLSelectElementSetName             ,+++-- ** dOMHTMLSelectElementSetSelectedIndex+    dOMHTMLSelectElementSetSelectedIndex    ,+++-- ** dOMHTMLSelectElementSetSize+    dOMHTMLSelectElementSetSize             ,+++-- ** dOMHTMLSelectElementSetValue+    dOMHTMLSelectElementSetValue            ,+++++ -- * Properties+-- ** Autofocus+    DOMHTMLSelectElementAutofocusPropertyInfo,+    constructDOMHTMLSelectElementAutofocus  ,+    getDOMHTMLSelectElementAutofocus        ,+    setDOMHTMLSelectElementAutofocus        ,+++-- ** Disabled+    DOMHTMLSelectElementDisabledPropertyInfo,+    constructDOMHTMLSelectElementDisabled   ,+    getDOMHTMLSelectElementDisabled         ,+    setDOMHTMLSelectElementDisabled         ,+++-- ** Form+    DOMHTMLSelectElementFormPropertyInfo    ,+    getDOMHTMLSelectElementForm             ,+++-- ** Labels+    DOMHTMLSelectElementLabelsPropertyInfo  ,+    getDOMHTMLSelectElementLabels           ,+++-- ** Length+    DOMHTMLSelectElementLengthPropertyInfo  ,+    constructDOMHTMLSelectElementLength     ,+    getDOMHTMLSelectElementLength           ,+    setDOMHTMLSelectElementLength           ,+++-- ** Multiple+    DOMHTMLSelectElementMultiplePropertyInfo,+    constructDOMHTMLSelectElementMultiple   ,+    getDOMHTMLSelectElementMultiple         ,+    setDOMHTMLSelectElementMultiple         ,+++-- ** Name+    DOMHTMLSelectElementNamePropertyInfo    ,+    constructDOMHTMLSelectElementName       ,+    getDOMHTMLSelectElementName             ,+    setDOMHTMLSelectElementName             ,+++-- ** Options+    DOMHTMLSelectElementOptionsPropertyInfo ,+    getDOMHTMLSelectElementOptions          ,+++-- ** Required+    DOMHTMLSelectElementRequiredPropertyInfo,+    constructDOMHTMLSelectElementRequired   ,+    getDOMHTMLSelectElementRequired         ,+    setDOMHTMLSelectElementRequired         ,+++-- ** SelectedIndex+    DOMHTMLSelectElementSelectedIndexPropertyInfo,+    constructDOMHTMLSelectElementSelectedIndex,+    getDOMHTMLSelectElementSelectedIndex    ,+    setDOMHTMLSelectElementSelectedIndex    ,+++-- ** SelectedOptions+    DOMHTMLSelectElementSelectedOptionsPropertyInfo,+    getDOMHTMLSelectElementSelectedOptions  ,+++-- ** Size+    DOMHTMLSelectElementSizePropertyInfo    ,+    constructDOMHTMLSelectElementSize       ,+    getDOMHTMLSelectElementSize             ,+    setDOMHTMLSelectElementSize             ,+++-- ** Type+    DOMHTMLSelectElementTypePropertyInfo    ,+    getDOMHTMLSelectElementType             ,+++-- ** ValidationMessage+    DOMHTMLSelectElementValidationMessagePropertyInfo,+    getDOMHTMLSelectElementValidationMessage,+++-- ** Value+    DOMHTMLSelectElementValuePropertyInfo   ,+    constructDOMHTMLSelectElementValue      ,+    getDOMHTMLSelectElementValue            ,+    setDOMHTMLSelectElementValue            ,+++-- ** WillValidate+    DOMHTMLSelectElementWillValidatePropertyInfo,+    getDOMHTMLSelectElementWillValidate     ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLSelectElement = DOMHTMLSelectElement (ForeignPtr DOMHTMLSelectElement)+foreign import ccall "webkit_dom_html_select_element_get_type"+    c_webkit_dom_html_select_element_get_type :: IO GType++type instance ParentTypes DOMHTMLSelectElement = DOMHTMLSelectElementParentTypes+type DOMHTMLSelectElementParentTypes = '[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++noDOMHTMLSelectElement :: Maybe DOMHTMLSelectElement+noDOMHTMLSelectElement = Nothing++-- VVV Prop "autofocus"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool+getDOMHTMLSelectElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus"++setDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m ()+setDOMHTMLSelectElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val++constructDOMHTMLSelectElementAutofocus :: Bool -> IO ([Char], GValue)+constructDOMHTMLSelectElementAutofocus val = constructObjectPropertyBool "autofocus" val++data DOMHTMLSelectElementAutofocusPropertyInfo+instance AttrInfo DOMHTMLSelectElementAutofocusPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementAutofocusPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLSelectElementAutofocusPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementAutofocusPropertyInfo = Bool+    type AttrLabel DOMHTMLSelectElementAutofocusPropertyInfo = "DOMHTMLSelectElement::autofocus"+    attrGet _ = getDOMHTMLSelectElementAutofocus+    attrSet _ = setDOMHTMLSelectElementAutofocus+    attrConstruct _ = constructDOMHTMLSelectElementAutofocus++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool+getDOMHTMLSelectElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m ()+setDOMHTMLSelectElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLSelectElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLSelectElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLSelectElementDisabledPropertyInfo+instance AttrInfo DOMHTMLSelectElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLSelectElementDisabledPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLSelectElementDisabledPropertyInfo = "DOMHTMLSelectElement::disabled"+    attrGet _ = getDOMHTMLSelectElementDisabled+    attrSet _ = setDOMHTMLSelectElementDisabled+    attrConstruct _ = constructDOMHTMLSelectElementDisabled++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLSelectElementForm :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLSelectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLSelectElementFormPropertyInfo+instance AttrInfo DOMHTMLSelectElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLSelectElementFormPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLSelectElementFormPropertyInfo = "DOMHTMLSelectElement::form"+    attrGet _ = getDOMHTMLSelectElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "labels"+   -- Type: TInterface "WebKit2WebExtension" "DOMNodeList"+   -- Flags: [PropertyReadable]++getDOMHTMLSelectElementLabels :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMNodeList+getDOMHTMLSelectElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList++data DOMHTMLSelectElementLabelsPropertyInfo+instance AttrInfo DOMHTMLSelectElementLabelsPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementLabelsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementLabelsPropertyInfo = DOMNodeList+    type AttrLabel DOMHTMLSelectElementLabelsPropertyInfo = "DOMHTMLSelectElement::labels"+    attrGet _ = getDOMHTMLSelectElementLabels+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Word64+getDOMHTMLSelectElementLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++setDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Word64 -> m ()+setDOMHTMLSelectElementLength obj val = liftIO $ setObjectPropertyUInt64 obj "length" val++constructDOMHTMLSelectElementLength :: Word64 -> IO ([Char], GValue)+constructDOMHTMLSelectElementLength val = constructObjectPropertyUInt64 "length" val++data DOMHTMLSelectElementLengthPropertyInfo+instance AttrInfo DOMHTMLSelectElementLengthPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = (~) Word64+    type AttrBaseTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementLengthPropertyInfo = Word64+    type AttrLabel DOMHTMLSelectElementLengthPropertyInfo = "DOMHTMLSelectElement::length"+    attrGet _ = getDOMHTMLSelectElementLength+    attrSet _ = setDOMHTMLSelectElementLength+    attrConstruct _ = constructDOMHTMLSelectElementLength++-- VVV Prop "multiple"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool+getDOMHTMLSelectElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple"++setDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m ()+setDOMHTMLSelectElementMultiple obj val = liftIO $ setObjectPropertyBool obj "multiple" val++constructDOMHTMLSelectElementMultiple :: Bool -> IO ([Char], GValue)+constructDOMHTMLSelectElementMultiple val = constructObjectPropertyBool "multiple" val++data DOMHTMLSelectElementMultiplePropertyInfo+instance AttrInfo DOMHTMLSelectElementMultiplePropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementMultiplePropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLSelectElementMultiplePropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementMultiplePropertyInfo = Bool+    type AttrLabel DOMHTMLSelectElementMultiplePropertyInfo = "DOMHTMLSelectElement::multiple"+    attrGet _ = getDOMHTMLSelectElementMultiple+    attrSet _ = setDOMHTMLSelectElementMultiple+    attrConstruct _ = constructDOMHTMLSelectElementMultiple++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text+getDOMHTMLSelectElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m ()+setDOMHTMLSelectElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLSelectElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLSelectElementName val = constructObjectPropertyString "name" val++data DOMHTMLSelectElementNamePropertyInfo+instance AttrInfo DOMHTMLSelectElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLSelectElementNamePropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLSelectElementNamePropertyInfo = "DOMHTMLSelectElement::name"+    attrGet _ = getDOMHTMLSelectElementName+    attrSet _ = setDOMHTMLSelectElementName+    attrConstruct _ = constructDOMHTMLSelectElementName++-- VVV Prop "options"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLOptionsCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLSelectElementOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLOptionsCollection+getDOMHTMLSelectElementOptions obj = liftIO $ getObjectPropertyObject obj "options" DOMHTMLOptionsCollection++data DOMHTMLSelectElementOptionsPropertyInfo+instance AttrInfo DOMHTMLSelectElementOptionsPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementOptionsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLOptionsCollection+    type AttrLabel DOMHTMLSelectElementOptionsPropertyInfo = "DOMHTMLSelectElement::options"+    attrGet _ = getDOMHTMLSelectElementOptions+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "required"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool+getDOMHTMLSelectElementRequired obj = liftIO $ getObjectPropertyBool obj "required"++setDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m ()+setDOMHTMLSelectElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val++constructDOMHTMLSelectElementRequired :: Bool -> IO ([Char], GValue)+constructDOMHTMLSelectElementRequired val = constructObjectPropertyBool "required" val++data DOMHTMLSelectElementRequiredPropertyInfo+instance AttrInfo DOMHTMLSelectElementRequiredPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementRequiredPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLSelectElementRequiredPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementRequiredPropertyInfo = Bool+    type AttrLabel DOMHTMLSelectElementRequiredPropertyInfo = "DOMHTMLSelectElement::required"+    attrGet _ = getDOMHTMLSelectElementRequired+    attrSet _ = setDOMHTMLSelectElementRequired+    attrConstruct _ = constructDOMHTMLSelectElementRequired++-- VVV Prop "selected-index"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64+getDOMHTMLSelectElementSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index"++setDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m ()+setDOMHTMLSelectElementSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val++constructDOMHTMLSelectElementSelectedIndex :: Int64 -> IO ([Char], GValue)+constructDOMHTMLSelectElementSelectedIndex val = constructObjectPropertyInt64 "selected-index" val++data DOMHTMLSelectElementSelectedIndexPropertyInfo+instance AttrInfo DOMHTMLSelectElementSelectedIndexPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementSelectedIndexPropertyInfo = Int64+    type AttrLabel DOMHTMLSelectElementSelectedIndexPropertyInfo = "DOMHTMLSelectElement::selected-index"+    attrGet _ = getDOMHTMLSelectElementSelectedIndex+    attrSet _ = setDOMHTMLSelectElementSelectedIndex+    attrConstruct _ = constructDOMHTMLSelectElementSelectedIndex++-- VVV Prop "selected-options"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLSelectElementSelectedOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLCollection+getDOMHTMLSelectElementSelectedOptions obj = liftIO $ getObjectPropertyObject obj "selected-options" DOMHTMLCollection++data DOMHTMLSelectElementSelectedOptionsPropertyInfo+instance AttrInfo DOMHTMLSelectElementSelectedOptionsPropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementSelectedOptionsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLSelectElementSelectedOptionsPropertyInfo = "DOMHTMLSelectElement::selected-options"+    attrGet _ = getDOMHTMLSelectElementSelectedOptions+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "size"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64+getDOMHTMLSelectElementSize obj = liftIO $ getObjectPropertyInt64 obj "size"++setDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m ()+setDOMHTMLSelectElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val++constructDOMHTMLSelectElementSize :: Int64 -> IO ([Char], GValue)+constructDOMHTMLSelectElementSize val = constructObjectPropertyInt64 "size" val++data DOMHTMLSelectElementSizePropertyInfo+instance AttrInfo DOMHTMLSelectElementSizePropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementSizePropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLSelectElementSizePropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementSizePropertyInfo = Int64+    type AttrLabel DOMHTMLSelectElementSizePropertyInfo = "DOMHTMLSelectElement::size"+    attrGet _ = getDOMHTMLSelectElementSize+    attrSet _ = setDOMHTMLSelectElementSize+    attrConstruct _ = constructDOMHTMLSelectElementSize++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLSelectElementType :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text+getDOMHTMLSelectElementType obj = liftIO $ getObjectPropertyString obj "type"++data DOMHTMLSelectElementTypePropertyInfo+instance AttrInfo DOMHTMLSelectElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLSelectElementTypePropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLSelectElementTypePropertyInfo = "DOMHTMLSelectElement::type"+    attrGet _ = getDOMHTMLSelectElementType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "validation-message"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLSelectElementValidationMessage :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text+getDOMHTMLSelectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message"++data DOMHTMLSelectElementValidationMessagePropertyInfo+instance AttrInfo DOMHTMLSelectElementValidationMessagePropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementValidationMessagePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementValidationMessagePropertyInfo = T.Text+    type AttrLabel DOMHTMLSelectElementValidationMessagePropertyInfo = "DOMHTMLSelectElement::validation-message"+    attrGet _ = getDOMHTMLSelectElementValidationMessage+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text+getDOMHTMLSelectElementValue obj = liftIO $ getObjectPropertyString obj "value"++setDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m ()+setDOMHTMLSelectElementValue obj val = liftIO $ setObjectPropertyString obj "value" val++constructDOMHTMLSelectElementValue :: T.Text -> IO ([Char], GValue)+constructDOMHTMLSelectElementValue val = constructObjectPropertyString "value" val++data DOMHTMLSelectElementValuePropertyInfo+instance AttrInfo DOMHTMLSelectElementValuePropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLSelectElementValuePropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementValuePropertyInfo = T.Text+    type AttrLabel DOMHTMLSelectElementValuePropertyInfo = "DOMHTMLSelectElement::value"+    attrGet _ = getDOMHTMLSelectElementValue+    attrSet _ = setDOMHTMLSelectElementValue+    attrConstruct _ = constructDOMHTMLSelectElementValue++-- VVV Prop "will-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMHTMLSelectElementWillValidate :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool+getDOMHTMLSelectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate"++data DOMHTMLSelectElementWillValidatePropertyInfo+instance AttrInfo DOMHTMLSelectElementWillValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLSelectElementWillValidatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLSelectElementWillValidatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLSelectElementWillValidatePropertyInfo = DOMHTMLSelectElementK+    type AttrGetType DOMHTMLSelectElementWillValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLSelectElementWillValidatePropertyInfo = "DOMHTMLSelectElement::will-validate"+    attrGet _ = getDOMHTMLSelectElementWillValidate+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMHTMLSelectElement = DOMHTMLSelectElementAttributeList+type DOMHTMLSelectElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLSelectElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLSelectElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLSelectElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLSelectElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLSelectElementLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("multiple", DOMHTMLSelectElementMultiplePropertyInfo), '("name", DOMHTMLSelectElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("options", DOMHTMLSelectElementOptionsPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("required", DOMHTMLSelectElementRequiredPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selected-index", DOMHTMLSelectElementSelectedIndexPropertyInfo), '("selected-options", DOMHTMLSelectElementSelectedOptionsPropertyInfo), '("size", DOMHTMLSelectElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLSelectElementTypePropertyInfo), '("validation-message", DOMHTMLSelectElementValidationMessagePropertyInfo), '("value", DOMHTMLSelectElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLSelectElementWillValidatePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLSelectElement = DOMHTMLSelectElementSignalList+type DOMHTMLSelectElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLSelectElement::add+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "before", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "element", argType = TInterface "WebKit2WebExtension" "DOMHTMLElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "before", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLSelectElement"+    Ptr DOMHTMLElement ->                   -- element : TInterface "WebKit2WebExtension" "DOMHTMLElement"+    Ptr DOMHTMLElement ->                   -- before : TInterface "WebKit2WebExtension" "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::get_autofocus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLSelectElement::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLSelectElement::get_options+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_options" result+    result' <- (wrapObject DOMHTMLOptionsCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLSelectElement::get_select_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_select_type" webkit_dom_html_select_element_get_select_type :: +    Ptr DOMHTMLSelectElement ->             -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLSelectElement"+    IO CString+++dOMHTMLSelectElementGetSelectType ::+    (MonadIO m, DOMHTMLSelectElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLSelectElementGetSelectType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_select_element_get_select_type _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_select_type" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLSelectElement::get_selected_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_select_element_get_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLSelectElement::get_will_validate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLSelectElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_html_select_element_item" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLSelectElement::named_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_select_element_named_item" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    freeMem name'+    return result'++-- method DOMHTMLSelectElement::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_selected_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLSelectElement.hs-boot view
@@ -0,0 +1,29 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLSelectElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLSelectElement = DOMHTMLSelectElement (ForeignPtr DOMHTMLSelectElement)+instance GObject DOMHTMLSelectElement where+class GObject o => DOMHTMLSelectElementK o+instance (GObject o, IsDescendantOf DOMHTMLSelectElement o) => DOMHTMLSelectElementK o+data DOMHTMLSelectElementAutofocusPropertyInfo+data DOMHTMLSelectElementDisabledPropertyInfo+data DOMHTMLSelectElementFormPropertyInfo+data DOMHTMLSelectElementLabelsPropertyInfo+data DOMHTMLSelectElementLengthPropertyInfo+data DOMHTMLSelectElementMultiplePropertyInfo+data DOMHTMLSelectElementNamePropertyInfo+data DOMHTMLSelectElementOptionsPropertyInfo+data DOMHTMLSelectElementRequiredPropertyInfo+data DOMHTMLSelectElementSelectedIndexPropertyInfo+data DOMHTMLSelectElementSelectedOptionsPropertyInfo+data DOMHTMLSelectElementSizePropertyInfo+data DOMHTMLSelectElementTypePropertyInfo+data DOMHTMLSelectElementValidationMessagePropertyInfo+data DOMHTMLSelectElementValuePropertyInfo+data DOMHTMLSelectElementWillValidatePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs view
@@ -0,0 +1,396 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLStyleElement+    ( ++-- * Exported types+    DOMHTMLStyleElement(..)                 ,+    DOMHTMLStyleElementK                    ,+    toDOMHTMLStyleElement                   ,+    noDOMHTMLStyleElement                   ,+++ -- * Methods+-- ** dOMHTMLStyleElementGetDisabled+    dOMHTMLStyleElementGetDisabled          ,+++-- ** dOMHTMLStyleElementGetMedia+    dOMHTMLStyleElementGetMedia             ,+++-- ** dOMHTMLStyleElementGetSheet+    dOMHTMLStyleElementGetSheet             ,+++-- ** dOMHTMLStyleElementGetTypeAttr+    dOMHTMLStyleElementGetTypeAttr          ,+++-- ** dOMHTMLStyleElementSetDisabled+    dOMHTMLStyleElementSetDisabled          ,+++-- ** dOMHTMLStyleElementSetMedia+    dOMHTMLStyleElementSetMedia             ,+++-- ** dOMHTMLStyleElementSetTypeAttr+    dOMHTMLStyleElementSetTypeAttr          ,+++++ -- * Properties+-- ** Disabled+    DOMHTMLStyleElementDisabledPropertyInfo ,+    constructDOMHTMLStyleElementDisabled    ,+    getDOMHTMLStyleElementDisabled          ,+    setDOMHTMLStyleElementDisabled          ,+++-- ** Media+    DOMHTMLStyleElementMediaPropertyInfo    ,+    constructDOMHTMLStyleElementMedia       ,+    getDOMHTMLStyleElementMedia             ,+    setDOMHTMLStyleElementMedia             ,+++-- ** Sheet+    DOMHTMLStyleElementSheetPropertyInfo    ,+    getDOMHTMLStyleElementSheet             ,+++-- ** Type+    DOMHTMLStyleElementTypePropertyInfo     ,+    constructDOMHTMLStyleElementType        ,+    getDOMHTMLStyleElementType              ,+    setDOMHTMLStyleElementType              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLStyleElement = DOMHTMLStyleElement (ForeignPtr DOMHTMLStyleElement)+foreign import ccall "webkit_dom_html_style_element_get_type"+    c_webkit_dom_html_style_element_get_type :: IO GType++type instance ParentTypes DOMHTMLStyleElement = DOMHTMLStyleElementParentTypes+type DOMHTMLStyleElementParentTypes = '[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++noDOMHTMLStyleElement :: Maybe DOMHTMLStyleElement+noDOMHTMLStyleElement = Nothing++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m Bool+getDOMHTMLStyleElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> Bool -> m ()+setDOMHTMLStyleElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLStyleElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLStyleElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLStyleElementDisabledPropertyInfo+instance AttrInfo DOMHTMLStyleElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLStyleElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLStyleElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLStyleElementDisabledPropertyInfo = DOMHTMLStyleElementK+    type AttrGetType DOMHTMLStyleElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLStyleElementDisabledPropertyInfo = "DOMHTMLStyleElement::disabled"+    attrGet _ = getDOMHTMLStyleElementDisabled+    attrSet _ = setDOMHTMLStyleElementDisabled+    attrConstruct _ = constructDOMHTMLStyleElementDisabled++-- VVV Prop "media"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text+getDOMHTMLStyleElementMedia obj = liftIO $ getObjectPropertyString obj "media"++setDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m ()+setDOMHTMLStyleElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val++constructDOMHTMLStyleElementMedia :: T.Text -> IO ([Char], GValue)+constructDOMHTMLStyleElementMedia val = constructObjectPropertyString "media" val++data DOMHTMLStyleElementMediaPropertyInfo+instance AttrInfo DOMHTMLStyleElementMediaPropertyInfo where+    type AttrAllowedOps DOMHTMLStyleElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = DOMHTMLStyleElementK+    type AttrGetType DOMHTMLStyleElementMediaPropertyInfo = T.Text+    type AttrLabel DOMHTMLStyleElementMediaPropertyInfo = "DOMHTMLStyleElement::media"+    attrGet _ = getDOMHTMLStyleElementMedia+    attrSet _ = setDOMHTMLStyleElementMedia+    attrConstruct _ = constructDOMHTMLStyleElementMedia++-- VVV Prop "sheet"+   -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheet"+   -- Flags: [PropertyReadable]++getDOMHTMLStyleElementSheet :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m DOMStyleSheet+getDOMHTMLStyleElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet++data DOMHTMLStyleElementSheetPropertyInfo+instance AttrInfo DOMHTMLStyleElementSheetPropertyInfo where+    type AttrAllowedOps DOMHTMLStyleElementSheetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = DOMHTMLStyleElementK+    type AttrGetType DOMHTMLStyleElementSheetPropertyInfo = DOMStyleSheet+    type AttrLabel DOMHTMLStyleElementSheetPropertyInfo = "DOMHTMLStyleElement::sheet"+    attrGet _ = getDOMHTMLStyleElementSheet+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text+getDOMHTMLStyleElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m ()+setDOMHTMLStyleElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLStyleElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLStyleElementType val = constructObjectPropertyString "type" val++data DOMHTMLStyleElementTypePropertyInfo+instance AttrInfo DOMHTMLStyleElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLStyleElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLStyleElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLStyleElementTypePropertyInfo = DOMHTMLStyleElementK+    type AttrGetType DOMHTMLStyleElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLStyleElementTypePropertyInfo = "DOMHTMLStyleElement::type"+    attrGet _ = getDOMHTMLStyleElementType+    attrSet _ = setDOMHTMLStyleElementType+    attrConstruct _ = constructDOMHTMLStyleElementType++type instance AttributeList DOMHTMLStyleElement = DOMHTMLStyleElementAttributeList+type DOMHTMLStyleElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLStyleElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLStyleElementMediaPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLStyleElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLStyleElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLStyleElement = DOMHTMLStyleElementSignalList+type DOMHTMLStyleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLStyleElement::get_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_style_element_get_media" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLStyleElement::get_sheet+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_style_element_get_sheet" result+    result' <- (wrapObject DOMStyleSheet) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLStyleElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLStyleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_type_attr" webkit_dom_html_style_element_get_type_attr :: +    Ptr DOMHTMLStyleElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLStyleElement"+    IO CString+++dOMHTMLStyleElementGetTypeAttr ::+    (MonadIO m, DOMHTMLStyleElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLStyleElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_style_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_style_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLStyleElement::set_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_type_attr" webkit_dom_html_style_element_set_type_attr :: +    Ptr DOMHTMLStyleElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLStyleElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLStyleElementSetTypeAttr ::+    (MonadIO m, DOMHTMLStyleElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLStyleElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_style_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLStyleElement.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLStyleElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLStyleElement = DOMHTMLStyleElement (ForeignPtr DOMHTMLStyleElement)+instance GObject DOMHTMLStyleElement where+class GObject o => DOMHTMLStyleElementK o+instance (GObject o, IsDescendantOf DOMHTMLStyleElement o) => DOMHTMLStyleElementK o+data DOMHTMLStyleElementDisabledPropertyInfo+data DOMHTMLStyleElementMediaPropertyInfo+data DOMHTMLStyleElementSheetPropertyInfo+data DOMHTMLStyleElementTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs view
@@ -0,0 +1,158 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLTableCaptionElement+    ( ++-- * Exported types+    DOMHTMLTableCaptionElement(..)          ,+    DOMHTMLTableCaptionElementK             ,+    toDOMHTMLTableCaptionElement            ,+    noDOMHTMLTableCaptionElement            ,+++ -- * Methods+-- ** dOMHTMLTableCaptionElementGetAlign+    dOMHTMLTableCaptionElementGetAlign      ,+++-- ** dOMHTMLTableCaptionElementSetAlign+    dOMHTMLTableCaptionElementSetAlign      ,+++++ -- * Properties+-- ** Align+    DOMHTMLTableCaptionElementAlignPropertyInfo,+    constructDOMHTMLTableCaptionElementAlign,+    getDOMHTMLTableCaptionElementAlign      ,+    setDOMHTMLTableCaptionElementAlign      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElement (ForeignPtr DOMHTMLTableCaptionElement)+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 = DOMHTMLTableCaptionElementParentTypes+type DOMHTMLTableCaptionElementParentTypes = '[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++noDOMHTMLTableCaptionElement :: Maybe DOMHTMLTableCaptionElement+noDOMHTMLTableCaptionElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> m T.Text+getDOMHTMLTableCaptionElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCaptionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLTableCaptionElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCaptionElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLTableCaptionElementAlignPropertyInfo+instance AttrInfo DOMHTMLTableCaptionElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCaptionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = DOMHTMLTableCaptionElementK+    type AttrGetType DOMHTMLTableCaptionElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCaptionElementAlignPropertyInfo = "DOMHTMLTableCaptionElement::align"+    attrGet _ = getDOMHTMLTableCaptionElementAlign+    attrSet _ = setDOMHTMLTableCaptionElementAlign+    attrConstruct _ = constructDOMHTMLTableCaptionElementAlign++type instance AttributeList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementAttributeList+type DOMHTMLTableCaptionElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCaptionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElementSignalList+type DOMHTMLTableCaptionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLTableCaptionElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_caption_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCaptionElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableCaptionElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLTableCaptionElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLTableCaptionElement = DOMHTMLTableCaptionElement (ForeignPtr DOMHTMLTableCaptionElement)+instance GObject DOMHTMLTableCaptionElement where+class GObject o => DOMHTMLTableCaptionElementK o+instance (GObject o, IsDescendantOf DOMHTMLTableCaptionElement o) => DOMHTMLTableCaptionElementK o+data DOMHTMLTableCaptionElementAlignPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs view
@@ -0,0 +1,1418 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLTableCellElement+    ( ++-- * Exported types+    DOMHTMLTableCellElement(..)             ,+    DOMHTMLTableCellElementK                ,+    toDOMHTMLTableCellElement               ,+    noDOMHTMLTableCellElement               ,+++ -- * Methods+-- ** dOMHTMLTableCellElementGetAbbr+    dOMHTMLTableCellElementGetAbbr          ,+++-- ** dOMHTMLTableCellElementGetAlign+    dOMHTMLTableCellElementGetAlign         ,+++-- ** dOMHTMLTableCellElementGetAxis+    dOMHTMLTableCellElementGetAxis          ,+++-- ** dOMHTMLTableCellElementGetBgColor+    dOMHTMLTableCellElementGetBgColor       ,+++-- ** dOMHTMLTableCellElementGetCellIndex+    dOMHTMLTableCellElementGetCellIndex     ,+++-- ** dOMHTMLTableCellElementGetCh+    dOMHTMLTableCellElementGetCh            ,+++-- ** dOMHTMLTableCellElementGetChOff+    dOMHTMLTableCellElementGetChOff         ,+++-- ** dOMHTMLTableCellElementGetColSpan+    dOMHTMLTableCellElementGetColSpan       ,+++-- ** dOMHTMLTableCellElementGetHeaders+    dOMHTMLTableCellElementGetHeaders       ,+++-- ** dOMHTMLTableCellElementGetHeight+    dOMHTMLTableCellElementGetHeight        ,+++-- ** dOMHTMLTableCellElementGetNoWrap+    dOMHTMLTableCellElementGetNoWrap        ,+++-- ** dOMHTMLTableCellElementGetRowSpan+    dOMHTMLTableCellElementGetRowSpan       ,+++-- ** dOMHTMLTableCellElementGetScope+    dOMHTMLTableCellElementGetScope         ,+++-- ** dOMHTMLTableCellElementGetVAlign+    dOMHTMLTableCellElementGetVAlign        ,+++-- ** dOMHTMLTableCellElementGetWidth+    dOMHTMLTableCellElementGetWidth         ,+++-- ** dOMHTMLTableCellElementSetAbbr+    dOMHTMLTableCellElementSetAbbr          ,+++-- ** dOMHTMLTableCellElementSetAlign+    dOMHTMLTableCellElementSetAlign         ,+++-- ** dOMHTMLTableCellElementSetAxis+    dOMHTMLTableCellElementSetAxis          ,+++-- ** dOMHTMLTableCellElementSetBgColor+    dOMHTMLTableCellElementSetBgColor       ,+++-- ** dOMHTMLTableCellElementSetCh+    dOMHTMLTableCellElementSetCh            ,+++-- ** dOMHTMLTableCellElementSetChOff+    dOMHTMLTableCellElementSetChOff         ,+++-- ** dOMHTMLTableCellElementSetColSpan+    dOMHTMLTableCellElementSetColSpan       ,+++-- ** dOMHTMLTableCellElementSetHeaders+    dOMHTMLTableCellElementSetHeaders       ,+++-- ** dOMHTMLTableCellElementSetHeight+    dOMHTMLTableCellElementSetHeight        ,+++-- ** dOMHTMLTableCellElementSetNoWrap+    dOMHTMLTableCellElementSetNoWrap        ,+++-- ** dOMHTMLTableCellElementSetRowSpan+    dOMHTMLTableCellElementSetRowSpan       ,+++-- ** dOMHTMLTableCellElementSetScope+    dOMHTMLTableCellElementSetScope         ,+++-- ** dOMHTMLTableCellElementSetVAlign+    dOMHTMLTableCellElementSetVAlign        ,+++-- ** dOMHTMLTableCellElementSetWidth+    dOMHTMLTableCellElementSetWidth         ,+++++ -- * Properties+-- ** Abbr+    DOMHTMLTableCellElementAbbrPropertyInfo ,+    constructDOMHTMLTableCellElementAbbr    ,+    getDOMHTMLTableCellElementAbbr          ,+    setDOMHTMLTableCellElementAbbr          ,+++-- ** Align+    DOMHTMLTableCellElementAlignPropertyInfo,+    constructDOMHTMLTableCellElementAlign   ,+    getDOMHTMLTableCellElementAlign         ,+    setDOMHTMLTableCellElementAlign         ,+++-- ** Axis+    DOMHTMLTableCellElementAxisPropertyInfo ,+    constructDOMHTMLTableCellElementAxis    ,+    getDOMHTMLTableCellElementAxis          ,+    setDOMHTMLTableCellElementAxis          ,+++-- ** BgColor+    DOMHTMLTableCellElementBgColorPropertyInfo,+    constructDOMHTMLTableCellElementBgColor ,+    getDOMHTMLTableCellElementBgColor       ,+    setDOMHTMLTableCellElementBgColor       ,+++-- ** CellIndex+    DOMHTMLTableCellElementCellIndexPropertyInfo,+    getDOMHTMLTableCellElementCellIndex     ,+++-- ** Ch+    DOMHTMLTableCellElementChPropertyInfo   ,+    constructDOMHTMLTableCellElementCh      ,+    getDOMHTMLTableCellElementCh            ,+    setDOMHTMLTableCellElementCh            ,+++-- ** ChOff+    DOMHTMLTableCellElementChOffPropertyInfo,+    constructDOMHTMLTableCellElementChOff   ,+    getDOMHTMLTableCellElementChOff         ,+    setDOMHTMLTableCellElementChOff         ,+++-- ** ColSpan+    DOMHTMLTableCellElementColSpanPropertyInfo,+    constructDOMHTMLTableCellElementColSpan ,+    getDOMHTMLTableCellElementColSpan       ,+    setDOMHTMLTableCellElementColSpan       ,+++-- ** Headers+    DOMHTMLTableCellElementHeadersPropertyInfo,+    constructDOMHTMLTableCellElementHeaders ,+    getDOMHTMLTableCellElementHeaders       ,+    setDOMHTMLTableCellElementHeaders       ,+++-- ** Height+    DOMHTMLTableCellElementHeightPropertyInfo,+    constructDOMHTMLTableCellElementHeight  ,+    getDOMHTMLTableCellElementHeight        ,+    setDOMHTMLTableCellElementHeight        ,+++-- ** NoWrap+    DOMHTMLTableCellElementNoWrapPropertyInfo,+    constructDOMHTMLTableCellElementNoWrap  ,+    getDOMHTMLTableCellElementNoWrap        ,+    setDOMHTMLTableCellElementNoWrap        ,+++-- ** RowSpan+    DOMHTMLTableCellElementRowSpanPropertyInfo,+    constructDOMHTMLTableCellElementRowSpan ,+    getDOMHTMLTableCellElementRowSpan       ,+    setDOMHTMLTableCellElementRowSpan       ,+++-- ** Scope+    DOMHTMLTableCellElementScopePropertyInfo,+    constructDOMHTMLTableCellElementScope   ,+    getDOMHTMLTableCellElementScope         ,+    setDOMHTMLTableCellElementScope         ,+++-- ** VAlign+    DOMHTMLTableCellElementVAlignPropertyInfo,+    constructDOMHTMLTableCellElementVAlign  ,+    getDOMHTMLTableCellElementVAlign        ,+    setDOMHTMLTableCellElementVAlign        ,+++-- ** Width+    DOMHTMLTableCellElementWidthPropertyInfo,+    constructDOMHTMLTableCellElementWidth   ,+    getDOMHTMLTableCellElementWidth         ,+    setDOMHTMLTableCellElementWidth         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLTableCellElement = DOMHTMLTableCellElement (ForeignPtr DOMHTMLTableCellElement)+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 = DOMHTMLTableCellElementParentTypes+type DOMHTMLTableCellElementParentTypes = '[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++noDOMHTMLTableCellElement :: Maybe DOMHTMLTableCellElement+noDOMHTMLTableCellElement = Nothing++-- VVV Prop "abbr"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementAbbr obj = liftIO $ getObjectPropertyString obj "abbr"++setDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementAbbr obj val = liftIO $ setObjectPropertyString obj "abbr" val++constructDOMHTMLTableCellElementAbbr :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementAbbr val = constructObjectPropertyString "abbr" val++data DOMHTMLTableCellElementAbbrPropertyInfo+instance AttrInfo DOMHTMLTableCellElementAbbrPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementAbbrPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementAbbrPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementAbbrPropertyInfo = "DOMHTMLTableCellElement::abbr"+    attrGet _ = getDOMHTMLTableCellElementAbbr+    attrSet _ = setDOMHTMLTableCellElementAbbr+    attrConstruct _ = constructDOMHTMLTableCellElementAbbr++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLTableCellElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLTableCellElementAlignPropertyInfo+instance AttrInfo DOMHTMLTableCellElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementAlignPropertyInfo = "DOMHTMLTableCellElement::align"+    attrGet _ = getDOMHTMLTableCellElementAlign+    attrSet _ = setDOMHTMLTableCellElementAlign+    attrConstruct _ = constructDOMHTMLTableCellElementAlign++-- VVV Prop "axis"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementAxis obj = liftIO $ getObjectPropertyString obj "axis"++setDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementAxis obj val = liftIO $ setObjectPropertyString obj "axis" val++constructDOMHTMLTableCellElementAxis :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementAxis val = constructObjectPropertyString "axis" val++data DOMHTMLTableCellElementAxisPropertyInfo+instance AttrInfo DOMHTMLTableCellElementAxisPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementAxisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementAxisPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementAxisPropertyInfo = "DOMHTMLTableCellElement::axis"+    attrGet _ = getDOMHTMLTableCellElementAxis+    attrSet _ = setDOMHTMLTableCellElementAxis+    attrConstruct _ = constructDOMHTMLTableCellElementAxis++-- VVV Prop "bg-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color"++setDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val++constructDOMHTMLTableCellElementBgColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementBgColor val = constructObjectPropertyString "bg-color" val++data DOMHTMLTableCellElementBgColorPropertyInfo+instance AttrInfo DOMHTMLTableCellElementBgColorPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementBgColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementBgColorPropertyInfo = "DOMHTMLTableCellElement::bg-color"+    attrGet _ = getDOMHTMLTableCellElementBgColor+    attrSet _ = setDOMHTMLTableCellElementBgColor+    attrConstruct _ = constructDOMHTMLTableCellElementBgColor++-- VVV Prop "cell-index"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLTableCellElementCellIndex :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64+getDOMHTMLTableCellElementCellIndex obj = liftIO $ getObjectPropertyInt64 obj "cell-index"++data DOMHTMLTableCellElementCellIndexPropertyInfo+instance AttrInfo DOMHTMLTableCellElementCellIndexPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementCellIndexPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementCellIndexPropertyInfo = Int64+    type AttrLabel DOMHTMLTableCellElementCellIndexPropertyInfo = "DOMHTMLTableCellElement::cell-index"+    attrGet _ = getDOMHTMLTableCellElementCellIndex+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "ch"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementCh obj = liftIO $ getObjectPropertyString obj "ch"++setDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val++constructDOMHTMLTableCellElementCh :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementCh val = constructObjectPropertyString "ch" val++data DOMHTMLTableCellElementChPropertyInfo+instance AttrInfo DOMHTMLTableCellElementChPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementChPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementChPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementChPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementChPropertyInfo = "DOMHTMLTableCellElement::ch"+    attrGet _ = getDOMHTMLTableCellElementCh+    attrSet _ = setDOMHTMLTableCellElementCh+    attrConstruct _ = constructDOMHTMLTableCellElementCh++-- VVV Prop "ch-off"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off"++setDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val++constructDOMHTMLTableCellElementChOff :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementChOff val = constructObjectPropertyString "ch-off" val++data DOMHTMLTableCellElementChOffPropertyInfo+instance AttrInfo DOMHTMLTableCellElementChOffPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementChOffPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementChOffPropertyInfo = "DOMHTMLTableCellElement::ch-off"+    attrGet _ = getDOMHTMLTableCellElementChOff+    attrSet _ = setDOMHTMLTableCellElementChOff+    attrConstruct _ = constructDOMHTMLTableCellElementChOff++-- VVV Prop "col-span"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64+getDOMHTMLTableCellElementColSpan obj = liftIO $ getObjectPropertyInt64 obj "col-span"++setDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m ()+setDOMHTMLTableCellElementColSpan obj val = liftIO $ setObjectPropertyInt64 obj "col-span" val++constructDOMHTMLTableCellElementColSpan :: Int64 -> IO ([Char], GValue)+constructDOMHTMLTableCellElementColSpan val = constructObjectPropertyInt64 "col-span" val++data DOMHTMLTableCellElementColSpanPropertyInfo+instance AttrInfo DOMHTMLTableCellElementColSpanPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementColSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementColSpanPropertyInfo = Int64+    type AttrLabel DOMHTMLTableCellElementColSpanPropertyInfo = "DOMHTMLTableCellElement::col-span"+    attrGet _ = getDOMHTMLTableCellElementColSpan+    attrSet _ = setDOMHTMLTableCellElementColSpan+    attrConstruct _ = constructDOMHTMLTableCellElementColSpan++-- VVV Prop "headers"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementHeaders obj = liftIO $ getObjectPropertyString obj "headers"++setDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementHeaders obj val = liftIO $ setObjectPropertyString obj "headers" val++constructDOMHTMLTableCellElementHeaders :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementHeaders val = constructObjectPropertyString "headers" val++data DOMHTMLTableCellElementHeadersPropertyInfo+instance AttrInfo DOMHTMLTableCellElementHeadersPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementHeadersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementHeadersPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementHeadersPropertyInfo = "DOMHTMLTableCellElement::headers"+    attrGet _ = getDOMHTMLTableCellElementHeaders+    attrSet _ = setDOMHTMLTableCellElementHeaders+    attrConstruct _ = constructDOMHTMLTableCellElementHeaders++-- VVV Prop "height"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementHeight obj = liftIO $ getObjectPropertyString obj "height"++setDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val++constructDOMHTMLTableCellElementHeight :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementHeight val = constructObjectPropertyString "height" val++data DOMHTMLTableCellElementHeightPropertyInfo+instance AttrInfo DOMHTMLTableCellElementHeightPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementHeightPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementHeightPropertyInfo = "DOMHTMLTableCellElement::height"+    attrGet _ = getDOMHTMLTableCellElementHeight+    attrSet _ = setDOMHTMLTableCellElementHeight+    attrConstruct _ = constructDOMHTMLTableCellElementHeight++-- VVV Prop "no-wrap"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Bool+getDOMHTMLTableCellElementNoWrap obj = liftIO $ getObjectPropertyBool obj "no-wrap"++setDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Bool -> m ()+setDOMHTMLTableCellElementNoWrap obj val = liftIO $ setObjectPropertyBool obj "no-wrap" val++constructDOMHTMLTableCellElementNoWrap :: Bool -> IO ([Char], GValue)+constructDOMHTMLTableCellElementNoWrap val = constructObjectPropertyBool "no-wrap" val++data DOMHTMLTableCellElementNoWrapPropertyInfo+instance AttrInfo DOMHTMLTableCellElementNoWrapPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementNoWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementNoWrapPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLTableCellElementNoWrapPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementNoWrapPropertyInfo = Bool+    type AttrLabel DOMHTMLTableCellElementNoWrapPropertyInfo = "DOMHTMLTableCellElement::no-wrap"+    attrGet _ = getDOMHTMLTableCellElementNoWrap+    attrSet _ = setDOMHTMLTableCellElementNoWrap+    attrConstruct _ = constructDOMHTMLTableCellElementNoWrap++-- VVV Prop "row-span"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64+getDOMHTMLTableCellElementRowSpan obj = liftIO $ getObjectPropertyInt64 obj "row-span"++setDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m ()+setDOMHTMLTableCellElementRowSpan obj val = liftIO $ setObjectPropertyInt64 obj "row-span" val++constructDOMHTMLTableCellElementRowSpan :: Int64 -> IO ([Char], GValue)+constructDOMHTMLTableCellElementRowSpan val = constructObjectPropertyInt64 "row-span" val++data DOMHTMLTableCellElementRowSpanPropertyInfo+instance AttrInfo DOMHTMLTableCellElementRowSpanPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementRowSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementRowSpanPropertyInfo = Int64+    type AttrLabel DOMHTMLTableCellElementRowSpanPropertyInfo = "DOMHTMLTableCellElement::row-span"+    attrGet _ = getDOMHTMLTableCellElementRowSpan+    attrSet _ = setDOMHTMLTableCellElementRowSpan+    attrConstruct _ = constructDOMHTMLTableCellElementRowSpan++-- VVV Prop "scope"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementScope obj = liftIO $ getObjectPropertyString obj "scope"++setDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementScope obj val = liftIO $ setObjectPropertyString obj "scope" val++constructDOMHTMLTableCellElementScope :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementScope val = constructObjectPropertyString "scope" val++data DOMHTMLTableCellElementScopePropertyInfo+instance AttrInfo DOMHTMLTableCellElementScopePropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementScopePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementScopePropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementScopePropertyInfo = "DOMHTMLTableCellElement::scope"+    attrGet _ = getDOMHTMLTableCellElementScope+    attrSet _ = setDOMHTMLTableCellElementScope+    attrConstruct _ = constructDOMHTMLTableCellElementScope++-- VVV Prop "v-align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align"++setDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val++constructDOMHTMLTableCellElementVAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementVAlign val = constructObjectPropertyString "v-align" val++data DOMHTMLTableCellElementVAlignPropertyInfo+instance AttrInfo DOMHTMLTableCellElementVAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementVAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementVAlignPropertyInfo = "DOMHTMLTableCellElement::v-align"+    attrGet _ = getDOMHTMLTableCellElementVAlign+    attrSet _ = setDOMHTMLTableCellElementVAlign+    attrConstruct _ = constructDOMHTMLTableCellElementVAlign++-- VVV Prop "width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text+getDOMHTMLTableCellElementWidth obj = liftIO $ getObjectPropertyString obj "width"++setDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m ()+setDOMHTMLTableCellElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val++constructDOMHTMLTableCellElementWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableCellElementWidth val = constructObjectPropertyString "width" val++data DOMHTMLTableCellElementWidthPropertyInfo+instance AttrInfo DOMHTMLTableCellElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLTableCellElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = DOMHTMLTableCellElementK+    type AttrGetType DOMHTMLTableCellElementWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableCellElementWidthPropertyInfo = "DOMHTMLTableCellElement::width"+    attrGet _ = getDOMHTMLTableCellElementWidth+    attrSet _ = setDOMHTMLTableCellElementWidth+    attrConstruct _ = constructDOMHTMLTableCellElementWidth++type instance AttributeList DOMHTMLTableCellElement = DOMHTMLTableCellElementAttributeList+type DOMHTMLTableCellElementAttributeList = ('[ '("abbr", DOMHTMLTableCellElementAbbrPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCellElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("axis", DOMHTMLTableCellElementAxisPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableCellElementBgColorPropertyInfo), '("cell-index", DOMHTMLTableCellElementCellIndexPropertyInfo), '("ch", DOMHTMLTableCellElementChPropertyInfo), '("ch-off", DOMHTMLTableCellElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("col-span", DOMHTMLTableCellElementColSpanPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("headers", DOMHTMLTableCellElementHeadersPropertyInfo), '("height", DOMHTMLTableCellElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-wrap", DOMHTMLTableCellElementNoWrapPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("row-span", DOMHTMLTableCellElementRowSpanPropertyInfo), '("scope", DOMHTMLTableCellElementScopePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableCellElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableCellElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLTableCellElement = DOMHTMLTableCellElementSignalList+type DOMHTMLTableCellElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLTableCellElement::get_abbr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_abbr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_axis+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_axis" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_bg_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_bg_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_cell_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_ch" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_ch_off+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_ch_off" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_col_span+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_headers" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_height" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_no_wrap+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_scope" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_v_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_v_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCellElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_cell_element_get_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableCellElement::set_abbr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableCellElement.hs-boot view
@@ -0,0 +1,28 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLTableCellElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLTableCellElement = DOMHTMLTableCellElement (ForeignPtr DOMHTMLTableCellElement)+instance GObject DOMHTMLTableCellElement where+class GObject o => DOMHTMLTableCellElementK o+instance (GObject o, IsDescendantOf DOMHTMLTableCellElement o) => DOMHTMLTableCellElementK o+data DOMHTMLTableCellElementAbbrPropertyInfo+data DOMHTMLTableCellElementAlignPropertyInfo+data DOMHTMLTableCellElementAxisPropertyInfo+data DOMHTMLTableCellElementBgColorPropertyInfo+data DOMHTMLTableCellElementCellIndexPropertyInfo+data DOMHTMLTableCellElementChPropertyInfo+data DOMHTMLTableCellElementChOffPropertyInfo+data DOMHTMLTableCellElementColSpanPropertyInfo+data DOMHTMLTableCellElementHeadersPropertyInfo+data DOMHTMLTableCellElementHeightPropertyInfo+data DOMHTMLTableCellElementNoWrapPropertyInfo+data DOMHTMLTableCellElementRowSpanPropertyInfo+data DOMHTMLTableCellElementScopePropertyInfo+data DOMHTMLTableCellElementVAlignPropertyInfo+data DOMHTMLTableCellElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs view
@@ -0,0 +1,623 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLTableColElement+    ( ++-- * Exported types+    DOMHTMLTableColElement(..)              ,+    DOMHTMLTableColElementK                 ,+    toDOMHTMLTableColElement                ,+    noDOMHTMLTableColElement                ,+++ -- * Methods+-- ** dOMHTMLTableColElementGetAlign+    dOMHTMLTableColElementGetAlign          ,+++-- ** dOMHTMLTableColElementGetCh+    dOMHTMLTableColElementGetCh             ,+++-- ** dOMHTMLTableColElementGetChOff+    dOMHTMLTableColElementGetChOff          ,+++-- ** dOMHTMLTableColElementGetSpan+    dOMHTMLTableColElementGetSpan           ,+++-- ** dOMHTMLTableColElementGetVAlign+    dOMHTMLTableColElementGetVAlign         ,+++-- ** dOMHTMLTableColElementGetWidth+    dOMHTMLTableColElementGetWidth          ,+++-- ** dOMHTMLTableColElementSetAlign+    dOMHTMLTableColElementSetAlign          ,+++-- ** dOMHTMLTableColElementSetCh+    dOMHTMLTableColElementSetCh             ,+++-- ** dOMHTMLTableColElementSetChOff+    dOMHTMLTableColElementSetChOff          ,+++-- ** dOMHTMLTableColElementSetSpan+    dOMHTMLTableColElementSetSpan           ,+++-- ** dOMHTMLTableColElementSetVAlign+    dOMHTMLTableColElementSetVAlign         ,+++-- ** dOMHTMLTableColElementSetWidth+    dOMHTMLTableColElementSetWidth          ,+++++ -- * Properties+-- ** Align+    DOMHTMLTableColElementAlignPropertyInfo ,+    constructDOMHTMLTableColElementAlign    ,+    getDOMHTMLTableColElementAlign          ,+    setDOMHTMLTableColElementAlign          ,+++-- ** Ch+    DOMHTMLTableColElementChPropertyInfo    ,+    constructDOMHTMLTableColElementCh       ,+    getDOMHTMLTableColElementCh             ,+    setDOMHTMLTableColElementCh             ,+++-- ** ChOff+    DOMHTMLTableColElementChOffPropertyInfo ,+    constructDOMHTMLTableColElementChOff    ,+    getDOMHTMLTableColElementChOff          ,+    setDOMHTMLTableColElementChOff          ,+++-- ** Span+    DOMHTMLTableColElementSpanPropertyInfo  ,+    constructDOMHTMLTableColElementSpan     ,+    getDOMHTMLTableColElementSpan           ,+    setDOMHTMLTableColElementSpan           ,+++-- ** VAlign+    DOMHTMLTableColElementVAlignPropertyInfo,+    constructDOMHTMLTableColElementVAlign   ,+    getDOMHTMLTableColElementVAlign         ,+    setDOMHTMLTableColElementVAlign         ,+++-- ** Width+    DOMHTMLTableColElementWidthPropertyInfo ,+    constructDOMHTMLTableColElementWidth    ,+    getDOMHTMLTableColElementWidth          ,+    setDOMHTMLTableColElementWidth          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLTableColElement = DOMHTMLTableColElement (ForeignPtr DOMHTMLTableColElement)+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 = DOMHTMLTableColElementParentTypes+type DOMHTMLTableColElementParentTypes = '[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++noDOMHTMLTableColElement :: Maybe DOMHTMLTableColElement+noDOMHTMLTableColElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text+getDOMHTMLTableColElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m ()+setDOMHTMLTableColElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLTableColElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableColElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLTableColElementAlignPropertyInfo+instance AttrInfo DOMHTMLTableColElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableColElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = DOMHTMLTableColElementK+    type AttrGetType DOMHTMLTableColElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableColElementAlignPropertyInfo = "DOMHTMLTableColElement::align"+    attrGet _ = getDOMHTMLTableColElementAlign+    attrSet _ = setDOMHTMLTableColElementAlign+    attrConstruct _ = constructDOMHTMLTableColElementAlign++-- VVV Prop "ch"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text+getDOMHTMLTableColElementCh obj = liftIO $ getObjectPropertyString obj "ch"++setDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m ()+setDOMHTMLTableColElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val++constructDOMHTMLTableColElementCh :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableColElementCh val = constructObjectPropertyString "ch" val++data DOMHTMLTableColElementChPropertyInfo+instance AttrInfo DOMHTMLTableColElementChPropertyInfo where+    type AttrAllowedOps DOMHTMLTableColElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableColElementChPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableColElementChPropertyInfo = DOMHTMLTableColElementK+    type AttrGetType DOMHTMLTableColElementChPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableColElementChPropertyInfo = "DOMHTMLTableColElement::ch"+    attrGet _ = getDOMHTMLTableColElementCh+    attrSet _ = setDOMHTMLTableColElementCh+    attrConstruct _ = constructDOMHTMLTableColElementCh++-- VVV Prop "ch-off"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text+getDOMHTMLTableColElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off"++setDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m ()+setDOMHTMLTableColElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val++constructDOMHTMLTableColElementChOff :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableColElementChOff val = constructObjectPropertyString "ch-off" val++data DOMHTMLTableColElementChOffPropertyInfo+instance AttrInfo DOMHTMLTableColElementChOffPropertyInfo where+    type AttrAllowedOps DOMHTMLTableColElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = DOMHTMLTableColElementK+    type AttrGetType DOMHTMLTableColElementChOffPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableColElementChOffPropertyInfo = "DOMHTMLTableColElement::ch-off"+    attrGet _ = getDOMHTMLTableColElementChOff+    attrSet _ = setDOMHTMLTableColElementChOff+    attrConstruct _ = constructDOMHTMLTableColElementChOff++-- VVV Prop "span"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m Int64+getDOMHTMLTableColElementSpan obj = liftIO $ getObjectPropertyInt64 obj "span"++setDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> Int64 -> m ()+setDOMHTMLTableColElementSpan obj val = liftIO $ setObjectPropertyInt64 obj "span" val++constructDOMHTMLTableColElementSpan :: Int64 -> IO ([Char], GValue)+constructDOMHTMLTableColElementSpan val = constructObjectPropertyInt64 "span" val++data DOMHTMLTableColElementSpanPropertyInfo+instance AttrInfo DOMHTMLTableColElementSpanPropertyInfo where+    type AttrAllowedOps DOMHTMLTableColElementSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = DOMHTMLTableColElementK+    type AttrGetType DOMHTMLTableColElementSpanPropertyInfo = Int64+    type AttrLabel DOMHTMLTableColElementSpanPropertyInfo = "DOMHTMLTableColElement::span"+    attrGet _ = getDOMHTMLTableColElementSpan+    attrSet _ = setDOMHTMLTableColElementSpan+    attrConstruct _ = constructDOMHTMLTableColElementSpan++-- VVV Prop "v-align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text+getDOMHTMLTableColElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align"++setDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m ()+setDOMHTMLTableColElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val++constructDOMHTMLTableColElementVAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableColElementVAlign val = constructObjectPropertyString "v-align" val++data DOMHTMLTableColElementVAlignPropertyInfo+instance AttrInfo DOMHTMLTableColElementVAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableColElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = DOMHTMLTableColElementK+    type AttrGetType DOMHTMLTableColElementVAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableColElementVAlignPropertyInfo = "DOMHTMLTableColElement::v-align"+    attrGet _ = getDOMHTMLTableColElementVAlign+    attrSet _ = setDOMHTMLTableColElementVAlign+    attrConstruct _ = constructDOMHTMLTableColElementVAlign++-- VVV Prop "width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text+getDOMHTMLTableColElementWidth obj = liftIO $ getObjectPropertyString obj "width"++setDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m ()+setDOMHTMLTableColElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val++constructDOMHTMLTableColElementWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableColElementWidth val = constructObjectPropertyString "width" val++data DOMHTMLTableColElementWidthPropertyInfo+instance AttrInfo DOMHTMLTableColElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLTableColElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = DOMHTMLTableColElementK+    type AttrGetType DOMHTMLTableColElementWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableColElementWidthPropertyInfo = "DOMHTMLTableColElement::width"+    attrGet _ = getDOMHTMLTableColElementWidth+    attrSet _ = setDOMHTMLTableColElementWidth+    attrConstruct _ = constructDOMHTMLTableColElementWidth++type instance AttributeList DOMHTMLTableColElement = DOMHTMLTableColElementAttributeList+type DOMHTMLTableColElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableColElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableColElementChPropertyInfo), '("ch-off", DOMHTMLTableColElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("span", DOMHTMLTableColElementSpanPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableColElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableColElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLTableColElement = DOMHTMLTableColElementSignalList+type DOMHTMLTableColElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLTableColElement::get_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableColElement::get_ch+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_ch" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableColElement::get_ch_off+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_ch_off" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableColElement::get_span+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_v_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableColElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableColElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_col_element_get_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableColElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableColElement.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLTableColElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLTableColElement = DOMHTMLTableColElement (ForeignPtr DOMHTMLTableColElement)+instance GObject DOMHTMLTableColElement where+class GObject o => DOMHTMLTableColElementK o+instance (GObject o, IsDescendantOf DOMHTMLTableColElement o) => DOMHTMLTableColElementK o+data DOMHTMLTableColElementAlignPropertyInfo+data DOMHTMLTableColElementChPropertyInfo+data DOMHTMLTableColElementChOffPropertyInfo+data DOMHTMLTableColElementSpanPropertyInfo+data DOMHTMLTableColElementVAlignPropertyInfo+data DOMHTMLTableColElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs view
@@ -0,0 +1,1469 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLTableElement+    ( ++-- * Exported types+    DOMHTMLTableElement(..)                 ,+    DOMHTMLTableElementK                    ,+    toDOMHTMLTableElement                   ,+    noDOMHTMLTableElement                   ,+++ -- * Methods+-- ** dOMHTMLTableElementCreateCaption+    dOMHTMLTableElementCreateCaption        ,+++-- ** dOMHTMLTableElementCreateTFoot+    dOMHTMLTableElementCreateTFoot          ,+++-- ** dOMHTMLTableElementCreateTHead+    dOMHTMLTableElementCreateTHead          ,+++-- ** dOMHTMLTableElementDeleteCaption+    dOMHTMLTableElementDeleteCaption        ,+++-- ** dOMHTMLTableElementDeleteRow+    dOMHTMLTableElementDeleteRow            ,+++-- ** dOMHTMLTableElementDeleteTFoot+    dOMHTMLTableElementDeleteTFoot          ,+++-- ** dOMHTMLTableElementDeleteTHead+    dOMHTMLTableElementDeleteTHead          ,+++-- ** dOMHTMLTableElementGetAlign+    dOMHTMLTableElementGetAlign             ,+++-- ** dOMHTMLTableElementGetBgColor+    dOMHTMLTableElementGetBgColor           ,+++-- ** dOMHTMLTableElementGetBorder+    dOMHTMLTableElementGetBorder            ,+++-- ** dOMHTMLTableElementGetCaption+    dOMHTMLTableElementGetCaption           ,+++-- ** dOMHTMLTableElementGetCellPadding+    dOMHTMLTableElementGetCellPadding       ,+++-- ** dOMHTMLTableElementGetCellSpacing+    dOMHTMLTableElementGetCellSpacing       ,+++-- ** dOMHTMLTableElementGetRows+    dOMHTMLTableElementGetRows              ,+++-- ** dOMHTMLTableElementGetRules+    dOMHTMLTableElementGetRules             ,+++-- ** dOMHTMLTableElementGetSummary+    dOMHTMLTableElementGetSummary           ,+++-- ** dOMHTMLTableElementGetTBodies+    dOMHTMLTableElementGetTBodies           ,+++-- ** dOMHTMLTableElementGetTFoot+    dOMHTMLTableElementGetTFoot             ,+++-- ** dOMHTMLTableElementGetTHead+    dOMHTMLTableElementGetTHead             ,+++-- ** dOMHTMLTableElementGetWidth+    dOMHTMLTableElementGetWidth             ,+++-- ** dOMHTMLTableElementInsertRow+    dOMHTMLTableElementInsertRow            ,+++-- ** dOMHTMLTableElementSetAlign+    dOMHTMLTableElementSetAlign             ,+++-- ** dOMHTMLTableElementSetBgColor+    dOMHTMLTableElementSetBgColor           ,+++-- ** dOMHTMLTableElementSetBorder+    dOMHTMLTableElementSetBorder            ,+++-- ** dOMHTMLTableElementSetCaption+    dOMHTMLTableElementSetCaption           ,+++-- ** dOMHTMLTableElementSetCellPadding+    dOMHTMLTableElementSetCellPadding       ,+++-- ** dOMHTMLTableElementSetCellSpacing+    dOMHTMLTableElementSetCellSpacing       ,+++-- ** dOMHTMLTableElementSetRules+    dOMHTMLTableElementSetRules             ,+++-- ** dOMHTMLTableElementSetSummary+    dOMHTMLTableElementSetSummary           ,+++-- ** dOMHTMLTableElementSetTFoot+    dOMHTMLTableElementSetTFoot             ,+++-- ** dOMHTMLTableElementSetTHead+    dOMHTMLTableElementSetTHead             ,+++-- ** dOMHTMLTableElementSetWidth+    dOMHTMLTableElementSetWidth             ,+++++ -- * Properties+-- ** Align+    DOMHTMLTableElementAlignPropertyInfo    ,+    constructDOMHTMLTableElementAlign       ,+    getDOMHTMLTableElementAlign             ,+    setDOMHTMLTableElementAlign             ,+++-- ** BgColor+    DOMHTMLTableElementBgColorPropertyInfo  ,+    constructDOMHTMLTableElementBgColor     ,+    getDOMHTMLTableElementBgColor           ,+    setDOMHTMLTableElementBgColor           ,+++-- ** Border+    DOMHTMLTableElementBorderPropertyInfo   ,+    constructDOMHTMLTableElementBorder      ,+    getDOMHTMLTableElementBorder            ,+    setDOMHTMLTableElementBorder            ,+++-- ** Caption+    DOMHTMLTableElementCaptionPropertyInfo  ,+    getDOMHTMLTableElementCaption           ,+++-- ** CellPadding+    DOMHTMLTableElementCellPaddingPropertyInfo,+    constructDOMHTMLTableElementCellPadding ,+    getDOMHTMLTableElementCellPadding       ,+    setDOMHTMLTableElementCellPadding       ,+++-- ** CellSpacing+    DOMHTMLTableElementCellSpacingPropertyInfo,+    constructDOMHTMLTableElementCellSpacing ,+    getDOMHTMLTableElementCellSpacing       ,+    setDOMHTMLTableElementCellSpacing       ,+++-- ** Frame+    DOMHTMLTableElementFramePropertyInfo    ,+    constructDOMHTMLTableElementFrame       ,+    getDOMHTMLTableElementFrame             ,+    setDOMHTMLTableElementFrame             ,+++-- ** Rows+    DOMHTMLTableElementRowsPropertyInfo     ,+    getDOMHTMLTableElementRows              ,+++-- ** Rules+    DOMHTMLTableElementRulesPropertyInfo    ,+    constructDOMHTMLTableElementRules       ,+    getDOMHTMLTableElementRules             ,+    setDOMHTMLTableElementRules             ,+++-- ** Summary+    DOMHTMLTableElementSummaryPropertyInfo  ,+    constructDOMHTMLTableElementSummary     ,+    getDOMHTMLTableElementSummary           ,+    setDOMHTMLTableElementSummary           ,+++-- ** TBodies+    DOMHTMLTableElementTBodiesPropertyInfo  ,+    getDOMHTMLTableElementTBodies           ,+++-- ** TFoot+    DOMHTMLTableElementTFootPropertyInfo    ,+    getDOMHTMLTableElementTFoot             ,+++-- ** THead+    DOMHTMLTableElementTHeadPropertyInfo    ,+    getDOMHTMLTableElementTHead             ,+++-- ** Width+    DOMHTMLTableElementWidthPropertyInfo    ,+    constructDOMHTMLTableElementWidth       ,+    getDOMHTMLTableElementWidth             ,+    setDOMHTMLTableElementWidth             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLTableElement = DOMHTMLTableElement (ForeignPtr DOMHTMLTableElement)+foreign import ccall "webkit_dom_html_table_element_get_type"+    c_webkit_dom_html_table_element_get_type :: IO GType++type instance ParentTypes DOMHTMLTableElement = DOMHTMLTableElementParentTypes+type DOMHTMLTableElementParentTypes = '[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++noDOMHTMLTableElement :: Maybe DOMHTMLTableElement+noDOMHTMLTableElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLTableElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLTableElementAlignPropertyInfo+instance AttrInfo DOMHTMLTableElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementAlignPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementAlignPropertyInfo = "DOMHTMLTableElement::align"+    attrGet _ = getDOMHTMLTableElementAlign+    attrSet _ = setDOMHTMLTableElementAlign+    attrConstruct _ = constructDOMHTMLTableElementAlign++-- VVV Prop "bg-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color"++setDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val++constructDOMHTMLTableElementBgColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementBgColor val = constructObjectPropertyString "bg-color" val++data DOMHTMLTableElementBgColorPropertyInfo+instance AttrInfo DOMHTMLTableElementBgColorPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementBgColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementBgColorPropertyInfo = "DOMHTMLTableElement::bg-color"+    attrGet _ = getDOMHTMLTableElementBgColor+    attrSet _ = setDOMHTMLTableElementBgColor+    attrConstruct _ = constructDOMHTMLTableElementBgColor++-- VVV Prop "border"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementBorder obj = liftIO $ getObjectPropertyString obj "border"++setDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val++constructDOMHTMLTableElementBorder :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementBorder val = constructObjectPropertyString "border" val++data DOMHTMLTableElementBorderPropertyInfo+instance AttrInfo DOMHTMLTableElementBorderPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementBorderPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementBorderPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementBorderPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementBorderPropertyInfo = "DOMHTMLTableElement::border"+    attrGet _ = getDOMHTMLTableElementBorder+    attrSet _ = setDOMHTMLTableElementBorder+    attrConstruct _ = constructDOMHTMLTableElementBorder++-- VVV Prop "caption"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement"+   -- Flags: [PropertyReadable]++getDOMHTMLTableElementCaption :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableCaptionElement+getDOMHTMLTableElementCaption obj = liftIO $ getObjectPropertyObject obj "caption" DOMHTMLTableCaptionElement++data DOMHTMLTableElementCaptionPropertyInfo+instance AttrInfo DOMHTMLTableElementCaptionPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementCaptionPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableCaptionElement+    type AttrLabel DOMHTMLTableElementCaptionPropertyInfo = "DOMHTMLTableElement::caption"+    attrGet _ = getDOMHTMLTableElementCaption+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "cell-padding"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementCellPadding obj = liftIO $ getObjectPropertyString obj "cell-padding"++setDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementCellPadding obj val = liftIO $ setObjectPropertyString obj "cell-padding" val++constructDOMHTMLTableElementCellPadding :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementCellPadding val = constructObjectPropertyString "cell-padding" val++data DOMHTMLTableElementCellPaddingPropertyInfo+instance AttrInfo DOMHTMLTableElementCellPaddingPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementCellPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementCellPaddingPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementCellPaddingPropertyInfo = "DOMHTMLTableElement::cell-padding"+    attrGet _ = getDOMHTMLTableElementCellPadding+    attrSet _ = setDOMHTMLTableElementCellPadding+    attrConstruct _ = constructDOMHTMLTableElementCellPadding++-- VVV Prop "cell-spacing"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementCellSpacing obj = liftIO $ getObjectPropertyString obj "cell-spacing"++setDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementCellSpacing obj val = liftIO $ setObjectPropertyString obj "cell-spacing" val++constructDOMHTMLTableElementCellSpacing :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementCellSpacing val = constructObjectPropertyString "cell-spacing" val++data DOMHTMLTableElementCellSpacingPropertyInfo+instance AttrInfo DOMHTMLTableElementCellSpacingPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementCellSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementCellSpacingPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementCellSpacingPropertyInfo = "DOMHTMLTableElement::cell-spacing"+    attrGet _ = getDOMHTMLTableElementCellSpacing+    attrSet _ = setDOMHTMLTableElementCellSpacing+    attrConstruct _ = constructDOMHTMLTableElementCellSpacing++-- VVV Prop "frame"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementFrame obj = liftIO $ getObjectPropertyString obj "frame"++setDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementFrame obj val = liftIO $ setObjectPropertyString obj "frame" val++constructDOMHTMLTableElementFrame :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementFrame val = constructObjectPropertyString "frame" val++data DOMHTMLTableElementFramePropertyInfo+instance AttrInfo DOMHTMLTableElementFramePropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementFramePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementFramePropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementFramePropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementFramePropertyInfo = "DOMHTMLTableElement::frame"+    attrGet _ = getDOMHTMLTableElementFrame+    attrSet _ = setDOMHTMLTableElementFrame+    attrConstruct _ = constructDOMHTMLTableElementFrame++-- VVV Prop "rows"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLTableElementRows :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection+getDOMHTMLTableElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection++data DOMHTMLTableElementRowsPropertyInfo+instance AttrInfo DOMHTMLTableElementRowsPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementRowsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementRowsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableElementRowsPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementRowsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLTableElementRowsPropertyInfo = "DOMHTMLTableElement::rows"+    attrGet _ = getDOMHTMLTableElementRows+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "rules"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementRules obj = liftIO $ getObjectPropertyString obj "rules"++setDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementRules obj val = liftIO $ setObjectPropertyString obj "rules" val++constructDOMHTMLTableElementRules :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementRules val = constructObjectPropertyString "rules" val++data DOMHTMLTableElementRulesPropertyInfo+instance AttrInfo DOMHTMLTableElementRulesPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementRulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementRulesPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementRulesPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementRulesPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementRulesPropertyInfo = "DOMHTMLTableElement::rules"+    attrGet _ = getDOMHTMLTableElementRules+    attrSet _ = setDOMHTMLTableElementRules+    attrConstruct _ = constructDOMHTMLTableElementRules++-- VVV Prop "summary"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementSummary obj = liftIO $ getObjectPropertyString obj "summary"++setDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementSummary obj val = liftIO $ setObjectPropertyString obj "summary" val++constructDOMHTMLTableElementSummary :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementSummary val = constructObjectPropertyString "summary" val++data DOMHTMLTableElementSummaryPropertyInfo+instance AttrInfo DOMHTMLTableElementSummaryPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementSummaryPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementSummaryPropertyInfo = "DOMHTMLTableElement::summary"+    attrGet _ = getDOMHTMLTableElementSummary+    attrSet _ = setDOMHTMLTableElementSummary+    attrConstruct _ = constructDOMHTMLTableElementSummary++-- VVV Prop "t-bodies"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLTableElementTBodies :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection+getDOMHTMLTableElementTBodies obj = liftIO $ getObjectPropertyObject obj "t-bodies" DOMHTMLCollection++data DOMHTMLTableElementTBodiesPropertyInfo+instance AttrInfo DOMHTMLTableElementTBodiesPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementTBodiesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLTableElementTBodiesPropertyInfo = "DOMHTMLTableElement::t-bodies"+    attrGet _ = getDOMHTMLTableElementTBodies+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "t-foot"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement"+   -- Flags: [PropertyReadable]++getDOMHTMLTableElementTFoot :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement+getDOMHTMLTableElementTFoot obj = liftIO $ getObjectPropertyObject obj "t-foot" DOMHTMLTableSectionElement++data DOMHTMLTableElementTFootPropertyInfo+instance AttrInfo DOMHTMLTableElementTFootPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementTFootPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementTFootPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableSectionElement+    type AttrLabel DOMHTMLTableElementTFootPropertyInfo = "DOMHTMLTableElement::t-foot"+    attrGet _ = getDOMHTMLTableElementTFoot+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "t-head"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement"+   -- Flags: [PropertyReadable]++getDOMHTMLTableElementTHead :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement+getDOMHTMLTableElementTHead obj = liftIO $ getObjectPropertyObject obj "t-head" DOMHTMLTableSectionElement++data DOMHTMLTableElementTHeadPropertyInfo+instance AttrInfo DOMHTMLTableElementTHeadPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementTHeadPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableSectionElement+    type AttrLabel DOMHTMLTableElementTHeadPropertyInfo = "DOMHTMLTableElement::t-head"+    attrGet _ = getDOMHTMLTableElementTHead+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "width"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text+getDOMHTMLTableElementWidth obj = liftIO $ getObjectPropertyString obj "width"++setDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m ()+setDOMHTMLTableElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val++constructDOMHTMLTableElementWidth :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableElementWidth val = constructObjectPropertyString "width" val++data DOMHTMLTableElementWidthPropertyInfo+instance AttrInfo DOMHTMLTableElementWidthPropertyInfo where+    type AttrAllowedOps DOMHTMLTableElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableElementWidthPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableElementWidthPropertyInfo = DOMHTMLTableElementK+    type AttrGetType DOMHTMLTableElementWidthPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableElementWidthPropertyInfo = "DOMHTMLTableElement::width"+    attrGet _ = getDOMHTMLTableElementWidth+    attrSet _ = setDOMHTMLTableElementWidth+    attrConstruct _ = constructDOMHTMLTableElementWidth++type instance AttributeList DOMHTMLTableElement = DOMHTMLTableElementAttributeList+type DOMHTMLTableElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableElementBgColorPropertyInfo), '("border", DOMHTMLTableElementBorderPropertyInfo), '("caption", DOMHTMLTableElementCaptionPropertyInfo), '("cell-padding", DOMHTMLTableElementCellPaddingPropertyInfo), '("cell-spacing", DOMHTMLTableElementCellSpacingPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame", DOMHTMLTableElementFramePropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableElementRowsPropertyInfo), '("rules", DOMHTMLTableElementRulesPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("summary", DOMHTMLTableElementSummaryPropertyInfo), '("t-bodies", DOMHTMLTableElementTBodiesPropertyInfo), '("t-foot", DOMHTMLTableElementTFootPropertyInfo), '("t-head", DOMHTMLTableElementTHeadPropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableElementWidthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLTableElement = DOMHTMLTableElementSignalList+type DOMHTMLTableElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLTableElement::create_caption+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_create_caption" result+    result' <- (newObject DOMHTMLElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::create_t_foot+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_create_t_foot" result+    result' <- (newObject DOMHTMLElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::create_t_head+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_create_t_head" result+    result' <- (newObject DOMHTMLElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::delete_caption+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_bg_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_bg_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_border+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_border" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_caption+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_caption" result+    result' <- (newObject DOMHTMLTableCaptionElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_cell_padding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_cell_padding" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_cell_spacing+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_cell_spacing" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_rows+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_rows" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_rules+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_rules" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_summary+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_summary" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_t_bodies+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_t_bodies" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_t_foot+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_t_foot" result+    result' <- (newObject DOMHTMLTableSectionElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_t_head+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_t_head" result+    result' <- (newObject DOMHTMLTableSectionElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_element_get_width" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableElement::insert_row+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_html_table_element_insert_row" result+        result' <- (newObject DOMHTMLElement) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMHTMLTableElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableCaptionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement"+    Ptr DOMHTMLTableCaptionElement ->       -- value : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_rules+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement"+    Ptr DOMHTMLTableSectionElement ->       -- value : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableElement"+    Ptr DOMHTMLTableSectionElement ->       -- value : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableElement.hs-boot view
@@ -0,0 +1,27 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLTableElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLTableElement = DOMHTMLTableElement (ForeignPtr DOMHTMLTableElement)+instance GObject DOMHTMLTableElement where+class GObject o => DOMHTMLTableElementK o+instance (GObject o, IsDescendantOf DOMHTMLTableElement o) => DOMHTMLTableElementK o+data DOMHTMLTableElementAlignPropertyInfo+data DOMHTMLTableElementBgColorPropertyInfo+data DOMHTMLTableElementBorderPropertyInfo+data DOMHTMLTableElementCaptionPropertyInfo+data DOMHTMLTableElementCellPaddingPropertyInfo+data DOMHTMLTableElementCellSpacingPropertyInfo+data DOMHTMLTableElementFramePropertyInfo+data DOMHTMLTableElementRowsPropertyInfo+data DOMHTMLTableElementRulesPropertyInfo+data DOMHTMLTableElementSummaryPropertyInfo+data DOMHTMLTableElementTBodiesPropertyInfo+data DOMHTMLTableElementTFootPropertyInfo+data DOMHTMLTableElementTHeadPropertyInfo+data DOMHTMLTableElementWidthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs view
@@ -0,0 +1,761 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLTableRowElement+    ( ++-- * Exported types+    DOMHTMLTableRowElement(..)              ,+    DOMHTMLTableRowElementK                 ,+    toDOMHTMLTableRowElement                ,+    noDOMHTMLTableRowElement                ,+++ -- * Methods+-- ** dOMHTMLTableRowElementDeleteCell+    dOMHTMLTableRowElementDeleteCell        ,+++-- ** dOMHTMLTableRowElementGetAlign+    dOMHTMLTableRowElementGetAlign          ,+++-- ** dOMHTMLTableRowElementGetBgColor+    dOMHTMLTableRowElementGetBgColor        ,+++-- ** dOMHTMLTableRowElementGetCells+    dOMHTMLTableRowElementGetCells          ,+++-- ** dOMHTMLTableRowElementGetCh+    dOMHTMLTableRowElementGetCh             ,+++-- ** dOMHTMLTableRowElementGetChOff+    dOMHTMLTableRowElementGetChOff          ,+++-- ** dOMHTMLTableRowElementGetRowIndex+    dOMHTMLTableRowElementGetRowIndex       ,+++-- ** dOMHTMLTableRowElementGetSectionRowIndex+    dOMHTMLTableRowElementGetSectionRowIndex,+++-- ** dOMHTMLTableRowElementGetVAlign+    dOMHTMLTableRowElementGetVAlign         ,+++-- ** dOMHTMLTableRowElementInsertCell+    dOMHTMLTableRowElementInsertCell        ,+++-- ** dOMHTMLTableRowElementSetAlign+    dOMHTMLTableRowElementSetAlign          ,+++-- ** dOMHTMLTableRowElementSetBgColor+    dOMHTMLTableRowElementSetBgColor        ,+++-- ** dOMHTMLTableRowElementSetCh+    dOMHTMLTableRowElementSetCh             ,+++-- ** dOMHTMLTableRowElementSetChOff+    dOMHTMLTableRowElementSetChOff          ,+++-- ** dOMHTMLTableRowElementSetVAlign+    dOMHTMLTableRowElementSetVAlign         ,+++++ -- * Properties+-- ** Align+    DOMHTMLTableRowElementAlignPropertyInfo ,+    constructDOMHTMLTableRowElementAlign    ,+    getDOMHTMLTableRowElementAlign          ,+    setDOMHTMLTableRowElementAlign          ,+++-- ** BgColor+    DOMHTMLTableRowElementBgColorPropertyInfo,+    constructDOMHTMLTableRowElementBgColor  ,+    getDOMHTMLTableRowElementBgColor        ,+    setDOMHTMLTableRowElementBgColor        ,+++-- ** Cells+    DOMHTMLTableRowElementCellsPropertyInfo ,+    getDOMHTMLTableRowElementCells          ,+++-- ** Ch+    DOMHTMLTableRowElementChPropertyInfo    ,+    constructDOMHTMLTableRowElementCh       ,+    getDOMHTMLTableRowElementCh             ,+    setDOMHTMLTableRowElementCh             ,+++-- ** ChOff+    DOMHTMLTableRowElementChOffPropertyInfo ,+    constructDOMHTMLTableRowElementChOff    ,+    getDOMHTMLTableRowElementChOff          ,+    setDOMHTMLTableRowElementChOff          ,+++-- ** RowIndex+    DOMHTMLTableRowElementRowIndexPropertyInfo,+    getDOMHTMLTableRowElementRowIndex       ,+++-- ** SectionRowIndex+    DOMHTMLTableRowElementSectionRowIndexPropertyInfo,+    getDOMHTMLTableRowElementSectionRowIndex,+++-- ** VAlign+    DOMHTMLTableRowElementVAlignPropertyInfo,+    constructDOMHTMLTableRowElementVAlign   ,+    getDOMHTMLTableRowElementVAlign         ,+    setDOMHTMLTableRowElementVAlign         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLTableRowElement = DOMHTMLTableRowElement (ForeignPtr DOMHTMLTableRowElement)+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 = DOMHTMLTableRowElementParentTypes+type DOMHTMLTableRowElementParentTypes = '[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++noDOMHTMLTableRowElement :: Maybe DOMHTMLTableRowElement+noDOMHTMLTableRowElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text+getDOMHTMLTableRowElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m ()+setDOMHTMLTableRowElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLTableRowElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableRowElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLTableRowElementAlignPropertyInfo+instance AttrInfo DOMHTMLTableRowElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableRowElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = DOMHTMLTableRowElementK+    type AttrGetType DOMHTMLTableRowElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableRowElementAlignPropertyInfo = "DOMHTMLTableRowElement::align"+    attrGet _ = getDOMHTMLTableRowElementAlign+    attrSet _ = setDOMHTMLTableRowElementAlign+    attrConstruct _ = constructDOMHTMLTableRowElementAlign++-- VVV Prop "bg-color"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text+getDOMHTMLTableRowElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color"++setDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m ()+setDOMHTMLTableRowElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val++constructDOMHTMLTableRowElementBgColor :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableRowElementBgColor val = constructObjectPropertyString "bg-color" val++data DOMHTMLTableRowElementBgColorPropertyInfo+instance AttrInfo DOMHTMLTableRowElementBgColorPropertyInfo where+    type AttrAllowedOps DOMHTMLTableRowElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = DOMHTMLTableRowElementK+    type AttrGetType DOMHTMLTableRowElementBgColorPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableRowElementBgColorPropertyInfo = "DOMHTMLTableRowElement::bg-color"+    attrGet _ = getDOMHTMLTableRowElementBgColor+    attrSet _ = setDOMHTMLTableRowElementBgColor+    attrConstruct _ = constructDOMHTMLTableRowElementBgColor++-- VVV Prop "cells"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLTableRowElementCells :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m DOMHTMLCollection+getDOMHTMLTableRowElementCells obj = liftIO $ getObjectPropertyObject obj "cells" DOMHTMLCollection++data DOMHTMLTableRowElementCellsPropertyInfo+instance AttrInfo DOMHTMLTableRowElementCellsPropertyInfo where+    type AttrAllowedOps DOMHTMLTableRowElementCellsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLTableRowElementK+    type AttrGetType DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLTableRowElementCellsPropertyInfo = "DOMHTMLTableRowElement::cells"+    attrGet _ = getDOMHTMLTableRowElementCells+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "ch"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text+getDOMHTMLTableRowElementCh obj = liftIO $ getObjectPropertyString obj "ch"++setDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m ()+setDOMHTMLTableRowElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val++constructDOMHTMLTableRowElementCh :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableRowElementCh val = constructObjectPropertyString "ch" val++data DOMHTMLTableRowElementChPropertyInfo+instance AttrInfo DOMHTMLTableRowElementChPropertyInfo where+    type AttrAllowedOps DOMHTMLTableRowElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableRowElementChPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableRowElementChPropertyInfo = DOMHTMLTableRowElementK+    type AttrGetType DOMHTMLTableRowElementChPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableRowElementChPropertyInfo = "DOMHTMLTableRowElement::ch"+    attrGet _ = getDOMHTMLTableRowElementCh+    attrSet _ = setDOMHTMLTableRowElementCh+    attrConstruct _ = constructDOMHTMLTableRowElementCh++-- VVV Prop "ch-off"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text+getDOMHTMLTableRowElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off"++setDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m ()+setDOMHTMLTableRowElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val++constructDOMHTMLTableRowElementChOff :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableRowElementChOff val = constructObjectPropertyString "ch-off" val++data DOMHTMLTableRowElementChOffPropertyInfo+instance AttrInfo DOMHTMLTableRowElementChOffPropertyInfo where+    type AttrAllowedOps DOMHTMLTableRowElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = DOMHTMLTableRowElementK+    type AttrGetType DOMHTMLTableRowElementChOffPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableRowElementChOffPropertyInfo = "DOMHTMLTableRowElement::ch-off"+    attrGet _ = getDOMHTMLTableRowElementChOff+    attrSet _ = setDOMHTMLTableRowElementChOff+    attrConstruct _ = constructDOMHTMLTableRowElementChOff++-- VVV Prop "row-index"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLTableRowElementRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64+getDOMHTMLTableRowElementRowIndex obj = liftIO $ getObjectPropertyInt64 obj "row-index"++data DOMHTMLTableRowElementRowIndexPropertyInfo+instance AttrInfo DOMHTMLTableRowElementRowIndexPropertyInfo where+    type AttrAllowedOps DOMHTMLTableRowElementRowIndexPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = DOMHTMLTableRowElementK+    type AttrGetType DOMHTMLTableRowElementRowIndexPropertyInfo = Int64+    type AttrLabel DOMHTMLTableRowElementRowIndexPropertyInfo = "DOMHTMLTableRowElement::row-index"+    attrGet _ = getDOMHTMLTableRowElementRowIndex+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "section-row-index"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMHTMLTableRowElementSectionRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64+getDOMHTMLTableRowElementSectionRowIndex obj = liftIO $ getObjectPropertyInt64 obj "section-row-index"++data DOMHTMLTableRowElementSectionRowIndexPropertyInfo+instance AttrInfo DOMHTMLTableRowElementSectionRowIndexPropertyInfo where+    type AttrAllowedOps DOMHTMLTableRowElementSectionRowIndexPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = DOMHTMLTableRowElementK+    type AttrGetType DOMHTMLTableRowElementSectionRowIndexPropertyInfo = Int64+    type AttrLabel DOMHTMLTableRowElementSectionRowIndexPropertyInfo = "DOMHTMLTableRowElement::section-row-index"+    attrGet _ = getDOMHTMLTableRowElementSectionRowIndex+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "v-align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text+getDOMHTMLTableRowElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align"++setDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m ()+setDOMHTMLTableRowElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val++constructDOMHTMLTableRowElementVAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableRowElementVAlign val = constructObjectPropertyString "v-align" val++data DOMHTMLTableRowElementVAlignPropertyInfo+instance AttrInfo DOMHTMLTableRowElementVAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableRowElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = DOMHTMLTableRowElementK+    type AttrGetType DOMHTMLTableRowElementVAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableRowElementVAlignPropertyInfo = "DOMHTMLTableRowElement::v-align"+    attrGet _ = getDOMHTMLTableRowElementVAlign+    attrSet _ = setDOMHTMLTableRowElementVAlign+    attrConstruct _ = constructDOMHTMLTableRowElementVAlign++type instance AttributeList DOMHTMLTableRowElement = DOMHTMLTableRowElementAttributeList+type DOMHTMLTableRowElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableRowElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableRowElementBgColorPropertyInfo), '("cells", DOMHTMLTableRowElementCellsPropertyInfo), '("ch", DOMHTMLTableRowElementChPropertyInfo), '("ch-off", DOMHTMLTableRowElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("row-index", DOMHTMLTableRowElementRowIndexPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("section-row-index", DOMHTMLTableRowElementSectionRowIndexPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableRowElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLTableRowElement = DOMHTMLTableRowElementSignalList+type DOMHTMLTableRowElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLTableRowElement::delete_cell+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableRowElement::get_bg_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_bg_color" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableRowElement::get_cells+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_cells" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableRowElement::get_ch+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_ch" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableRowElement::get_ch_off+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_ch_off" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableRowElement::get_row_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableRowElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_get_v_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableRowElement::insert_cell+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_html_table_row_element_insert_cell" result+        result' <- (newObject DOMHTMLElement) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMHTMLTableRowElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableRowElement.hs-boot view
@@ -0,0 +1,21 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLTableRowElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLTableRowElement = DOMHTMLTableRowElement (ForeignPtr DOMHTMLTableRowElement)+instance GObject DOMHTMLTableRowElement where+class GObject o => DOMHTMLTableRowElementK o+instance (GObject o, IsDescendantOf DOMHTMLTableRowElement o) => DOMHTMLTableRowElementK o+data DOMHTMLTableRowElementAlignPropertyInfo+data DOMHTMLTableRowElementBgColorPropertyInfo+data DOMHTMLTableRowElementCellsPropertyInfo+data DOMHTMLTableRowElementChPropertyInfo+data DOMHTMLTableRowElementChOffPropertyInfo+data DOMHTMLTableRowElementRowIndexPropertyInfo+data DOMHTMLTableRowElementSectionRowIndexPropertyInfo+data DOMHTMLTableRowElementVAlignPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs view
@@ -0,0 +1,565 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLTableSectionElement+    ( ++-- * Exported types+    DOMHTMLTableSectionElement(..)          ,+    DOMHTMLTableSectionElementK             ,+    toDOMHTMLTableSectionElement            ,+    noDOMHTMLTableSectionElement            ,+++ -- * Methods+-- ** dOMHTMLTableSectionElementDeleteRow+    dOMHTMLTableSectionElementDeleteRow     ,+++-- ** dOMHTMLTableSectionElementGetAlign+    dOMHTMLTableSectionElementGetAlign      ,+++-- ** dOMHTMLTableSectionElementGetCh+    dOMHTMLTableSectionElementGetCh         ,+++-- ** dOMHTMLTableSectionElementGetChOff+    dOMHTMLTableSectionElementGetChOff      ,+++-- ** dOMHTMLTableSectionElementGetRows+    dOMHTMLTableSectionElementGetRows       ,+++-- ** dOMHTMLTableSectionElementGetVAlign+    dOMHTMLTableSectionElementGetVAlign     ,+++-- ** dOMHTMLTableSectionElementInsertRow+    dOMHTMLTableSectionElementInsertRow     ,+++-- ** dOMHTMLTableSectionElementSetAlign+    dOMHTMLTableSectionElementSetAlign      ,+++-- ** dOMHTMLTableSectionElementSetCh+    dOMHTMLTableSectionElementSetCh         ,+++-- ** dOMHTMLTableSectionElementSetChOff+    dOMHTMLTableSectionElementSetChOff      ,+++-- ** dOMHTMLTableSectionElementSetVAlign+    dOMHTMLTableSectionElementSetVAlign     ,+++++ -- * Properties+-- ** Align+    DOMHTMLTableSectionElementAlignPropertyInfo,+    constructDOMHTMLTableSectionElementAlign,+    getDOMHTMLTableSectionElementAlign      ,+    setDOMHTMLTableSectionElementAlign      ,+++-- ** Ch+    DOMHTMLTableSectionElementChPropertyInfo,+    constructDOMHTMLTableSectionElementCh   ,+    getDOMHTMLTableSectionElementCh         ,+    setDOMHTMLTableSectionElementCh         ,+++-- ** ChOff+    DOMHTMLTableSectionElementChOffPropertyInfo,+    constructDOMHTMLTableSectionElementChOff,+    getDOMHTMLTableSectionElementChOff      ,+    setDOMHTMLTableSectionElementChOff      ,+++-- ** Rows+    DOMHTMLTableSectionElementRowsPropertyInfo,+    getDOMHTMLTableSectionElementRows       ,+++-- ** VAlign+    DOMHTMLTableSectionElementVAlignPropertyInfo,+    constructDOMHTMLTableSectionElementVAlign,+    getDOMHTMLTableSectionElementVAlign     ,+    setDOMHTMLTableSectionElementVAlign     ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLTableSectionElement = DOMHTMLTableSectionElement (ForeignPtr DOMHTMLTableSectionElement)+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 = DOMHTMLTableSectionElementParentTypes+type DOMHTMLTableSectionElementParentTypes = '[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++noDOMHTMLTableSectionElement :: Maybe DOMHTMLTableSectionElement+noDOMHTMLTableSectionElement = Nothing++-- VVV Prop "align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text+getDOMHTMLTableSectionElementAlign obj = liftIO $ getObjectPropertyString obj "align"++setDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m ()+setDOMHTMLTableSectionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val++constructDOMHTMLTableSectionElementAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableSectionElementAlign val = constructObjectPropertyString "align" val++data DOMHTMLTableSectionElementAlignPropertyInfo+instance AttrInfo DOMHTMLTableSectionElementAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableSectionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = DOMHTMLTableSectionElementK+    type AttrGetType DOMHTMLTableSectionElementAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableSectionElementAlignPropertyInfo = "DOMHTMLTableSectionElement::align"+    attrGet _ = getDOMHTMLTableSectionElementAlign+    attrSet _ = setDOMHTMLTableSectionElementAlign+    attrConstruct _ = constructDOMHTMLTableSectionElementAlign++-- VVV Prop "ch"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text+getDOMHTMLTableSectionElementCh obj = liftIO $ getObjectPropertyString obj "ch"++setDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m ()+setDOMHTMLTableSectionElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val++constructDOMHTMLTableSectionElementCh :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableSectionElementCh val = constructObjectPropertyString "ch" val++data DOMHTMLTableSectionElementChPropertyInfo+instance AttrInfo DOMHTMLTableSectionElementChPropertyInfo where+    type AttrAllowedOps DOMHTMLTableSectionElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = DOMHTMLTableSectionElementK+    type AttrGetType DOMHTMLTableSectionElementChPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableSectionElementChPropertyInfo = "DOMHTMLTableSectionElement::ch"+    attrGet _ = getDOMHTMLTableSectionElementCh+    attrSet _ = setDOMHTMLTableSectionElementCh+    attrConstruct _ = constructDOMHTMLTableSectionElementCh++-- VVV Prop "ch-off"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text+getDOMHTMLTableSectionElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off"++setDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m ()+setDOMHTMLTableSectionElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val++constructDOMHTMLTableSectionElementChOff :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableSectionElementChOff val = constructObjectPropertyString "ch-off" val++data DOMHTMLTableSectionElementChOffPropertyInfo+instance AttrInfo DOMHTMLTableSectionElementChOffPropertyInfo where+    type AttrAllowedOps DOMHTMLTableSectionElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = DOMHTMLTableSectionElementK+    type AttrGetType DOMHTMLTableSectionElementChOffPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableSectionElementChOffPropertyInfo = "DOMHTMLTableSectionElement::ch-off"+    attrGet _ = getDOMHTMLTableSectionElementChOff+    attrSet _ = setDOMHTMLTableSectionElementChOff+    attrConstruct _ = constructDOMHTMLTableSectionElementChOff++-- VVV Prop "rows"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLCollection"+   -- Flags: [PropertyReadable]++getDOMHTMLTableSectionElementRows :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m DOMHTMLCollection+getDOMHTMLTableSectionElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection++data DOMHTMLTableSectionElementRowsPropertyInfo+instance AttrInfo DOMHTMLTableSectionElementRowsPropertyInfo where+    type AttrAllowedOps DOMHTMLTableSectionElementRowsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLTableSectionElementK+    type AttrGetType DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLCollection+    type AttrLabel DOMHTMLTableSectionElementRowsPropertyInfo = "DOMHTMLTableSectionElement::rows"+    attrGet _ = getDOMHTMLTableSectionElementRows+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "v-align"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text+getDOMHTMLTableSectionElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align"++setDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m ()+setDOMHTMLTableSectionElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val++constructDOMHTMLTableSectionElementVAlign :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTableSectionElementVAlign val = constructObjectPropertyString "v-align" val++data DOMHTMLTableSectionElementVAlignPropertyInfo+instance AttrInfo DOMHTMLTableSectionElementVAlignPropertyInfo where+    type AttrAllowedOps DOMHTMLTableSectionElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = DOMHTMLTableSectionElementK+    type AttrGetType DOMHTMLTableSectionElementVAlignPropertyInfo = T.Text+    type AttrLabel DOMHTMLTableSectionElementVAlignPropertyInfo = "DOMHTMLTableSectionElement::v-align"+    attrGet _ = getDOMHTMLTableSectionElementVAlign+    attrSet _ = setDOMHTMLTableSectionElementVAlign+    attrConstruct _ = constructDOMHTMLTableSectionElementVAlign++type instance AttributeList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementAttributeList+type DOMHTMLTableSectionElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableSectionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableSectionElementChPropertyInfo), '("ch-off", DOMHTMLTableSectionElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableSectionElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableSectionElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLTableSectionElement = DOMHTMLTableSectionElementSignalList+type DOMHTMLTableSectionElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLTableSectionElement::delete_row+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableSectionElement::get_ch+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_ch" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableSectionElement::get_ch_off+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_ch_off" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableSectionElement::get_rows+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_rows" result+    result' <- (wrapObject DOMHTMLCollection) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableSectionElement::get_v_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTableSectionElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_get_v_align" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTableSectionElement::insert_row+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_html_table_section_element_insert_row" result+        result' <- (newObject DOMHTMLElement) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMHTMLTableSectionElement::set_align+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLTableSectionElement.hs-boot view
@@ -0,0 +1,18 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLTableSectionElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLTableSectionElement = DOMHTMLTableSectionElement (ForeignPtr DOMHTMLTableSectionElement)+instance GObject DOMHTMLTableSectionElement where+class GObject o => DOMHTMLTableSectionElementK o+instance (GObject o, IsDescendantOf DOMHTMLTableSectionElement o) => DOMHTMLTableSectionElementK o+data DOMHTMLTableSectionElementAlignPropertyInfo+data DOMHTMLTableSectionElementChPropertyInfo+data DOMHTMLTableSectionElementChOffPropertyInfo+data DOMHTMLTableSectionElementRowsPropertyInfo+data DOMHTMLTableSectionElementVAlignPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs view
@@ -0,0 +1,1544 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLTextAreaElement+    ( ++-- * Exported types+    DOMHTMLTextAreaElement(..)              ,+    DOMHTMLTextAreaElementK                 ,+    toDOMHTMLTextAreaElement                ,+    noDOMHTMLTextAreaElement                ,+++ -- * Methods+-- ** dOMHTMLTextAreaElementGetAreaType+    dOMHTMLTextAreaElementGetAreaType       ,+++-- ** dOMHTMLTextAreaElementGetAutofocus+    dOMHTMLTextAreaElementGetAutofocus      ,+++-- ** dOMHTMLTextAreaElementGetCols+    dOMHTMLTextAreaElementGetCols           ,+++-- ** dOMHTMLTextAreaElementGetDefaultValue+    dOMHTMLTextAreaElementGetDefaultValue   ,+++-- ** dOMHTMLTextAreaElementGetDisabled+    dOMHTMLTextAreaElementGetDisabled       ,+++-- ** dOMHTMLTextAreaElementGetForm+    dOMHTMLTextAreaElementGetForm           ,+++-- ** dOMHTMLTextAreaElementGetName+    dOMHTMLTextAreaElementGetName           ,+++-- ** dOMHTMLTextAreaElementGetReadOnly+    dOMHTMLTextAreaElementGetReadOnly       ,+++-- ** dOMHTMLTextAreaElementGetRows+    dOMHTMLTextAreaElementGetRows           ,+++-- ** dOMHTMLTextAreaElementGetSelectionEnd+    dOMHTMLTextAreaElementGetSelectionEnd   ,+++-- ** dOMHTMLTextAreaElementGetSelectionStart+    dOMHTMLTextAreaElementGetSelectionStart ,+++-- ** dOMHTMLTextAreaElementGetValue+    dOMHTMLTextAreaElementGetValue          ,+++-- ** dOMHTMLTextAreaElementGetWillValidate+    dOMHTMLTextAreaElementGetWillValidate   ,+++-- ** dOMHTMLTextAreaElementIsEdited+    dOMHTMLTextAreaElementIsEdited          ,+++-- ** dOMHTMLTextAreaElementSelect+    dOMHTMLTextAreaElementSelect            ,+++-- ** dOMHTMLTextAreaElementSetAutofocus+    dOMHTMLTextAreaElementSetAutofocus      ,+++-- ** dOMHTMLTextAreaElementSetCols+    dOMHTMLTextAreaElementSetCols           ,+++-- ** dOMHTMLTextAreaElementSetDefaultValue+    dOMHTMLTextAreaElementSetDefaultValue   ,+++-- ** dOMHTMLTextAreaElementSetDisabled+    dOMHTMLTextAreaElementSetDisabled       ,+++-- ** dOMHTMLTextAreaElementSetName+    dOMHTMLTextAreaElementSetName           ,+++-- ** dOMHTMLTextAreaElementSetReadOnly+    dOMHTMLTextAreaElementSetReadOnly       ,+++-- ** dOMHTMLTextAreaElementSetRows+    dOMHTMLTextAreaElementSetRows           ,+++-- ** dOMHTMLTextAreaElementSetSelectionEnd+    dOMHTMLTextAreaElementSetSelectionEnd   ,+++-- ** dOMHTMLTextAreaElementSetSelectionRange+    dOMHTMLTextAreaElementSetSelectionRange ,+++-- ** dOMHTMLTextAreaElementSetSelectionStart+    dOMHTMLTextAreaElementSetSelectionStart ,+++-- ** dOMHTMLTextAreaElementSetValue+    dOMHTMLTextAreaElementSetValue          ,+++++ -- * Properties+-- ** Autocapitalize+    DOMHTMLTextAreaElementAutocapitalizePropertyInfo,+    constructDOMHTMLTextAreaElementAutocapitalize,+    getDOMHTMLTextAreaElementAutocapitalize ,+    setDOMHTMLTextAreaElementAutocapitalize ,+++-- ** Autocorrect+    DOMHTMLTextAreaElementAutocorrectPropertyInfo,+    constructDOMHTMLTextAreaElementAutocorrect,+    getDOMHTMLTextAreaElementAutocorrect    ,+    setDOMHTMLTextAreaElementAutocorrect    ,+++-- ** Autofocus+    DOMHTMLTextAreaElementAutofocusPropertyInfo,+    constructDOMHTMLTextAreaElementAutofocus,+    getDOMHTMLTextAreaElementAutofocus      ,+    setDOMHTMLTextAreaElementAutofocus      ,+++-- ** Cols+    DOMHTMLTextAreaElementColsPropertyInfo  ,+    constructDOMHTMLTextAreaElementCols     ,+    getDOMHTMLTextAreaElementCols           ,+    setDOMHTMLTextAreaElementCols           ,+++-- ** DefaultValue+    DOMHTMLTextAreaElementDefaultValuePropertyInfo,+    constructDOMHTMLTextAreaElementDefaultValue,+    getDOMHTMLTextAreaElementDefaultValue   ,+    setDOMHTMLTextAreaElementDefaultValue   ,+++-- ** DirName+    DOMHTMLTextAreaElementDirNamePropertyInfo,+    constructDOMHTMLTextAreaElementDirName  ,+    getDOMHTMLTextAreaElementDirName        ,+    setDOMHTMLTextAreaElementDirName        ,+++-- ** Disabled+    DOMHTMLTextAreaElementDisabledPropertyInfo,+    constructDOMHTMLTextAreaElementDisabled ,+    getDOMHTMLTextAreaElementDisabled       ,+    setDOMHTMLTextAreaElementDisabled       ,+++-- ** Form+    DOMHTMLTextAreaElementFormPropertyInfo  ,+    getDOMHTMLTextAreaElementForm           ,+++-- ** Labels+    DOMHTMLTextAreaElementLabelsPropertyInfo,+    getDOMHTMLTextAreaElementLabels         ,+++-- ** MaxLength+    DOMHTMLTextAreaElementMaxLengthPropertyInfo,+    constructDOMHTMLTextAreaElementMaxLength,+    getDOMHTMLTextAreaElementMaxLength      ,+    setDOMHTMLTextAreaElementMaxLength      ,+++-- ** Name+    DOMHTMLTextAreaElementNamePropertyInfo  ,+    constructDOMHTMLTextAreaElementName     ,+    getDOMHTMLTextAreaElementName           ,+    setDOMHTMLTextAreaElementName           ,+++-- ** Placeholder+    DOMHTMLTextAreaElementPlaceholderPropertyInfo,+    constructDOMHTMLTextAreaElementPlaceholder,+    getDOMHTMLTextAreaElementPlaceholder    ,+    setDOMHTMLTextAreaElementPlaceholder    ,+++-- ** ReadOnly+    DOMHTMLTextAreaElementReadOnlyPropertyInfo,+    constructDOMHTMLTextAreaElementReadOnly ,+    getDOMHTMLTextAreaElementReadOnly       ,+    setDOMHTMLTextAreaElementReadOnly       ,+++-- ** Required+    DOMHTMLTextAreaElementRequiredPropertyInfo,+    constructDOMHTMLTextAreaElementRequired ,+    getDOMHTMLTextAreaElementRequired       ,+    setDOMHTMLTextAreaElementRequired       ,+++-- ** Rows+    DOMHTMLTextAreaElementRowsPropertyInfo  ,+    constructDOMHTMLTextAreaElementRows     ,+    getDOMHTMLTextAreaElementRows           ,+    setDOMHTMLTextAreaElementRows           ,+++-- ** SelectionDirection+    DOMHTMLTextAreaElementSelectionDirectionPropertyInfo,+    constructDOMHTMLTextAreaElementSelectionDirection,+    getDOMHTMLTextAreaElementSelectionDirection,+    setDOMHTMLTextAreaElementSelectionDirection,+++-- ** SelectionEnd+    DOMHTMLTextAreaElementSelectionEndPropertyInfo,+    constructDOMHTMLTextAreaElementSelectionEnd,+    getDOMHTMLTextAreaElementSelectionEnd   ,+    setDOMHTMLTextAreaElementSelectionEnd   ,+++-- ** SelectionStart+    DOMHTMLTextAreaElementSelectionStartPropertyInfo,+    constructDOMHTMLTextAreaElementSelectionStart,+    getDOMHTMLTextAreaElementSelectionStart ,+    setDOMHTMLTextAreaElementSelectionStart ,+++-- ** TextLength+    DOMHTMLTextAreaElementTextLengthPropertyInfo,+    getDOMHTMLTextAreaElementTextLength     ,+++-- ** Type+    DOMHTMLTextAreaElementTypePropertyInfo  ,+    getDOMHTMLTextAreaElementType           ,+++-- ** ValidationMessage+    DOMHTMLTextAreaElementValidationMessagePropertyInfo,+    getDOMHTMLTextAreaElementValidationMessage,+++-- ** Value+    DOMHTMLTextAreaElementValuePropertyInfo ,+    constructDOMHTMLTextAreaElementValue    ,+    getDOMHTMLTextAreaElementValue          ,+    setDOMHTMLTextAreaElementValue          ,+++-- ** WillValidate+    DOMHTMLTextAreaElementWillValidatePropertyInfo,+    getDOMHTMLTextAreaElementWillValidate   ,+++-- ** Wrap+    DOMHTMLTextAreaElementWrapPropertyInfo  ,+    constructDOMHTMLTextAreaElementWrap     ,+    getDOMHTMLTextAreaElementWrap           ,+    setDOMHTMLTextAreaElementWrap           ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLTextAreaElement = DOMHTMLTextAreaElement (ForeignPtr DOMHTMLTextAreaElement)+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 = DOMHTMLTextAreaElementParentTypes+type DOMHTMLTextAreaElementParentTypes = '[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++noDOMHTMLTextAreaElement :: Maybe DOMHTMLTextAreaElement+noDOMHTMLTextAreaElement = Nothing++-- VVV Prop "autocapitalize"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize"++setDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLTextAreaElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val++constructDOMHTMLTextAreaElementAutocapitalize :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val++data DOMHTMLTextAreaElementAutocapitalizePropertyInfo+instance AttrInfo DOMHTMLTextAreaElementAutocapitalizePropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementAutocapitalizePropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementAutocapitalizePropertyInfo = "DOMHTMLTextAreaElement::autocapitalize"+    attrGet _ = getDOMHTMLTextAreaElementAutocapitalize+    attrSet _ = setDOMHTMLTextAreaElementAutocapitalize+    attrConstruct _ = constructDOMHTMLTextAreaElementAutocapitalize++-- VVV Prop "autocorrect"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool+getDOMHTMLTextAreaElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect"++setDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m ()+setDOMHTMLTextAreaElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val++constructDOMHTMLTextAreaElementAutocorrect :: Bool -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementAutocorrect val = constructObjectPropertyBool "autocorrect" val++data DOMHTMLTextAreaElementAutocorrectPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementAutocorrectPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocorrectPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocorrectPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementAutocorrectPropertyInfo = Bool+    type AttrLabel DOMHTMLTextAreaElementAutocorrectPropertyInfo = "DOMHTMLTextAreaElement::autocorrect"+    attrGet _ = getDOMHTMLTextAreaElementAutocorrect+    attrSet _ = setDOMHTMLTextAreaElementAutocorrect+    attrConstruct _ = constructDOMHTMLTextAreaElementAutocorrect++-- VVV Prop "autofocus"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool+getDOMHTMLTextAreaElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus"++setDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m ()+setDOMHTMLTextAreaElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val++constructDOMHTMLTextAreaElementAutofocus :: Bool -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementAutofocus val = constructObjectPropertyBool "autofocus" val++data DOMHTMLTextAreaElementAutofocusPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementAutofocusPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementAutofocusPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutofocusPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementAutofocusPropertyInfo = Bool+    type AttrLabel DOMHTMLTextAreaElementAutofocusPropertyInfo = "DOMHTMLTextAreaElement::autofocus"+    attrGet _ = getDOMHTMLTextAreaElementAutofocus+    attrSet _ = setDOMHTMLTextAreaElementAutofocus+    attrConstruct _ = constructDOMHTMLTextAreaElementAutofocus++-- VVV Prop "cols"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64+getDOMHTMLTextAreaElementCols obj = liftIO $ getObjectPropertyInt64 obj "cols"++setDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m ()+setDOMHTMLTextAreaElementCols obj val = liftIO $ setObjectPropertyInt64 obj "cols" val++constructDOMHTMLTextAreaElementCols :: Int64 -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementCols val = constructObjectPropertyInt64 "cols" val++data DOMHTMLTextAreaElementColsPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementColsPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementColsPropertyInfo = Int64+    type AttrLabel DOMHTMLTextAreaElementColsPropertyInfo = "DOMHTMLTextAreaElement::cols"+    attrGet _ = getDOMHTMLTextAreaElementCols+    attrSet _ = setDOMHTMLTextAreaElementCols+    attrConstruct _ = constructDOMHTMLTextAreaElementCols++-- VVV Prop "default-value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value"++setDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLTextAreaElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val++constructDOMHTMLTextAreaElementDefaultValue :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementDefaultValue val = constructObjectPropertyString "default-value" val++data DOMHTMLTextAreaElementDefaultValuePropertyInfo+instance AttrInfo DOMHTMLTextAreaElementDefaultValuePropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementDefaultValuePropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementDefaultValuePropertyInfo = "DOMHTMLTextAreaElement::default-value"+    attrGet _ = getDOMHTMLTextAreaElementDefaultValue+    attrSet _ = setDOMHTMLTextAreaElementDefaultValue+    attrConstruct _ = constructDOMHTMLTextAreaElementDefaultValue++-- VVV Prop "dir-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name"++setDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLTextAreaElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val++constructDOMHTMLTextAreaElementDirName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementDirName val = constructObjectPropertyString "dir-name" val++data DOMHTMLTextAreaElementDirNamePropertyInfo+instance AttrInfo DOMHTMLTextAreaElementDirNamePropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementDirNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementDirNamePropertyInfo = "DOMHTMLTextAreaElement::dir-name"+    attrGet _ = getDOMHTMLTextAreaElementDirName+    attrSet _ = setDOMHTMLTextAreaElementDirName+    attrConstruct _ = constructDOMHTMLTextAreaElementDirName++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool+getDOMHTMLTextAreaElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m ()+setDOMHTMLTextAreaElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMHTMLTextAreaElementDisabled :: Bool -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementDisabled val = constructObjectPropertyBool "disabled" val++data DOMHTMLTextAreaElementDisabledPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementDisabledPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementDisabledPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementDisabledPropertyInfo = Bool+    type AttrLabel DOMHTMLTextAreaElementDisabledPropertyInfo = "DOMHTMLTextAreaElement::disabled"+    attrGet _ = getDOMHTMLTextAreaElementDisabled+    attrSet _ = setDOMHTMLTextAreaElementDisabled+    attrConstruct _ = constructDOMHTMLTextAreaElementDisabled++-- VVV Prop "form"+   -- Type: TInterface "WebKit2WebExtension" "DOMHTMLFormElement"+   -- Flags: [PropertyReadable]++getDOMHTMLTextAreaElementForm :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMHTMLFormElement+getDOMHTMLTextAreaElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement++data DOMHTMLTextAreaElementFormPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementFormPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementFormPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLFormElement+    type AttrLabel DOMHTMLTextAreaElementFormPropertyInfo = "DOMHTMLTextAreaElement::form"+    attrGet _ = getDOMHTMLTextAreaElementForm+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "labels"+   -- Type: TInterface "WebKit2WebExtension" "DOMNodeList"+   -- Flags: [PropertyReadable]++getDOMHTMLTextAreaElementLabels :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMNodeList+getDOMHTMLTextAreaElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList++data DOMHTMLTextAreaElementLabelsPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementLabelsPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementLabelsPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementLabelsPropertyInfo = DOMNodeList+    type AttrLabel DOMHTMLTextAreaElementLabelsPropertyInfo = "DOMHTMLTextAreaElement::labels"+    attrGet _ = getDOMHTMLTextAreaElementLabels+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "max-length"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64+getDOMHTMLTextAreaElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length"++setDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m ()+setDOMHTMLTextAreaElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val++constructDOMHTMLTextAreaElementMaxLength :: Int64 -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementMaxLength val = constructObjectPropertyInt64 "max-length" val++data DOMHTMLTextAreaElementMaxLengthPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementMaxLengthPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementMaxLengthPropertyInfo = Int64+    type AttrLabel DOMHTMLTextAreaElementMaxLengthPropertyInfo = "DOMHTMLTextAreaElement::max-length"+    attrGet _ = getDOMHTMLTextAreaElementMaxLength+    attrSet _ = setDOMHTMLTextAreaElementMaxLength+    attrConstruct _ = constructDOMHTMLTextAreaElementMaxLength++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementName obj = liftIO $ getObjectPropertyString obj "name"++setDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLTextAreaElementName obj val = liftIO $ setObjectPropertyString obj "name" val++constructDOMHTMLTextAreaElementName :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementName val = constructObjectPropertyString "name" val++data DOMHTMLTextAreaElementNamePropertyInfo+instance AttrInfo DOMHTMLTextAreaElementNamePropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementNamePropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementNamePropertyInfo = "DOMHTMLTextAreaElement::name"+    attrGet _ = getDOMHTMLTextAreaElementName+    attrSet _ = setDOMHTMLTextAreaElementName+    attrConstruct _ = constructDOMHTMLTextAreaElementName++-- VVV Prop "placeholder"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder"++setDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLTextAreaElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val++constructDOMHTMLTextAreaElementPlaceholder :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementPlaceholder val = constructObjectPropertyString "placeholder" val++data DOMHTMLTextAreaElementPlaceholderPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementPlaceholderPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementPlaceholderPropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementPlaceholderPropertyInfo = "DOMHTMLTextAreaElement::placeholder"+    attrGet _ = getDOMHTMLTextAreaElementPlaceholder+    attrSet _ = setDOMHTMLTextAreaElementPlaceholder+    attrConstruct _ = constructDOMHTMLTextAreaElementPlaceholder++-- VVV Prop "read-only"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool+getDOMHTMLTextAreaElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only"++setDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m ()+setDOMHTMLTextAreaElementReadOnly obj val = liftIO $ setObjectPropertyBool obj "read-only" val++constructDOMHTMLTextAreaElementReadOnly :: Bool -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementReadOnly val = constructObjectPropertyBool "read-only" val++data DOMHTMLTextAreaElementReadOnlyPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementReadOnlyPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementReadOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementReadOnlyPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementReadOnlyPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementReadOnlyPropertyInfo = Bool+    type AttrLabel DOMHTMLTextAreaElementReadOnlyPropertyInfo = "DOMHTMLTextAreaElement::read-only"+    attrGet _ = getDOMHTMLTextAreaElementReadOnly+    attrSet _ = setDOMHTMLTextAreaElementReadOnly+    attrConstruct _ = constructDOMHTMLTextAreaElementReadOnly++-- VVV Prop "required"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool+getDOMHTMLTextAreaElementRequired obj = liftIO $ getObjectPropertyBool obj "required"++setDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m ()+setDOMHTMLTextAreaElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val++constructDOMHTMLTextAreaElementRequired :: Bool -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementRequired val = constructObjectPropertyBool "required" val++data DOMHTMLTextAreaElementRequiredPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementRequiredPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementRequiredPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementRequiredPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementRequiredPropertyInfo = Bool+    type AttrLabel DOMHTMLTextAreaElementRequiredPropertyInfo = "DOMHTMLTextAreaElement::required"+    attrGet _ = getDOMHTMLTextAreaElementRequired+    attrSet _ = setDOMHTMLTextAreaElementRequired+    attrConstruct _ = constructDOMHTMLTextAreaElementRequired++-- VVV Prop "rows"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64+getDOMHTMLTextAreaElementRows obj = liftIO $ getObjectPropertyInt64 obj "rows"++setDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m ()+setDOMHTMLTextAreaElementRows obj val = liftIO $ setObjectPropertyInt64 obj "rows" val++constructDOMHTMLTextAreaElementRows :: Int64 -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementRows val = constructObjectPropertyInt64 "rows" val++data DOMHTMLTextAreaElementRowsPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementRowsPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementRowsPropertyInfo = Int64+    type AttrLabel DOMHTMLTextAreaElementRowsPropertyInfo = "DOMHTMLTextAreaElement::rows"+    attrGet _ = getDOMHTMLTextAreaElementRows+    attrSet _ = setDOMHTMLTextAreaElementRows+    attrConstruct _ = constructDOMHTMLTextAreaElementRows++-- VVV Prop "selection-direction"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementSelectionDirection obj = liftIO $ getObjectPropertyString obj "selection-direction"++setDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLTextAreaElementSelectionDirection obj val = liftIO $ setObjectPropertyString obj "selection-direction" val++constructDOMHTMLTextAreaElementSelectionDirection :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementSelectionDirection val = constructObjectPropertyString "selection-direction" val++data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementSelectionDirectionPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = "DOMHTMLTextAreaElement::selection-direction"+    attrGet _ = getDOMHTMLTextAreaElementSelectionDirection+    attrSet _ = setDOMHTMLTextAreaElementSelectionDirection+    attrConstruct _ = constructDOMHTMLTextAreaElementSelectionDirection++-- VVV Prop "selection-end"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64+getDOMHTMLTextAreaElementSelectionEnd obj = liftIO $ getObjectPropertyInt64 obj "selection-end"++setDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m ()+setDOMHTMLTextAreaElementSelectionEnd obj val = liftIO $ setObjectPropertyInt64 obj "selection-end" val++constructDOMHTMLTextAreaElementSelectionEnd :: Int64 -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementSelectionEnd val = constructObjectPropertyInt64 "selection-end" val++data DOMHTMLTextAreaElementSelectionEndPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementSelectionEndPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementSelectionEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementSelectionEndPropertyInfo = Int64+    type AttrLabel DOMHTMLTextAreaElementSelectionEndPropertyInfo = "DOMHTMLTextAreaElement::selection-end"+    attrGet _ = getDOMHTMLTextAreaElementSelectionEnd+    attrSet _ = setDOMHTMLTextAreaElementSelectionEnd+    attrConstruct _ = constructDOMHTMLTextAreaElementSelectionEnd++-- VVV Prop "selection-start"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64+getDOMHTMLTextAreaElementSelectionStart obj = liftIO $ getObjectPropertyInt64 obj "selection-start"++setDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m ()+setDOMHTMLTextAreaElementSelectionStart obj val = liftIO $ setObjectPropertyInt64 obj "selection-start" val++constructDOMHTMLTextAreaElementSelectionStart :: Int64 -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementSelectionStart val = constructObjectPropertyInt64 "selection-start" val++data DOMHTMLTextAreaElementSelectionStartPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementSelectionStartPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementSelectionStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = (~) Int64+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementSelectionStartPropertyInfo = Int64+    type AttrLabel DOMHTMLTextAreaElementSelectionStartPropertyInfo = "DOMHTMLTextAreaElement::selection-start"+    attrGet _ = getDOMHTMLTextAreaElementSelectionStart+    attrSet _ = setDOMHTMLTextAreaElementSelectionStart+    attrConstruct _ = constructDOMHTMLTextAreaElementSelectionStart++-- VVV Prop "text-length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMHTMLTextAreaElementTextLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Word64+getDOMHTMLTextAreaElementTextLength obj = liftIO $ getObjectPropertyUInt64 obj "text-length"++data DOMHTMLTextAreaElementTextLengthPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementTextLengthPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementTextLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementTextLengthPropertyInfo = Word64+    type AttrLabel DOMHTMLTextAreaElementTextLengthPropertyInfo = "DOMHTMLTextAreaElement::text-length"+    attrGet _ = getDOMHTMLTextAreaElementTextLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLTextAreaElementType :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementType obj = liftIO $ getObjectPropertyString obj "type"++data DOMHTMLTextAreaElementTypePropertyInfo+instance AttrInfo DOMHTMLTextAreaElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementTypePropertyInfo = "DOMHTMLTextAreaElement::type"+    attrGet _ = getDOMHTMLTextAreaElementType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "validation-message"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMHTMLTextAreaElementValidationMessage :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message"++data DOMHTMLTextAreaElementValidationMessagePropertyInfo+instance AttrInfo DOMHTMLTextAreaElementValidationMessagePropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementValidationMessagePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementValidationMessagePropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementValidationMessagePropertyInfo = "DOMHTMLTextAreaElement::validation-message"+    attrGet _ = getDOMHTMLTextAreaElementValidationMessage+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementValue obj = liftIO $ getObjectPropertyString obj "value"++setDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLTextAreaElementValue obj val = liftIO $ setObjectPropertyString obj "value" val++constructDOMHTMLTextAreaElementValue :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementValue val = constructObjectPropertyString "value" val++data DOMHTMLTextAreaElementValuePropertyInfo+instance AttrInfo DOMHTMLTextAreaElementValuePropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementValuePropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementValuePropertyInfo = "DOMHTMLTextAreaElement::value"+    attrGet _ = getDOMHTMLTextAreaElementValue+    attrSet _ = setDOMHTMLTextAreaElementValue+    attrConstruct _ = constructDOMHTMLTextAreaElementValue++-- VVV Prop "will-validate"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMHTMLTextAreaElementWillValidate :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool+getDOMHTMLTextAreaElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate"++data DOMHTMLTextAreaElementWillValidatePropertyInfo+instance AttrInfo DOMHTMLTextAreaElementWillValidatePropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementWillValidatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementWillValidatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementWillValidatePropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementWillValidatePropertyInfo = Bool+    type AttrLabel DOMHTMLTextAreaElementWillValidatePropertyInfo = "DOMHTMLTextAreaElement::will-validate"+    attrGet _ = getDOMHTMLTextAreaElementWillValidate+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "wrap"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text+getDOMHTMLTextAreaElementWrap obj = liftIO $ getObjectPropertyString obj "wrap"++setDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m ()+setDOMHTMLTextAreaElementWrap obj val = liftIO $ setObjectPropertyString obj "wrap" val++constructDOMHTMLTextAreaElementWrap :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTextAreaElementWrap val = constructObjectPropertyString "wrap" val++data DOMHTMLTextAreaElementWrapPropertyInfo+instance AttrInfo DOMHTMLTextAreaElementWrapPropertyInfo where+    type AttrAllowedOps DOMHTMLTextAreaElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = DOMHTMLTextAreaElementK+    type AttrGetType DOMHTMLTextAreaElementWrapPropertyInfo = T.Text+    type AttrLabel DOMHTMLTextAreaElementWrapPropertyInfo = "DOMHTMLTextAreaElement::wrap"+    attrGet _ = getDOMHTMLTextAreaElementWrap+    attrSet _ = setDOMHTMLTextAreaElementWrap+    attrConstruct _ = constructDOMHTMLTextAreaElementWrap++type instance AttributeList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementAttributeList+type DOMHTMLTextAreaElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLTextAreaElementAutocapitalizePropertyInfo), '("autocorrect", DOMHTMLTextAreaElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLTextAreaElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLTextAreaElementColsPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-value", DOMHTMLTextAreaElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dir-name", DOMHTMLTextAreaElementDirNamePropertyInfo), '("disabled", DOMHTMLTextAreaElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLTextAreaElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLTextAreaElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("max-length", DOMHTMLTextAreaElementMaxLengthPropertyInfo), '("name", DOMHTMLTextAreaElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("placeholder", DOMHTMLTextAreaElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("read-only", DOMHTMLTextAreaElementReadOnlyPropertyInfo), '("required", DOMHTMLTextAreaElementRequiredPropertyInfo), '("rows", DOMHTMLTextAreaElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selection-direction", DOMHTMLTextAreaElementSelectionDirectionPropertyInfo), '("selection-end", DOMHTMLTextAreaElementSelectionEndPropertyInfo), '("selection-start", DOMHTMLTextAreaElementSelectionStartPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-length", DOMHTMLTextAreaElementTextLengthPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLTextAreaElementTypePropertyInfo), '("validation-message", DOMHTMLTextAreaElementValidationMessagePropertyInfo), '("value", DOMHTMLTextAreaElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLTextAreaElementWillValidatePropertyInfo), '("wrap", DOMHTMLTextAreaElementWrapPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLTextAreaElement = DOMHTMLTextAreaElementSignalList+type DOMHTMLTextAreaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLTextAreaElement::get_area_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_area_type" webkit_dom_html_text_area_element_get_area_type :: +    Ptr DOMHTMLTextAreaElement ->           -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement"+    IO CString+++dOMHTMLTextAreaElementGetAreaType ::+    (MonadIO m, DOMHTMLTextAreaElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLTextAreaElementGetAreaType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_text_area_element_get_area_type _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_area_type" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTextAreaElement::get_autofocus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_default_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTextAreaElement::get_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_form" result+    result' <- (newObject DOMHTMLFormElement) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTextAreaElement::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTextAreaElement::get_read_only+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_rows+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_end+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_text_area_element_get_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTextAreaElement::get_will_validate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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::is_edited+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMHTMLTextAreaElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_autofocus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_default_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_read_only+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_rows+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_end+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLTextAreaElement.hs-boot view
@@ -0,0 +1,37 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLTextAreaElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLTextAreaElement = DOMHTMLTextAreaElement (ForeignPtr DOMHTMLTextAreaElement)+instance GObject DOMHTMLTextAreaElement where+class GObject o => DOMHTMLTextAreaElementK o+instance (GObject o, IsDescendantOf DOMHTMLTextAreaElement o) => DOMHTMLTextAreaElementK o+data DOMHTMLTextAreaElementAutocapitalizePropertyInfo+data DOMHTMLTextAreaElementAutocorrectPropertyInfo+data DOMHTMLTextAreaElementAutofocusPropertyInfo+data DOMHTMLTextAreaElementColsPropertyInfo+data DOMHTMLTextAreaElementDefaultValuePropertyInfo+data DOMHTMLTextAreaElementDirNamePropertyInfo+data DOMHTMLTextAreaElementDisabledPropertyInfo+data DOMHTMLTextAreaElementFormPropertyInfo+data DOMHTMLTextAreaElementLabelsPropertyInfo+data DOMHTMLTextAreaElementMaxLengthPropertyInfo+data DOMHTMLTextAreaElementNamePropertyInfo+data DOMHTMLTextAreaElementPlaceholderPropertyInfo+data DOMHTMLTextAreaElementReadOnlyPropertyInfo+data DOMHTMLTextAreaElementRequiredPropertyInfo+data DOMHTMLTextAreaElementRowsPropertyInfo+data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo+data DOMHTMLTextAreaElementSelectionEndPropertyInfo+data DOMHTMLTextAreaElementSelectionStartPropertyInfo+data DOMHTMLTextAreaElementTextLengthPropertyInfo+data DOMHTMLTextAreaElementTypePropertyInfo+data DOMHTMLTextAreaElementValidationMessagePropertyInfo+data DOMHTMLTextAreaElementValuePropertyInfo+data DOMHTMLTextAreaElementWillValidatePropertyInfo+data DOMHTMLTextAreaElementWrapPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs view
@@ -0,0 +1,158 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLTitleElement+    ( ++-- * Exported types+    DOMHTMLTitleElement(..)                 ,+    DOMHTMLTitleElementK                    ,+    toDOMHTMLTitleElement                   ,+    noDOMHTMLTitleElement                   ,+++ -- * Methods+-- ** dOMHTMLTitleElementGetText+    dOMHTMLTitleElementGetText              ,+++-- ** dOMHTMLTitleElementSetText+    dOMHTMLTitleElementSetText              ,+++++ -- * Properties+-- ** Text+    DOMHTMLTitleElementTextPropertyInfo     ,+    constructDOMHTMLTitleElementText        ,+    getDOMHTMLTitleElementText              ,+    setDOMHTMLTitleElementText              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLTitleElement = DOMHTMLTitleElement (ForeignPtr DOMHTMLTitleElement)+foreign import ccall "webkit_dom_html_title_element_get_type"+    c_webkit_dom_html_title_element_get_type :: IO GType++type instance ParentTypes DOMHTMLTitleElement = DOMHTMLTitleElementParentTypes+type DOMHTMLTitleElementParentTypes = '[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++noDOMHTMLTitleElement :: Maybe DOMHTMLTitleElement+noDOMHTMLTitleElement = Nothing++-- VVV Prop "text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> m T.Text+getDOMHTMLTitleElementText obj = liftIO $ getObjectPropertyString obj "text"++setDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> T.Text -> m ()+setDOMHTMLTitleElementText obj val = liftIO $ setObjectPropertyString obj "text" val++constructDOMHTMLTitleElementText :: T.Text -> IO ([Char], GValue)+constructDOMHTMLTitleElementText val = constructObjectPropertyString "text" val++data DOMHTMLTitleElementTextPropertyInfo+instance AttrInfo DOMHTMLTitleElementTextPropertyInfo where+    type AttrAllowedOps DOMHTMLTitleElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLTitleElementTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLTitleElementTextPropertyInfo = DOMHTMLTitleElementK+    type AttrGetType DOMHTMLTitleElementTextPropertyInfo = T.Text+    type AttrLabel DOMHTMLTitleElementTextPropertyInfo = "DOMHTMLTitleElement::text"+    attrGet _ = getDOMHTMLTitleElementText+    attrSet _ = setDOMHTMLTitleElementText+    attrConstruct _ = constructDOMHTMLTitleElementText++type instance AttributeList DOMHTMLTitleElement = DOMHTMLTitleElementAttributeList+type DOMHTMLTitleElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLTitleElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLTitleElement = DOMHTMLTitleElementSignalList+type DOMHTMLTitleElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLTitleElement::get_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLTitleElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_html_title_element_get_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLTitleElement::set_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLTitleElement.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLTitleElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLTitleElement = DOMHTMLTitleElement (ForeignPtr DOMHTMLTitleElement)+instance GObject DOMHTMLTitleElement where+class GObject o => DOMHTMLTitleElementK o+instance (GObject o, IsDescendantOf DOMHTMLTitleElement o) => DOMHTMLTitleElementK o+data DOMHTMLTitleElementTextPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs view
@@ -0,0 +1,249 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMHTMLUListElement+    ( ++-- * Exported types+    DOMHTMLUListElement(..)                 ,+    DOMHTMLUListElementK                    ,+    toDOMHTMLUListElement                   ,+    noDOMHTMLUListElement                   ,+++ -- * Methods+-- ** dOMHTMLUListElementGetCompact+    dOMHTMLUListElementGetCompact           ,+++-- ** dOMHTMLUListElementGetTypeAttr+    dOMHTMLUListElementGetTypeAttr          ,+++-- ** dOMHTMLUListElementSetCompact+    dOMHTMLUListElementSetCompact           ,+++-- ** dOMHTMLUListElementSetTypeAttr+    dOMHTMLUListElementSetTypeAttr          ,+++++ -- * Properties+-- ** Compact+    DOMHTMLUListElementCompactPropertyInfo  ,+    constructDOMHTMLUListElementCompact     ,+    getDOMHTMLUListElementCompact           ,+    setDOMHTMLUListElementCompact           ,+++-- ** Type+    DOMHTMLUListElementTypePropertyInfo     ,+    constructDOMHTMLUListElementType        ,+    getDOMHTMLUListElementType              ,+    setDOMHTMLUListElementType              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMHTMLUListElement = DOMHTMLUListElement (ForeignPtr DOMHTMLUListElement)+foreign import ccall "webkit_dom_html_u_list_element_get_type"+    c_webkit_dom_html_u_list_element_get_type :: IO GType++type instance ParentTypes DOMHTMLUListElement = DOMHTMLUListElementParentTypes+type DOMHTMLUListElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]++instance GObject DOMHTMLUListElement where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_dom_html_u_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++noDOMHTMLUListElement :: Maybe DOMHTMLUListElement+noDOMHTMLUListElement = Nothing++-- VVV Prop "compact"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> m Bool+getDOMHTMLUListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact"++setDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> Bool -> m ()+setDOMHTMLUListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val++constructDOMHTMLUListElementCompact :: Bool -> IO ([Char], GValue)+constructDOMHTMLUListElementCompact val = constructObjectPropertyBool "compact" val++data DOMHTMLUListElementCompactPropertyInfo+instance AttrInfo DOMHTMLUListElementCompactPropertyInfo where+    type AttrAllowedOps DOMHTMLUListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLUListElementCompactPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMHTMLUListElementCompactPropertyInfo = DOMHTMLUListElementK+    type AttrGetType DOMHTMLUListElementCompactPropertyInfo = Bool+    type AttrLabel DOMHTMLUListElementCompactPropertyInfo = "DOMHTMLUListElement::compact"+    attrGet _ = getDOMHTMLUListElementCompact+    attrSet _ = setDOMHTMLUListElementCompact+    attrConstruct _ = constructDOMHTMLUListElementCompact++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m T.Text+getDOMHTMLUListElementType obj = liftIO $ getObjectPropertyString obj "type"++setDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> T.Text -> m ()+setDOMHTMLUListElementType obj val = liftIO $ setObjectPropertyString obj "type" val++constructDOMHTMLUListElementType :: T.Text -> IO ([Char], GValue)+constructDOMHTMLUListElementType val = constructObjectPropertyString "type" val++data DOMHTMLUListElementTypePropertyInfo+instance AttrInfo DOMHTMLUListElementTypePropertyInfo where+    type AttrAllowedOps DOMHTMLUListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMHTMLUListElementTypePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMHTMLUListElementTypePropertyInfo = DOMHTMLUListElementK+    type AttrGetType DOMHTMLUListElementTypePropertyInfo = T.Text+    type AttrLabel DOMHTMLUListElementTypePropertyInfo = "DOMHTMLUListElement::type"+    attrGet _ = getDOMHTMLUListElementType+    attrSet _ = setDOMHTMLUListElementType+    attrConstruct _ = constructDOMHTMLUListElementType++type instance AttributeList DOMHTMLUListElement = DOMHTMLUListElementAttributeList+type DOMHTMLUListElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLUListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLUListElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMHTMLUListElement = DOMHTMLUListElementSignalList+type DOMHTMLUListElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMHTMLUListElement::get_compact+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_html_u_list_element_get_compact" webkit_dom_html_u_list_element_get_compact :: +    Ptr DOMHTMLUListElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLUListElement"+    IO CInt+++dOMHTMLUListElementGetCompact ::+    (MonadIO m, DOMHTMLUListElementK a) =>+    a ->                                    -- _obj+    m Bool+dOMHTMLUListElementGetCompact _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_u_list_element_get_compact _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLUListElement::get_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_html_u_list_element_get_type_attr" webkit_dom_html_u_list_element_get_type_attr :: +    Ptr DOMHTMLUListElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLUListElement"+    IO CString+++dOMHTMLUListElementGetTypeAttr ::+    (MonadIO m, DOMHTMLUListElementK a) =>+    a ->                                    -- _obj+    m T.Text+dOMHTMLUListElementGetTypeAttr _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_html_u_list_element_get_type_attr _obj'+    checkUnexpectedReturnNULL "webkit_dom_html_u_list_element_get_type_attr" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMHTMLUListElement::set_compact+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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_html_u_list_element_set_compact" webkit_dom_html_u_list_element_set_compact :: +    Ptr DOMHTMLUListElement ->              -- _obj : TInterface "WebKit2WebExtension" "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_html_u_list_element_set_compact _obj' value'+    touchManagedPtr _obj+    return ()++-- method DOMHTMLUListElement::set_type_attr+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMHTMLUListElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_html_u_list_element_set_type_attr" webkit_dom_html_u_list_element_set_type_attr :: +    Ptr DOMHTMLUListElement ->              -- _obj : TInterface "WebKit2WebExtension" "DOMHTMLUListElement"+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++dOMHTMLUListElementSetTypeAttr ::+    (MonadIO m, DOMHTMLUListElementK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- value+    m ()+dOMHTMLUListElementSetTypeAttr _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    value' <- textToCString value+    webkit_dom_html_u_list_element_set_type_attr _obj' value'+    touchManagedPtr _obj+    freeMem value'+    return ()++
+ GI/WebKit2WebExtension/Objects/DOMHTMLUListElement.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMHTMLUListElement where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMHTMLUListElement = DOMHTMLUListElement (ForeignPtr DOMHTMLUListElement)+instance GObject DOMHTMLUListElement where+class GObject o => DOMHTMLUListElementK o+instance (GObject o, IsDescendantOf DOMHTMLUListElement o) => DOMHTMLUListElementK o+data DOMHTMLUListElementCompactPropertyInfo+data DOMHTMLUListElementTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs view
@@ -0,0 +1,525 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMKeyboardEvent+    ( ++-- * Exported types+    DOMKeyboardEvent(..)                    ,+    DOMKeyboardEventK                       ,+    toDOMKeyboardEvent                      ,+    noDOMKeyboardEvent                      ,+++ -- * Methods+-- ** dOMKeyboardEventGetAltGraphKey+    dOMKeyboardEventGetAltGraphKey          ,+++-- ** dOMKeyboardEventGetAltKey+    dOMKeyboardEventGetAltKey               ,+++-- ** dOMKeyboardEventGetCtrlKey+    dOMKeyboardEventGetCtrlKey              ,+++-- ** dOMKeyboardEventGetKeyIdentifier+    dOMKeyboardEventGetKeyIdentifier        ,+++-- ** dOMKeyboardEventGetKeyLocation+    dOMKeyboardEventGetKeyLocation          ,+++-- ** dOMKeyboardEventGetMetaKey+    dOMKeyboardEventGetMetaKey              ,+++-- ** dOMKeyboardEventGetModifierState+    dOMKeyboardEventGetModifierState        ,+++-- ** dOMKeyboardEventGetShiftKey+    dOMKeyboardEventGetShiftKey             ,+++-- ** dOMKeyboardEventInitKeyboardEvent+    dOMKeyboardEventInitKeyboardEvent       ,+++++ -- * Properties+-- ** AltGraphKey+    DOMKeyboardEventAltGraphKeyPropertyInfo ,+    getDOMKeyboardEventAltGraphKey          ,+++-- ** AltKey+    DOMKeyboardEventAltKeyPropertyInfo      ,+    getDOMKeyboardEventAltKey               ,+++-- ** CtrlKey+    DOMKeyboardEventCtrlKeyPropertyInfo     ,+    getDOMKeyboardEventCtrlKey              ,+++-- ** KeyIdentifier+    DOMKeyboardEventKeyIdentifierPropertyInfo,+    getDOMKeyboardEventKeyIdentifier        ,+++-- ** KeyLocation+    DOMKeyboardEventKeyLocationPropertyInfo ,+    getDOMKeyboardEventKeyLocation          ,+++-- ** MetaKey+    DOMKeyboardEventMetaKeyPropertyInfo     ,+    getDOMKeyboardEventMetaKey              ,+++-- ** ShiftKey+    DOMKeyboardEventShiftKeyPropertyInfo    ,+    getDOMKeyboardEventShiftKey             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMKeyboardEvent = DOMKeyboardEvent (ForeignPtr DOMKeyboardEvent)+foreign import ccall "webkit_dom_keyboard_event_get_type"+    c_webkit_dom_keyboard_event_get_type :: IO GType++type instance ParentTypes DOMKeyboardEvent = DOMKeyboardEventParentTypes+type DOMKeyboardEventParentTypes = '[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++noDOMKeyboardEvent :: Maybe DOMKeyboardEvent+noDOMKeyboardEvent = Nothing++-- VVV Prop "alt-graph-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMKeyboardEventAltGraphKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool+getDOMKeyboardEventAltGraphKey obj = liftIO $ getObjectPropertyBool obj "alt-graph-key"++data DOMKeyboardEventAltGraphKeyPropertyInfo+instance AttrInfo DOMKeyboardEventAltGraphKeyPropertyInfo where+    type AttrAllowedOps DOMKeyboardEventAltGraphKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = DOMKeyboardEventK+    type AttrGetType DOMKeyboardEventAltGraphKeyPropertyInfo = Bool+    type AttrLabel DOMKeyboardEventAltGraphKeyPropertyInfo = "DOMKeyboardEvent::alt-graph-key"+    attrGet _ = getDOMKeyboardEventAltGraphKey+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "alt-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMKeyboardEventAltKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool+getDOMKeyboardEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key"++data DOMKeyboardEventAltKeyPropertyInfo+instance AttrInfo DOMKeyboardEventAltKeyPropertyInfo where+    type AttrAllowedOps DOMKeyboardEventAltKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = DOMKeyboardEventK+    type AttrGetType DOMKeyboardEventAltKeyPropertyInfo = Bool+    type AttrLabel DOMKeyboardEventAltKeyPropertyInfo = "DOMKeyboardEvent::alt-key"+    attrGet _ = getDOMKeyboardEventAltKey+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "ctrl-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMKeyboardEventCtrlKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool+getDOMKeyboardEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key"++data DOMKeyboardEventCtrlKeyPropertyInfo+instance AttrInfo DOMKeyboardEventCtrlKeyPropertyInfo where+    type AttrAllowedOps DOMKeyboardEventCtrlKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = DOMKeyboardEventK+    type AttrGetType DOMKeyboardEventCtrlKeyPropertyInfo = Bool+    type AttrLabel DOMKeyboardEventCtrlKeyPropertyInfo = "DOMKeyboardEvent::ctrl-key"+    attrGet _ = getDOMKeyboardEventCtrlKey+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "key-identifier"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMKeyboardEventKeyIdentifier :: (MonadIO m, DOMKeyboardEventK o) => o -> m T.Text+getDOMKeyboardEventKeyIdentifier obj = liftIO $ getObjectPropertyString obj "key-identifier"++data DOMKeyboardEventKeyIdentifierPropertyInfo+instance AttrInfo DOMKeyboardEventKeyIdentifierPropertyInfo where+    type AttrAllowedOps DOMKeyboardEventKeyIdentifierPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = DOMKeyboardEventK+    type AttrGetType DOMKeyboardEventKeyIdentifierPropertyInfo = T.Text+    type AttrLabel DOMKeyboardEventKeyIdentifierPropertyInfo = "DOMKeyboardEvent::key-identifier"+    attrGet _ = getDOMKeyboardEventKeyIdentifier+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "key-location"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMKeyboardEventKeyLocation :: (MonadIO m, DOMKeyboardEventK o) => o -> m Word64+getDOMKeyboardEventKeyLocation obj = liftIO $ getObjectPropertyUInt64 obj "key-location"++data DOMKeyboardEventKeyLocationPropertyInfo+instance AttrInfo DOMKeyboardEventKeyLocationPropertyInfo where+    type AttrAllowedOps DOMKeyboardEventKeyLocationPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = DOMKeyboardEventK+    type AttrGetType DOMKeyboardEventKeyLocationPropertyInfo = Word64+    type AttrLabel DOMKeyboardEventKeyLocationPropertyInfo = "DOMKeyboardEvent::key-location"+    attrGet _ = getDOMKeyboardEventKeyLocation+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "meta-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMKeyboardEventMetaKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool+getDOMKeyboardEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key"++data DOMKeyboardEventMetaKeyPropertyInfo+instance AttrInfo DOMKeyboardEventMetaKeyPropertyInfo where+    type AttrAllowedOps DOMKeyboardEventMetaKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = DOMKeyboardEventK+    type AttrGetType DOMKeyboardEventMetaKeyPropertyInfo = Bool+    type AttrLabel DOMKeyboardEventMetaKeyPropertyInfo = "DOMKeyboardEvent::meta-key"+    attrGet _ = getDOMKeyboardEventMetaKey+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "shift-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMKeyboardEventShiftKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool+getDOMKeyboardEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key"++data DOMKeyboardEventShiftKeyPropertyInfo+instance AttrInfo DOMKeyboardEventShiftKeyPropertyInfo where+    type AttrAllowedOps DOMKeyboardEventShiftKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = DOMKeyboardEventK+    type AttrGetType DOMKeyboardEventShiftKeyPropertyInfo = Bool+    type AttrLabel DOMKeyboardEventShiftKeyPropertyInfo = "DOMKeyboardEvent::shift-key"+    attrGet _ = getDOMKeyboardEventShiftKey+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMKeyboardEvent = DOMKeyboardEventAttributeList+type DOMKeyboardEventAttributeList = ('[ '("alt-graph-key", DOMKeyboardEventAltGraphKeyPropertyInfo), '("alt-key", DOMKeyboardEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMKeyboardEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("key-identifier", DOMKeyboardEventKeyIdentifierPropertyInfo), '("key-location", DOMKeyboardEventKeyLocationPropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMKeyboardEventMetaKeyPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("shift-key", DOMKeyboardEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMKeyboardEvent = DOMKeyboardEventSignalList+type DOMKeyboardEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMKeyboardEvent::get_alt_graph_key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_keyboard_event_get_key_identifier" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMKeyboardEvent::get_key_location+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMKeyboardEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMKeyboardEvent"+    CString ->                              -- type : TBasicType TUTF8+    CInt ->                                 -- canBubble : TBasicType TBoolean+    CInt ->                                 -- cancelable : TBasicType TBoolean+    Ptr DOMDOMWindow ->                     -- view : TInterface "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMKeyboardEvent.hs-boot view
@@ -0,0 +1,20 @@+module GI.WebKit2WebExtension.Objects.DOMKeyboardEvent where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMKeyboardEvent = DOMKeyboardEvent (ForeignPtr DOMKeyboardEvent)+instance GObject DOMKeyboardEvent where+class GObject o => DOMKeyboardEventK o+instance (GObject o, IsDescendantOf DOMKeyboardEvent o) => DOMKeyboardEventK o+data DOMKeyboardEventAltGraphKeyPropertyInfo+data DOMKeyboardEventAltKeyPropertyInfo+data DOMKeyboardEventCtrlKeyPropertyInfo+data DOMKeyboardEventKeyIdentifierPropertyInfo+data DOMKeyboardEventKeyLocationPropertyInfo+data DOMKeyboardEventMetaKeyPropertyInfo+data DOMKeyboardEventShiftKeyPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMMediaList.hs view
@@ -0,0 +1,321 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMMediaList+    ( ++-- * Exported types+    DOMMediaList(..)                        ,+    DOMMediaListK                           ,+    toDOMMediaList                          ,+    noDOMMediaList                          ,+++ -- * Methods+-- ** dOMMediaListAppendMedium+    dOMMediaListAppendMedium                ,+++-- ** dOMMediaListDeleteMedium+    dOMMediaListDeleteMedium                ,+++-- ** dOMMediaListGetLength+    dOMMediaListGetLength                   ,+++-- ** dOMMediaListGetMediaText+    dOMMediaListGetMediaText                ,+++-- ** dOMMediaListItem+    dOMMediaListItem                        ,+++-- ** dOMMediaListSetMediaText+    dOMMediaListSetMediaText                ,+++++ -- * Properties+-- ** Length+    DOMMediaListLengthPropertyInfo          ,+    getDOMMediaListLength                   ,+++-- ** MediaText+    DOMMediaListMediaTextPropertyInfo       ,+    constructDOMMediaListMediaText          ,+    getDOMMediaListMediaText                ,+    setDOMMediaListMediaText                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMMediaList = DOMMediaList (ForeignPtr DOMMediaList)+foreign import ccall "webkit_dom_media_list_get_type"+    c_webkit_dom_media_list_get_type :: IO GType++type instance ParentTypes DOMMediaList = DOMMediaListParentTypes+type DOMMediaListParentTypes = '[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++noDOMMediaList :: Maybe DOMMediaList+noDOMMediaList = Nothing++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMMediaListLength :: (MonadIO m, DOMMediaListK o) => o -> m Word64+getDOMMediaListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMMediaListLengthPropertyInfo+instance AttrInfo DOMMediaListLengthPropertyInfo where+    type AttrAllowedOps DOMMediaListLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMediaListLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMediaListLengthPropertyInfo = DOMMediaListK+    type AttrGetType DOMMediaListLengthPropertyInfo = Word64+    type AttrLabel DOMMediaListLengthPropertyInfo = "DOMMediaList::length"+    attrGet _ = getDOMMediaListLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "media-text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m T.Text+getDOMMediaListMediaText obj = liftIO $ getObjectPropertyString obj "media-text"++setDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> T.Text -> m ()+setDOMMediaListMediaText obj val = liftIO $ setObjectPropertyString obj "media-text" val++constructDOMMediaListMediaText :: T.Text -> IO ([Char], GValue)+constructDOMMediaListMediaText val = constructObjectPropertyString "media-text" val++data DOMMediaListMediaTextPropertyInfo+instance AttrInfo DOMMediaListMediaTextPropertyInfo where+    type AttrAllowedOps DOMMediaListMediaTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMMediaListMediaTextPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMMediaListMediaTextPropertyInfo = DOMMediaListK+    type AttrGetType DOMMediaListMediaTextPropertyInfo = T.Text+    type AttrLabel DOMMediaListMediaTextPropertyInfo = "DOMMediaList::media-text"+    attrGet _ = getDOMMediaListMediaText+    attrSet _ = setDOMMediaListMediaText+    attrConstruct _ = constructDOMMediaListMediaText++type instance AttributeList DOMMediaList = DOMMediaListAttributeList+type DOMMediaListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMMediaListLengthPropertyInfo), '("media-text", DOMMediaListMediaTextPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMMediaList = DOMMediaListSignalList+type DOMMediaListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMMediaList::append_medium+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMediaList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_media_list_get_media_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMMediaList::item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_media_list_item" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMMediaList::set_media_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+     )++
+ GI/WebKit2WebExtension/Objects/DOMMediaList.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMMediaList where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMMediaList = DOMMediaList (ForeignPtr DOMMediaList)+instance GObject DOMMediaList where+class GObject o => DOMMediaListK o+instance (GObject o, IsDescendantOf DOMMediaList o) => DOMMediaListK o+data DOMMediaListLengthPropertyInfo+data DOMMediaListMediaTextPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs view
@@ -0,0 +1,1006 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMMouseEvent+    ( ++-- * Exported types+    DOMMouseEvent(..)                       ,+    DOMMouseEventK                          ,+    toDOMMouseEvent                         ,+    noDOMMouseEvent                         ,+++ -- * Methods+-- ** dOMMouseEventGetAltKey+    dOMMouseEventGetAltKey                  ,+++-- ** dOMMouseEventGetButton+    dOMMouseEventGetButton                  ,+++-- ** dOMMouseEventGetClientX+    dOMMouseEventGetClientX                 ,+++-- ** dOMMouseEventGetClientY+    dOMMouseEventGetClientY                 ,+++-- ** dOMMouseEventGetCtrlKey+    dOMMouseEventGetCtrlKey                 ,+++-- ** dOMMouseEventGetFromElement+    dOMMouseEventGetFromElement             ,+++-- ** dOMMouseEventGetMetaKey+    dOMMouseEventGetMetaKey                 ,+++-- ** dOMMouseEventGetOffsetX+    dOMMouseEventGetOffsetX                 ,+++-- ** dOMMouseEventGetOffsetY+    dOMMouseEventGetOffsetY                 ,+++-- ** dOMMouseEventGetRelatedTarget+    dOMMouseEventGetRelatedTarget           ,+++-- ** dOMMouseEventGetScreenX+    dOMMouseEventGetScreenX                 ,+++-- ** dOMMouseEventGetScreenY+    dOMMouseEventGetScreenY                 ,+++-- ** dOMMouseEventGetShiftKey+    dOMMouseEventGetShiftKey                ,+++-- ** dOMMouseEventGetToElement+    dOMMouseEventGetToElement               ,+++-- ** dOMMouseEventGetX+    dOMMouseEventGetX                       ,+++-- ** dOMMouseEventGetY+    dOMMouseEventGetY                       ,+++-- ** dOMMouseEventInitMouseEvent+    dOMMouseEventInitMouseEvent             ,+++++ -- * Properties+-- ** AltKey+    DOMMouseEventAltKeyPropertyInfo         ,+    getDOMMouseEventAltKey                  ,+++-- ** Button+    DOMMouseEventButtonPropertyInfo         ,+    getDOMMouseEventButton                  ,+++-- ** ClientX+    DOMMouseEventClientXPropertyInfo        ,+    getDOMMouseEventClientX                 ,+++-- ** ClientY+    DOMMouseEventClientYPropertyInfo        ,+    getDOMMouseEventClientY                 ,+++-- ** CtrlKey+    DOMMouseEventCtrlKeyPropertyInfo        ,+    getDOMMouseEventCtrlKey                 ,+++-- ** FromElement+    DOMMouseEventFromElementPropertyInfo    ,+    getDOMMouseEventFromElement             ,+++-- ** MetaKey+    DOMMouseEventMetaKeyPropertyInfo        ,+    getDOMMouseEventMetaKey                 ,+++-- ** MovementX+    DOMMouseEventMovementXPropertyInfo      ,+    getDOMMouseEventMovementX               ,+++-- ** MovementY+    DOMMouseEventMovementYPropertyInfo      ,+    getDOMMouseEventMovementY               ,+++-- ** OffsetX+    DOMMouseEventOffsetXPropertyInfo        ,+    getDOMMouseEventOffsetX                 ,+++-- ** OffsetY+    DOMMouseEventOffsetYPropertyInfo        ,+    getDOMMouseEventOffsetY                 ,+++-- ** RelatedTarget+    DOMMouseEventRelatedTargetPropertyInfo  ,+    getDOMMouseEventRelatedTarget           ,+++-- ** ScreenX+    DOMMouseEventScreenXPropertyInfo        ,+    getDOMMouseEventScreenX                 ,+++-- ** ScreenY+    DOMMouseEventScreenYPropertyInfo        ,+    getDOMMouseEventScreenY                 ,+++-- ** ShiftKey+    DOMMouseEventShiftKeyPropertyInfo       ,+    getDOMMouseEventShiftKey                ,+++-- ** ToElement+    DOMMouseEventToElementPropertyInfo      ,+    getDOMMouseEventToElement               ,+++-- ** X+    DOMMouseEventXPropertyInfo              ,+    getDOMMouseEventX                       ,+++-- ** Y+    DOMMouseEventYPropertyInfo              ,+    getDOMMouseEventY                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMMouseEvent = DOMMouseEvent (ForeignPtr DOMMouseEvent)+foreign import ccall "webkit_dom_mouse_event_get_type"+    c_webkit_dom_mouse_event_get_type :: IO GType++type instance ParentTypes DOMMouseEvent = DOMMouseEventParentTypes+type DOMMouseEventParentTypes = '[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++noDOMMouseEvent :: Maybe DOMMouseEvent+noDOMMouseEvent = Nothing++-- VVV Prop "alt-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMMouseEventAltKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool+getDOMMouseEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key"++data DOMMouseEventAltKeyPropertyInfo+instance AttrInfo DOMMouseEventAltKeyPropertyInfo where+    type AttrAllowedOps DOMMouseEventAltKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventAltKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventAltKeyPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventAltKeyPropertyInfo = Bool+    type AttrLabel DOMMouseEventAltKeyPropertyInfo = "DOMMouseEvent::alt-key"+    attrGet _ = getDOMMouseEventAltKey+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "button"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getDOMMouseEventButton :: (MonadIO m, DOMMouseEventK o) => o -> m Word32+getDOMMouseEventButton obj = liftIO $ getObjectPropertyCUInt obj "button"++data DOMMouseEventButtonPropertyInfo+instance AttrInfo DOMMouseEventButtonPropertyInfo where+    type AttrAllowedOps DOMMouseEventButtonPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventButtonPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventButtonPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventButtonPropertyInfo = Word32+    type AttrLabel DOMMouseEventButtonPropertyInfo = "DOMMouseEvent::button"+    attrGet _ = getDOMMouseEventButton+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "client-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventClientX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x"++data DOMMouseEventClientXPropertyInfo+instance AttrInfo DOMMouseEventClientXPropertyInfo where+    type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventClientXPropertyInfo = Int64+    type AttrLabel DOMMouseEventClientXPropertyInfo = "DOMMouseEvent::client-x"+    attrGet _ = getDOMMouseEventClientX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "client-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventClientY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y"++data DOMMouseEventClientYPropertyInfo+instance AttrInfo DOMMouseEventClientYPropertyInfo where+    type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventClientYPropertyInfo = Int64+    type AttrLabel DOMMouseEventClientYPropertyInfo = "DOMMouseEvent::client-y"+    attrGet _ = getDOMMouseEventClientY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "ctrl-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMMouseEventCtrlKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool+getDOMMouseEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key"++data DOMMouseEventCtrlKeyPropertyInfo+instance AttrInfo DOMMouseEventCtrlKeyPropertyInfo where+    type AttrAllowedOps DOMMouseEventCtrlKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventCtrlKeyPropertyInfo = Bool+    type AttrLabel DOMMouseEventCtrlKeyPropertyInfo = "DOMMouseEvent::ctrl-key"+    attrGet _ = getDOMMouseEventCtrlKey+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "from-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMMouseEventFromElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode+getDOMMouseEventFromElement obj = liftIO $ getObjectPropertyObject obj "from-element" DOMNode++data DOMMouseEventFromElementPropertyInfo+instance AttrInfo DOMMouseEventFromElementPropertyInfo where+    type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventFromElementPropertyInfo = DOMNode+    type AttrLabel DOMMouseEventFromElementPropertyInfo = "DOMMouseEvent::from-element"+    attrGet _ = getDOMMouseEventFromElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "meta-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMMouseEventMetaKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool+getDOMMouseEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key"++data DOMMouseEventMetaKeyPropertyInfo+instance AttrInfo DOMMouseEventMetaKeyPropertyInfo where+    type AttrAllowedOps DOMMouseEventMetaKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventMetaKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventMetaKeyPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventMetaKeyPropertyInfo = Bool+    type AttrLabel DOMMouseEventMetaKeyPropertyInfo = "DOMMouseEvent::meta-key"+    attrGet _ = getDOMMouseEventMetaKey+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "movement-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventMovementX obj = liftIO $ getObjectPropertyInt64 obj "movement-x"++data DOMMouseEventMovementXPropertyInfo+instance AttrInfo DOMMouseEventMovementXPropertyInfo where+    type AttrAllowedOps DOMMouseEventMovementXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventMovementXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventMovementXPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventMovementXPropertyInfo = Int64+    type AttrLabel DOMMouseEventMovementXPropertyInfo = "DOMMouseEvent::movement-x"+    attrGet _ = getDOMMouseEventMovementX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "movement-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventMovementY obj = liftIO $ getObjectPropertyInt64 obj "movement-y"++data DOMMouseEventMovementYPropertyInfo+instance AttrInfo DOMMouseEventMovementYPropertyInfo where+    type AttrAllowedOps DOMMouseEventMovementYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventMovementYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventMovementYPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventMovementYPropertyInfo = Int64+    type AttrLabel DOMMouseEventMovementYPropertyInfo = "DOMMouseEvent::movement-y"+    attrGet _ = getDOMMouseEventMovementY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "offset-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventOffsetX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventOffsetX obj = liftIO $ getObjectPropertyInt64 obj "offset-x"++data DOMMouseEventOffsetXPropertyInfo+instance AttrInfo DOMMouseEventOffsetXPropertyInfo where+    type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventOffsetXPropertyInfo = Int64+    type AttrLabel DOMMouseEventOffsetXPropertyInfo = "DOMMouseEvent::offset-x"+    attrGet _ = getDOMMouseEventOffsetX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "offset-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventOffsetY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventOffsetY obj = liftIO $ getObjectPropertyInt64 obj "offset-y"++data DOMMouseEventOffsetYPropertyInfo+instance AttrInfo DOMMouseEventOffsetYPropertyInfo where+    type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventOffsetYPropertyInfo = Int64+    type AttrLabel DOMMouseEventOffsetYPropertyInfo = "DOMMouseEvent::offset-y"+    attrGet _ = getDOMMouseEventOffsetY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "related-target"+   -- Type: TInterface "WebKit2WebExtension" "DOMEventTarget"+   -- Flags: [PropertyReadable]++getDOMMouseEventRelatedTarget :: (MonadIO m, DOMMouseEventK o) => o -> m DOMEventTarget+getDOMMouseEventRelatedTarget obj = liftIO $ getObjectPropertyObject obj "related-target" DOMEventTarget++data DOMMouseEventRelatedTargetPropertyInfo+instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where+    type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = DOMEventTarget+    type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "DOMMouseEvent::related-target"+    attrGet _ = getDOMMouseEventRelatedTarget+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "screen-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventScreenX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x"++data DOMMouseEventScreenXPropertyInfo+instance AttrInfo DOMMouseEventScreenXPropertyInfo where+    type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventScreenXPropertyInfo = Int64+    type AttrLabel DOMMouseEventScreenXPropertyInfo = "DOMMouseEvent::screen-x"+    attrGet _ = getDOMMouseEventScreenX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "screen-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventScreenY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y"++data DOMMouseEventScreenYPropertyInfo+instance AttrInfo DOMMouseEventScreenYPropertyInfo where+    type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventScreenYPropertyInfo = Int64+    type AttrLabel DOMMouseEventScreenYPropertyInfo = "DOMMouseEvent::screen-y"+    attrGet _ = getDOMMouseEventScreenY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "shift-key"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMMouseEventShiftKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool+getDOMMouseEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key"++data DOMMouseEventShiftKeyPropertyInfo+instance AttrInfo DOMMouseEventShiftKeyPropertyInfo where+    type AttrAllowedOps DOMMouseEventShiftKeyPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventShiftKeyPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventShiftKeyPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventShiftKeyPropertyInfo = Bool+    type AttrLabel DOMMouseEventShiftKeyPropertyInfo = "DOMMouseEvent::shift-key"+    attrGet _ = getDOMMouseEventShiftKey+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "to-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMMouseEventToElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode+getDOMMouseEventToElement obj = liftIO $ getObjectPropertyObject obj "to-element" DOMNode++data DOMMouseEventToElementPropertyInfo+instance AttrInfo DOMMouseEventToElementPropertyInfo where+    type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventToElementPropertyInfo = DOMNode+    type AttrLabel DOMMouseEventToElementPropertyInfo = "DOMMouseEvent::to-element"+    attrGet _ = getDOMMouseEventToElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventX obj = liftIO $ getObjectPropertyInt64 obj "x"++data DOMMouseEventXPropertyInfo+instance AttrInfo DOMMouseEventXPropertyInfo where+    type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventXPropertyInfo = Int64+    type AttrLabel DOMMouseEventXPropertyInfo = "DOMMouseEvent::x"+    attrGet _ = getDOMMouseEventX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMMouseEventY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64+getDOMMouseEventY obj = liftIO $ getObjectPropertyInt64 obj "y"++data DOMMouseEventYPropertyInfo+instance AttrInfo DOMMouseEventYPropertyInfo where+    type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = DOMMouseEventK+    type AttrGetType DOMMouseEventYPropertyInfo = Int64+    type AttrLabel DOMMouseEventYPropertyInfo = "DOMMouseEvent::y"+    attrGet _ = getDOMMouseEventY+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMMouseEvent = DOMMouseEventAttributeList+type DOMMouseEventAttributeList = ('[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("movement-x", DOMMouseEventMovementXPropertyInfo), '("movement-y", DOMMouseEventMovementYPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMMouseEvent = DOMMouseEventSignalList+type DOMMouseEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMMouseEvent::get_alt_key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_from_element" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMMouseEvent::get_meta_key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_related_target" result+    result' <- (wrapObject DOMEventTarget) result+    touchManagedPtr _obj+    return result'++-- method DOMMouseEvent::get_screen_x+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_to_element" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMMouseEvent::get_x+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMEventTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMMouseEvent"+    CString ->                              -- type : TBasicType TUTF8+    CInt ->                                 -- canBubble : TBasicType TBoolean+    CInt ->                                 -- cancelable : TBasicType TBoolean+    Ptr DOMDOMWindow ->                     -- view : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMMouseEvent.hs-boot view
@@ -0,0 +1,31 @@+module GI.WebKit2WebExtension.Objects.DOMMouseEvent where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMMouseEvent = DOMMouseEvent (ForeignPtr DOMMouseEvent)+instance GObject DOMMouseEvent where+class GObject o => DOMMouseEventK o+instance (GObject o, IsDescendantOf DOMMouseEvent o) => DOMMouseEventK o+data DOMMouseEventAltKeyPropertyInfo+data DOMMouseEventButtonPropertyInfo+data DOMMouseEventClientXPropertyInfo+data DOMMouseEventClientYPropertyInfo+data DOMMouseEventCtrlKeyPropertyInfo+data DOMMouseEventFromElementPropertyInfo+data DOMMouseEventMetaKeyPropertyInfo+data DOMMouseEventMovementXPropertyInfo+data DOMMouseEventMovementYPropertyInfo+data DOMMouseEventOffsetXPropertyInfo+data DOMMouseEventOffsetYPropertyInfo+data DOMMouseEventRelatedTargetPropertyInfo+data DOMMouseEventScreenXPropertyInfo+data DOMMouseEventScreenYPropertyInfo+data DOMMouseEventShiftKeyPropertyInfo+data DOMMouseEventToElementPropertyInfo+data DOMMouseEventXPropertyInfo+data DOMMouseEventYPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs view
@@ -0,0 +1,380 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMNamedNodeMap+    ( ++-- * Exported types+    DOMNamedNodeMap(..)                     ,+    DOMNamedNodeMapK                        ,+    toDOMNamedNodeMap                       ,+    noDOMNamedNodeMap                       ,+++ -- * Methods+-- ** dOMNamedNodeMapGetLength+    dOMNamedNodeMapGetLength                ,+++-- ** dOMNamedNodeMapGetNamedItem+    dOMNamedNodeMapGetNamedItem             ,+++-- ** dOMNamedNodeMapGetNamedItemNs+    dOMNamedNodeMapGetNamedItemNs           ,+++-- ** dOMNamedNodeMapItem+    dOMNamedNodeMapItem                     ,+++-- ** dOMNamedNodeMapRemoveNamedItem+    dOMNamedNodeMapRemoveNamedItem          ,+++-- ** dOMNamedNodeMapRemoveNamedItemNs+    dOMNamedNodeMapRemoveNamedItemNs        ,+++-- ** dOMNamedNodeMapSetNamedItem+    dOMNamedNodeMapSetNamedItem             ,+++-- ** dOMNamedNodeMapSetNamedItemNs+    dOMNamedNodeMapSetNamedItemNs           ,+++++ -- * Properties+-- ** Length+    DOMNamedNodeMapLengthPropertyInfo       ,+    getDOMNamedNodeMapLength                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMNamedNodeMap = DOMNamedNodeMap (ForeignPtr DOMNamedNodeMap)+foreign import ccall "webkit_dom_named_node_map_get_type"+    c_webkit_dom_named_node_map_get_type :: IO GType++type instance ParentTypes DOMNamedNodeMap = DOMNamedNodeMapParentTypes+type DOMNamedNodeMapParentTypes = '[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++noDOMNamedNodeMap :: Maybe DOMNamedNodeMap+noDOMNamedNodeMap = Nothing++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMNamedNodeMapLength :: (MonadIO m, DOMNamedNodeMapK o) => o -> m Word64+getDOMNamedNodeMapLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMNamedNodeMapLengthPropertyInfo+instance AttrInfo DOMNamedNodeMapLengthPropertyInfo where+    type AttrAllowedOps DOMNamedNodeMapLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNamedNodeMapLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNamedNodeMapLengthPropertyInfo = DOMNamedNodeMapK+    type AttrGetType DOMNamedNodeMapLengthPropertyInfo = Word64+    type AttrLabel DOMNamedNodeMapLengthPropertyInfo = "DOMNamedNodeMap::length"+    attrGet _ = getDOMNamedNodeMapLength+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMNamedNodeMap = DOMNamedNodeMapAttributeList+type DOMNamedNodeMapAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMNamedNodeMapLengthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMNamedNodeMap = DOMNamedNodeMapSignalList+type DOMNamedNodeMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMNamedNodeMap::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_named_node_map_get_named_item" result+    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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_named_node_map_get_named_item_ns" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    freeMem namespaceURI'+    freeMem localName'+    return result'++-- method DOMNamedNodeMap::item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_named_node_map_item" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNamedNodeMap::remove_named_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_named_node_map_remove_named_item" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_named_node_map_remove_named_item_ns" result+        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 "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNamedNodeMap"+    Ptr DOMNode ->                          -- node : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_named_node_map_set_named_item" result+        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 "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNamedNodeMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "node", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNamedNodeMap"+    Ptr DOMNode ->                          -- node : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_named_node_map_set_named_item_ns" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        touchManagedPtr node+        return result'+     ) (do+        return ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMNamedNodeMap.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMNamedNodeMap where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMNamedNodeMap = DOMNamedNodeMap (ForeignPtr DOMNamedNodeMap)+instance GObject DOMNamedNodeMap where+class GObject o => DOMNamedNodeMapK o+instance (GObject o, IsDescendantOf DOMNamedNodeMap o) => DOMNamedNodeMapK o+data DOMNamedNodeMapLengthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMNode.hs view
@@ -0,0 +1,1581 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMNode+    ( ++-- * Exported types+    DOMNode(..)                             ,+    DOMNodeK                                ,+    toDOMNode                               ,+    noDOMNode                               ,+++ -- * Methods+-- ** dOMNodeAppendChild+    dOMNodeAppendChild                      ,+++-- ** dOMNodeCloneNode+    dOMNodeCloneNode                        ,+++-- ** dOMNodeCompareDocumentPosition+    dOMNodeCompareDocumentPosition          ,+++-- ** dOMNodeContains+    dOMNodeContains                         ,+++-- ** dOMNodeGetBaseUri+    dOMNodeGetBaseUri                       ,+++-- ** dOMNodeGetChildNodes+    dOMNodeGetChildNodes                    ,+++-- ** dOMNodeGetFirstChild+    dOMNodeGetFirstChild                    ,+++-- ** dOMNodeGetLastChild+    dOMNodeGetLastChild                     ,+++-- ** dOMNodeGetLocalName+    dOMNodeGetLocalName                     ,+++-- ** dOMNodeGetNamespaceUri+    dOMNodeGetNamespaceUri                  ,+++-- ** dOMNodeGetNextSibling+    dOMNodeGetNextSibling                   ,+++-- ** dOMNodeGetNodeName+    dOMNodeGetNodeName                      ,+++-- ** dOMNodeGetNodeType+    dOMNodeGetNodeType                      ,+++-- ** dOMNodeGetNodeValue+    dOMNodeGetNodeValue                     ,+++-- ** dOMNodeGetOwnerDocument+    dOMNodeGetOwnerDocument                 ,+++-- ** dOMNodeGetParentElement+    dOMNodeGetParentElement                 ,+++-- ** dOMNodeGetParentNode+    dOMNodeGetParentNode                    ,+++-- ** dOMNodeGetPrefix+    dOMNodeGetPrefix                        ,+++-- ** dOMNodeGetPreviousSibling+    dOMNodeGetPreviousSibling               ,+++-- ** dOMNodeGetTextContent+    dOMNodeGetTextContent                   ,+++-- ** dOMNodeHasChildNodes+    dOMNodeHasChildNodes                    ,+++-- ** dOMNodeInsertBefore+    dOMNodeInsertBefore                     ,+++-- ** dOMNodeIsDefaultNamespace+    dOMNodeIsDefaultNamespace               ,+++-- ** dOMNodeIsEqualNode+    dOMNodeIsEqualNode                      ,+++-- ** dOMNodeIsSameNode+    dOMNodeIsSameNode                       ,+++-- ** dOMNodeIsSupported+    dOMNodeIsSupported                      ,+++-- ** dOMNodeLookupNamespaceUri+    dOMNodeLookupNamespaceUri               ,+++-- ** dOMNodeLookupPrefix+    dOMNodeLookupPrefix                     ,+++-- ** dOMNodeNormalize+    dOMNodeNormalize                        ,+++-- ** dOMNodeRemoveChild+    dOMNodeRemoveChild                      ,+++-- ** dOMNodeReplaceChild+    dOMNodeReplaceChild                     ,+++-- ** dOMNodeSetNodeValue+    dOMNodeSetNodeValue                     ,+++-- ** dOMNodeSetPrefix+    dOMNodeSetPrefix                        ,+++-- ** dOMNodeSetTextContent+    dOMNodeSetTextContent                   ,+++++ -- * Properties+-- ** BaseUri+    DOMNodeBaseUriPropertyInfo              ,+    getDOMNodeBaseUri                       ,+++-- ** ChildNodes+    DOMNodeChildNodesPropertyInfo           ,+    getDOMNodeChildNodes                    ,+++-- ** FirstChild+    DOMNodeFirstChildPropertyInfo           ,+    getDOMNodeFirstChild                    ,+++-- ** LastChild+    DOMNodeLastChildPropertyInfo            ,+    getDOMNodeLastChild                     ,+++-- ** LocalName+    DOMNodeLocalNamePropertyInfo            ,+    getDOMNodeLocalName                     ,+++-- ** NamespaceUri+    DOMNodeNamespaceUriPropertyInfo         ,+    getDOMNodeNamespaceUri                  ,+++-- ** NextSibling+    DOMNodeNextSiblingPropertyInfo          ,+    getDOMNodeNextSibling                   ,+++-- ** NodeName+    DOMNodeNodeNamePropertyInfo             ,+    getDOMNodeNodeName                      ,+++-- ** NodeType+    DOMNodeNodeTypePropertyInfo             ,+    getDOMNodeNodeType                      ,+++-- ** NodeValue+    DOMNodeNodeValuePropertyInfo            ,+    constructDOMNodeNodeValue               ,+    getDOMNodeNodeValue                     ,+    setDOMNodeNodeValue                     ,+++-- ** OwnerDocument+    DOMNodeOwnerDocumentPropertyInfo        ,+    getDOMNodeOwnerDocument                 ,+++-- ** ParentElement+    DOMNodeParentElementPropertyInfo        ,+    getDOMNodeParentElement                 ,+++-- ** ParentNode+    DOMNodeParentNodePropertyInfo           ,+    getDOMNodeParentNode                    ,+++-- ** Prefix+    DOMNodePrefixPropertyInfo               ,+    constructDOMNodePrefix                  ,+    getDOMNodePrefix                        ,+    setDOMNodePrefix                        ,+++-- ** PreviousSibling+    DOMNodePreviousSiblingPropertyInfo      ,+    getDOMNodePreviousSibling               ,+++-- ** TextContent+    DOMNodeTextContentPropertyInfo          ,+    constructDOMNodeTextContent             ,+    getDOMNodeTextContent                   ,+    setDOMNodeTextContent                   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMNode = DOMNode (ForeignPtr DOMNode)+foreign import ccall "webkit_dom_node_get_type"+    c_webkit_dom_node_get_type :: IO GType++type instance ParentTypes DOMNode = DOMNodeParentTypes+type DOMNodeParentTypes = '[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++noDOMNode :: Maybe DOMNode+noDOMNode = Nothing++-- VVV Prop "base-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMNodeBaseUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text+getDOMNodeBaseUri obj = liftIO $ getObjectPropertyString obj "base-uri"++data DOMNodeBaseUriPropertyInfo+instance AttrInfo DOMNodeBaseUriPropertyInfo where+    type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeBaseUriPropertyInfo = T.Text+    type AttrLabel DOMNodeBaseUriPropertyInfo = "DOMNode::base-uri"+    attrGet _ = getDOMNodeBaseUri+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "child-nodes"+   -- Type: TInterface "WebKit2WebExtension" "DOMNodeList"+   -- Flags: [PropertyReadable]++getDOMNodeChildNodes :: (MonadIO m, DOMNodeK o) => o -> m DOMNodeList+getDOMNodeChildNodes obj = liftIO $ getObjectPropertyObject obj "child-nodes" DOMNodeList++data DOMNodeChildNodesPropertyInfo+instance AttrInfo DOMNodeChildNodesPropertyInfo where+    type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeChildNodesPropertyInfo = DOMNodeList+    type AttrLabel DOMNodeChildNodesPropertyInfo = "DOMNode::child-nodes"+    attrGet _ = getDOMNodeChildNodes+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "first-child"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMNodeFirstChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode+getDOMNodeFirstChild obj = liftIO $ getObjectPropertyObject obj "first-child" DOMNode++data DOMNodeFirstChildPropertyInfo+instance AttrInfo DOMNodeFirstChildPropertyInfo where+    type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode+    type AttrLabel DOMNodeFirstChildPropertyInfo = "DOMNode::first-child"+    attrGet _ = getDOMNodeFirstChild+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "last-child"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMNodeLastChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode+getDOMNodeLastChild obj = liftIO $ getObjectPropertyObject obj "last-child" DOMNode++data DOMNodeLastChildPropertyInfo+instance AttrInfo DOMNodeLastChildPropertyInfo where+    type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode+    type AttrLabel DOMNodeLastChildPropertyInfo = "DOMNode::last-child"+    attrGet _ = getDOMNodeLastChild+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "local-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMNodeLocalName :: (MonadIO m, DOMNodeK o) => o -> m T.Text+getDOMNodeLocalName obj = liftIO $ getObjectPropertyString obj "local-name"++data DOMNodeLocalNamePropertyInfo+instance AttrInfo DOMNodeLocalNamePropertyInfo where+    type AttrAllowedOps DOMNodeLocalNamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeLocalNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeLocalNamePropertyInfo = DOMNodeK+    type AttrGetType DOMNodeLocalNamePropertyInfo = T.Text+    type AttrLabel DOMNodeLocalNamePropertyInfo = "DOMNode::local-name"+    attrGet _ = getDOMNodeLocalName+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "namespace-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMNodeNamespaceUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text+getDOMNodeNamespaceUri obj = liftIO $ getObjectPropertyString obj "namespace-uri"++data DOMNodeNamespaceUriPropertyInfo+instance AttrInfo DOMNodeNamespaceUriPropertyInfo where+    type AttrAllowedOps DOMNodeNamespaceUriPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeNamespaceUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeNamespaceUriPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeNamespaceUriPropertyInfo = T.Text+    type AttrLabel DOMNodeNamespaceUriPropertyInfo = "DOMNode::namespace-uri"+    attrGet _ = getDOMNodeNamespaceUri+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "next-sibling"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMNodeNextSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode+getDOMNodeNextSibling obj = liftIO $ getObjectPropertyObject obj "next-sibling" DOMNode++data DOMNodeNextSiblingPropertyInfo+instance AttrInfo DOMNodeNextSiblingPropertyInfo where+    type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode+    type AttrLabel DOMNodeNextSiblingPropertyInfo = "DOMNode::next-sibling"+    attrGet _ = getDOMNodeNextSibling+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "node-name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMNodeNodeName :: (MonadIO m, DOMNodeK o) => o -> m T.Text+getDOMNodeNodeName obj = liftIO $ getObjectPropertyString obj "node-name"++data DOMNodeNodeNamePropertyInfo+instance AttrInfo DOMNodeNodeNamePropertyInfo where+    type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = DOMNodeK+    type AttrGetType DOMNodeNodeNamePropertyInfo = T.Text+    type AttrLabel DOMNodeNodeNamePropertyInfo = "DOMNode::node-name"+    attrGet _ = getDOMNodeNodeName+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "node-type"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getDOMNodeNodeType :: (MonadIO m, DOMNodeK o) => o -> m Word32+getDOMNodeNodeType obj = liftIO $ getObjectPropertyCUInt obj "node-type"++data DOMNodeNodeTypePropertyInfo+instance AttrInfo DOMNodeNodeTypePropertyInfo where+    type AttrAllowedOps DOMNodeNodeTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeNodeTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeNodeTypePropertyInfo = DOMNodeK+    type AttrGetType DOMNodeNodeTypePropertyInfo = Word32+    type AttrLabel DOMNodeNodeTypePropertyInfo = "DOMNode::node-type"+    attrGet _ = getDOMNodeNodeType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "node-value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m T.Text+getDOMNodeNodeValue obj = liftIO $ getObjectPropertyString obj "node-value"++setDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m ()+setDOMNodeNodeValue obj val = liftIO $ setObjectPropertyString obj "node-value" val++constructDOMNodeNodeValue :: T.Text -> IO ([Char], GValue)+constructDOMNodeNodeValue val = constructObjectPropertyString "node-value" val++data DOMNodeNodeValuePropertyInfo+instance AttrInfo DOMNodeNodeValuePropertyInfo where+    type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = DOMNodeK+    type AttrGetType DOMNodeNodeValuePropertyInfo = T.Text+    type AttrLabel DOMNodeNodeValuePropertyInfo = "DOMNode::node-value"+    attrGet _ = getDOMNodeNodeValue+    attrSet _ = setDOMNodeNodeValue+    attrConstruct _ = constructDOMNodeNodeValue++-- VVV Prop "owner-document"+   -- Type: TInterface "WebKit2WebExtension" "DOMDocument"+   -- Flags: [PropertyReadable]++getDOMNodeOwnerDocument :: (MonadIO m, DOMNodeK o) => o -> m DOMDocument+getDOMNodeOwnerDocument obj = liftIO $ getObjectPropertyObject obj "owner-document" DOMDocument++data DOMNodeOwnerDocumentPropertyInfo+instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where+    type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeOwnerDocumentPropertyInfo = DOMDocument+    type AttrLabel DOMNodeOwnerDocumentPropertyInfo = "DOMNode::owner-document"+    attrGet _ = getDOMNodeOwnerDocument+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "parent-element"+   -- Type: TInterface "WebKit2WebExtension" "DOMElement"+   -- Flags: [PropertyReadable]++getDOMNodeParentElement :: (MonadIO m, DOMNodeK o) => o -> m DOMElement+getDOMNodeParentElement obj = liftIO $ getObjectPropertyObject obj "parent-element" DOMElement++data DOMNodeParentElementPropertyInfo+instance AttrInfo DOMNodeParentElementPropertyInfo where+    type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeParentElementPropertyInfo = DOMElement+    type AttrLabel DOMNodeParentElementPropertyInfo = "DOMNode::parent-element"+    attrGet _ = getDOMNodeParentElement+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "parent-node"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMNodeParentNode :: (MonadIO m, DOMNodeK o) => o -> m DOMNode+getDOMNodeParentNode obj = liftIO $ getObjectPropertyObject obj "parent-node" DOMNode++data DOMNodeParentNodePropertyInfo+instance AttrInfo DOMNodeParentNodePropertyInfo where+    type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = DOMNodeK+    type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode+    type AttrLabel DOMNodeParentNodePropertyInfo = "DOMNode::parent-node"+    attrGet _ = getDOMNodeParentNode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "prefix"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m T.Text+getDOMNodePrefix obj = liftIO $ getObjectPropertyString obj "prefix"++setDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m ()+setDOMNodePrefix obj val = liftIO $ setObjectPropertyString obj "prefix" val++constructDOMNodePrefix :: T.Text -> IO ([Char], GValue)+constructDOMNodePrefix val = constructObjectPropertyString "prefix" val++data DOMNodePrefixPropertyInfo+instance AttrInfo DOMNodePrefixPropertyInfo where+    type AttrAllowedOps DOMNodePrefixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMNodePrefixPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMNodePrefixPropertyInfo = DOMNodeK+    type AttrGetType DOMNodePrefixPropertyInfo = T.Text+    type AttrLabel DOMNodePrefixPropertyInfo = "DOMNode::prefix"+    attrGet _ = getDOMNodePrefix+    attrSet _ = setDOMNodePrefix+    attrConstruct _ = constructDOMNodePrefix++-- VVV Prop "previous-sibling"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMNodePreviousSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode+getDOMNodePreviousSibling obj = liftIO $ getObjectPropertyObject obj "previous-sibling" DOMNode++data DOMNodePreviousSiblingPropertyInfo+instance AttrInfo DOMNodePreviousSiblingPropertyInfo where+    type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = DOMNodeK+    type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode+    type AttrLabel DOMNodePreviousSiblingPropertyInfo = "DOMNode::previous-sibling"+    attrGet _ = getDOMNodePreviousSibling+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "text-content"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m T.Text+getDOMNodeTextContent obj = liftIO $ getObjectPropertyString obj "text-content"++setDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m ()+setDOMNodeTextContent obj val = liftIO $ setObjectPropertyString obj "text-content" val++constructDOMNodeTextContent :: T.Text -> IO ([Char], GValue)+constructDOMNodeTextContent val = constructObjectPropertyString "text-content" val++data DOMNodeTextContentPropertyInfo+instance AttrInfo DOMNodeTextContentPropertyInfo where+    type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = DOMNodeK+    type AttrGetType DOMNodeTextContentPropertyInfo = T.Text+    type AttrLabel DOMNodeTextContentPropertyInfo = "DOMNode::text-content"+    attrGet _ = getDOMNodeTextContent+    attrSet _ = setDOMNodeTextContent+    attrConstruct _ = constructDOMNodeTextContent++type instance AttributeList DOMNode = DOMNodeAttributeList+type DOMNodeAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMNode = DOMNodeSignalList+type DOMNodeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMNode::append_child+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMNode"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_node_append_child" webkit_dom_node_append_child :: +    Ptr DOMNode ->                          -- _obj : TInterface "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- newChild : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_node_append_child" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_node_clone_node" webkit_dom_node_clone_node :: +    Ptr DOMNode ->                          -- _obj : TInterface "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_clone_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::compare_document_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- other : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- other : TInterface "WebKit2WebExtension" "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::get_base_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_base_uri" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_child_nodes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_child_nodes" result+    result' <- (wrapObject DOMNodeList) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_first_child+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_first_child" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_last_child+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_last_child" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_local_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_local_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_namespace_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_namespace_uri" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_next_sibling+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_next_sibling" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_node_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_node_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_node_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_node_value" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_owner_document+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_owner_document" result+    result' <- (newObject DOMDocument) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_parent_element+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_parent_element" result+    result' <- (newObject DOMElement) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_parent_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_parent_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_prefix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_prefix" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_previous_sibling+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_previous_sibling" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNode::get_text_content+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_get_text_content" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMNode::has_child_nodes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMNode"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_node_insert_before" webkit_dom_node_insert_before :: +    Ptr DOMNode ->                          -- _obj : TInterface "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- newChild : TInterface "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- refChild : TInterface "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_node_insert_before" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- other : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- other : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_lookup_namespace_uri" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem prefix'+    return result'++-- method DOMNode::lookup_prefix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_lookup_prefix" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem namespaceURI'+    return result'++-- method DOMNode::normalize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMNode"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_node_remove_child" webkit_dom_node_remove_child :: +    Ptr DOMNode ->                          -- _obj : TInterface "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- oldChild : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_node_remove_child" result+        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 "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldChild", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMNode"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_node_replace_child" webkit_dom_node_replace_child :: +    Ptr DOMNode ->                          -- _obj : TInterface "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- newChild : TInterface "WebKit2WebExtension" "DOMNode"+    Ptr DOMNode ->                          -- oldChild : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_node_replace_child" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+     )++
+ GI/WebKit2WebExtension/Objects/DOMNode.hs-boot view
@@ -0,0 +1,29 @@+module GI.WebKit2WebExtension.Objects.DOMNode where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMNode = DOMNode (ForeignPtr DOMNode)+instance GObject DOMNode where+class GObject o => DOMNodeK o+instance (GObject o, IsDescendantOf DOMNode o) => DOMNodeK o+data DOMNodeBaseUriPropertyInfo+data DOMNodeChildNodesPropertyInfo+data DOMNodeFirstChildPropertyInfo+data DOMNodeLastChildPropertyInfo+data DOMNodeLocalNamePropertyInfo+data DOMNodeNamespaceUriPropertyInfo+data DOMNodeNextSiblingPropertyInfo+data DOMNodeNodeNamePropertyInfo+data DOMNodeNodeTypePropertyInfo+data DOMNodeNodeValuePropertyInfo+data DOMNodeOwnerDocumentPropertyInfo+data DOMNodeParentElementPropertyInfo+data DOMNodeParentNodePropertyInfo+data DOMNodePrefixPropertyInfo+data DOMNodePreviousSiblingPropertyInfo+data DOMNodeTextContentPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs view
@@ -0,0 +1,476 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMNodeIterator+    ( ++-- * Exported types+    DOMNodeIterator(..)                     ,+    DOMNodeIteratorK                        ,+    toDOMNodeIterator                       ,+    noDOMNodeIterator                       ,+++ -- * Methods+-- ** dOMNodeIteratorDetach+    dOMNodeIteratorDetach                   ,+++-- ** dOMNodeIteratorGetExpandEntityReferences+    dOMNodeIteratorGetExpandEntityReferences,+++-- ** dOMNodeIteratorGetFilter+    dOMNodeIteratorGetFilter                ,+++-- ** dOMNodeIteratorGetPointerBeforeReferenceNode+    dOMNodeIteratorGetPointerBeforeReferenceNode,+++-- ** dOMNodeIteratorGetReferenceNode+    dOMNodeIteratorGetReferenceNode         ,+++-- ** dOMNodeIteratorGetRoot+    dOMNodeIteratorGetRoot                  ,+++-- ** dOMNodeIteratorGetWhatToShow+    dOMNodeIteratorGetWhatToShow            ,+++-- ** dOMNodeIteratorNextNode+    dOMNodeIteratorNextNode                 ,+++-- ** dOMNodeIteratorPreviousNode+    dOMNodeIteratorPreviousNode             ,+++++ -- * Properties+-- ** ExpandEntityReferences+    DOMNodeIteratorExpandEntityReferencesPropertyInfo,+    getDOMNodeIteratorExpandEntityReferences,+++-- ** Filter+    DOMNodeIteratorFilterPropertyInfo       ,+    getDOMNodeIteratorFilter                ,+++-- ** PointerBeforeReferenceNode+    DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo,+    getDOMNodeIteratorPointerBeforeReferenceNode,+++-- ** ReferenceNode+    DOMNodeIteratorReferenceNodePropertyInfo,+    getDOMNodeIteratorReferenceNode         ,+++-- ** Root+    DOMNodeIteratorRootPropertyInfo         ,+    getDOMNodeIteratorRoot                  ,+++-- ** WhatToShow+    DOMNodeIteratorWhatToShowPropertyInfo   ,+    getDOMNodeIteratorWhatToShow            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMNodeIterator = DOMNodeIterator (ForeignPtr DOMNodeIterator)+foreign import ccall "webkit_dom_node_iterator_get_type"+    c_webkit_dom_node_iterator_get_type :: IO GType++type instance ParentTypes DOMNodeIterator = DOMNodeIteratorParentTypes+type DOMNodeIteratorParentTypes = '[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++noDOMNodeIterator :: Maybe DOMNodeIterator+noDOMNodeIterator = Nothing++-- VVV Prop "expand-entity-references"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMNodeIteratorExpandEntityReferences :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool+getDOMNodeIteratorExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references"++data DOMNodeIteratorExpandEntityReferencesPropertyInfo+instance AttrInfo DOMNodeIteratorExpandEntityReferencesPropertyInfo where+    type AttrAllowedOps DOMNodeIteratorExpandEntityReferencesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = DOMNodeIteratorK+    type AttrGetType DOMNodeIteratorExpandEntityReferencesPropertyInfo = Bool+    type AttrLabel DOMNodeIteratorExpandEntityReferencesPropertyInfo = "DOMNodeIterator::expand-entity-references"+    attrGet _ = getDOMNodeIteratorExpandEntityReferences+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "filter"+   -- Type: TInterface "WebKit2WebExtension" "DOMNodeFilter"+   -- Flags: [PropertyReadable]++getDOMNodeIteratorFilter :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNodeFilter+getDOMNodeIteratorFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter++data DOMNodeIteratorFilterPropertyInfo+instance AttrInfo DOMNodeIteratorFilterPropertyInfo where+    type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeIteratorFilterPropertyInfo = DOMNodeIteratorK+    type AttrGetType DOMNodeIteratorFilterPropertyInfo = DOMNodeFilter+    type AttrLabel DOMNodeIteratorFilterPropertyInfo = "DOMNodeIterator::filter"+    attrGet _ = getDOMNodeIteratorFilter+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "pointer-before-reference-node"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMNodeIteratorPointerBeforeReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool+getDOMNodeIteratorPointerBeforeReferenceNode obj = liftIO $ getObjectPropertyBool obj "pointer-before-reference-node"++data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo+instance AttrInfo DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo where+    type AttrAllowedOps DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = DOMNodeIteratorK+    type AttrGetType DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = Bool+    type AttrLabel DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = "DOMNodeIterator::pointer-before-reference-node"+    attrGet _ = getDOMNodeIteratorPointerBeforeReferenceNode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "reference-node"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMNodeIteratorReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode+getDOMNodeIteratorReferenceNode obj = liftIO $ getObjectPropertyObject obj "reference-node" DOMNode++data DOMNodeIteratorReferenceNodePropertyInfo+instance AttrInfo DOMNodeIteratorReferenceNodePropertyInfo where+    type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = DOMNodeIteratorK+    type AttrGetType DOMNodeIteratorReferenceNodePropertyInfo = DOMNode+    type AttrLabel DOMNodeIteratorReferenceNodePropertyInfo = "DOMNodeIterator::reference-node"+    attrGet _ = getDOMNodeIteratorReferenceNode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "root"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMNodeIteratorRoot :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode+getDOMNodeIteratorRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode++data DOMNodeIteratorRootPropertyInfo+instance AttrInfo DOMNodeIteratorRootPropertyInfo where+    type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeIteratorRootPropertyInfo = DOMNodeIteratorK+    type AttrGetType DOMNodeIteratorRootPropertyInfo = DOMNode+    type AttrLabel DOMNodeIteratorRootPropertyInfo = "DOMNodeIterator::root"+    attrGet _ = getDOMNodeIteratorRoot+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "what-to-show"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMNodeIteratorWhatToShow :: (MonadIO m, DOMNodeIteratorK o) => o -> m Word64+getDOMNodeIteratorWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show"++data DOMNodeIteratorWhatToShowPropertyInfo+instance AttrInfo DOMNodeIteratorWhatToShowPropertyInfo where+    type AttrAllowedOps DOMNodeIteratorWhatToShowPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIteratorK+    type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = Word64+    type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "DOMNodeIterator::what-to-show"+    attrGet _ = getDOMNodeIteratorWhatToShow+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMNodeIterator = DOMNodeIteratorAttributeList+type DOMNodeIteratorAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("expand-entity-references", DOMNodeIteratorExpandEntityReferencesPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointer-before-reference-node", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("reference-node", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("what-to-show", DOMNodeIteratorWhatToShowPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMNodeIterator = DOMNodeIteratorSignalList+type DOMNodeIteratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMNodeIterator::detach+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_filter" result+    result' <- (wrapObject DOMNodeFilter) result+    touchManagedPtr _obj+    return result'++-- method DOMNodeIterator::get_pointer_before_reference_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_reference_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNodeIterator::get_root+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_node_iterator_get_root" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMNodeIterator::get_what_to_show+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_node_iterator_next_node" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMNodeIterator::previous_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_node_iterator_previous_node" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMNodeIterator.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2WebExtension.Objects.DOMNodeIterator where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMNodeIterator = DOMNodeIterator (ForeignPtr DOMNodeIterator)+instance GObject DOMNodeIterator where+class GObject o => DOMNodeIteratorK o+instance (GObject o, IsDescendantOf DOMNodeIterator o) => DOMNodeIteratorK o+data DOMNodeIteratorExpandEntityReferencesPropertyInfo+data DOMNodeIteratorFilterPropertyInfo+data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo+data DOMNodeIteratorReferenceNodePropertyInfo+data DOMNodeIteratorRootPropertyInfo+data DOMNodeIteratorWhatToShowPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMNodeList.hs view
@@ -0,0 +1,147 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMNodeList+    ( ++-- * Exported types+    DOMNodeList(..)                         ,+    DOMNodeListK                            ,+    toDOMNodeList                           ,+    noDOMNodeList                           ,+++ -- * Methods+-- ** dOMNodeListGetLength+    dOMNodeListGetLength                    ,+++-- ** dOMNodeListItem+    dOMNodeListItem                         ,+++++ -- * Properties+-- ** Length+    DOMNodeListLengthPropertyInfo           ,+    getDOMNodeListLength                    ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMNodeList = DOMNodeList (ForeignPtr DOMNodeList)+foreign import ccall "webkit_dom_node_list_get_type"+    c_webkit_dom_node_list_get_type :: IO GType++type instance ParentTypes DOMNodeList = DOMNodeListParentTypes+type DOMNodeListParentTypes = '[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++noDOMNodeList :: Maybe DOMNodeList+noDOMNodeList = Nothing++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMNodeListLength :: (MonadIO m, DOMNodeListK o) => o -> m Word64+getDOMNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMNodeListLengthPropertyInfo+instance AttrInfo DOMNodeListLengthPropertyInfo where+    type AttrAllowedOps DOMNodeListLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMNodeListLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMNodeListLengthPropertyInfo = DOMNodeListK+    type AttrGetType DOMNodeListLengthPropertyInfo = Word64+    type AttrLabel DOMNodeListLengthPropertyInfo = "DOMNodeList::length"+    attrGet _ = getDOMNodeListLength+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMNodeList = DOMNodeListAttributeList+type DOMNodeListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMNodeListLengthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMNodeList = DOMNodeListSignalList+type DOMNodeListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMNodeList::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMNodeList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMNode"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_dom_node_list_item" webkit_dom_node_list_item :: +    Ptr DOMNodeList ->                      -- _obj : TInterface "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_node_list_item" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMNodeList.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMNodeList where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMNodeList = DOMNodeList (ForeignPtr DOMNodeList)+instance GObject DOMNodeList where+class GObject o => DOMNodeListK o+instance (GObject o, IsDescendantOf DOMNodeList o) => DOMNodeListK o+data DOMNodeListLengthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMObject.hs view
@@ -0,0 +1,84 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMObject+    ( ++-- * Exported types+    DOMObject(..)                           ,+    DOMObjectK                              ,+    toDOMObject                             ,+    noDOMObject                             ,+++ -- * Properties+-- ** CoreObject+    DOMObjectCoreObjectPropertyInfo         ,+    constructDOMObjectCoreObject            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMObject = DOMObject (ForeignPtr DOMObject)+foreign import ccall "webkit_dom_object_get_type"+    c_webkit_dom_object_get_type :: IO GType++type instance ParentTypes DOMObject = DOMObjectParentTypes+type DOMObjectParentTypes = '[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++noDOMObject :: Maybe DOMObject+noDOMObject = Nothing++-- VVV Prop "core-object"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyWritable,PropertyConstructOnly]++constructDOMObjectCoreObject :: (Ptr ()) -> IO ([Char], GValue)+constructDOMObjectCoreObject val = constructObjectPropertyPtr "core-object" val++data DOMObjectCoreObjectPropertyInfo+instance AttrInfo DOMObjectCoreObjectPropertyInfo where+    type AttrAllowedOps DOMObjectCoreObjectPropertyInfo = '[ 'AttrConstruct]+    type AttrSetTypeConstraint DOMObjectCoreObjectPropertyInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint DOMObjectCoreObjectPropertyInfo = DOMObjectK+    type AttrGetType DOMObjectCoreObjectPropertyInfo = ()+    type AttrLabel DOMObjectCoreObjectPropertyInfo = "DOMObject::core-object"+    attrGet _ = undefined+    attrSet _ = undefined+    attrConstruct _ = constructDOMObjectCoreObject++type instance AttributeList DOMObject = DOMObjectAttributeList+type DOMObjectAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMObject = DOMObjectSignalList+type DOMObjectSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++
+ GI/WebKit2WebExtension/Objects/DOMObject.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMObject where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMObject = DOMObject (ForeignPtr DOMObject)+instance GObject DOMObject where+class GObject o => DOMObjectK o+instance (GObject o, IsDescendantOf DOMObject o) => DOMObjectK o+data DOMObjectCoreObjectPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs view
@@ -0,0 +1,171 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMProcessingInstruction+    ( ++-- * Exported types+    DOMProcessingInstruction(..)            ,+    DOMProcessingInstructionK               ,+    toDOMProcessingInstruction              ,+    noDOMProcessingInstruction              ,+++ -- * Methods+-- ** dOMProcessingInstructionGetSheet+    dOMProcessingInstructionGetSheet        ,+++-- ** dOMProcessingInstructionGetTarget+    dOMProcessingInstructionGetTarget       ,+++++ -- * Properties+-- ** Sheet+    DOMProcessingInstructionSheetPropertyInfo,+    getDOMProcessingInstructionSheet        ,+++-- ** Target+    DOMProcessingInstructionTargetPropertyInfo,+    getDOMProcessingInstructionTarget       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMProcessingInstruction = DOMProcessingInstruction (ForeignPtr DOMProcessingInstruction)+foreign import ccall "webkit_dom_processing_instruction_get_type"+    c_webkit_dom_processing_instruction_get_type :: IO GType++type instance ParentTypes DOMProcessingInstruction = DOMProcessingInstructionParentTypes+type DOMProcessingInstructionParentTypes = '[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++noDOMProcessingInstruction :: Maybe DOMProcessingInstruction+noDOMProcessingInstruction = Nothing++-- VVV Prop "sheet"+   -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheet"+   -- Flags: [PropertyReadable]++getDOMProcessingInstructionSheet :: (MonadIO m, DOMProcessingInstructionK o) => o -> m DOMStyleSheet+getDOMProcessingInstructionSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet++data DOMProcessingInstructionSheetPropertyInfo+instance AttrInfo DOMProcessingInstructionSheetPropertyInfo where+    type AttrAllowedOps DOMProcessingInstructionSheetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMProcessingInstructionSheetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMProcessingInstructionSheetPropertyInfo = DOMProcessingInstructionK+    type AttrGetType DOMProcessingInstructionSheetPropertyInfo = DOMStyleSheet+    type AttrLabel DOMProcessingInstructionSheetPropertyInfo = "DOMProcessingInstruction::sheet"+    attrGet _ = getDOMProcessingInstructionSheet+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "target"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMProcessingInstructionTarget :: (MonadIO m, DOMProcessingInstructionK o) => o -> m T.Text+getDOMProcessingInstructionTarget obj = liftIO $ getObjectPropertyString obj "target"++data DOMProcessingInstructionTargetPropertyInfo+instance AttrInfo DOMProcessingInstructionTargetPropertyInfo where+    type AttrAllowedOps DOMProcessingInstructionTargetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMProcessingInstructionTargetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMProcessingInstructionTargetPropertyInfo = DOMProcessingInstructionK+    type AttrGetType DOMProcessingInstructionTargetPropertyInfo = T.Text+    type AttrLabel DOMProcessingInstructionTargetPropertyInfo = "DOMProcessingInstruction::target"+    attrGet _ = getDOMProcessingInstructionTarget+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMProcessingInstruction = DOMProcessingInstructionAttributeList+type DOMProcessingInstructionAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("sheet", DOMProcessingInstructionSheetPropertyInfo), '("target", DOMProcessingInstructionTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMProcessingInstruction = DOMProcessingInstructionSignalList+type DOMProcessingInstructionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMProcessingInstruction::get_sheet+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_processing_instruction_get_sheet" result+    result' <- (wrapObject DOMStyleSheet) result+    touchManagedPtr _obj+    return result'++-- method DOMProcessingInstruction::get_target+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMProcessingInstruction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_processing_instruction_get_target" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMProcessingInstruction.hs-boot view
@@ -0,0 +1,15 @@+module GI.WebKit2WebExtension.Objects.DOMProcessingInstruction where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMProcessingInstruction = DOMProcessingInstruction (ForeignPtr DOMProcessingInstruction)+instance GObject DOMProcessingInstruction where+class GObject o => DOMProcessingInstructionK o+instance (GObject o, IsDescendantOf DOMProcessingInstruction o) => DOMProcessingInstructionK o+data DOMProcessingInstructionSheetPropertyInfo+data DOMProcessingInstructionTargetPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMRange.hs view
@@ -0,0 +1,1307 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMRange+    ( ++-- * Exported types+    DOMRange(..)                            ,+    DOMRangeK                               ,+    toDOMRange                              ,+    noDOMRange                              ,+++ -- * Methods+-- ** dOMRangeCloneContents+    dOMRangeCloneContents                   ,+++-- ** dOMRangeCloneRange+    dOMRangeCloneRange                      ,+++-- ** dOMRangeCollapse+    dOMRangeCollapse                        ,+++-- ** dOMRangeCompareBoundaryPoints+    dOMRangeCompareBoundaryPoints           ,+++-- ** dOMRangeCompareNode+    dOMRangeCompareNode                     ,+++-- ** dOMRangeComparePoint+    dOMRangeComparePoint                    ,+++-- ** dOMRangeCreateContextualFragment+    dOMRangeCreateContextualFragment        ,+++-- ** dOMRangeDeleteContents+    dOMRangeDeleteContents                  ,+++-- ** dOMRangeDetach+    dOMRangeDetach                          ,+++-- ** dOMRangeExtractContents+    dOMRangeExtractContents                 ,+++-- ** dOMRangeGetCollapsed+    dOMRangeGetCollapsed                    ,+++-- ** dOMRangeGetCommonAncestorContainer+    dOMRangeGetCommonAncestorContainer      ,+++-- ** dOMRangeGetEndContainer+    dOMRangeGetEndContainer                 ,+++-- ** dOMRangeGetEndOffset+    dOMRangeGetEndOffset                    ,+++-- ** dOMRangeGetStartContainer+    dOMRangeGetStartContainer               ,+++-- ** dOMRangeGetStartOffset+    dOMRangeGetStartOffset                  ,+++-- ** dOMRangeGetText+    dOMRangeGetText                         ,+++-- ** dOMRangeInsertNode+    dOMRangeInsertNode                      ,+++-- ** dOMRangeIntersectsNode+    dOMRangeIntersectsNode                  ,+++-- ** dOMRangeIsPointInRange+    dOMRangeIsPointInRange                  ,+++-- ** dOMRangeSelectNode+    dOMRangeSelectNode                      ,+++-- ** dOMRangeSelectNodeContents+    dOMRangeSelectNodeContents              ,+++-- ** dOMRangeSetEnd+    dOMRangeSetEnd                          ,+++-- ** dOMRangeSetEndAfter+    dOMRangeSetEndAfter                     ,+++-- ** dOMRangeSetEndBefore+    dOMRangeSetEndBefore                    ,+++-- ** dOMRangeSetStart+    dOMRangeSetStart                        ,+++-- ** dOMRangeSetStartAfter+    dOMRangeSetStartAfter                   ,+++-- ** dOMRangeSetStartBefore+    dOMRangeSetStartBefore                  ,+++-- ** dOMRangeSurroundContents+    dOMRangeSurroundContents                ,+++-- ** dOMRangeToString+    dOMRangeToString                        ,+++++ -- * Properties+-- ** Collapsed+    DOMRangeCollapsedPropertyInfo           ,+    getDOMRangeCollapsed                    ,+++-- ** CommonAncestorContainer+    DOMRangeCommonAncestorContainerPropertyInfo,+    getDOMRangeCommonAncestorContainer      ,+++-- ** EndContainer+    DOMRangeEndContainerPropertyInfo        ,+    getDOMRangeEndContainer                 ,+++-- ** EndOffset+    DOMRangeEndOffsetPropertyInfo           ,+    getDOMRangeEndOffset                    ,+++-- ** StartContainer+    DOMRangeStartContainerPropertyInfo      ,+    getDOMRangeStartContainer               ,+++-- ** StartOffset+    DOMRangeStartOffsetPropertyInfo         ,+    getDOMRangeStartOffset                  ,+++-- ** Text+    DOMRangeTextPropertyInfo                ,+    getDOMRangeText                         ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMRange = DOMRange (ForeignPtr DOMRange)+foreign import ccall "webkit_dom_range_get_type"+    c_webkit_dom_range_get_type :: IO GType++type instance ParentTypes DOMRange = DOMRangeParentTypes+type DOMRangeParentTypes = '[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++noDOMRange :: Maybe DOMRange+noDOMRange = Nothing++-- VVV Prop "collapsed"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMRangeCollapsed :: (MonadIO m, DOMRangeK o) => o -> m Bool+getDOMRangeCollapsed obj = liftIO $ getObjectPropertyBool obj "collapsed"++data DOMRangeCollapsedPropertyInfo+instance AttrInfo DOMRangeCollapsedPropertyInfo where+    type AttrAllowedOps DOMRangeCollapsedPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMRangeCollapsedPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMRangeCollapsedPropertyInfo = DOMRangeK+    type AttrGetType DOMRangeCollapsedPropertyInfo = Bool+    type AttrLabel DOMRangeCollapsedPropertyInfo = "DOMRange::collapsed"+    attrGet _ = getDOMRangeCollapsed+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "common-ancestor-container"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMRangeCommonAncestorContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode+getDOMRangeCommonAncestorContainer obj = liftIO $ getObjectPropertyObject obj "common-ancestor-container" DOMNode++data DOMRangeCommonAncestorContainerPropertyInfo+instance AttrInfo DOMRangeCommonAncestorContainerPropertyInfo where+    type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = DOMRangeK+    type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = DOMNode+    type AttrLabel DOMRangeCommonAncestorContainerPropertyInfo = "DOMRange::common-ancestor-container"+    attrGet _ = getDOMRangeCommonAncestorContainer+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "end-container"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMRangeEndContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode+getDOMRangeEndContainer obj = liftIO $ getObjectPropertyObject obj "end-container" DOMNode++data DOMRangeEndContainerPropertyInfo+instance AttrInfo DOMRangeEndContainerPropertyInfo where+    type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMRangeEndContainerPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMRangeEndContainerPropertyInfo = DOMRangeK+    type AttrGetType DOMRangeEndContainerPropertyInfo = DOMNode+    type AttrLabel DOMRangeEndContainerPropertyInfo = "DOMRange::end-container"+    attrGet _ = getDOMRangeEndContainer+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "end-offset"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMRangeEndOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64+getDOMRangeEndOffset obj = liftIO $ getObjectPropertyInt64 obj "end-offset"++data DOMRangeEndOffsetPropertyInfo+instance AttrInfo DOMRangeEndOffsetPropertyInfo where+    type AttrAllowedOps DOMRangeEndOffsetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMRangeEndOffsetPropertyInfo = DOMRangeK+    type AttrGetType DOMRangeEndOffsetPropertyInfo = Int64+    type AttrLabel DOMRangeEndOffsetPropertyInfo = "DOMRange::end-offset"+    attrGet _ = getDOMRangeEndOffset+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "start-container"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMRangeStartContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode+getDOMRangeStartContainer obj = liftIO $ getObjectPropertyObject obj "start-container" DOMNode++data DOMRangeStartContainerPropertyInfo+instance AttrInfo DOMRangeStartContainerPropertyInfo where+    type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMRangeStartContainerPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMRangeStartContainerPropertyInfo = DOMRangeK+    type AttrGetType DOMRangeStartContainerPropertyInfo = DOMNode+    type AttrLabel DOMRangeStartContainerPropertyInfo = "DOMRange::start-container"+    attrGet _ = getDOMRangeStartContainer+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "start-offset"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMRangeStartOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64+getDOMRangeStartOffset obj = liftIO $ getObjectPropertyInt64 obj "start-offset"++data DOMRangeStartOffsetPropertyInfo+instance AttrInfo DOMRangeStartOffsetPropertyInfo where+    type AttrAllowedOps DOMRangeStartOffsetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMRangeStartOffsetPropertyInfo = DOMRangeK+    type AttrGetType DOMRangeStartOffsetPropertyInfo = Int64+    type AttrLabel DOMRangeStartOffsetPropertyInfo = "DOMRange::start-offset"+    attrGet _ = getDOMRangeStartOffset+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMRangeText :: (MonadIO m, DOMRangeK o) => o -> m T.Text+getDOMRangeText obj = liftIO $ getObjectPropertyString obj "text"++data DOMRangeTextPropertyInfo+instance AttrInfo DOMRangeTextPropertyInfo where+    type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMRangeTextPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMRangeTextPropertyInfo = DOMRangeK+    type AttrGetType DOMRangeTextPropertyInfo = T.Text+    type AttrLabel DOMRangeTextPropertyInfo = "DOMRange::text"+    attrGet _ = getDOMRangeText+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMRange = DOMRangeAttributeList+type DOMRangeAttributeList = ('[ '("collapsed", DOMRangeCollapsedPropertyInfo), '("common-ancestor-container", DOMRangeCommonAncestorContainerPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("end-container", DOMRangeEndContainerPropertyInfo), '("end-offset", DOMRangeEndOffsetPropertyInfo), '("start-container", DOMRangeStartContainerPropertyInfo), '("start-offset", DOMRangeStartOffsetPropertyInfo), '("text", DOMRangeTextPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMRange = DOMRangeSignalList+type DOMRangeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMRange::clone_contents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMDocumentFragment"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_range_clone_contents" webkit_dom_range_clone_contents :: +    Ptr DOMRange ->                         -- _obj : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_range_clone_contents" result+        result' <- (newObject DOMDocumentFragment) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMRange::clone_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMRange"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_range_clone_range" webkit_dom_range_clone_range :: +    Ptr DOMRange ->                         -- _obj : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_range_clone_range" result+        result' <- (wrapObject DOMRange) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMRange::collapse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Word16 ->                               -- how : TBasicType TUInt16+    Ptr DOMRange ->                         -- sourceRange : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_range_create_contextual_fragment" result+        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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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::extract_contents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMDocumentFragment"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_range_extract_contents" webkit_dom_range_extract_contents :: +    Ptr DOMRange ->                         -- _obj : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_range_extract_contents" result+        result' <- (newObject DOMDocumentFragment) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMRange::get_collapsed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_range_get_common_ancestor_container" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMRange::get_end_container+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_range_get_end_container" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMRange::get_end_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_range_get_start_container" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMRange::get_start_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_range_get_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMRange::insert_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- newNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- refNode : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newParent", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newParent", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange"+    Ptr DOMNode ->                          -- newParent : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMRange", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_range_to_string" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMRange.hs-boot view
@@ -0,0 +1,20 @@+module GI.WebKit2WebExtension.Objects.DOMRange where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMRange = DOMRange (ForeignPtr DOMRange)+instance GObject DOMRange where+class GObject o => DOMRangeK o+instance (GObject o, IsDescendantOf DOMRange o) => DOMRangeK o+data DOMRangeCollapsedPropertyInfo+data DOMRangeCommonAncestorContainerPropertyInfo+data DOMRangeEndContainerPropertyInfo+data DOMRangeEndOffsetPropertyInfo+data DOMRangeStartContainerPropertyInfo+data DOMRangeStartOffsetPropertyInfo+data DOMRangeTextPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs view
@@ -0,0 +1,476 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMStyleSheet+    ( ++-- * Exported types+    DOMStyleSheet(..)                       ,+    DOMStyleSheetK                          ,+    toDOMStyleSheet                         ,+    noDOMStyleSheet                         ,+++ -- * Methods+-- ** dOMStyleSheetGetContentType+    dOMStyleSheetGetContentType             ,+++-- ** dOMStyleSheetGetDisabled+    dOMStyleSheetGetDisabled                ,+++-- ** dOMStyleSheetGetHref+    dOMStyleSheetGetHref                    ,+++-- ** dOMStyleSheetGetMedia+    dOMStyleSheetGetMedia                   ,+++-- ** dOMStyleSheetGetOwnerNode+    dOMStyleSheetGetOwnerNode               ,+++-- ** dOMStyleSheetGetParentStyleSheet+    dOMStyleSheetGetParentStyleSheet        ,+++-- ** dOMStyleSheetGetTitle+    dOMStyleSheetGetTitle                   ,+++-- ** dOMStyleSheetSetDisabled+    dOMStyleSheetSetDisabled                ,+++++ -- * Properties+-- ** Disabled+    DOMStyleSheetDisabledPropertyInfo       ,+    constructDOMStyleSheetDisabled          ,+    getDOMStyleSheetDisabled                ,+    setDOMStyleSheetDisabled                ,+++-- ** Href+    DOMStyleSheetHrefPropertyInfo           ,+    getDOMStyleSheetHref                    ,+++-- ** Media+    DOMStyleSheetMediaPropertyInfo          ,+    getDOMStyleSheetMedia                   ,+++-- ** OwnerNode+    DOMStyleSheetOwnerNodePropertyInfo      ,+    getDOMStyleSheetOwnerNode               ,+++-- ** ParentStyleSheet+    DOMStyleSheetParentStyleSheetPropertyInfo,+    getDOMStyleSheetParentStyleSheet        ,+++-- ** Title+    DOMStyleSheetTitlePropertyInfo          ,+    getDOMStyleSheetTitle                   ,+++-- ** Type+    DOMStyleSheetTypePropertyInfo           ,+    getDOMStyleSheetType                    ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMStyleSheet = DOMStyleSheet (ForeignPtr DOMStyleSheet)+foreign import ccall "webkit_dom_style_sheet_get_type"+    c_webkit_dom_style_sheet_get_type :: IO GType++type instance ParentTypes DOMStyleSheet = DOMStyleSheetParentTypes+type DOMStyleSheetParentTypes = '[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++noDOMStyleSheet :: Maybe DOMStyleSheet+noDOMStyleSheet = Nothing++-- VVV Prop "disabled"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable]++getDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> m Bool+getDOMStyleSheetDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"++setDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> Bool -> m ()+setDOMStyleSheetDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val++constructDOMStyleSheetDisabled :: Bool -> IO ([Char], GValue)+constructDOMStyleSheetDisabled val = constructObjectPropertyBool "disabled" val++data DOMStyleSheetDisabledPropertyInfo+instance AttrInfo DOMStyleSheetDisabledPropertyInfo where+    type AttrAllowedOps DOMStyleSheetDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DOMStyleSheetDisabledPropertyInfo = (~) Bool+    type AttrBaseTypeConstraint DOMStyleSheetDisabledPropertyInfo = DOMStyleSheetK+    type AttrGetType DOMStyleSheetDisabledPropertyInfo = Bool+    type AttrLabel DOMStyleSheetDisabledPropertyInfo = "DOMStyleSheet::disabled"+    attrGet _ = getDOMStyleSheetDisabled+    attrSet _ = setDOMStyleSheetDisabled+    attrConstruct _ = constructDOMStyleSheetDisabled++-- VVV Prop "href"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMStyleSheetHref :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text+getDOMStyleSheetHref obj = liftIO $ getObjectPropertyString obj "href"++data DOMStyleSheetHrefPropertyInfo+instance AttrInfo DOMStyleSheetHrefPropertyInfo where+    type AttrAllowedOps DOMStyleSheetHrefPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMStyleSheetHrefPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMStyleSheetHrefPropertyInfo = DOMStyleSheetK+    type AttrGetType DOMStyleSheetHrefPropertyInfo = T.Text+    type AttrLabel DOMStyleSheetHrefPropertyInfo = "DOMStyleSheet::href"+    attrGet _ = getDOMStyleSheetHref+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "media"+   -- Type: TInterface "WebKit2WebExtension" "DOMMediaList"+   -- Flags: [PropertyReadable]++getDOMStyleSheetMedia :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMMediaList+getDOMStyleSheetMedia obj = liftIO $ getObjectPropertyObject obj "media" DOMMediaList++data DOMStyleSheetMediaPropertyInfo+instance AttrInfo DOMStyleSheetMediaPropertyInfo where+    type AttrAllowedOps DOMStyleSheetMediaPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMStyleSheetMediaPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMStyleSheetMediaPropertyInfo = DOMStyleSheetK+    type AttrGetType DOMStyleSheetMediaPropertyInfo = DOMMediaList+    type AttrLabel DOMStyleSheetMediaPropertyInfo = "DOMStyleSheet::media"+    attrGet _ = getDOMStyleSheetMedia+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "owner-node"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMStyleSheetOwnerNode :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMNode+getDOMStyleSheetOwnerNode obj = liftIO $ getObjectPropertyObject obj "owner-node" DOMNode++data DOMStyleSheetOwnerNodePropertyInfo+instance AttrInfo DOMStyleSheetOwnerNodePropertyInfo where+    type AttrAllowedOps DOMStyleSheetOwnerNodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = DOMStyleSheetK+    type AttrGetType DOMStyleSheetOwnerNodePropertyInfo = DOMNode+    type AttrLabel DOMStyleSheetOwnerNodePropertyInfo = "DOMStyleSheet::owner-node"+    attrGet _ = getDOMStyleSheetOwnerNode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "parent-style-sheet"+   -- Type: TInterface "WebKit2WebExtension" "DOMStyleSheet"+   -- Flags: [PropertyReadable]++getDOMStyleSheetParentStyleSheet :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMStyleSheet+getDOMStyleSheetParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMStyleSheet++data DOMStyleSheetParentStyleSheetPropertyInfo+instance AttrInfo DOMStyleSheetParentStyleSheetPropertyInfo where+    type AttrAllowedOps DOMStyleSheetParentStyleSheetPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheetK+    type AttrGetType DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheet+    type AttrLabel DOMStyleSheetParentStyleSheetPropertyInfo = "DOMStyleSheet::parent-style-sheet"+    attrGet _ = getDOMStyleSheetParentStyleSheet+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMStyleSheetTitle :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text+getDOMStyleSheetTitle obj = liftIO $ getObjectPropertyString obj "title"++data DOMStyleSheetTitlePropertyInfo+instance AttrInfo DOMStyleSheetTitlePropertyInfo where+    type AttrAllowedOps DOMStyleSheetTitlePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMStyleSheetTitlePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMStyleSheetTitlePropertyInfo = DOMStyleSheetK+    type AttrGetType DOMStyleSheetTitlePropertyInfo = T.Text+    type AttrLabel DOMStyleSheetTitlePropertyInfo = "DOMStyleSheet::title"+    attrGet _ = getDOMStyleSheetTitle+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMStyleSheetType :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text+getDOMStyleSheetType obj = liftIO $ getObjectPropertyString obj "type"++data DOMStyleSheetTypePropertyInfo+instance AttrInfo DOMStyleSheetTypePropertyInfo where+    type AttrAllowedOps DOMStyleSheetTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMStyleSheetTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMStyleSheetTypePropertyInfo = DOMStyleSheetK+    type AttrGetType DOMStyleSheetTypePropertyInfo = T.Text+    type AttrLabel DOMStyleSheetTypePropertyInfo = "DOMStyleSheet::type"+    attrGet _ = getDOMStyleSheetType+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMStyleSheet = DOMStyleSheetAttributeList+type DOMStyleSheetAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("owner-node", DOMStyleSheetOwnerNodePropertyInfo), '("parent-style-sheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMStyleSheet = DOMStyleSheetSignalList+type DOMStyleSheetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMStyleSheet::get_content_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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_content_type" webkit_dom_style_sheet_get_content_type :: +    Ptr DOMStyleSheet ->                    -- _obj : TInterface "WebKit2WebExtension" "DOMStyleSheet"+    IO CString+++dOMStyleSheetGetContentType ::+    (MonadIO m, DOMStyleSheetK a) =>+    a ->                                    -- _obj+    m T.Text+dOMStyleSheetGetContentType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_dom_style_sheet_get_content_type _obj'+    checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_content_type" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMStyleSheet::get_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_href" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMStyleSheet::get_media+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_media" result+    result' <- (wrapObject DOMMediaList) result+    touchManagedPtr _obj+    return result'++-- method DOMStyleSheet::get_owner_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_owner_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMStyleSheet::get_parent_style_sheet+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_parent_style_sheet" result+    result' <- (wrapObject DOMStyleSheet) result+    touchManagedPtr _obj+    return result'++-- method DOMStyleSheet::get_title+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_style_sheet_get_title" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMStyleSheet::set_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMStyleSheet.hs-boot view
@@ -0,0 +1,20 @@+module GI.WebKit2WebExtension.Objects.DOMStyleSheet where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMStyleSheet = DOMStyleSheet (ForeignPtr DOMStyleSheet)+instance GObject DOMStyleSheet where+class GObject o => DOMStyleSheetK o+instance (GObject o, IsDescendantOf DOMStyleSheet o) => DOMStyleSheetK o+data DOMStyleSheetDisabledPropertyInfo+data DOMStyleSheetHrefPropertyInfo+data DOMStyleSheetMediaPropertyInfo+data DOMStyleSheetOwnerNodePropertyInfo+data DOMStyleSheetParentStyleSheetPropertyInfo+data DOMStyleSheetTitlePropertyInfo+data DOMStyleSheetTypePropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs view
@@ -0,0 +1,147 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMStyleSheetList+    ( ++-- * Exported types+    DOMStyleSheetList(..)                   ,+    DOMStyleSheetListK                      ,+    toDOMStyleSheetList                     ,+    noDOMStyleSheetList                     ,+++ -- * Methods+-- ** dOMStyleSheetListGetLength+    dOMStyleSheetListGetLength              ,+++-- ** dOMStyleSheetListItem+    dOMStyleSheetListItem                   ,+++++ -- * Properties+-- ** Length+    DOMStyleSheetListLengthPropertyInfo     ,+    getDOMStyleSheetListLength              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMStyleSheetList = DOMStyleSheetList (ForeignPtr DOMStyleSheetList)+foreign import ccall "webkit_dom_style_sheet_list_get_type"+    c_webkit_dom_style_sheet_list_get_type :: IO GType++type instance ParentTypes DOMStyleSheetList = DOMStyleSheetListParentTypes+type DOMStyleSheetListParentTypes = '[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++noDOMStyleSheetList :: Maybe DOMStyleSheetList+noDOMStyleSheetList = Nothing++-- VVV Prop "length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMStyleSheetListLength :: (MonadIO m, DOMStyleSheetListK o) => o -> m Word64+getDOMStyleSheetListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"++data DOMStyleSheetListLengthPropertyInfo+instance AttrInfo DOMStyleSheetListLengthPropertyInfo where+    type AttrAllowedOps DOMStyleSheetListLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMStyleSheetListLengthPropertyInfo = DOMStyleSheetListK+    type AttrGetType DOMStyleSheetListLengthPropertyInfo = Word64+    type AttrLabel DOMStyleSheetListLengthPropertyInfo = "DOMStyleSheetList::length"+    attrGet _ = getDOMStyleSheetListLength+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMStyleSheetList = DOMStyleSheetListAttributeList+type DOMStyleSheetListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMStyleSheetListLengthPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMStyleSheetList = DOMStyleSheetListSignalList+type DOMStyleSheetListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMStyleSheetList::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMStyleSheetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+    checkUnexpectedReturnNULL "webkit_dom_style_sheet_list_item" result+    result' <- (wrapObject DOMStyleSheet) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/DOMStyleSheetList.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMStyleSheetList where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMStyleSheetList = DOMStyleSheetList (ForeignPtr DOMStyleSheetList)+instance GObject DOMStyleSheetList where+class GObject o => DOMStyleSheetListK o+instance (GObject o, IsDescendantOf DOMStyleSheetList o) => DOMStyleSheetListK o+data DOMStyleSheetListLengthPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMText.hs view
@@ -0,0 +1,194 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMText+    ( ++-- * Exported types+    DOMText(..)                             ,+    DOMTextK                                ,+    toDOMText                               ,+    noDOMText                               ,+++ -- * Methods+-- ** dOMTextGetWholeText+    dOMTextGetWholeText                     ,+++-- ** dOMTextReplaceWholeText+    dOMTextReplaceWholeText                 ,+++-- ** dOMTextSplitText+    dOMTextSplitText                        ,+++++ -- * Properties+-- ** WholeText+    DOMTextWholeTextPropertyInfo            ,+    getDOMTextWholeText                     ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMText = DOMText (ForeignPtr DOMText)+foreign import ccall "webkit_dom_text_get_type"+    c_webkit_dom_text_get_type :: IO GType++type instance ParentTypes DOMText = DOMTextParentTypes+type DOMTextParentTypes = '[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++noDOMText :: Maybe DOMText+noDOMText = Nothing++-- VVV Prop "whole-text"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m T.Text+getDOMTextWholeText obj = liftIO $ getObjectPropertyString obj "whole-text"++data DOMTextWholeTextPropertyInfo+instance AttrInfo DOMTextWholeTextPropertyInfo where+    type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = DOMTextK+    type AttrGetType DOMTextWholeTextPropertyInfo = T.Text+    type AttrLabel DOMTextWholeTextPropertyInfo = "DOMText::whole-text"+    attrGet _ = getDOMTextWholeText+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMText = DOMTextAttributeList+type DOMTextAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMText = DOMTextSignalList+type DOMTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMText::get_whole_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_text_get_whole_text" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method DOMText::replace_whole_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_text_replace_whole_text" result+        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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMText"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text :: +    Ptr DOMText ->                          -- _obj : TInterface "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_text_split_text" result+        result' <- (newObject DOMText) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMText.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.DOMText where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMText = DOMText (ForeignPtr DOMText)+instance GObject DOMText where+class GObject o => DOMTextK o+instance (GObject o, IsDescendantOf DOMText o) => DOMTextK o+data DOMTextWholeTextPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs view
@@ -0,0 +1,573 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMTreeWalker+    ( ++-- * Exported types+    DOMTreeWalker(..)                       ,+    DOMTreeWalkerK                          ,+    toDOMTreeWalker                         ,+    noDOMTreeWalker                         ,+++ -- * Methods+-- ** dOMTreeWalkerFirstChild+    dOMTreeWalkerFirstChild                 ,+++-- ** dOMTreeWalkerGetCurrentNode+    dOMTreeWalkerGetCurrentNode             ,+++-- ** dOMTreeWalkerGetExpandEntityReferences+    dOMTreeWalkerGetExpandEntityReferences  ,+++-- ** dOMTreeWalkerGetFilter+    dOMTreeWalkerGetFilter                  ,+++-- ** dOMTreeWalkerGetRoot+    dOMTreeWalkerGetRoot                    ,+++-- ** dOMTreeWalkerGetWhatToShow+    dOMTreeWalkerGetWhatToShow              ,+++-- ** dOMTreeWalkerLastChild+    dOMTreeWalkerLastChild                  ,+++-- ** dOMTreeWalkerNextNode+    dOMTreeWalkerNextNode                   ,+++-- ** dOMTreeWalkerNextSibling+    dOMTreeWalkerNextSibling                ,+++-- ** dOMTreeWalkerParentNode+    dOMTreeWalkerParentNode                 ,+++-- ** dOMTreeWalkerPreviousNode+    dOMTreeWalkerPreviousNode               ,+++-- ** dOMTreeWalkerPreviousSibling+    dOMTreeWalkerPreviousSibling            ,+++-- ** dOMTreeWalkerSetCurrentNode+    dOMTreeWalkerSetCurrentNode             ,+++++ -- * Properties+-- ** CurrentNode+    DOMTreeWalkerCurrentNodePropertyInfo    ,+    getDOMTreeWalkerCurrentNode             ,+++-- ** ExpandEntityReferences+    DOMTreeWalkerExpandEntityReferencesPropertyInfo,+    getDOMTreeWalkerExpandEntityReferences  ,+++-- ** Filter+    DOMTreeWalkerFilterPropertyInfo         ,+    getDOMTreeWalkerFilter                  ,+++-- ** Root+    DOMTreeWalkerRootPropertyInfo           ,+    getDOMTreeWalkerRoot                    ,+++-- ** WhatToShow+    DOMTreeWalkerWhatToShowPropertyInfo     ,+    getDOMTreeWalkerWhatToShow              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMTreeWalker = DOMTreeWalker (ForeignPtr DOMTreeWalker)+foreign import ccall "webkit_dom_tree_walker_get_type"+    c_webkit_dom_tree_walker_get_type :: IO GType++type instance ParentTypes DOMTreeWalker = DOMTreeWalkerParentTypes+type DOMTreeWalkerParentTypes = '[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++noDOMTreeWalker :: Maybe DOMTreeWalker+noDOMTreeWalker = Nothing++-- VVV Prop "current-node"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMTreeWalkerCurrentNode :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode+getDOMTreeWalkerCurrentNode obj = liftIO $ getObjectPropertyObject obj "current-node" DOMNode++data DOMTreeWalkerCurrentNodePropertyInfo+instance AttrInfo DOMTreeWalkerCurrentNodePropertyInfo where+    type AttrAllowedOps DOMTreeWalkerCurrentNodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = DOMTreeWalkerK+    type AttrGetType DOMTreeWalkerCurrentNodePropertyInfo = DOMNode+    type AttrLabel DOMTreeWalkerCurrentNodePropertyInfo = "DOMTreeWalker::current-node"+    attrGet _ = getDOMTreeWalkerCurrentNode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "expand-entity-references"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMTreeWalkerExpandEntityReferences :: (MonadIO m, DOMTreeWalkerK o) => o -> m Bool+getDOMTreeWalkerExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references"++data DOMTreeWalkerExpandEntityReferencesPropertyInfo+instance AttrInfo DOMTreeWalkerExpandEntityReferencesPropertyInfo where+    type AttrAllowedOps DOMTreeWalkerExpandEntityReferencesPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = DOMTreeWalkerK+    type AttrGetType DOMTreeWalkerExpandEntityReferencesPropertyInfo = Bool+    type AttrLabel DOMTreeWalkerExpandEntityReferencesPropertyInfo = "DOMTreeWalker::expand-entity-references"+    attrGet _ = getDOMTreeWalkerExpandEntityReferences+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "filter"+   -- Type: TInterface "WebKit2WebExtension" "DOMNodeFilter"+   -- Flags: [PropertyReadable]++getDOMTreeWalkerFilter :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNodeFilter+getDOMTreeWalkerFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter++data DOMTreeWalkerFilterPropertyInfo+instance AttrInfo DOMTreeWalkerFilterPropertyInfo where+    type AttrAllowedOps DOMTreeWalkerFilterPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMTreeWalkerFilterPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMTreeWalkerFilterPropertyInfo = DOMTreeWalkerK+    type AttrGetType DOMTreeWalkerFilterPropertyInfo = DOMNodeFilter+    type AttrLabel DOMTreeWalkerFilterPropertyInfo = "DOMTreeWalker::filter"+    attrGet _ = getDOMTreeWalkerFilter+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "root"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMTreeWalkerRoot :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode+getDOMTreeWalkerRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode++data DOMTreeWalkerRootPropertyInfo+instance AttrInfo DOMTreeWalkerRootPropertyInfo where+    type AttrAllowedOps DOMTreeWalkerRootPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMTreeWalkerRootPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMTreeWalkerRootPropertyInfo = DOMTreeWalkerK+    type AttrGetType DOMTreeWalkerRootPropertyInfo = DOMNode+    type AttrLabel DOMTreeWalkerRootPropertyInfo = "DOMTreeWalker::root"+    attrGet _ = getDOMTreeWalkerRoot+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "what-to-show"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMTreeWalkerWhatToShow :: (MonadIO m, DOMTreeWalkerK o) => o -> m Word64+getDOMTreeWalkerWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show"++data DOMTreeWalkerWhatToShowPropertyInfo+instance AttrInfo DOMTreeWalkerWhatToShowPropertyInfo where+    type AttrAllowedOps DOMTreeWalkerWhatToShowPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = DOMTreeWalkerK+    type AttrGetType DOMTreeWalkerWhatToShowPropertyInfo = Word64+    type AttrLabel DOMTreeWalkerWhatToShowPropertyInfo = "DOMTreeWalker::what-to-show"+    attrGet _ = getDOMTreeWalkerWhatToShow+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMTreeWalker = DOMTreeWalkerAttributeList+type DOMTreeWalkerAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-node", DOMTreeWalkerCurrentNodePropertyInfo), '("expand-entity-references", DOMTreeWalkerExpandEntityReferencesPropertyInfo), '("filter", DOMTreeWalkerFilterPropertyInfo), '("root", DOMTreeWalkerRootPropertyInfo), '("what-to-show", DOMTreeWalkerWhatToShowPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMTreeWalker = DOMTreeWalkerSignalList+type DOMTreeWalkerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMTreeWalker::first_child+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_first_child" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::get_current_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_get_current_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::get_expand_entity_references+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_get_filter" result+    result' <- (wrapObject DOMNodeFilter) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::get_root+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_get_root" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::get_what_to_show+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_last_child" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::next_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_next_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::next_sibling+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_next_sibling" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::parent_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_parent_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::previous_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_previous_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::previous_sibling+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_tree_walker_previous_sibling" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++-- method DOMTreeWalker::set_current_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "DOMNode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMTreeWalker", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMTreeWalker"+    Ptr DOMNode ->                          -- value : TInterface "WebKit2WebExtension" "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 ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMTreeWalker.hs-boot view
@@ -0,0 +1,18 @@+module GI.WebKit2WebExtension.Objects.DOMTreeWalker where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMTreeWalker = DOMTreeWalker (ForeignPtr DOMTreeWalker)+instance GObject DOMTreeWalker where+class GObject o => DOMTreeWalkerK o+instance (GObject o, IsDescendantOf DOMTreeWalker o) => DOMTreeWalkerK o+data DOMTreeWalkerCurrentNodePropertyInfo+data DOMTreeWalkerExpandEntityReferencesPropertyInfo+data DOMTreeWalkerFilterPropertyInfo+data DOMTreeWalkerRootPropertyInfo+data DOMTreeWalkerWhatToShowPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMUIEvent.hs view
@@ -0,0 +1,541 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMUIEvent+    ( ++-- * Exported types+    DOMUIEvent(..)                          ,+    DOMUIEventK                             ,+    toDOMUIEvent                            ,+    noDOMUIEvent                            ,+++ -- * Methods+-- ** dOMUIEventGetCharCode+    dOMUIEventGetCharCode                   ,+++-- ** dOMUIEventGetDetail+    dOMUIEventGetDetail                     ,+++-- ** dOMUIEventGetKeyCode+    dOMUIEventGetKeyCode                    ,+++-- ** dOMUIEventGetLayerX+    dOMUIEventGetLayerX                     ,+++-- ** dOMUIEventGetLayerY+    dOMUIEventGetLayerY                     ,+++-- ** dOMUIEventGetPageX+    dOMUIEventGetPageX                      ,+++-- ** dOMUIEventGetPageY+    dOMUIEventGetPageY                      ,+++-- ** dOMUIEventGetView+    dOMUIEventGetView                       ,+++-- ** dOMUIEventInitUiEvent+    dOMUIEventInitUiEvent                   ,+++++ -- * Properties+-- ** CharCode+    DOMUIEventCharCodePropertyInfo          ,+    getDOMUIEventCharCode                   ,+++-- ** Detail+    DOMUIEventDetailPropertyInfo            ,+    getDOMUIEventDetail                     ,+++-- ** KeyCode+    DOMUIEventKeyCodePropertyInfo           ,+    getDOMUIEventKeyCode                    ,+++-- ** LayerX+    DOMUIEventLayerXPropertyInfo            ,+    getDOMUIEventLayerX                     ,+++-- ** LayerY+    DOMUIEventLayerYPropertyInfo            ,+    getDOMUIEventLayerY                     ,+++-- ** PageX+    DOMUIEventPageXPropertyInfo             ,+    getDOMUIEventPageX                      ,+++-- ** PageY+    DOMUIEventPageYPropertyInfo             ,+    getDOMUIEventPageY                      ,+++-- ** View+    DOMUIEventViewPropertyInfo              ,+    getDOMUIEventView                       ,+++-- ** Which+    DOMUIEventWhichPropertyInfo             ,+    getDOMUIEventWhich                      ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMUIEvent = DOMUIEvent (ForeignPtr DOMUIEvent)+foreign import ccall "webkit_dom_ui_event_get_type"+    c_webkit_dom_ui_event_get_type :: IO GType++type instance ParentTypes DOMUIEvent = DOMUIEventParentTypes+type DOMUIEventParentTypes = '[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++noDOMUIEvent :: Maybe DOMUIEvent+noDOMUIEvent = Nothing++-- VVV Prop "char-code"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMUIEventCharCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64+getDOMUIEventCharCode obj = liftIO $ getObjectPropertyInt64 obj "char-code"++data DOMUIEventCharCodePropertyInfo+instance AttrInfo DOMUIEventCharCodePropertyInfo where+    type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventCharCodePropertyInfo = Int64+    type AttrLabel DOMUIEventCharCodePropertyInfo = "DOMUIEvent::char-code"+    attrGet _ = getDOMUIEventCharCode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "detail"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMUIEventDetail :: (MonadIO m, DOMUIEventK o) => o -> m Int64+getDOMUIEventDetail obj = liftIO $ getObjectPropertyInt64 obj "detail"++data DOMUIEventDetailPropertyInfo+instance AttrInfo DOMUIEventDetailPropertyInfo where+    type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventDetailPropertyInfo = Int64+    type AttrLabel DOMUIEventDetailPropertyInfo = "DOMUIEvent::detail"+    attrGet _ = getDOMUIEventDetail+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "key-code"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMUIEventKeyCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64+getDOMUIEventKeyCode obj = liftIO $ getObjectPropertyInt64 obj "key-code"++data DOMUIEventKeyCodePropertyInfo+instance AttrInfo DOMUIEventKeyCodePropertyInfo where+    type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventKeyCodePropertyInfo = Int64+    type AttrLabel DOMUIEventKeyCodePropertyInfo = "DOMUIEvent::key-code"+    attrGet _ = getDOMUIEventKeyCode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "layer-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMUIEventLayerX :: (MonadIO m, DOMUIEventK o) => o -> m Int64+getDOMUIEventLayerX obj = liftIO $ getObjectPropertyInt64 obj "layer-x"++data DOMUIEventLayerXPropertyInfo+instance AttrInfo DOMUIEventLayerXPropertyInfo where+    type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventLayerXPropertyInfo = Int64+    type AttrLabel DOMUIEventLayerXPropertyInfo = "DOMUIEvent::layer-x"+    attrGet _ = getDOMUIEventLayerX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "layer-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMUIEventLayerY :: (MonadIO m, DOMUIEventK o) => o -> m Int64+getDOMUIEventLayerY obj = liftIO $ getObjectPropertyInt64 obj "layer-y"++data DOMUIEventLayerYPropertyInfo+instance AttrInfo DOMUIEventLayerYPropertyInfo where+    type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventLayerYPropertyInfo = Int64+    type AttrLabel DOMUIEventLayerYPropertyInfo = "DOMUIEvent::layer-y"+    attrGet _ = getDOMUIEventLayerY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "page-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMUIEventPageX :: (MonadIO m, DOMUIEventK o) => o -> m Int64+getDOMUIEventPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x"++data DOMUIEventPageXPropertyInfo+instance AttrInfo DOMUIEventPageXPropertyInfo where+    type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventPageXPropertyInfo = Int64+    type AttrLabel DOMUIEventPageXPropertyInfo = "DOMUIEvent::page-x"+    attrGet _ = getDOMUIEventPageX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "page-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMUIEventPageY :: (MonadIO m, DOMUIEventK o) => o -> m Int64+getDOMUIEventPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y"++data DOMUIEventPageYPropertyInfo+instance AttrInfo DOMUIEventPageYPropertyInfo where+    type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventPageYPropertyInfo = Int64+    type AttrLabel DOMUIEventPageYPropertyInfo = "DOMUIEvent::page-y"+    attrGet _ = getDOMUIEventPageY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "view"+   -- Type: TInterface "WebKit2WebExtension" "DOMDOMWindow"+   -- Flags: [PropertyReadable]++getDOMUIEventView :: (MonadIO m, DOMUIEventK o) => o -> m DOMDOMWindow+getDOMUIEventView obj = liftIO $ getObjectPropertyObject obj "view" DOMDOMWindow++data DOMUIEventViewPropertyInfo+instance AttrInfo DOMUIEventViewPropertyInfo where+    type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventViewPropertyInfo = DOMDOMWindow+    type AttrLabel DOMUIEventViewPropertyInfo = "DOMUIEvent::view"+    attrGet _ = getDOMUIEventView+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "which"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMUIEventWhich :: (MonadIO m, DOMUIEventK o) => o -> m Int64+getDOMUIEventWhich obj = liftIO $ getObjectPropertyInt64 obj "which"++data DOMUIEventWhichPropertyInfo+instance AttrInfo DOMUIEventWhichPropertyInfo where+    type AttrAllowedOps DOMUIEventWhichPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMUIEventWhichPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMUIEventWhichPropertyInfo = DOMUIEventK+    type AttrGetType DOMUIEventWhichPropertyInfo = Int64+    type AttrLabel DOMUIEventWhichPropertyInfo = "DOMUIEvent::which"+    attrGet _ = getDOMUIEventWhich+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMUIEvent = DOMUIEventAttributeList+type DOMUIEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMUIEvent = DOMUIEventSignalList+type DOMUIEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMUIEvent::get_char_code+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMUIEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+    checkUnexpectedReturnNULL "webkit_dom_ui_event_get_view" result+    result' <- (wrapObject DOMDOMWindow) result+    touchManagedPtr _obj+    return result'++-- method DOMUIEvent::init_ui_event+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMUIEvent"+    CString ->                              -- type : TBasicType TUTF8+    CInt ->                                 -- canBubble : TBasicType TBoolean+    CInt ->                                 -- cancelable : TBasicType TBoolean+    Ptr DOMDOMWindow ->                     -- view : TInterface "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMUIEvent.hs-boot view
@@ -0,0 +1,22 @@+module GI.WebKit2WebExtension.Objects.DOMUIEvent where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMUIEvent = DOMUIEvent (ForeignPtr DOMUIEvent)+instance GObject DOMUIEvent where+class GObject o => DOMUIEventK o+instance (GObject o, IsDescendantOf DOMUIEvent o) => DOMUIEventK o+data DOMUIEventCharCodePropertyInfo+data DOMUIEventDetailPropertyInfo+data DOMUIEventKeyCodePropertyInfo+data DOMUIEventLayerXPropertyInfo+data DOMUIEventLayerYPropertyInfo+data DOMUIEventPageXPropertyInfo+data DOMUIEventPageYPropertyInfo+data DOMUIEventViewPropertyInfo+data DOMUIEventWhichPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs view
@@ -0,0 +1,388 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMWheelEvent+    ( ++-- * Exported types+    DOMWheelEvent(..)                       ,+    DOMWheelEventK                          ,+    toDOMWheelEvent                         ,+    noDOMWheelEvent                         ,+++ -- * Methods+-- ** dOMWheelEventGetWheelDelta+    dOMWheelEventGetWheelDelta              ,+++-- ** dOMWheelEventGetWheelDeltaX+    dOMWheelEventGetWheelDeltaX             ,+++-- ** dOMWheelEventGetWheelDeltaY+    dOMWheelEventGetWheelDeltaY             ,+++-- ** dOMWheelEventInitWheelEvent+    dOMWheelEventInitWheelEvent             ,+++++ -- * Properties+-- ** DeltaMode+    DOMWheelEventDeltaModePropertyInfo      ,+    getDOMWheelEventDeltaMode               ,+++-- ** DeltaX+    DOMWheelEventDeltaXPropertyInfo         ,+    getDOMWheelEventDeltaX                  ,+++-- ** DeltaY+    DOMWheelEventDeltaYPropertyInfo         ,+    getDOMWheelEventDeltaY                  ,+++-- ** DeltaZ+    DOMWheelEventDeltaZPropertyInfo         ,+    getDOMWheelEventDeltaZ                  ,+++-- ** WebkitDirectionInvertedFromDevice+    DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo,+    getDOMWheelEventWebkitDirectionInvertedFromDevice,+++-- ** WheelDelta+    DOMWheelEventWheelDeltaPropertyInfo     ,+    getDOMWheelEventWheelDelta              ,+++-- ** WheelDeltaX+    DOMWheelEventWheelDeltaXPropertyInfo    ,+    getDOMWheelEventWheelDeltaX             ,+++-- ** WheelDeltaY+    DOMWheelEventWheelDeltaYPropertyInfo    ,+    getDOMWheelEventWheelDeltaY             ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMWheelEvent = DOMWheelEvent (ForeignPtr DOMWheelEvent)+foreign import ccall "webkit_dom_wheel_event_get_type"+    c_webkit_dom_wheel_event_get_type :: IO GType++type instance ParentTypes DOMWheelEvent = DOMWheelEventParentTypes+type DOMWheelEventParentTypes = '[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++noDOMWheelEvent :: Maybe DOMWheelEvent+noDOMWheelEvent = Nothing++-- VVV Prop "delta-mode"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMWheelEventDeltaMode :: (MonadIO m, DOMWheelEventK o) => o -> m Word64+getDOMWheelEventDeltaMode obj = liftIO $ getObjectPropertyUInt64 obj "delta-mode"++data DOMWheelEventDeltaModePropertyInfo+instance AttrInfo DOMWheelEventDeltaModePropertyInfo where+    type AttrAllowedOps DOMWheelEventDeltaModePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMWheelEventDeltaModePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMWheelEventDeltaModePropertyInfo = DOMWheelEventK+    type AttrGetType DOMWheelEventDeltaModePropertyInfo = Word64+    type AttrLabel DOMWheelEventDeltaModePropertyInfo = "DOMWheelEvent::delta-mode"+    attrGet _ = getDOMWheelEventDeltaMode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "delta-x"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMWheelEventDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Double+getDOMWheelEventDeltaX obj = liftIO $ getObjectPropertyDouble obj "delta-x"++data DOMWheelEventDeltaXPropertyInfo+instance AttrInfo DOMWheelEventDeltaXPropertyInfo where+    type AttrAllowedOps DOMWheelEventDeltaXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMWheelEventDeltaXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMWheelEventDeltaXPropertyInfo = DOMWheelEventK+    type AttrGetType DOMWheelEventDeltaXPropertyInfo = Double+    type AttrLabel DOMWheelEventDeltaXPropertyInfo = "DOMWheelEvent::delta-x"+    attrGet _ = getDOMWheelEventDeltaX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "delta-y"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMWheelEventDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Double+getDOMWheelEventDeltaY obj = liftIO $ getObjectPropertyDouble obj "delta-y"++data DOMWheelEventDeltaYPropertyInfo+instance AttrInfo DOMWheelEventDeltaYPropertyInfo where+    type AttrAllowedOps DOMWheelEventDeltaYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMWheelEventDeltaYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMWheelEventDeltaYPropertyInfo = DOMWheelEventK+    type AttrGetType DOMWheelEventDeltaYPropertyInfo = Double+    type AttrLabel DOMWheelEventDeltaYPropertyInfo = "DOMWheelEvent::delta-y"+    attrGet _ = getDOMWheelEventDeltaY+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "delta-z"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMWheelEventDeltaZ :: (MonadIO m, DOMWheelEventK o) => o -> m Double+getDOMWheelEventDeltaZ obj = liftIO $ getObjectPropertyDouble obj "delta-z"++data DOMWheelEventDeltaZPropertyInfo+instance AttrInfo DOMWheelEventDeltaZPropertyInfo where+    type AttrAllowedOps DOMWheelEventDeltaZPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMWheelEventDeltaZPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMWheelEventDeltaZPropertyInfo = DOMWheelEventK+    type AttrGetType DOMWheelEventDeltaZPropertyInfo = Double+    type AttrLabel DOMWheelEventDeltaZPropertyInfo = "DOMWheelEvent::delta-z"+    attrGet _ = getDOMWheelEventDeltaZ+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "webkit-direction-inverted-from-device"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMWheelEventWebkitDirectionInvertedFromDevice :: (MonadIO m, DOMWheelEventK o) => o -> m Bool+getDOMWheelEventWebkitDirectionInvertedFromDevice obj = liftIO $ getObjectPropertyBool obj "webkit-direction-inverted-from-device"++data DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo+instance AttrInfo DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo where+    type AttrAllowedOps DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = DOMWheelEventK+    type AttrGetType DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = Bool+    type AttrLabel DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = "DOMWheelEvent::webkit-direction-inverted-from-device"+    attrGet _ = getDOMWheelEventWebkitDirectionInvertedFromDevice+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "wheel-delta"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMWheelEventWheelDelta :: (MonadIO m, DOMWheelEventK o) => o -> m Int64+getDOMWheelEventWheelDelta obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta"++data DOMWheelEventWheelDeltaPropertyInfo+instance AttrInfo DOMWheelEventWheelDeltaPropertyInfo where+    type AttrAllowedOps DOMWheelEventWheelDeltaPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = DOMWheelEventK+    type AttrGetType DOMWheelEventWheelDeltaPropertyInfo = Int64+    type AttrLabel DOMWheelEventWheelDeltaPropertyInfo = "DOMWheelEvent::wheel-delta"+    attrGet _ = getDOMWheelEventWheelDelta+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "wheel-delta-x"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMWheelEventWheelDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Int64+getDOMWheelEventWheelDeltaX obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-x"++data DOMWheelEventWheelDeltaXPropertyInfo+instance AttrInfo DOMWheelEventWheelDeltaXPropertyInfo where+    type AttrAllowedOps DOMWheelEventWheelDeltaXPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = DOMWheelEventK+    type AttrGetType DOMWheelEventWheelDeltaXPropertyInfo = Int64+    type AttrLabel DOMWheelEventWheelDeltaXPropertyInfo = "DOMWheelEvent::wheel-delta-x"+    attrGet _ = getDOMWheelEventWheelDeltaX+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "wheel-delta-y"+   -- Type: TBasicType TInt64+   -- Flags: [PropertyReadable]++getDOMWheelEventWheelDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Int64+getDOMWheelEventWheelDeltaY obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-y"++data DOMWheelEventWheelDeltaYPropertyInfo+instance AttrInfo DOMWheelEventWheelDeltaYPropertyInfo where+    type AttrAllowedOps DOMWheelEventWheelDeltaYPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = DOMWheelEventK+    type AttrGetType DOMWheelEventWheelDeltaYPropertyInfo = Int64+    type AttrLabel DOMWheelEventWheelDeltaYPropertyInfo = "DOMWheelEvent::wheel-delta-y"+    attrGet _ = getDOMWheelEventWheelDeltaY+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMWheelEvent = DOMWheelEventAttributeList+type DOMWheelEventAttributeList = ('[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("delta-mode", DOMWheelEventDeltaModePropertyInfo), '("delta-x", DOMWheelEventDeltaXPropertyInfo), '("delta-y", DOMWheelEventDeltaYPropertyInfo), '("delta-z", DOMWheelEventDeltaZPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("movement-x", DOMMouseEventMovementXPropertyInfo), '("movement-y", DOMMouseEventMovementYPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkit-direction-inverted-from-device", DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo), '("wheel-delta", DOMWheelEventWheelDeltaPropertyInfo), '("wheel-delta-x", DOMWheelEventWheelDeltaXPropertyInfo), '("wheel-delta-y", DOMWheelEventWheelDeltaYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMWheelEvent = DOMWheelEventSignalList+type DOMWheelEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMWheelEvent::get_wheel_delta+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMWheelEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMWheelEvent"+    Int64 ->                                -- wheelDeltaX : TBasicType TInt64+    Int64 ->                                -- wheelDeltaY : TBasicType TInt64+    Ptr DOMDOMWindow ->                     -- view : TInterface "WebKit2WebExtension" "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 ()++
+ GI/WebKit2WebExtension/Objects/DOMWheelEvent.hs-boot view
@@ -0,0 +1,21 @@+module GI.WebKit2WebExtension.Objects.DOMWheelEvent where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMWheelEvent = DOMWheelEvent (ForeignPtr DOMWheelEvent)+instance GObject DOMWheelEvent where+class GObject o => DOMWheelEventK o+instance (GObject o, IsDescendantOf DOMWheelEvent o) => DOMWheelEventK o+data DOMWheelEventDeltaModePropertyInfo+data DOMWheelEventDeltaXPropertyInfo+data DOMWheelEventDeltaYPropertyInfo+data DOMWheelEventDeltaZPropertyInfo+data DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo+data DOMWheelEventWheelDeltaPropertyInfo+data DOMWheelEventWheelDeltaXPropertyInfo+data DOMWheelEventWheelDeltaYPropertyInfo
+ GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs view
@@ -0,0 +1,106 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMXPathExpression+    ( ++-- * Exported types+    DOMXPathExpression(..)                  ,+    DOMXPathExpressionK                     ,+    toDOMXPathExpression                    ,+    noDOMXPathExpression                    ,+++ -- * Methods+-- ** dOMXPathExpressionEvaluate+    dOMXPathExpressionEvaluate              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMXPathExpression = DOMXPathExpression (ForeignPtr DOMXPathExpression)+foreign import ccall "webkit_dom_xpath_expression_get_type"+    c_webkit_dom_xpath_expression_get_type :: IO GType++type instance ParentTypes DOMXPathExpression = DOMXPathExpressionParentTypes+type DOMXPathExpressionParentTypes = '[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++noDOMXPathExpression :: Maybe DOMXPathExpression+noDOMXPathExpression = Nothing++type instance AttributeList DOMXPathExpression = DOMXPathExpressionAttributeList+type DOMXPathExpressionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMXPathExpression = DOMXPathExpressionSignalList+type DOMXPathExpressionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMXPathExpression::evaluate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathExpression", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contextNode", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMXPathResult"+-- throws : True+-- Skip return : False++foreign import ccall "webkit_dom_xpath_expression_evaluate" webkit_dom_xpath_expression_evaluate :: +    Ptr DOMXPathExpression ->               -- _obj : TInterface "WebKit2WebExtension" "DOMXPathExpression"+    Ptr DOMNode ->                          -- contextNode : TInterface "WebKit2WebExtension" "DOMNode"+    Word16 ->                               -- type : TBasicType TUInt16+    Ptr DOMXPathResult ->                   -- inResult : TInterface "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_xpath_expression_evaluate" result+        result' <- (wrapObject DOMXPathResult) result+        touchManagedPtr _obj+        touchManagedPtr contextNode+        touchManagedPtr inResult+        return result'+     ) (do+        return ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMXPathExpression.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.DOMXPathExpression where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMXPathExpression = DOMXPathExpression (ForeignPtr DOMXPathExpression)+instance GObject DOMXPathExpression where+class GObject o => DOMXPathExpressionK o+instance (GObject o, IsDescendantOf DOMXPathExpression o) => DOMXPathExpressionK o
+ GI/WebKit2WebExtension/Objects/DOMXPathResult.hs view
@@ -0,0 +1,525 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.DOMXPathResult+    ( ++-- * Exported types+    DOMXPathResult(..)                      ,+    DOMXPathResultK                         ,+    toDOMXPathResult                        ,+    noDOMXPathResult                        ,+++ -- * Methods+-- ** dOMXPathResultGetBooleanValue+    dOMXPathResultGetBooleanValue           ,+++-- ** dOMXPathResultGetInvalidIteratorState+    dOMXPathResultGetInvalidIteratorState   ,+++-- ** dOMXPathResultGetNumberValue+    dOMXPathResultGetNumberValue            ,+++-- ** dOMXPathResultGetResultType+    dOMXPathResultGetResultType             ,+++-- ** dOMXPathResultGetSingleNodeValue+    dOMXPathResultGetSingleNodeValue        ,+++-- ** dOMXPathResultGetSnapshotLength+    dOMXPathResultGetSnapshotLength         ,+++-- ** dOMXPathResultGetStringValue+    dOMXPathResultGetStringValue            ,+++-- ** dOMXPathResultIterateNext+    dOMXPathResultIterateNext               ,+++-- ** dOMXPathResultSnapshotItem+    dOMXPathResultSnapshotItem              ,+++++ -- * Properties+-- ** BooleanValue+    DOMXPathResultBooleanValuePropertyInfo  ,+    getDOMXPathResultBooleanValue           ,+++-- ** InvalidIteratorState+    DOMXPathResultInvalidIteratorStatePropertyInfo,+    getDOMXPathResultInvalidIteratorState   ,+++-- ** NumberValue+    DOMXPathResultNumberValuePropertyInfo   ,+    getDOMXPathResultNumberValue            ,+++-- ** ResultType+    DOMXPathResultResultTypePropertyInfo    ,+    getDOMXPathResultResultType             ,+++-- ** SingleNodeValue+    DOMXPathResultSingleNodeValuePropertyInfo,+    getDOMXPathResultSingleNodeValue        ,+++-- ** SnapshotLength+    DOMXPathResultSnapshotLengthPropertyInfo,+    getDOMXPathResultSnapshotLength         ,+++-- ** StringValue+    DOMXPathResultStringValuePropertyInfo   ,+    getDOMXPathResultStringValue            ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype DOMXPathResult = DOMXPathResult (ForeignPtr DOMXPathResult)+foreign import ccall "webkit_dom_xpath_result_get_type"+    c_webkit_dom_xpath_result_get_type :: IO GType++type instance ParentTypes DOMXPathResult = DOMXPathResultParentTypes+type DOMXPathResultParentTypes = '[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++noDOMXPathResult :: Maybe DOMXPathResult+noDOMXPathResult = Nothing++-- VVV Prop "boolean-value"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMXPathResultBooleanValue :: (MonadIO m, DOMXPathResultK o) => o -> m Bool+getDOMXPathResultBooleanValue obj = liftIO $ getObjectPropertyBool obj "boolean-value"++data DOMXPathResultBooleanValuePropertyInfo+instance AttrInfo DOMXPathResultBooleanValuePropertyInfo where+    type AttrAllowedOps DOMXPathResultBooleanValuePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMXPathResultBooleanValuePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMXPathResultBooleanValuePropertyInfo = DOMXPathResultK+    type AttrGetType DOMXPathResultBooleanValuePropertyInfo = Bool+    type AttrLabel DOMXPathResultBooleanValuePropertyInfo = "DOMXPathResult::boolean-value"+    attrGet _ = getDOMXPathResultBooleanValue+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "invalid-iterator-state"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable]++getDOMXPathResultInvalidIteratorState :: (MonadIO m, DOMXPathResultK o) => o -> m Bool+getDOMXPathResultInvalidIteratorState obj = liftIO $ getObjectPropertyBool obj "invalid-iterator-state"++data DOMXPathResultInvalidIteratorStatePropertyInfo+instance AttrInfo DOMXPathResultInvalidIteratorStatePropertyInfo where+    type AttrAllowedOps DOMXPathResultInvalidIteratorStatePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMXPathResultInvalidIteratorStatePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMXPathResultInvalidIteratorStatePropertyInfo = DOMXPathResultK+    type AttrGetType DOMXPathResultInvalidIteratorStatePropertyInfo = Bool+    type AttrLabel DOMXPathResultInvalidIteratorStatePropertyInfo = "DOMXPathResult::invalid-iterator-state"+    attrGet _ = getDOMXPathResultInvalidIteratorState+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "number-value"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable]++getDOMXPathResultNumberValue :: (MonadIO m, DOMXPathResultK o) => o -> m Double+getDOMXPathResultNumberValue obj = liftIO $ getObjectPropertyDouble obj "number-value"++data DOMXPathResultNumberValuePropertyInfo+instance AttrInfo DOMXPathResultNumberValuePropertyInfo where+    type AttrAllowedOps DOMXPathResultNumberValuePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMXPathResultNumberValuePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMXPathResultNumberValuePropertyInfo = DOMXPathResultK+    type AttrGetType DOMXPathResultNumberValuePropertyInfo = Double+    type AttrLabel DOMXPathResultNumberValuePropertyInfo = "DOMXPathResult::number-value"+    attrGet _ = getDOMXPathResultNumberValue+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "result-type"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getDOMXPathResultResultType :: (MonadIO m, DOMXPathResultK o) => o -> m Word32+getDOMXPathResultResultType obj = liftIO $ getObjectPropertyCUInt obj "result-type"++data DOMXPathResultResultTypePropertyInfo+instance AttrInfo DOMXPathResultResultTypePropertyInfo where+    type AttrAllowedOps DOMXPathResultResultTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMXPathResultResultTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMXPathResultResultTypePropertyInfo = DOMXPathResultK+    type AttrGetType DOMXPathResultResultTypePropertyInfo = Word32+    type AttrLabel DOMXPathResultResultTypePropertyInfo = "DOMXPathResult::result-type"+    attrGet _ = getDOMXPathResultResultType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "single-node-value"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable]++getDOMXPathResultSingleNodeValue :: (MonadIO m, DOMXPathResultK o) => o -> m DOMNode+getDOMXPathResultSingleNodeValue obj = liftIO $ getObjectPropertyObject obj "single-node-value" DOMNode++data DOMXPathResultSingleNodeValuePropertyInfo+instance AttrInfo DOMXPathResultSingleNodeValuePropertyInfo where+    type AttrAllowedOps DOMXPathResultSingleNodeValuePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = DOMXPathResultK+    type AttrGetType DOMXPathResultSingleNodeValuePropertyInfo = DOMNode+    type AttrLabel DOMXPathResultSingleNodeValuePropertyInfo = "DOMXPathResult::single-node-value"+    attrGet _ = getDOMXPathResultSingleNodeValue+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "snapshot-length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getDOMXPathResultSnapshotLength :: (MonadIO m, DOMXPathResultK o) => o -> m Word64+getDOMXPathResultSnapshotLength obj = liftIO $ getObjectPropertyUInt64 obj "snapshot-length"++data DOMXPathResultSnapshotLengthPropertyInfo+instance AttrInfo DOMXPathResultSnapshotLengthPropertyInfo where+    type AttrAllowedOps DOMXPathResultSnapshotLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = DOMXPathResultK+    type AttrGetType DOMXPathResultSnapshotLengthPropertyInfo = Word64+    type AttrLabel DOMXPathResultSnapshotLengthPropertyInfo = "DOMXPathResult::snapshot-length"+    attrGet _ = getDOMXPathResultSnapshotLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "string-value"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getDOMXPathResultStringValue :: (MonadIO m, DOMXPathResultK o) => o -> m T.Text+getDOMXPathResultStringValue obj = liftIO $ getObjectPropertyString obj "string-value"++data DOMXPathResultStringValuePropertyInfo+instance AttrInfo DOMXPathResultStringValuePropertyInfo where+    type AttrAllowedOps DOMXPathResultStringValuePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DOMXPathResultStringValuePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DOMXPathResultStringValuePropertyInfo = DOMXPathResultK+    type AttrGetType DOMXPathResultStringValuePropertyInfo = T.Text+    type AttrLabel DOMXPathResultStringValuePropertyInfo = "DOMXPathResult::string-value"+    attrGet _ = getDOMXPathResultStringValue+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList DOMXPathResult = DOMXPathResultAttributeList+type DOMXPathResultAttributeList = ('[ '("boolean-value", DOMXPathResultBooleanValuePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("invalid-iterator-state", DOMXPathResultInvalidIteratorStatePropertyInfo), '("number-value", DOMXPathResultNumberValuePropertyInfo), '("result-type", DOMXPathResultResultTypePropertyInfo), '("single-node-value", DOMXPathResultSingleNodeValuePropertyInfo), '("snapshot-length", DOMXPathResultSnapshotLengthPropertyInfo), '("string-value", DOMXPathResultStringValuePropertyInfo)] :: [(Symbol, *)])++type instance SignalList DOMXPathResult = DOMXPathResultSignalList+type DOMXPathResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method DOMXPathResult::get_boolean_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_xpath_result_get_single_node_value" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMXPathResult::get_snapshot_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_xpath_result_get_string_value" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMXPathResult::iterate_next+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "DOMXPathResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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'+        checkUnexpectedReturnNULL "webkit_dom_xpath_result_iterate_next" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method DOMXPathResult::snapshot_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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 "WebKit2WebExtension" "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+        checkUnexpectedReturnNULL "webkit_dom_xpath_result_snapshot_item" result+        result' <- (newObject DOMNode) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++
+ GI/WebKit2WebExtension/Objects/DOMXPathResult.hs-boot view
@@ -0,0 +1,20 @@+module GI.WebKit2WebExtension.Objects.DOMXPathResult where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype DOMXPathResult = DOMXPathResult (ForeignPtr DOMXPathResult)+instance GObject DOMXPathResult where+class GObject o => DOMXPathResultK o+instance (GObject o, IsDescendantOf DOMXPathResult o) => DOMXPathResultK o+data DOMXPathResultBooleanValuePropertyInfo+data DOMXPathResultInvalidIteratorStatePropertyInfo+data DOMXPathResultNumberValuePropertyInfo+data DOMXPathResultResultTypePropertyInfo+data DOMXPathResultSingleNodeValuePropertyInfo+data DOMXPathResultSnapshotLengthPropertyInfo+data DOMXPathResultStringValuePropertyInfo
+ GI/WebKit2WebExtension/Objects/Frame.hs view
@@ -0,0 +1,187 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.Frame+    ( ++-- * Exported types+    Frame(..)                               ,+    FrameK                                  ,+    toFrame                                 ,+    noFrame                                 ,+++ -- * Methods+-- ** frameGetJavascriptContextForScriptWorld+    frameGetJavascriptContextForScriptWorld ,+++-- ** frameGetJavascriptGlobalContext+    frameGetJavascriptGlobalContext         ,+++-- ** frameGetUri+    frameGetUri                             ,+++-- ** frameIsMainFrame+    frameIsMainFrame                        ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject+import qualified GI.JavaScriptCore as JavaScriptCore++newtype Frame = Frame (ForeignPtr Frame)+foreign import ccall "webkit_frame_get_type"+    c_webkit_frame_get_type :: IO GType++type instance ParentTypes Frame = FrameParentTypes+type FrameParentTypes = '[GObject.Object]++instance GObject Frame where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_frame_get_type+    ++class GObject o => FrameK o+instance (GObject o, IsDescendantOf Frame o) => FrameK o++toFrame :: FrameK o => o -> IO Frame+toFrame = unsafeCastTo Frame++noFrame :: Maybe Frame+noFrame = Nothing++type instance AttributeList Frame = FrameAttributeList+type FrameAttributeList = ('[ ] :: [(Symbol, *)])++type instance SignalList Frame = FrameSignalList+type FrameSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method Frame::get_javascript_context_for_script_world+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "world", argType = TInterface "WebKit2WebExtension" "ScriptWorld", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "world", argType = TInterface "WebKit2WebExtension" "ScriptWorld", 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_frame_get_javascript_context_for_script_world" webkit_frame_get_javascript_context_for_script_world :: +    Ptr Frame ->                            -- _obj : TInterface "WebKit2WebExtension" "Frame"+    Ptr ScriptWorld ->                      -- world : TInterface "WebKit2WebExtension" "ScriptWorld"+    IO (Ptr JavaScriptCore.GlobalContext)+++frameGetJavascriptContextForScriptWorld ::+    (MonadIO m, FrameK a, ScriptWorldK b) =>+    a ->                                    -- _obj+    b ->                                    -- world+    m JavaScriptCore.GlobalContext+frameGetJavascriptContextForScriptWorld _obj world = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let world' = unsafeManagedPtrCastPtr world+    result <- webkit_frame_get_javascript_context_for_script_world _obj' world'+    checkUnexpectedReturnNULL "webkit_frame_get_javascript_context_for_script_world" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- (\x -> JavaScriptCore.GlobalContext <$> newForeignPtr_ x) result+    touchManagedPtr _obj+    touchManagedPtr world+    return result'++-- method Frame::get_javascript_global_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", 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_frame_get_javascript_global_context" webkit_frame_get_javascript_global_context :: +    Ptr Frame ->                            -- _obj : TInterface "WebKit2WebExtension" "Frame"+    IO (Ptr JavaScriptCore.GlobalContext)+++frameGetJavascriptGlobalContext ::+    (MonadIO m, FrameK a) =>+    a ->                                    -- _obj+    m JavaScriptCore.GlobalContext+frameGetJavascriptGlobalContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_frame_get_javascript_global_context _obj'+    checkUnexpectedReturnNULL "webkit_frame_get_javascript_global_context" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- (\x -> JavaScriptCore.GlobalContext <$> newForeignPtr_ x) result+    touchManagedPtr _obj+    return result'++-- method Frame::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_frame_get_uri" webkit_frame_get_uri :: +    Ptr Frame ->                            -- _obj : TInterface "WebKit2WebExtension" "Frame"+    IO CString+++frameGetUri ::+    (MonadIO m, FrameK a) =>+    a ->                                    -- _obj+    m T.Text+frameGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_frame_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_frame_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Frame::is_main_frame+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "webkit_frame_is_main_frame" webkit_frame_is_main_frame :: +    Ptr Frame ->                            -- _obj : TInterface "WebKit2WebExtension" "Frame"+    IO CInt+++frameIsMainFrame ::+    (MonadIO m, FrameK a) =>+    a ->                                    -- _obj+    m Bool+frameIsMainFrame _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_frame_is_main_frame _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/Frame.hs-boot view
@@ -0,0 +1,13 @@+module GI.WebKit2WebExtension.Objects.Frame where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype Frame = Frame (ForeignPtr Frame)+instance GObject Frame where+class GObject o => FrameK o+instance (GObject o, IsDescendantOf Frame o) => FrameK o
+ GI/WebKit2WebExtension/Objects/HitTestResult.hs view
@@ -0,0 +1,578 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.HitTestResult+    ( ++-- * Exported types+    HitTestResult(..)                       ,+    HitTestResultK                          ,+    toHitTestResult                         ,+    noHitTestResult                         ,+++ -- * Methods+-- ** hitTestResultContextIsEditable+    hitTestResultContextIsEditable          ,+++-- ** hitTestResultContextIsImage+    hitTestResultContextIsImage             ,+++-- ** hitTestResultContextIsLink+    hitTestResultContextIsLink              ,+++-- ** hitTestResultContextIsMedia+    hitTestResultContextIsMedia             ,+++-- ** hitTestResultContextIsScrollbar+    hitTestResultContextIsScrollbar         ,+++-- ** hitTestResultContextIsSelection+    hitTestResultContextIsSelection         ,+++-- ** hitTestResultGetContext+    hitTestResultGetContext                 ,+++-- ** hitTestResultGetImageUri+    hitTestResultGetImageUri                ,+++-- ** hitTestResultGetLinkLabel+    hitTestResultGetLinkLabel               ,+++-- ** hitTestResultGetLinkTitle+    hitTestResultGetLinkTitle               ,+++-- ** hitTestResultGetLinkUri+    hitTestResultGetLinkUri                 ,+++-- ** hitTestResultGetMediaUri+    hitTestResultGetMediaUri                ,+++++ -- * Properties+-- ** Context+    HitTestResultContextPropertyInfo        ,+    constructHitTestResultContext           ,+    getHitTestResultContext                 ,+++-- ** ImageUri+    HitTestResultImageUriPropertyInfo       ,+    constructHitTestResultImageUri          ,+    getHitTestResultImageUri                ,+++-- ** LinkLabel+    HitTestResultLinkLabelPropertyInfo      ,+    constructHitTestResultLinkLabel         ,+    getHitTestResultLinkLabel               ,+++-- ** LinkTitle+    HitTestResultLinkTitlePropertyInfo      ,+    constructHitTestResultLinkTitle         ,+    getHitTestResultLinkTitle               ,+++-- ** LinkUri+    HitTestResultLinkUriPropertyInfo        ,+    constructHitTestResultLinkUri           ,+    getHitTestResultLinkUri                 ,+++-- ** MediaUri+    HitTestResultMediaUriPropertyInfo       ,+    constructHitTestResultMediaUri          ,+    getHitTestResultMediaUri                ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult)+foreign import ccall "webkit_hit_test_result_get_type"+    c_webkit_hit_test_result_get_type :: IO GType++type instance ParentTypes HitTestResult = HitTestResultParentTypes+type HitTestResultParentTypes = '[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++noHitTestResult :: Maybe HitTestResult+noHitTestResult = Nothing++-- VVV Prop "context"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m Word32+getHitTestResultContext obj = liftIO $ getObjectPropertyCUInt obj "context"++constructHitTestResultContext :: Word32 -> IO ([Char], GValue)+constructHitTestResultContext val = constructObjectPropertyCUInt "context" val++data HitTestResultContextPropertyInfo+instance AttrInfo HitTestResultContextPropertyInfo where+    type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) Word32+    type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultContextPropertyInfo = Word32+    type AttrLabel HitTestResultContextPropertyInfo = "HitTestResult::context"+    attrGet _ = getHitTestResultContext+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultContext++-- VVV Prop "image-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultImageUri obj = liftIO $ getObjectPropertyString obj "image-uri"++constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue)+constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" val++data HitTestResultImageUriPropertyInfo+instance AttrInfo HitTestResultImageUriPropertyInfo where+    type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultImageUriPropertyInfo = T.Text+    type AttrLabel HitTestResultImageUriPropertyInfo = "HitTestResult::image-uri"+    attrGet _ = getHitTestResultImageUri+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultImageUri++-- VVV Prop "link-label"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultLinkLabel :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultLinkLabel obj = liftIO $ getObjectPropertyString obj "link-label"++constructHitTestResultLinkLabel :: T.Text -> IO ([Char], GValue)+constructHitTestResultLinkLabel val = constructObjectPropertyString "link-label" val++data HitTestResultLinkLabelPropertyInfo+instance AttrInfo HitTestResultLinkLabelPropertyInfo where+    type AttrAllowedOps HitTestResultLinkLabelPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultLinkLabelPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkLabelPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultLinkLabelPropertyInfo = T.Text+    type AttrLabel HitTestResultLinkLabelPropertyInfo = "HitTestResult::link-label"+    attrGet _ = getHitTestResultLinkLabel+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkLabel++-- VVV Prop "link-title"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultLinkTitle :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultLinkTitle obj = liftIO $ getObjectPropertyString obj "link-title"++constructHitTestResultLinkTitle :: T.Text -> IO ([Char], GValue)+constructHitTestResultLinkTitle val = constructObjectPropertyString "link-title" val++data HitTestResultLinkTitlePropertyInfo+instance AttrInfo HitTestResultLinkTitlePropertyInfo where+    type AttrAllowedOps HitTestResultLinkTitlePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultLinkTitlePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkTitlePropertyInfo = HitTestResultK+    type AttrGetType HitTestResultLinkTitlePropertyInfo = T.Text+    type AttrLabel HitTestResultLinkTitlePropertyInfo = "HitTestResult::link-title"+    attrGet _ = getHitTestResultLinkTitle+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkTitle++-- VVV Prop "link-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultLinkUri obj = liftIO $ getObjectPropertyString obj "link-uri"++constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue)+constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" val++data HitTestResultLinkUriPropertyInfo+instance AttrInfo HitTestResultLinkUriPropertyInfo where+    type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text+    type AttrLabel HitTestResultLinkUriPropertyInfo = "HitTestResult::link-uri"+    attrGet _ = getHitTestResultLinkUri+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultLinkUri++-- VVV Prop "media-uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text+getHitTestResultMediaUri obj = liftIO $ getObjectPropertyString obj "media-uri"++constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue)+constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" val++data HitTestResultMediaUriPropertyInfo+instance AttrInfo HitTestResultMediaUriPropertyInfo where+    type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK+    type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text+    type AttrLabel HitTestResultMediaUriPropertyInfo = "HitTestResult::media-uri"+    attrGet _ = getHitTestResultMediaUri+    attrSet _ = undefined+    attrConstruct _ = constructHitTestResultMediaUri++type instance AttributeList HitTestResult = HitTestResultAttributeList+type HitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("image-uri", HitTestResultImageUriPropertyInfo), '("link-label", HitTestResultLinkLabelPropertyInfo), '("link-title", HitTestResultLinkTitlePropertyInfo), '("link-uri", HitTestResultLinkUriPropertyInfo), '("media-uri", HitTestResultMediaUriPropertyInfo)] :: [(Symbol, *)])++type instance SignalList HitTestResult = HitTestResultSignalList+type HitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method HitTestResult::context_is_editable+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_editable" webkit_hit_test_result_context_is_editable :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CInt+++hitTestResultContextIsEditable ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsEditable _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_editable _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::context_is_image+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_image" webkit_hit_test_result_context_is_image :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CInt+++hitTestResultContextIsImage ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsImage _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_image _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::context_is_link+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_link" webkit_hit_test_result_context_is_link :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CInt+++hitTestResultContextIsLink ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsLink _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_link _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::context_is_media+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_media" webkit_hit_test_result_context_is_media :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CInt+++hitTestResultContextIsMedia ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsMedia _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_media _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::context_is_scrollbar+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_scrollbar" webkit_hit_test_result_context_is_scrollbar :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CInt+++hitTestResultContextIsScrollbar ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsScrollbar _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_scrollbar _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::context_is_selection+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_context_is_selection" webkit_hit_test_result_context_is_selection :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CInt+++hitTestResultContextIsSelection ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Bool+hitTestResultContextIsSelection _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_context_is_selection _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::get_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_context" webkit_hit_test_result_get_context :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO Word32+++hitTestResultGetContext ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m Word32+hitTestResultGetContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_context _obj'+    touchManagedPtr _obj+    return result++-- method HitTestResult::get_image_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_image_uri" webkit_hit_test_result_get_image_uri :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CString+++hitTestResultGetImageUri ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetImageUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_image_uri _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_image_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::get_link_label+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_link_label" webkit_hit_test_result_get_link_label :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CString+++hitTestResultGetLinkLabel ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetLinkLabel _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_link_label _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_label" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::get_link_title+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_link_title" webkit_hit_test_result_get_link_title :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CString+++hitTestResultGetLinkTitle ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetLinkTitle _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_link_title _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_title" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::get_link_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_link_uri" webkit_hit_test_result_get_link_uri :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CString+++hitTestResultGetLinkUri ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetLinkUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_link_uri _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_link_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method HitTestResult::get_media_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "HitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_hit_test_result_get_media_uri" webkit_hit_test_result_get_media_uri :: +    Ptr HitTestResult ->                    -- _obj : TInterface "WebKit2WebExtension" "HitTestResult"+    IO CString+++hitTestResultGetMediaUri ::+    (MonadIO m, HitTestResultK a) =>+    a ->                                    -- _obj+    m T.Text+hitTestResultGetMediaUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_hit_test_result_get_media_uri _obj'+    checkUnexpectedReturnNULL "webkit_hit_test_result_get_media_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/HitTestResult.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2WebExtension.Objects.HitTestResult where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype HitTestResult = HitTestResult (ForeignPtr HitTestResult)+instance GObject HitTestResult where+class GObject o => HitTestResultK o+instance (GObject o, IsDescendantOf HitTestResult o) => HitTestResultK o+data HitTestResultContextPropertyInfo+data HitTestResultImageUriPropertyInfo+data HitTestResultLinkLabelPropertyInfo+data HitTestResultLinkTitlePropertyInfo+data HitTestResultLinkUriPropertyInfo+data HitTestResultMediaUriPropertyInfo
+ GI/WebKit2WebExtension/Objects/ScriptWorld.hs view
@@ -0,0 +1,179 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.ScriptWorld+    ( ++-- * Exported types+    ScriptWorld(..)                         ,+    ScriptWorldK                            ,+    toScriptWorld                           ,+    noScriptWorld                           ,+++ -- * Methods+-- ** scriptWorldGetDefault+    scriptWorldGetDefault                   ,+++-- ** scriptWorldNew+    scriptWorldNew                          ,+++++ -- * Signals+-- ** WindowObjectCleared+    ScriptWorldWindowObjectClearedCallback  ,+    ScriptWorldWindowObjectClearedCallbackC ,+    ScriptWorldWindowObjectClearedSignalInfo,+    afterScriptWorldWindowObjectCleared     ,+    mkScriptWorldWindowObjectClearedCallback,+    noScriptWorldWindowObjectClearedCallback,+    onScriptWorldWindowObjectCleared        ,+    scriptWorldWindowObjectClearedCallbackWrapper,+    scriptWorldWindowObjectClearedClosure   ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype ScriptWorld = ScriptWorld (ForeignPtr ScriptWorld)+foreign import ccall "webkit_script_world_get_type"+    c_webkit_script_world_get_type :: IO GType++type instance ParentTypes ScriptWorld = ScriptWorldParentTypes+type ScriptWorldParentTypes = '[GObject.Object]++instance GObject ScriptWorld where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_script_world_get_type+    ++class GObject o => ScriptWorldK o+instance (GObject o, IsDescendantOf ScriptWorld o) => ScriptWorldK o++toScriptWorld :: ScriptWorldK o => o -> IO ScriptWorld+toScriptWorld = unsafeCastTo ScriptWorld++noScriptWorld :: Maybe ScriptWorld+noScriptWorld = Nothing++-- signal ScriptWorld::window-object-cleared+type ScriptWorldWindowObjectClearedCallback =+    WebPage ->+    Frame ->+    IO ()++noScriptWorldWindowObjectClearedCallback :: Maybe ScriptWorldWindowObjectClearedCallback+noScriptWorldWindowObjectClearedCallback = Nothing++type ScriptWorldWindowObjectClearedCallbackC =+    Ptr () ->                               -- object+    Ptr WebPage ->+    Ptr Frame ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkScriptWorldWindowObjectClearedCallback :: ScriptWorldWindowObjectClearedCallbackC -> IO (FunPtr ScriptWorldWindowObjectClearedCallbackC)++scriptWorldWindowObjectClearedClosure :: ScriptWorldWindowObjectClearedCallback -> IO Closure+scriptWorldWindowObjectClearedClosure cb = newCClosure =<< mkScriptWorldWindowObjectClearedCallback wrapped+    where wrapped = scriptWorldWindowObjectClearedCallbackWrapper cb++scriptWorldWindowObjectClearedCallbackWrapper ::+    ScriptWorldWindowObjectClearedCallback ->+    Ptr () ->+    Ptr WebPage ->+    Ptr Frame ->+    Ptr () ->+    IO ()+scriptWorldWindowObjectClearedCallbackWrapper _cb _ page frame _ = do+    page' <- (newObject WebPage) page+    frame' <- (newObject Frame) frame+    _cb  page' frame'++onScriptWorldWindowObjectCleared :: (GObject a, MonadIO m) => a -> ScriptWorldWindowObjectClearedCallback -> m SignalHandlerId+onScriptWorldWindowObjectCleared obj cb = liftIO $ connectScriptWorldWindowObjectCleared obj cb SignalConnectBefore+afterScriptWorldWindowObjectCleared :: (GObject a, MonadIO m) => a -> ScriptWorldWindowObjectClearedCallback -> m SignalHandlerId+afterScriptWorldWindowObjectCleared obj cb = connectScriptWorldWindowObjectCleared obj cb SignalConnectAfter++connectScriptWorldWindowObjectCleared :: (GObject a, MonadIO m) =>+                                         a -> ScriptWorldWindowObjectClearedCallback -> SignalConnectMode -> m SignalHandlerId+connectScriptWorldWindowObjectCleared obj cb after = liftIO $ do+    cb' <- mkScriptWorldWindowObjectClearedCallback (scriptWorldWindowObjectClearedCallbackWrapper cb)+    connectSignalFunPtr obj "window-object-cleared" cb' after++type instance AttributeList ScriptWorld = ScriptWorldAttributeList+type ScriptWorldAttributeList = ('[ ] :: [(Symbol, *)])++data ScriptWorldWindowObjectClearedSignalInfo+instance SignalInfo ScriptWorldWindowObjectClearedSignalInfo where+    type HaskellCallbackType ScriptWorldWindowObjectClearedSignalInfo = ScriptWorldWindowObjectClearedCallback+    connectSignal _ = connectScriptWorldWindowObjectCleared++type instance SignalList ScriptWorld = ScriptWorldSignalList+type ScriptWorldSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("window-object-cleared", ScriptWorldWindowObjectClearedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method ScriptWorld::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2WebExtension" "ScriptWorld"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_world_new" webkit_script_world_new :: +    IO (Ptr ScriptWorld)+++scriptWorldNew ::+    (MonadIO m) =>+    m ScriptWorld+scriptWorldNew  = liftIO $ do+    result <- webkit_script_world_new+    checkUnexpectedReturnNULL "webkit_script_world_new" result+    result' <- (wrapObject ScriptWorld) result+    return result'++-- method ScriptWorld::get_default+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "WebKit2WebExtension" "ScriptWorld"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_script_world_get_default" webkit_script_world_get_default :: +    IO (Ptr ScriptWorld)+++scriptWorldGetDefault ::+    (MonadIO m) =>+    m ScriptWorld+scriptWorldGetDefault  = liftIO $ do+    result <- webkit_script_world_get_default+    checkUnexpectedReturnNULL "webkit_script_world_get_default" result+    result' <- (newObject ScriptWorld) result+    return result'++
+ GI/WebKit2WebExtension/Objects/ScriptWorld.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.ScriptWorld where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ScriptWorld = ScriptWorld (ForeignPtr ScriptWorld)+instance GObject ScriptWorld where+class GObject o => ScriptWorldK o+instance (GObject o, IsDescendantOf ScriptWorld o) => ScriptWorldK o+data ScriptWorldWindowObjectClearedSignalInfo
+ GI/WebKit2WebExtension/Objects/URIRequest.hs view
@@ -0,0 +1,218 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.URIRequest+    ( ++-- * Exported types+    URIRequest(..)                          ,+    URIRequestK                             ,+    toURIRequest                            ,+    noURIRequest                            ,+++ -- * Methods+-- ** uRIRequestGetHttpHeaders+    uRIRequestGetHttpHeaders                ,+++-- ** uRIRequestGetUri+    uRIRequestGetUri                        ,+++-- ** uRIRequestNew+    uRIRequestNew                           ,+++-- ** uRIRequestSetUri+    uRIRequestSetUri                        ,+++++ -- * Properties+-- ** Uri+    URIRequestUriPropertyInfo               ,+    constructURIRequestUri                  ,+    getURIRequestUri                        ,+    setURIRequestUri                        ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Soup as Soup++newtype URIRequest = URIRequest (ForeignPtr URIRequest)+foreign import ccall "webkit_uri_request_get_type"+    c_webkit_uri_request_get_type :: IO GType++type instance ParentTypes URIRequest = URIRequestParentTypes+type URIRequestParentTypes = '[GObject.Object]++instance GObject URIRequest where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_uri_request_get_type+    ++class GObject o => URIRequestK o+instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o++toURIRequest :: URIRequestK o => o -> IO URIRequest+toURIRequest = unsafeCastTo URIRequest++noURIRequest :: Maybe URIRequest+noURIRequest = Nothing++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]++getURIRequestUri :: (MonadIO m, URIRequestK o) => o -> m T.Text+getURIRequestUri obj = liftIO $ getObjectPropertyString obj "uri"++setURIRequestUri :: (MonadIO m, URIRequestK o) => o -> T.Text -> m ()+setURIRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" val++constructURIRequestUri :: T.Text -> IO ([Char], GValue)+constructURIRequestUri val = constructObjectPropertyString "uri" val++data URIRequestUriPropertyInfo+instance AttrInfo URIRequestUriPropertyInfo where+    type AttrAllowedOps URIRequestUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint URIRequestUriPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint URIRequestUriPropertyInfo = URIRequestK+    type AttrGetType URIRequestUriPropertyInfo = T.Text+    type AttrLabel URIRequestUriPropertyInfo = "URIRequest::uri"+    attrGet _ = getURIRequestUri+    attrSet _ = setURIRequestUri+    attrConstruct _ = constructURIRequestUri++type instance AttributeList URIRequest = URIRequestAttributeList+type URIRequestAttributeList = ('[ '("uri", URIRequestUriPropertyInfo)] :: [(Symbol, *)])++type instance SignalList URIRequest = URIRequestSignalList+type URIRequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method URIRequest::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 "WebKit2WebExtension" "URIRequest"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_request_new" webkit_uri_request_new :: +    CString ->                              -- uri : TBasicType TUTF8+    IO (Ptr URIRequest)+++uRIRequestNew ::+    (MonadIO m) =>+    T.Text ->                               -- uri+    m URIRequest+uRIRequestNew uri = liftIO $ do+    uri' <- textToCString uri+    result <- webkit_uri_request_new uri'+    checkUnexpectedReturnNULL "webkit_uri_request_new" result+    result' <- (wrapObject URIRequest) result+    freeMem uri'+    return result'++-- method URIRequest::get_http_headers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "MessageHeaders"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_request_get_http_headers" webkit_uri_request_get_http_headers :: +    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2WebExtension" "URIRequest"+    IO (Ptr Soup.MessageHeaders)+++uRIRequestGetHttpHeaders ::+    (MonadIO m, URIRequestK a) =>+    a ->                                    -- _obj+    m Soup.MessageHeaders+uRIRequestGetHttpHeaders _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_request_get_http_headers _obj'+    checkUnexpectedReturnNULL "webkit_uri_request_get_http_headers" result+    result' <- (wrapBoxed Soup.MessageHeaders) result+    touchManagedPtr _obj+    return result'++-- method URIRequest::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_request_get_uri" webkit_uri_request_get_uri :: +    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2WebExtension" "URIRequest"+    IO CString+++uRIRequestGetUri ::+    (MonadIO m, URIRequestK a) =>+    a ->                                    -- _obj+    m T.Text+uRIRequestGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_request_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_uri_request_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URIRequest::set_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIRequest", 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 "WebKit2WebExtension" "URIRequest", 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_uri_request_set_uri" webkit_uri_request_set_uri :: +    Ptr URIRequest ->                       -- _obj : TInterface "WebKit2WebExtension" "URIRequest"+    CString ->                              -- uri : TBasicType TUTF8+    IO ()+++uRIRequestSetUri ::+    (MonadIO m, URIRequestK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- uri+    m ()+uRIRequestSetUri _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    uri' <- textToCString uri+    webkit_uri_request_set_uri _obj' uri'+    touchManagedPtr _obj+    freeMem uri'+    return ()++
+ GI/WebKit2WebExtension/Objects/URIRequest.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.URIRequest where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype URIRequest = URIRequest (ForeignPtr URIRequest)+instance GObject URIRequest where+class GObject o => URIRequestK o+instance (GObject o, IsDescendantOf URIRequest o) => URIRequestK o+data URIRequestUriPropertyInfo
+ GI/WebKit2WebExtension/Objects/URIResponse.hs view
@@ -0,0 +1,379 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.URIResponse+    ( ++-- * Exported types+    URIResponse(..)                         ,+    URIResponseK                            ,+    toURIResponse                           ,+    noURIResponse                           ,+++ -- * Methods+-- ** uRIResponseGetContentLength+    uRIResponseGetContentLength             ,+++-- ** uRIResponseGetHttpHeaders+    uRIResponseGetHttpHeaders               ,+++-- ** uRIResponseGetMimeType+    uRIResponseGetMimeType                  ,+++-- ** uRIResponseGetStatusCode+    uRIResponseGetStatusCode                ,+++-- ** uRIResponseGetSuggestedFilename+    uRIResponseGetSuggestedFilename         ,+++-- ** uRIResponseGetUri+    uRIResponseGetUri                       ,+++++ -- * Properties+-- ** ContentLength+    URIResponseContentLengthPropertyInfo    ,+    getURIResponseContentLength             ,+++-- ** HttpHeaders+    URIResponseHttpHeadersPropertyInfo      ,+    getURIResponseHttpHeaders               ,+++-- ** MimeType+    URIResponseMimeTypePropertyInfo         ,+    getURIResponseMimeType                  ,+++-- ** StatusCode+    URIResponseStatusCodePropertyInfo       ,+    getURIResponseStatusCode                ,+++-- ** SuggestedFilename+    URIResponseSuggestedFilenamePropertyInfo,+    getURIResponseSuggestedFilename         ,+++-- ** Uri+    URIResponseUriPropertyInfo              ,+    getURIResponseUri                       ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject+import qualified GI.Soup as Soup++newtype URIResponse = URIResponse (ForeignPtr URIResponse)+foreign import ccall "webkit_uri_response_get_type"+    c_webkit_uri_response_get_type :: IO GType++type instance ParentTypes URIResponse = URIResponseParentTypes+type URIResponseParentTypes = '[GObject.Object]++instance GObject URIResponse where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_uri_response_get_type+    ++class GObject o => URIResponseK o+instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o++toURIResponse :: URIResponseK o => o -> IO URIResponse+toURIResponse = unsafeCastTo URIResponse++noURIResponse :: Maybe URIResponse+noURIResponse = Nothing++-- VVV Prop "content-length"+   -- Type: TBasicType TUInt64+   -- Flags: [PropertyReadable]++getURIResponseContentLength :: (MonadIO m, URIResponseK o) => o -> m Word64+getURIResponseContentLength obj = liftIO $ getObjectPropertyUInt64 obj "content-length"++data URIResponseContentLengthPropertyInfo+instance AttrInfo URIResponseContentLengthPropertyInfo where+    type AttrAllowedOps URIResponseContentLengthPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseContentLengthPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseContentLengthPropertyInfo = URIResponseK+    type AttrGetType URIResponseContentLengthPropertyInfo = Word64+    type AttrLabel URIResponseContentLengthPropertyInfo = "URIResponse::content-length"+    attrGet _ = getURIResponseContentLength+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "http-headers"+   -- Type: TInterface "Soup" "MessageHeaders"+   -- Flags: [PropertyReadable]++getURIResponseHttpHeaders :: (MonadIO m, URIResponseK o) => o -> m Soup.MessageHeaders+getURIResponseHttpHeaders obj = liftIO $ getObjectPropertyBoxed obj "http-headers" Soup.MessageHeaders++data URIResponseHttpHeadersPropertyInfo+instance AttrInfo URIResponseHttpHeadersPropertyInfo where+    type AttrAllowedOps URIResponseHttpHeadersPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseHttpHeadersPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseHttpHeadersPropertyInfo = URIResponseK+    type AttrGetType URIResponseHttpHeadersPropertyInfo = Soup.MessageHeaders+    type AttrLabel URIResponseHttpHeadersPropertyInfo = "URIResponse::http-headers"+    attrGet _ = getURIResponseHttpHeaders+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "mime-type"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getURIResponseMimeType :: (MonadIO m, URIResponseK o) => o -> m T.Text+getURIResponseMimeType obj = liftIO $ getObjectPropertyString obj "mime-type"++data URIResponseMimeTypePropertyInfo+instance AttrInfo URIResponseMimeTypePropertyInfo where+    type AttrAllowedOps URIResponseMimeTypePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseMimeTypePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseMimeTypePropertyInfo = URIResponseK+    type AttrGetType URIResponseMimeTypePropertyInfo = T.Text+    type AttrLabel URIResponseMimeTypePropertyInfo = "URIResponse::mime-type"+    attrGet _ = getURIResponseMimeType+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "status-code"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getURIResponseStatusCode :: (MonadIO m, URIResponseK o) => o -> m Word32+getURIResponseStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code"++data URIResponseStatusCodePropertyInfo+instance AttrInfo URIResponseStatusCodePropertyInfo where+    type AttrAllowedOps URIResponseStatusCodePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseStatusCodePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseStatusCodePropertyInfo = URIResponseK+    type AttrGetType URIResponseStatusCodePropertyInfo = Word32+    type AttrLabel URIResponseStatusCodePropertyInfo = "URIResponse::status-code"+    attrGet _ = getURIResponseStatusCode+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "suggested-filename"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getURIResponseSuggestedFilename :: (MonadIO m, URIResponseK o) => o -> m T.Text+getURIResponseSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename"++data URIResponseSuggestedFilenamePropertyInfo+instance AttrInfo URIResponseSuggestedFilenamePropertyInfo where+    type AttrAllowedOps URIResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseSuggestedFilenamePropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseSuggestedFilenamePropertyInfo = URIResponseK+    type AttrGetType URIResponseSuggestedFilenamePropertyInfo = T.Text+    type AttrLabel URIResponseSuggestedFilenamePropertyInfo = "URIResponse::suggested-filename"+    attrGet _ = getURIResponseSuggestedFilename+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getURIResponseUri :: (MonadIO m, URIResponseK o) => o -> m T.Text+getURIResponseUri obj = liftIO $ getObjectPropertyString obj "uri"++data URIResponseUriPropertyInfo+instance AttrInfo URIResponseUriPropertyInfo where+    type AttrAllowedOps URIResponseUriPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint URIResponseUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint URIResponseUriPropertyInfo = URIResponseK+    type AttrGetType URIResponseUriPropertyInfo = T.Text+    type AttrLabel URIResponseUriPropertyInfo = "URIResponse::uri"+    attrGet _ = getURIResponseUri+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList URIResponse = URIResponseAttributeList+type URIResponseAttributeList = ('[ '("content-length", URIResponseContentLengthPropertyInfo), '("http-headers", URIResponseHttpHeadersPropertyInfo), '("mime-type", URIResponseMimeTypePropertyInfo), '("status-code", URIResponseStatusCodePropertyInfo), '("suggested-filename", URIResponseSuggestedFilenamePropertyInfo), '("uri", URIResponseUriPropertyInfo)] :: [(Symbol, *)])++type instance SignalList URIResponse = URIResponseSignalList+type URIResponseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method URIResponse::get_content_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_content_length" webkit_uri_response_get_content_length :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2WebExtension" "URIResponse"+    IO Word64+++uRIResponseGetContentLength ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m Word64+uRIResponseGetContentLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_content_length _obj'+    touchManagedPtr _obj+    return result++-- method URIResponse::get_http_headers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Soup" "MessageHeaders"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_http_headers" webkit_uri_response_get_http_headers :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2WebExtension" "URIResponse"+    IO (Ptr Soup.MessageHeaders)+++uRIResponseGetHttpHeaders ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m Soup.MessageHeaders+uRIResponseGetHttpHeaders _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_http_headers _obj'+    checkUnexpectedReturnNULL "webkit_uri_response_get_http_headers" result+    result' <- (wrapBoxed Soup.MessageHeaders) result+    touchManagedPtr _obj+    return result'++-- method URIResponse::get_mime_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_mime_type" webkit_uri_response_get_mime_type :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2WebExtension" "URIResponse"+    IO CString+++uRIResponseGetMimeType ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m T.Text+uRIResponseGetMimeType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_mime_type _obj'+    checkUnexpectedReturnNULL "webkit_uri_response_get_mime_type" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URIResponse::get_status_code+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_status_code" webkit_uri_response_get_status_code :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2WebExtension" "URIResponse"+    IO Word32+++uRIResponseGetStatusCode ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m Word32+uRIResponseGetStatusCode _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_status_code _obj'+    touchManagedPtr _obj+    return result++-- method URIResponse::get_suggested_filename+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_suggested_filename" webkit_uri_response_get_suggested_filename :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2WebExtension" "URIResponse"+    IO CString+++uRIResponseGetSuggestedFilename ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m T.Text+uRIResponseGetSuggestedFilename _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_suggested_filename _obj'+    checkUnexpectedReturnNULL "webkit_uri_response_get_suggested_filename" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method URIResponse::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "URIResponse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "webkit_uri_response_get_uri" webkit_uri_response_get_uri :: +    Ptr URIResponse ->                      -- _obj : TInterface "WebKit2WebExtension" "URIResponse"+    IO CString+++uRIResponseGetUri ::+    (MonadIO m, URIResponseK a) =>+    a ->                                    -- _obj+    m T.Text+uRIResponseGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_uri_response_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_uri_response_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/URIResponse.hs-boot view
@@ -0,0 +1,19 @@+module GI.WebKit2WebExtension.Objects.URIResponse where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype URIResponse = URIResponse (ForeignPtr URIResponse)+instance GObject URIResponse where+class GObject o => URIResponseK o+instance (GObject o, IsDescendantOf URIResponse o) => URIResponseK o+data URIResponseContentLengthPropertyInfo+data URIResponseHttpHeadersPropertyInfo+data URIResponseMimeTypePropertyInfo+data URIResponseStatusCodePropertyInfo+data URIResponseSuggestedFilenamePropertyInfo+data URIResponseUriPropertyInfo
+ GI/WebKit2WebExtension/Objects/WebExtension.hs view
@@ -0,0 +1,155 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.WebExtension+    ( ++-- * Exported types+    WebExtension(..)                        ,+    WebExtensionK                           ,+    toWebExtension                          ,+    noWebExtension                          ,+++ -- * Methods+-- ** webExtensionGetPage+    webExtensionGetPage                     ,+++++ -- * Signals+-- ** PageCreated+    WebExtensionPageCreatedCallback         ,+    WebExtensionPageCreatedCallbackC        ,+    WebExtensionPageCreatedSignalInfo       ,+    afterWebExtensionPageCreated            ,+    mkWebExtensionPageCreatedCallback       ,+    noWebExtensionPageCreatedCallback       ,+    onWebExtensionPageCreated               ,+    webExtensionPageCreatedCallbackWrapper  ,+    webExtensionPageCreatedClosure          ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype WebExtension = WebExtension (ForeignPtr WebExtension)+foreign import ccall "webkit_web_extension_get_type"+    c_webkit_web_extension_get_type :: IO GType++type instance ParentTypes WebExtension = WebExtensionParentTypes+type WebExtensionParentTypes = '[GObject.Object]++instance GObject WebExtension where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_web_extension_get_type+    ++class GObject o => WebExtensionK o+instance (GObject o, IsDescendantOf WebExtension o) => WebExtensionK o++toWebExtension :: WebExtensionK o => o -> IO WebExtension+toWebExtension = unsafeCastTo WebExtension++noWebExtension :: Maybe WebExtension+noWebExtension = Nothing++-- signal WebExtension::page-created+type WebExtensionPageCreatedCallback =+    WebPage ->+    IO ()++noWebExtensionPageCreatedCallback :: Maybe WebExtensionPageCreatedCallback+noWebExtensionPageCreatedCallback = Nothing++type WebExtensionPageCreatedCallbackC =+    Ptr () ->                               -- object+    Ptr WebPage ->+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebExtensionPageCreatedCallback :: WebExtensionPageCreatedCallbackC -> IO (FunPtr WebExtensionPageCreatedCallbackC)++webExtensionPageCreatedClosure :: WebExtensionPageCreatedCallback -> IO Closure+webExtensionPageCreatedClosure cb = newCClosure =<< mkWebExtensionPageCreatedCallback wrapped+    where wrapped = webExtensionPageCreatedCallbackWrapper cb++webExtensionPageCreatedCallbackWrapper ::+    WebExtensionPageCreatedCallback ->+    Ptr () ->+    Ptr WebPage ->+    Ptr () ->+    IO ()+webExtensionPageCreatedCallbackWrapper _cb _ web_page _ = do+    web_page' <- (newObject WebPage) web_page+    _cb  web_page'++onWebExtensionPageCreated :: (GObject a, MonadIO m) => a -> WebExtensionPageCreatedCallback -> m SignalHandlerId+onWebExtensionPageCreated obj cb = liftIO $ connectWebExtensionPageCreated obj cb SignalConnectBefore+afterWebExtensionPageCreated :: (GObject a, MonadIO m) => a -> WebExtensionPageCreatedCallback -> m SignalHandlerId+afterWebExtensionPageCreated obj cb = connectWebExtensionPageCreated obj cb SignalConnectAfter++connectWebExtensionPageCreated :: (GObject a, MonadIO m) =>+                                  a -> WebExtensionPageCreatedCallback -> SignalConnectMode -> m SignalHandlerId+connectWebExtensionPageCreated obj cb after = liftIO $ do+    cb' <- mkWebExtensionPageCreatedCallback (webExtensionPageCreatedCallbackWrapper cb)+    connectSignalFunPtr obj "page-created" cb' after++type instance AttributeList WebExtension = WebExtensionAttributeList+type WebExtensionAttributeList = ('[ ] :: [(Symbol, *)])++data WebExtensionPageCreatedSignalInfo+instance SignalInfo WebExtensionPageCreatedSignalInfo where+    type HaskellCallbackType WebExtensionPageCreatedSignalInfo = WebExtensionPageCreatedCallback+    connectSignal _ = connectWebExtensionPageCreated++type instance SignalList WebExtension = WebExtensionSignalList+type WebExtensionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("page-created", WebExtensionPageCreatedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method WebExtension::get_page+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "WebPage"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_extension_get_page" webkit_web_extension_get_page :: +    Ptr WebExtension ->                     -- _obj : TInterface "WebKit2WebExtension" "WebExtension"+    Word64 ->                               -- page_id : TBasicType TUInt64+    IO (Ptr WebPage)+++webExtensionGetPage ::+    (MonadIO m, WebExtensionK a) =>+    a ->                                    -- _obj+    Word64 ->                               -- page_id+    m WebPage+webExtensionGetPage _obj page_id = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_extension_get_page _obj' page_id+    checkUnexpectedReturnNULL "webkit_web_extension_get_page" result+    result' <- (newObject WebPage) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/WebExtension.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.WebExtension where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype WebExtension = WebExtension (ForeignPtr WebExtension)+instance GObject WebExtension where+class GObject o => WebExtensionK o+instance (GObject o, IsDescendantOf WebExtension o) => WebExtensionK o+data WebExtensionPageCreatedSignalInfo
+ GI/WebKit2WebExtension/Objects/WebHitTestResult.hs view
@@ -0,0 +1,121 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.WebHitTestResult+    ( ++-- * Exported types+    WebHitTestResult(..)                    ,+    WebHitTestResultK                       ,+    toWebHitTestResult                      ,+    noWebHitTestResult                      ,+++ -- * Methods+-- ** webHitTestResultGetNode+    webHitTestResultGetNode                 ,+++++ -- * Properties+-- ** Node+    WebHitTestResultNodePropertyInfo        ,+    constructWebHitTestResultNode           ,+    getWebHitTestResultNode                 ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype WebHitTestResult = WebHitTestResult (ForeignPtr WebHitTestResult)+foreign import ccall "webkit_web_hit_test_result_get_type"+    c_webkit_web_hit_test_result_get_type :: IO GType++type instance ParentTypes WebHitTestResult = WebHitTestResultParentTypes+type WebHitTestResultParentTypes = '[HitTestResult, GObject.Object]++instance GObject WebHitTestResult where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_web_hit_test_result_get_type+    ++class GObject o => WebHitTestResultK o+instance (GObject o, IsDescendantOf WebHitTestResult o) => WebHitTestResultK o++toWebHitTestResult :: WebHitTestResultK o => o -> IO WebHitTestResult+toWebHitTestResult = unsafeCastTo WebHitTestResult++noWebHitTestResult :: Maybe WebHitTestResult+noWebHitTestResult = Nothing++-- VVV Prop "node"+   -- Type: TInterface "WebKit2WebExtension" "DOMNode"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getWebHitTestResultNode :: (MonadIO m, WebHitTestResultK o) => o -> m DOMNode+getWebHitTestResultNode obj = liftIO $ getObjectPropertyObject obj "node" DOMNode++constructWebHitTestResultNode :: (DOMNodeK a) => a -> IO ([Char], GValue)+constructWebHitTestResultNode val = constructObjectPropertyObject "node" val++data WebHitTestResultNodePropertyInfo+instance AttrInfo WebHitTestResultNodePropertyInfo where+    type AttrAllowedOps WebHitTestResultNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WebHitTestResultNodePropertyInfo = DOMNodeK+    type AttrBaseTypeConstraint WebHitTestResultNodePropertyInfo = WebHitTestResultK+    type AttrGetType WebHitTestResultNodePropertyInfo = DOMNode+    type AttrLabel WebHitTestResultNodePropertyInfo = "WebHitTestResult::node"+    attrGet _ = getWebHitTestResultNode+    attrSet _ = undefined+    attrConstruct _ = constructWebHitTestResultNode++type instance AttributeList WebHitTestResult = WebHitTestResultAttributeList+type WebHitTestResultAttributeList = ('[ '("context", HitTestResultContextPropertyInfo), '("image-uri", HitTestResultImageUriPropertyInfo), '("link-label", HitTestResultLinkLabelPropertyInfo), '("link-title", HitTestResultLinkTitlePropertyInfo), '("link-uri", HitTestResultLinkUriPropertyInfo), '("media-uri", HitTestResultMediaUriPropertyInfo), '("node", WebHitTestResultNodePropertyInfo)] :: [(Symbol, *)])++type instance SignalList WebHitTestResult = WebHitTestResultSignalList+type WebHitTestResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method WebHitTestResult::get_node+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebHitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebHitTestResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMNode"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_hit_test_result_get_node" webkit_web_hit_test_result_get_node :: +    Ptr WebHitTestResult ->                 -- _obj : TInterface "WebKit2WebExtension" "WebHitTestResult"+    IO (Ptr DOMNode)+++webHitTestResultGetNode ::+    (MonadIO m, WebHitTestResultK a) =>+    a ->                                    -- _obj+    m DOMNode+webHitTestResultGetNode _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_hit_test_result_get_node _obj'+    checkUnexpectedReturnNULL "webkit_web_hit_test_result_get_node" result+    result' <- (newObject DOMNode) result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/WebHitTestResult.hs-boot view
@@ -0,0 +1,14 @@+module GI.WebKit2WebExtension.Objects.WebHitTestResult where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype WebHitTestResult = WebHitTestResult (ForeignPtr WebHitTestResult)+instance GObject WebHitTestResult where+class GObject o => WebHitTestResultK o+instance (GObject o, IsDescendantOf WebHitTestResult o) => WebHitTestResultK o+data WebHitTestResultNodePropertyInfo
+ GI/WebKit2WebExtension/Objects/WebPage.hs view
@@ -0,0 +1,393 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Objects.WebPage+    ( ++-- * Exported types+    WebPage(..)                             ,+    WebPageK                                ,+    toWebPage                               ,+    noWebPage                               ,+++ -- * Methods+-- ** webPageGetDomDocument+    webPageGetDomDocument                   ,+++-- ** webPageGetId+    webPageGetId                            ,+++-- ** webPageGetMainFrame+    webPageGetMainFrame                     ,+++-- ** webPageGetUri+    webPageGetUri                           ,+++++ -- * Properties+-- ** Uri+    WebPageUriPropertyInfo                  ,+    getWebPageUri                           ,+++++ -- * Signals+-- ** ContextMenu+    WebPageContextMenuCallback              ,+    WebPageContextMenuCallbackC             ,+    WebPageContextMenuSignalInfo            ,+    afterWebPageContextMenu                 ,+    mkWebPageContextMenuCallback            ,+    noWebPageContextMenuCallback            ,+    onWebPageContextMenu                    ,+    webPageContextMenuCallbackWrapper       ,+    webPageContextMenuClosure               ,+++-- ** DocumentLoaded+    WebPageDocumentLoadedCallback           ,+    WebPageDocumentLoadedCallbackC          ,+    WebPageDocumentLoadedSignalInfo         ,+    afterWebPageDocumentLoaded              ,+    mkWebPageDocumentLoadedCallback         ,+    noWebPageDocumentLoadedCallback         ,+    onWebPageDocumentLoaded                 ,+    webPageDocumentLoadedCallbackWrapper    ,+    webPageDocumentLoadedClosure            ,+++-- ** SendRequest+    WebPageSendRequestCallback              ,+    WebPageSendRequestCallbackC             ,+    WebPageSendRequestSignalInfo            ,+    afterWebPageSendRequest                 ,+    mkWebPageSendRequestCallback            ,+    noWebPageSendRequestCallback            ,+    onWebPageSendRequest                    ,+    webPageSendRequestCallbackWrapper       ,+    webPageSendRequestClosure               ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype WebPage = WebPage (ForeignPtr WebPage)+foreign import ccall "webkit_web_page_get_type"+    c_webkit_web_page_get_type :: IO GType++type instance ParentTypes WebPage = WebPageParentTypes+type WebPageParentTypes = '[GObject.Object]++instance GObject WebPage where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_webkit_web_page_get_type+    ++class GObject o => WebPageK o+instance (GObject o, IsDescendantOf WebPage o) => WebPageK o++toWebPage :: WebPageK o => o -> IO WebPage+toWebPage = unsafeCastTo WebPage++noWebPage :: Maybe WebPage+noWebPage = Nothing++-- signal WebPage::context-menu+type WebPageContextMenuCallback =+    ContextMenu ->+    WebHitTestResult ->+    IO Bool++noWebPageContextMenuCallback :: Maybe WebPageContextMenuCallback+noWebPageContextMenuCallback = Nothing++type WebPageContextMenuCallbackC =+    Ptr () ->                               -- object+    Ptr ContextMenu ->+    Ptr WebHitTestResult ->+    Ptr () ->                               -- user_data+    IO CInt++foreign import ccall "wrapper"+    mkWebPageContextMenuCallback :: WebPageContextMenuCallbackC -> IO (FunPtr WebPageContextMenuCallbackC)++webPageContextMenuClosure :: WebPageContextMenuCallback -> IO Closure+webPageContextMenuClosure cb = newCClosure =<< mkWebPageContextMenuCallback wrapped+    where wrapped = webPageContextMenuCallbackWrapper cb++webPageContextMenuCallbackWrapper ::+    WebPageContextMenuCallback ->+    Ptr () ->+    Ptr ContextMenu ->+    Ptr WebHitTestResult ->+    Ptr () ->+    IO CInt+webPageContextMenuCallbackWrapper _cb _ context_menu hit_test_result _ = do+    context_menu' <- (newObject ContextMenu) context_menu+    hit_test_result' <- (newObject WebHitTestResult) hit_test_result+    result <- _cb  context_menu' hit_test_result'+    let result' = (fromIntegral . fromEnum) result+    return result'++onWebPageContextMenu :: (GObject a, MonadIO m) => a -> WebPageContextMenuCallback -> m SignalHandlerId+onWebPageContextMenu obj cb = liftIO $ connectWebPageContextMenu obj cb SignalConnectBefore+afterWebPageContextMenu :: (GObject a, MonadIO m) => a -> WebPageContextMenuCallback -> m SignalHandlerId+afterWebPageContextMenu obj cb = connectWebPageContextMenu obj cb SignalConnectAfter++connectWebPageContextMenu :: (GObject a, MonadIO m) =>+                             a -> WebPageContextMenuCallback -> SignalConnectMode -> m SignalHandlerId+connectWebPageContextMenu obj cb after = liftIO $ do+    cb' <- mkWebPageContextMenuCallback (webPageContextMenuCallbackWrapper cb)+    connectSignalFunPtr obj "context-menu" cb' after++-- signal WebPage::document-loaded+type WebPageDocumentLoadedCallback =+    IO ()++noWebPageDocumentLoadedCallback :: Maybe WebPageDocumentLoadedCallback+noWebPageDocumentLoadedCallback = Nothing++type WebPageDocumentLoadedCallbackC =+    Ptr () ->                               -- object+    Ptr () ->                               -- user_data+    IO ()++foreign import ccall "wrapper"+    mkWebPageDocumentLoadedCallback :: WebPageDocumentLoadedCallbackC -> IO (FunPtr WebPageDocumentLoadedCallbackC)++webPageDocumentLoadedClosure :: WebPageDocumentLoadedCallback -> IO Closure+webPageDocumentLoadedClosure cb = newCClosure =<< mkWebPageDocumentLoadedCallback wrapped+    where wrapped = webPageDocumentLoadedCallbackWrapper cb++webPageDocumentLoadedCallbackWrapper ::+    WebPageDocumentLoadedCallback ->+    Ptr () ->+    Ptr () ->+    IO ()+webPageDocumentLoadedCallbackWrapper _cb _ _ = do+    _cb ++onWebPageDocumentLoaded :: (GObject a, MonadIO m) => a -> WebPageDocumentLoadedCallback -> m SignalHandlerId+onWebPageDocumentLoaded obj cb = liftIO $ connectWebPageDocumentLoaded obj cb SignalConnectBefore+afterWebPageDocumentLoaded :: (GObject a, MonadIO m) => a -> WebPageDocumentLoadedCallback -> m SignalHandlerId+afterWebPageDocumentLoaded obj cb = connectWebPageDocumentLoaded obj cb SignalConnectAfter++connectWebPageDocumentLoaded :: (GObject a, MonadIO m) =>+                                a -> WebPageDocumentLoadedCallback -> SignalConnectMode -> m SignalHandlerId+connectWebPageDocumentLoaded obj cb after = liftIO $ do+    cb' <- mkWebPageDocumentLoadedCallback (webPageDocumentLoadedCallbackWrapper cb)+    connectSignalFunPtr obj "document-loaded" cb' after++-- signal WebPage::send-request+type WebPageSendRequestCallback =+    URIRequest ->+    URIResponse ->+    IO Bool++noWebPageSendRequestCallback :: Maybe WebPageSendRequestCallback+noWebPageSendRequestCallback = Nothing++type WebPageSendRequestCallbackC =+    Ptr () ->                               -- object+    Ptr URIRequest ->+    Ptr URIResponse ->+    Ptr () ->                               -- user_data+    IO CInt++foreign import ccall "wrapper"+    mkWebPageSendRequestCallback :: WebPageSendRequestCallbackC -> IO (FunPtr WebPageSendRequestCallbackC)++webPageSendRequestClosure :: WebPageSendRequestCallback -> IO Closure+webPageSendRequestClosure cb = newCClosure =<< mkWebPageSendRequestCallback wrapped+    where wrapped = webPageSendRequestCallbackWrapper cb++webPageSendRequestCallbackWrapper ::+    WebPageSendRequestCallback ->+    Ptr () ->+    Ptr URIRequest ->+    Ptr URIResponse ->+    Ptr () ->+    IO CInt+webPageSendRequestCallbackWrapper _cb _ request redirected_response _ = do+    request' <- (newObject URIRequest) request+    redirected_response' <- (newObject URIResponse) redirected_response+    result <- _cb  request' redirected_response'+    let result' = (fromIntegral . fromEnum) result+    return result'++onWebPageSendRequest :: (GObject a, MonadIO m) => a -> WebPageSendRequestCallback -> m SignalHandlerId+onWebPageSendRequest obj cb = liftIO $ connectWebPageSendRequest obj cb SignalConnectBefore+afterWebPageSendRequest :: (GObject a, MonadIO m) => a -> WebPageSendRequestCallback -> m SignalHandlerId+afterWebPageSendRequest obj cb = connectWebPageSendRequest obj cb SignalConnectAfter++connectWebPageSendRequest :: (GObject a, MonadIO m) =>+                             a -> WebPageSendRequestCallback -> SignalConnectMode -> m SignalHandlerId+connectWebPageSendRequest obj cb after = liftIO $ do+    cb' <- mkWebPageSendRequestCallback (webPageSendRequestCallbackWrapper cb)+    connectSignalFunPtr obj "send-request" cb' after++-- VVV Prop "uri"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable]++getWebPageUri :: (MonadIO m, WebPageK o) => o -> m T.Text+getWebPageUri obj = liftIO $ getObjectPropertyString obj "uri"++data WebPageUriPropertyInfo+instance AttrInfo WebPageUriPropertyInfo where+    type AttrAllowedOps WebPageUriPropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint WebPageUriPropertyInfo = (~) ()+    type AttrBaseTypeConstraint WebPageUriPropertyInfo = WebPageK+    type AttrGetType WebPageUriPropertyInfo = T.Text+    type AttrLabel WebPageUriPropertyInfo = "WebPage::uri"+    attrGet _ = getWebPageUri+    attrSet _ = undefined+    attrConstruct _ = undefined++type instance AttributeList WebPage = WebPageAttributeList+type WebPageAttributeList = ('[ '("uri", WebPageUriPropertyInfo)] :: [(Symbol, *)])++data WebPageContextMenuSignalInfo+instance SignalInfo WebPageContextMenuSignalInfo where+    type HaskellCallbackType WebPageContextMenuSignalInfo = WebPageContextMenuCallback+    connectSignal _ = connectWebPageContextMenu++data WebPageDocumentLoadedSignalInfo+instance SignalInfo WebPageDocumentLoadedSignalInfo where+    type HaskellCallbackType WebPageDocumentLoadedSignalInfo = WebPageDocumentLoadedCallback+    connectSignal _ = connectWebPageDocumentLoaded++data WebPageSendRequestSignalInfo+instance SignalInfo WebPageSendRequestSignalInfo where+    type HaskellCallbackType WebPageSendRequestSignalInfo = WebPageSendRequestCallback+    connectSignal _ = connectWebPageSendRequest++type instance SignalList WebPage = WebPageSignalList+type WebPageSignalList = ('[ '("context-menu", WebPageContextMenuSignalInfo), '("document-loaded", WebPageDocumentLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("send-request", WebPageSendRequestSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])++-- method WebPage::get_dom_document+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "DOMDocument"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_page_get_dom_document" webkit_web_page_get_dom_document :: +    Ptr WebPage ->                          -- _obj : TInterface "WebKit2WebExtension" "WebPage"+    IO (Ptr DOMDocument)+++webPageGetDomDocument ::+    (MonadIO m, WebPageK a) =>+    a ->                                    -- _obj+    m DOMDocument+webPageGetDomDocument _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_page_get_dom_document _obj'+    checkUnexpectedReturnNULL "webkit_web_page_get_dom_document" result+    result' <- (newObject DOMDocument) result+    touchManagedPtr _obj+    return result'++-- method WebPage::get_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", 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_page_get_id" webkit_web_page_get_id :: +    Ptr WebPage ->                          -- _obj : TInterface "WebKit2WebExtension" "WebPage"+    IO Word64+++webPageGetId ::+    (MonadIO m, WebPageK a) =>+    a ->                                    -- _obj+    m Word64+webPageGetId _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_page_get_id _obj'+    touchManagedPtr _obj+    return result++-- method WebPage::get_main_frame+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "WebKit2WebExtension" "Frame"+-- throws : False+-- Skip return : False++foreign import ccall "webkit_web_page_get_main_frame" webkit_web_page_get_main_frame :: +    Ptr WebPage ->                          -- _obj : TInterface "WebKit2WebExtension" "WebPage"+    IO (Ptr Frame)+++webPageGetMainFrame ::+    (MonadIO m, WebPageK a) =>+    a ->                                    -- _obj+    m Frame+webPageGetMainFrame _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_page_get_main_frame _obj'+    checkUnexpectedReturnNULL "webkit_web_page_get_main_frame" result+    result' <- (newObject Frame) result+    touchManagedPtr _obj+    return result'++-- method WebPage::get_uri+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit2WebExtension" "WebPage", 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_page_get_uri" webkit_web_page_get_uri :: +    Ptr WebPage ->                          -- _obj : TInterface "WebKit2WebExtension" "WebPage"+    IO CString+++webPageGetUri ::+    (MonadIO m, WebPageK a) =>+    a ->                                    -- _obj+    m T.Text+webPageGetUri _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- webkit_web_page_get_uri _obj'+    checkUnexpectedReturnNULL "webkit_web_page_get_uri" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++
+ GI/WebKit2WebExtension/Objects/WebPage.hs-boot view
@@ -0,0 +1,17 @@+module GI.WebKit2WebExtension.Objects.WebPage where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype WebPage = WebPage (ForeignPtr WebPage)+instance GObject WebPage where+class GObject o => WebPageK o+instance (GObject o, IsDescendantOf WebPage o) => WebPageK o+data WebPageUriPropertyInfo+data WebPageContextMenuSignalInfo+data WebPageDocumentLoadedSignalInfo+data WebPageSendRequestSignalInfo
+ GI/WebKit2WebExtension/Structs.hs view
@@ -0,0 +1,28 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Structs+    (     module GI.WebKit2WebExtension.Structs.ContextMenuItem_,+    module GI.WebKit2WebExtension.Structs.ContextMenu_,+++    ) where++import GI.WebKit2WebExtension.Structs.ContextMenuItem_+import GI.WebKit2WebExtension.Structs.ContextMenu_++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks++
+ GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs view
@@ -0,0 +1,47 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Structs.ContextMenuItem_+    ( ++-- * Exported types+    ContextMenuItem_(..)                    ,+    noContextMenuItem_                      ,+++ -- * Properties+-- ** Parent+    contextMenuItem_ReadParent              ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype ContextMenuItem_ = ContextMenuItem_ (ForeignPtr ContextMenuItem_)+noContextMenuItem_ :: Maybe ContextMenuItem_+noContextMenuItem_ = Nothing++contextMenuItem_ReadParent :: ContextMenuItem_ -> IO GObject.InitiallyUnowned+contextMenuItem_ReadParent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr GObject.InitiallyUnowned)+    val' <- (newObject GObject.InitiallyUnowned) val+    return val'+++
+ GI/WebKit2WebExtension/Structs/ContextMenuItem_.hs-boot view
@@ -0,0 +1,10 @@+module GI.WebKit2WebExtension.Structs.ContextMenuItem_ where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ContextMenuItem_ = ContextMenuItem_ (ForeignPtr ContextMenuItem_)
+ GI/WebKit2WebExtension/Structs/ContextMenu_.hs view
@@ -0,0 +1,47 @@++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.WebKit2WebExtension.Structs.ContextMenu_+    ( ++-- * Exported types+    ContextMenu_(..)                        ,+    noContextMenu_                          ,+++ -- * Properties+-- ** Parent+    contextMenu_ReadParent                  ,+++++    ) where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++import GI.WebKit2WebExtension.Types+import GI.WebKit2WebExtension.Callbacks+import qualified GI.GObject as GObject++newtype ContextMenu_ = ContextMenu_ (ForeignPtr ContextMenu_)+noContextMenu_ :: Maybe ContextMenu_+noContextMenu_ = Nothing++contextMenu_ReadParent :: ContextMenu_ -> IO GObject.Object+contextMenu_ReadParent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr GObject.Object)+    val' <- (newObject GObject.Object) val+    return val'+++
+ GI/WebKit2WebExtension/Structs/ContextMenu_.hs-boot view
@@ -0,0 +1,10 @@+module GI.WebKit2WebExtension.Structs.ContextMenu_ where++import Prelude ()+import Data.GI.Base.ShortPrelude++import qualified Data.Text as T+import qualified Data.ByteString.Char8 as B+import qualified Data.Map as Map++newtype ContextMenu_ = ContextMenu_ (ForeignPtr ContextMenu_)
+ GI/WebKit2WebExtension/Types.hs view
@@ -0,0 +1,234 @@+module GI.WebKit2WebExtension.Types+    (     module GI.WebKit2WebExtension.Interfaces.DOMEventTarget,+    module GI.WebKit2WebExtension.Interfaces.DOMNodeFilter,+    module GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver,+    module GI.WebKit2WebExtension.Objects.ContextMenu,+    module GI.WebKit2WebExtension.Objects.ContextMenuItem,+    module GI.WebKit2WebExtension.Objects.DOMAttr,+    module GI.WebKit2WebExtension.Objects.DOMBlob,+    module GI.WebKit2WebExtension.Objects.DOMCDATASection,+    module GI.WebKit2WebExtension.Objects.DOMCSSRule,+    module GI.WebKit2WebExtension.Objects.DOMCSSRuleList,+    module GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration,+    module GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet,+    module GI.WebKit2WebExtension.Objects.DOMCSSValue,+    module GI.WebKit2WebExtension.Objects.DOMCharacterData,+    module GI.WebKit2WebExtension.Objects.DOMComment,+    module GI.WebKit2WebExtension.Objects.DOMDOMImplementation,+    module GI.WebKit2WebExtension.Objects.DOMDOMWindow,+    module GI.WebKit2WebExtension.Objects.DOMDocument,+    module GI.WebKit2WebExtension.Objects.DOMDocumentFragment,+    module GI.WebKit2WebExtension.Objects.DOMDocumentType,+    module GI.WebKit2WebExtension.Objects.DOMElement,+    module GI.WebKit2WebExtension.Objects.DOMEntityReference,+    module GI.WebKit2WebExtension.Objects.DOMEvent,+    module GI.WebKit2WebExtension.Objects.DOMFile,+    module GI.WebKit2WebExtension.Objects.DOMFileList,+    module GI.WebKit2WebExtension.Objects.DOMHTMLAnchorElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLAppletElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLAreaElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLBRElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLBaseElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLBaseFontElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLButtonElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLCanvasElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLCollection,+    module GI.WebKit2WebExtension.Objects.DOMHTMLDListElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLDirectoryElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLDivElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLDocument,+    module GI.WebKit2WebExtension.Objects.DOMHTMLElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLEmbedElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFieldSetElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFontElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFormElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFrameElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLFrameSetElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLHRElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLHeadingElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLHtmlElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLIFrameElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLImageElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLInputElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLLIElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLLabelElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLLegendElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLLinkElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLMapElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLMarqueeElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLMenuElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLMetaElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLModElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLOListElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLObjectElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLOptGroupElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLOptionElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLOptionsCollection,+    module GI.WebKit2WebExtension.Objects.DOMHTMLParagraphElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLParamElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLPreElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLQuoteElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLSelectElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLStyleElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableCaptionElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableCellElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableColElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableRowElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTableSectionElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTextAreaElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLTitleElement,+    module GI.WebKit2WebExtension.Objects.DOMHTMLUListElement,+    module GI.WebKit2WebExtension.Objects.DOMKeyboardEvent,+    module GI.WebKit2WebExtension.Objects.DOMMediaList,+    module GI.WebKit2WebExtension.Objects.DOMMouseEvent,+    module GI.WebKit2WebExtension.Objects.DOMNamedNodeMap,+    module GI.WebKit2WebExtension.Objects.DOMNode,+    module GI.WebKit2WebExtension.Objects.DOMNodeIterator,+    module GI.WebKit2WebExtension.Objects.DOMNodeList,+    module GI.WebKit2WebExtension.Objects.DOMObject,+    module GI.WebKit2WebExtension.Objects.DOMProcessingInstruction,+    module GI.WebKit2WebExtension.Objects.DOMRange,+    module GI.WebKit2WebExtension.Objects.DOMStyleSheet,+    module GI.WebKit2WebExtension.Objects.DOMStyleSheetList,+    module GI.WebKit2WebExtension.Objects.DOMText,+    module GI.WebKit2WebExtension.Objects.DOMTreeWalker,+    module GI.WebKit2WebExtension.Objects.DOMUIEvent,+    module GI.WebKit2WebExtension.Objects.DOMWheelEvent,+    module GI.WebKit2WebExtension.Objects.DOMXPathExpression,+    module GI.WebKit2WebExtension.Objects.DOMXPathResult,+    module GI.WebKit2WebExtension.Objects.Frame,+    module GI.WebKit2WebExtension.Objects.HitTestResult,+    module GI.WebKit2WebExtension.Objects.ScriptWorld,+    module GI.WebKit2WebExtension.Objects.URIRequest,+    module GI.WebKit2WebExtension.Objects.URIResponse,+    module GI.WebKit2WebExtension.Objects.WebExtension,+    module GI.WebKit2WebExtension.Objects.WebHitTestResult,+    module GI.WebKit2WebExtension.Objects.WebPage,+    module GI.WebKit2WebExtension.Structs.ContextMenuItem_,+    module GI.WebKit2WebExtension.Structs.ContextMenu_,+    module GI.WebKit2WebExtension.Enums     ,+    module GI.WebKit2WebExtension.Flags     ,+++    ) where+++import {-# SOURCE #-} GI.WebKit2WebExtension.Interfaces.DOMEventTarget+import {-# SOURCE #-} GI.WebKit2WebExtension.Interfaces.DOMNodeFilter+import {-# SOURCE #-} GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.ContextMenu+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.ContextMenuItem+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMAttr+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMBlob+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMCDATASection+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMCSSRule+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMCSSRuleList+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMCSSValue+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMCharacterData+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMComment+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMDOMImplementation+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMDOMWindow+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMDocument+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMDocumentFragment+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMDocumentType+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMEntityReference+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMEvent+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMFile+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMFileList+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLAnchorElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLAppletElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLAreaElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLBRElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLBaseElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLBaseFontElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLButtonElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLCanvasElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLCollection+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLDListElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLDirectoryElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLDivElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLDocument+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLEmbedElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLFieldSetElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLFontElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLFormElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLFrameElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLFrameSetElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLHRElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLHeadingElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLHtmlElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLIFrameElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLImageElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLInputElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLLIElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLLabelElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLLegendElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLLinkElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLMapElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLMarqueeElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLMenuElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLMetaElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLModElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLOListElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLObjectElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLOptGroupElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLOptionElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLOptionsCollection+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLParagraphElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLParamElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLPreElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLQuoteElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLSelectElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLStyleElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLTableCaptionElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLTableCellElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLTableColElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLTableElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLTableRowElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLTableSectionElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLTextAreaElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLTitleElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMHTMLUListElement+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMKeyboardEvent+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMMediaList+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMMouseEvent+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMNamedNodeMap+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMNode+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMNodeIterator+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMNodeList+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMObject+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMProcessingInstruction+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMRange+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMStyleSheet+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMStyleSheetList+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMText+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMTreeWalker+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMUIEvent+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMWheelEvent+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMXPathExpression+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.DOMXPathResult+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.Frame+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.HitTestResult+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.ScriptWorld+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.URIRequest+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.URIResponse+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebExtension+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebHitTestResult+import {-# SOURCE #-} GI.WebKit2WebExtension.Objects.WebPage+import {-# SOURCE #-} GI.WebKit2WebExtension.Structs.ContextMenuItem_+import {-# SOURCE #-} GI.WebKit2WebExtension.Structs.ContextMenu_++import GI.WebKit2WebExtension.Enums+import GI.WebKit2WebExtension.Flags+
+ LICENSE view
@@ -0,0 +1,456 @@+                  GNU LESSER GENERAL PUBLIC LICENSE+                       Version 2.1, February 1999++ Copyright (C) 1991, 1999 Free Software Foundation, Inc.+ 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA+ Everyone is permitted to copy and distribute verbatim copies+ of this license document, but changing it is not allowed.++[This is the first released version of the Lesser GPL.  It also counts+ as the successor of the GNU Library Public License, version 2, hence+ the version number 2.1.]++                            Preamble++  The licenses for most software are designed to take away your+freedom to share and change it.  By contrast, the GNU General Public+Licenses are intended to guarantee your freedom to share and change+free software--to make sure the software is free for all its users.++  This license, the Lesser General Public License, applies to some+specially designated software packages--typically libraries--of the+Free Software Foundation and other authors who decide to use it.  You+can use it too, but we suggest you first think carefully about whether+this license or the ordinary General Public License is the better+strategy to use in any particular case, based on the explanations below.++  When we speak of free software, we are referring to freedom of use,+not price.  Our General Public Licenses are designed to make sure that+you have the freedom to distribute copies of free software (and charge+for this service if you wish); that you receive source code or can get+it if you want it; that you can change the software and use pieces of+it in new free programs; and that you are informed that you can do+these things.++  To protect your rights, we need to make restrictions that forbid+distributors to deny you these rights or to ask you to surrender these+rights.  These restrictions translate to certain responsibilities for+you if you distribute copies of the library or if you modify it.++  For example, if you distribute copies of the library, whether gratis+or for a fee, you must give the recipients all the rights that we gave+you.  You must make sure that they, too, receive or can get the source+code.  If you link other code with the library, you must provide+complete object files to the recipients, so that they can relink them+with the library after making changes to the library and recompiling+it.  And you must show them these terms so they know their rights.++  We protect your rights with a two-step method: (1) we copyright the+library, and (2) we offer you this license, which gives you legal+permission to copy, distribute and/or modify the library.++  To protect each distributor, we want to make it very clear that+there is no warranty for the free library.  Also, if the library is+modified by someone else and passed on, the recipients should know+that what they have is not the original version, so that the original+author's reputation will not be affected by problems that might be+introduced by others.++  Finally, software patents pose a constant threat to the existence of+any free program.  We wish to make sure that a company cannot+effectively restrict the users of a free program by obtaining a+restrictive license from a patent holder.  Therefore, we insist that+any patent license obtained for a version of the library must be+consistent with the full freedom of use specified in this license.++  Most GNU software, including some libraries, is covered by the+ordinary GNU General Public License.  This license, the GNU Lesser+General Public License, applies to certain designated libraries, and+is quite different from the ordinary General Public License.  We use+this license for certain libraries in order to permit linking those+libraries into non-free programs.++  When a program is linked with a library, whether statically or using+a shared library, the combination of the two is legally speaking a+combined work, a derivative of the original library.  The ordinary+General Public License therefore permits such linking only if the+entire combination fits its criteria of freedom.  The Lesser General+Public License permits more lax criteria for linking other code with+the library.++  We call this license the "Lesser" General Public License because it+does Less to protect the user's freedom than the ordinary General+Public License.  It also provides other free software developers Less+of an advantage over competing non-free programs.  These disadvantages+are the reason we use the ordinary General Public License for many+libraries.  However, the Lesser license provides advantages in certain+special circumstances.++  For example, on rare occasions, there may be a special need to+encourage the widest possible use of a certain library, so that it becomes+a de-facto standard.  To achieve this, non-free programs must be+allowed to use the library.  A more frequent case is that a free+library does the same job as widely used non-free libraries.  In this+case, there is little to gain by limiting the free library to free+software only, so we use the Lesser General Public License.++  In other cases, permission to use a particular library in non-free+programs enables a greater number of people to use a large body of+free software.  For example, permission to use the GNU C Library in+non-free programs enables many more people to use the whole GNU+operating system, as well as its variant, the GNU/Linux operating+system.++  Although the Lesser General Public License is Less protective of the+users' freedom, it does ensure that the user of a program that is+linked with the Library has the freedom and the wherewithal to run+that program using a modified version of the Library.++  The precise terms and conditions for copying, distribution and+modification follow.  Pay close attention to the difference between a+"work based on the library" and a "work that uses the library".  The+former contains code derived from the library, whereas the latter must+be combined with the library in order to run.++                  GNU LESSER GENERAL PUBLIC LICENSE+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION++  0. This License Agreement applies to any software library or other+program which contains a notice placed by the copyright holder or+other authorized party saying it may be distributed under the terms of+this Lesser General Public License (also called "this License").+Each licensee is addressed as "you".++  A "library" means a collection of software functions and/or data+prepared so as to be conveniently linked with application programs+(which use some of those functions and data) to form executables.++  The "Library", below, refers to any such software library or work+which has been distributed under these terms.  A "work based on the+Library" means either the Library or any derivative work under+copyright law: that is to say, a work containing the Library or a+portion of it, either verbatim or with modifications and/or translated+straightforwardly into another language.  (Hereinafter, translation is+included without limitation in the term "modification".)++  "Source code" for a work means the preferred form of the work for+making modifications to it.  For a library, complete source code means+all the source code for all modules it contains, plus any associated+interface definition files, plus the scripts used to control compilation+and installation of the library.++  Activities other than copying, distribution and modification are not+covered by this License; they are outside its scope.  The act of+running a program using the Library is not restricted, and output from+such a program is covered only if its contents constitute a work based+on the Library (independent of the use of the Library in a tool for+writing it).  Whether that is true depends on what the Library does+and what the program that uses the Library does.++  1. You may copy and distribute verbatim copies of the Library's+complete source code as you receive it, in any medium, provided that+you conspicuously and appropriately publish on each copy an+appropriate copyright notice and disclaimer of warranty; keep intact+all the notices that refer to this License and to the absence of any+warranty; and distribute a copy of this License along with the+Library.++  You may charge a fee for the physical act of transferring a copy,+and you may at your option offer warranty protection in exchange for a+fee.++  2. You may modify your copy or copies of the Library or any portion+of it, thus forming a work based on the Library, and copy and+distribute such modifications or work under the terms of Section 1+above, provided that you also meet all of these conditions:++    a) The modified work must itself be a software library.++    b) You must cause the files modified to carry prominent notices+    stating that you changed the files and the date of any change.++    c) You must cause the whole of the work to be licensed at no+    charge to all third parties under the terms of this License.++    d) If a facility in the modified Library refers to a function or a+    table of data to be supplied by an application program that uses+    the facility, other than as an argument passed when the facility+    is invoked, then you must make a good faith effort to ensure that,+    in the event an application does not supply such function or+    table, the facility still operates, and performs whatever part of+    its purpose remains meaningful.++    (For example, a function in a library to compute square roots has+    a purpose that is entirely well-defined independent of the+    application.  Therefore, Subsection 2d requires that any+    application-supplied function or table used by this function must+    be optional: if the application does not supply it, the square+    root function must still compute square roots.)++These requirements apply to the modified work as a whole.  If+identifiable sections of that work are not derived from the Library,+and can be reasonably considered independent and separate works in+themselves, then this License, and its terms, do not apply to those+sections when you distribute them as separate works.  But when you+distribute the same sections as part of a whole which is a work based+on the Library, the distribution of the whole must be on the terms of+this License, whose permissions for other licensees extend to the+entire whole, and thus to each and every part regardless of who wrote+it.++Thus, it is not the intent of this section to claim rights or contest+your rights to work written entirely by you; rather, the intent is to+exercise the right to control the distribution of derivative or+collective works based on the Library.++In addition, mere aggregation of another work not based on the Library+with the Library (or with a work based on the Library) on a volume of+a storage or distribution medium does not bring the other work under+the scope of this License.++  3. You may opt to apply the terms of the ordinary GNU General Public+License instead of this License to a given copy of the Library.  To do+this, you must alter all the notices that refer to this License, so+that they refer to the ordinary GNU General Public License, version 2,+instead of to this License.  (If a newer version than version 2 of the+ordinary GNU General Public License has appeared, then you can specify+that version instead if you wish.)  Do not make any other change in+these notices.++  Once this change is made in a given copy, it is irreversible for+that copy, so the ordinary GNU General Public License applies to all+subsequent copies and derivative works made from that copy.++  This option is useful when you wish to copy part of the code of+the Library into a program that is not a library.++  4. You may copy and distribute the Library (or a portion or+derivative of it, under Section 2) in object code or executable form+under the terms of Sections 1 and 2 above provided that you accompany+it with the complete corresponding machine-readable source code, which+must be distributed under the terms of Sections 1 and 2 above on a+medium customarily used for software interchange.++  If distribution of object code is made by offering access to copy+from a designated place, then offering equivalent access to copy the+source code from the same place satisfies the requirement to+distribute the source code, even though third parties are not+compelled to copy the source along with the object code.++  5. A program that contains no derivative of any portion of the+Library, but is designed to work with the Library by being compiled or+linked with it, is called a "work that uses the Library".  Such a+work, in isolation, is not a derivative work of the Library, and+therefore falls outside the scope of this License.++  However, linking a "work that uses the Library" with the Library+creates an executable that is a derivative of the Library (because it+contains portions of the Library), rather than a "work that uses the+library".  The executable is therefore covered by this License.+Section 6 states terms for distribution of such executables.++  When a "work that uses the Library" uses material from a header file+that is part of the Library, the object code for the work may be a+derivative work of the Library even though the source code is not.+Whether this is true is especially significant if the work can be+linked without the Library, or if the work is itself a library.  The+threshold for this to be true is not precisely defined by law.++  If such an object file uses only numerical parameters, data+structure layouts and accessors, and small macros and small inline+functions (ten lines or less in length), then the use of the object+file is unrestricted, regardless of whether it is legally a derivative+work.  (Executables containing this object code plus portions of the+Library will still fall under Section 6.)++  Otherwise, if the work is a derivative of the Library, you may+distribute the object code for the work under the terms of Section 6.+Any executables containing that work also fall under Section 6,+whether or not they are linked directly with the Library itself.++  6. As an exception to the Sections above, you may also combine or+link a "work that uses the Library" with the Library to produce a+work containing portions of the Library, and distribute that work+under terms of your choice, provided that the terms permit+modification of the work for the customer's own use and reverse+engineering for debugging such modifications.++  You must give prominent notice with each copy of the work that the+Library is used in it and that the Library and its use are covered by+this License.  You must supply a copy of this License.  If the work+during execution displays copyright notices, you must include the+copyright notice for the Library among them, as well as a reference+directing the user to the copy of this License.  Also, you must do one+of these things:++    a) Accompany the work with the complete corresponding+    machine-readable source code for the Library including whatever+    changes were used in the work (which must be distributed under+    Sections 1 and 2 above); and, if the work is an executable linked+    with the Library, with the complete machine-readable "work that+    uses the Library", as object code and/or source code, so that the+    user can modify the Library and then relink to produce a modified+    executable containing the modified Library.  (It is understood+    that the user who changes the contents of definitions files in the+    Library will not necessarily be able to recompile the application+    to use the modified definitions.)++    b) Use a suitable shared library mechanism for linking with the+    Library.  A suitable mechanism is one that (1) uses at run time a+    copy of the library already present on the user's computer system,+    rather than copying library functions into the executable, and (2)+    will operate properly with a modified version of the library, if+    the user installs one, as long as the modified version is+    interface-compatible with the version that the work was made with.++    c) Accompany the work with a written offer, valid for at+    least three years, to give the same user the materials+    specified in Subsection 6a, above, for a charge no more+    than the cost of performing this distribution.++    d) If distribution of the work is made by offering access to copy+    from a designated place, offer equivalent access to copy the above+    specified materials from the same place.++    e) Verify that the user has already received a copy of these+    materials or that you have already sent this user a copy.++  For an executable, the required form of the "work that uses the+Library" must include any data and utility programs needed for+reproducing the executable from it.  However, as a special exception,+the materials to be distributed need not include anything that is+normally distributed (in either source or binary form) with the major+components (compiler, kernel, and so on) of the operating system on+which the executable runs, unless that component itself accompanies+the executable.++  It may happen that this requirement contradicts the license+restrictions of other proprietary libraries that do not normally+accompany the operating system.  Such a contradiction means you cannot+use both them and the Library together in an executable that you+distribute.++  7. You may place library facilities that are a work based on the+Library side-by-side in a single library together with other library+facilities not covered by this License, and distribute such a combined+library, provided that the separate distribution of the work based on+the Library and of the other library facilities is otherwise+permitted, and provided that you do these two things:++    a) Accompany the combined library with a copy of the same work+    based on the Library, uncombined with any other library+    facilities.  This must be distributed under the terms of the+    Sections above.++    b) Give prominent notice with the combined library of the fact+    that part of it is a work based on the Library, and explaining+    where to find the accompanying uncombined form of the same work.++  8. You may not copy, modify, sublicense, link with, or distribute+the Library except as expressly provided under this License.  Any+attempt otherwise to copy, modify, sublicense, link with, or+distribute the Library is void, and will automatically terminate your+rights under this License.  However, parties who have received copies,+or rights, from you under this License will not have their licenses+terminated so long as such parties remain in full compliance.++  9. You are not required to accept this License, since you have not+signed it.  However, nothing else grants you permission to modify or+distribute the Library or its derivative works.  These actions are+prohibited by law if you do not accept this License.  Therefore, by+modifying or distributing the Library (or any work based on the+Library), you indicate your acceptance of this License to do so, and+all its terms and conditions for copying, distributing or modifying+the Library or works based on it.++  10. Each time you redistribute the Library (or any work based on the+Library), the recipient automatically receives a license from the+original licensor to copy, distribute, link with or modify the Library+subject to these terms and conditions.  You may not impose any further+restrictions on the recipients' exercise of the rights granted herein.+You are not responsible for enforcing compliance by third parties with+this License.++  11. If, as a consequence of a court judgment or allegation of patent+infringement or for any other reason (not limited to patent issues),+conditions are imposed on you (whether by court order, agreement or+otherwise) that contradict the conditions of this License, they do not+excuse you from the conditions of this License.  If you cannot+distribute so as to satisfy simultaneously your obligations under this+License and any other pertinent obligations, then as a consequence you+may not distribute the Library at all.  For example, if a patent+license would not permit royalty-free redistribution of the Library by+all those who receive copies directly or indirectly through you, then+the only way you could satisfy both it and this License would be to+refrain entirely from distribution of the Library.++If any portion of this section is held invalid or unenforceable under any+particular circumstance, the balance of the section is intended to apply,+and the section as a whole is intended to apply in other circumstances.++It is not the purpose of this section to induce you to infringe any+patents or other property right claims or to contest validity of any+such claims; this section has the sole purpose of protecting the+integrity of the free software distribution system which is+implemented by public license practices.  Many people have made+generous contributions to the wide range of software distributed+through that system in reliance on consistent application of that+system; it is up to the author/donor to decide if he or she is willing+to distribute software through any other system and a licensee cannot+impose that choice.++This section is intended to make thoroughly clear what is believed to+be a consequence of the rest of this License.++  12. If the distribution and/or use of the Library is restricted in+certain countries either by patents or by copyrighted interfaces, the+original copyright holder who places the Library under this License may add+an explicit geographical distribution limitation excluding those countries,+so that distribution is permitted only in or among countries not thus+excluded.  In such case, this License incorporates the limitation as if+written in the body of this License.++  13. The Free Software Foundation may publish revised and/or new+versions of the Lesser General Public License from time to time.+Such new versions will be similar in spirit to the present version,+but may differ in detail to address new problems or concerns.++Each version is given a distinguishing version number.  If the Library+specifies a version number of this License which applies to it and+"any later version", you have the option of following the terms and+conditions either of that version or of any later version published by+the Free Software Foundation.  If the Library does not specify a+license version number, you may choose any version ever published by+the Free Software Foundation.++  14. If you wish to incorporate parts of the Library into other free+programs whose distribution conditions are incompatible with these,+write to the author to ask for permission.  For software which is+copyrighted by the Free Software Foundation, write to the Free+Software Foundation; we sometimes make exceptions for this.  Our+decision will be guided by the two goals of preserving the free status+of all derivatives of our free software and of promoting the sharing+and reuse of software generally.++                            NO WARRANTY++  15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO+WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.+EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR+OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY+KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR+PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE+LIBRARY IS WITH YOU.  SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME+THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.++  16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN+WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY+AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU+FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR+CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE+LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A+FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF+SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH+DAMAGES.
+ Setup.hs view
@@ -0,0 +1,3 @@+#!/usr/bin/env runhaskell+import Distribution.Simple+main = defaultMain
+ gi-webkit2webextension.cabal view
@@ -0,0 +1,150 @@+-- Autogenerated, do not edit.+name:               gi-webkit2webextension+version:            0.2.8.12+synopsis:           WebKit2WebExtension bindings+description:        Bindings for WebKit2WebExtension, autogenerated by haskell-gi.+homepage:           https://github.com/haskell-gi/haskell-gi+license:            LGPL-2.1+license-file:       LICENSE+author:             Will Thompson, Iñaki García Etxebarria and Jonas Platte+maintainer:         Iñaki García Etxebarria (garetxe@gmail.com)+category:           Bindings+build-type:         Simple+cabal-version:      >=1.10++library+    default-language:   Haskell2010+    default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts+    other-extensions:   PatternSynonyms ScopedTypeVariables, ViewPatterns+    ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations+    exposed-modules:    GI.WebKit2WebExtension.Types+                        GI.WebKit2WebExtension+                        GI.WebKit2WebExtension.Callbacks+                        GI.WebKit2WebExtension.Constants+                        GI.WebKit2WebExtension.Enums+                        GI.WebKit2WebExtension.Flags+                        GI.WebKit2WebExtension.Interfaces+                        GI.WebKit2WebExtension.Interfaces.DOMEventTarget+                        GI.WebKit2WebExtension.Interfaces.DOMNodeFilter+                        GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver+                        GI.WebKit2WebExtension.Objects+                        GI.WebKit2WebExtension.Objects.ContextMenu+                        GI.WebKit2WebExtension.Objects.ContextMenuItem+                        GI.WebKit2WebExtension.Objects.DOMAttr+                        GI.WebKit2WebExtension.Objects.DOMBlob+                        GI.WebKit2WebExtension.Objects.DOMCDATASection+                        GI.WebKit2WebExtension.Objects.DOMCSSRule+                        GI.WebKit2WebExtension.Objects.DOMCSSRuleList+                        GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration+                        GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet+                        GI.WebKit2WebExtension.Objects.DOMCSSValue+                        GI.WebKit2WebExtension.Objects.DOMCharacterData+                        GI.WebKit2WebExtension.Objects.DOMComment+                        GI.WebKit2WebExtension.Objects.DOMDOMImplementation+                        GI.WebKit2WebExtension.Objects.DOMDOMWindow+                        GI.WebKit2WebExtension.Objects.DOMDocument+                        GI.WebKit2WebExtension.Objects.DOMDocumentFragment+                        GI.WebKit2WebExtension.Objects.DOMDocumentType+                        GI.WebKit2WebExtension.Objects.DOMElement+                        GI.WebKit2WebExtension.Objects.DOMEntityReference+                        GI.WebKit2WebExtension.Objects.DOMEvent+                        GI.WebKit2WebExtension.Objects.DOMFile+                        GI.WebKit2WebExtension.Objects.DOMFileList+                        GI.WebKit2WebExtension.Objects.DOMHTMLAnchorElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLAppletElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLAreaElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLBRElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLBaseElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLBaseFontElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLButtonElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLCanvasElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLCollection+                        GI.WebKit2WebExtension.Objects.DOMHTMLDListElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLDirectoryElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLDivElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLDocument+                        GI.WebKit2WebExtension.Objects.DOMHTMLElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLEmbedElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLFieldSetElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLFontElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLFormElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLFrameElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLFrameSetElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLHRElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLHeadingElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLHtmlElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLIFrameElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLImageElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLInputElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLLIElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLLabelElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLLegendElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLLinkElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLMapElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLMarqueeElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLMenuElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLMetaElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLModElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLOListElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLObjectElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLOptGroupElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLOptionElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLOptionsCollection+                        GI.WebKit2WebExtension.Objects.DOMHTMLParagraphElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLParamElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLPreElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLQuoteElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLSelectElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLStyleElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLTableCaptionElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLTableCellElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLTableColElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLTableElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLTableRowElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLTableSectionElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLTextAreaElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLTitleElement+                        GI.WebKit2WebExtension.Objects.DOMHTMLUListElement+                        GI.WebKit2WebExtension.Objects.DOMKeyboardEvent+                        GI.WebKit2WebExtension.Objects.DOMMediaList+                        GI.WebKit2WebExtension.Objects.DOMMouseEvent+                        GI.WebKit2WebExtension.Objects.DOMNamedNodeMap+                        GI.WebKit2WebExtension.Objects.DOMNode+                        GI.WebKit2WebExtension.Objects.DOMNodeIterator+                        GI.WebKit2WebExtension.Objects.DOMNodeList+                        GI.WebKit2WebExtension.Objects.DOMObject+                        GI.WebKit2WebExtension.Objects.DOMProcessingInstruction+                        GI.WebKit2WebExtension.Objects.DOMRange+                        GI.WebKit2WebExtension.Objects.DOMStyleSheet+                        GI.WebKit2WebExtension.Objects.DOMStyleSheetList+                        GI.WebKit2WebExtension.Objects.DOMText+                        GI.WebKit2WebExtension.Objects.DOMTreeWalker+                        GI.WebKit2WebExtension.Objects.DOMUIEvent+                        GI.WebKit2WebExtension.Objects.DOMWheelEvent+                        GI.WebKit2WebExtension.Objects.DOMXPathExpression+                        GI.WebKit2WebExtension.Objects.DOMXPathResult+                        GI.WebKit2WebExtension.Objects.Frame+                        GI.WebKit2WebExtension.Objects.HitTestResult+                        GI.WebKit2WebExtension.Objects.ScriptWorld+                        GI.WebKit2WebExtension.Objects.URIRequest+                        GI.WebKit2WebExtension.Objects.URIResponse+                        GI.WebKit2WebExtension.Objects.WebExtension+                        GI.WebKit2WebExtension.Objects.WebHitTestResult+                        GI.WebKit2WebExtension.Objects.WebPage+                        GI.WebKit2WebExtension.Structs+                        GI.WebKit2WebExtension.Structs.ContextMenuItem_+                        GI.WebKit2WebExtension.Structs.ContextMenu_+    pkgconfig-depends:  webkit2gtk-web-extension-4.0 >= 2.8+    build-depends: base >= 4.7 && <5,+        haskell-gi-base >= 0.12 && < 1,+        gi-gobject >= 0.2.44.12 && < 0.2.45,+        gi-gtk >= 0.3.16.12 && < 0.3.17,+        gi-javascriptcore >= 0.2.8.12 && < 0.2.9,+        gi-soup >= 0.2.50.12 && < 0.2.51,+        bytestring >= 0.10,+        containers >= 0.5,+        text >= 1.0,+        transformers >= 0.3